|
Основной форум Сюда все проблемы связанные с программированием. |
14.05.2010, 23:52
|
#16
|
Знающий
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений (для 13 пользователей)
|
Ответ: Помогите с boolean!!!
а почему procedure p_paint;?
__________________
G502, GT S5230w user!
|
(Offline)
|
|
14.05.2010, 23:58
|
#17
|
ПроЭктировщик
Регистрация: 21.06.2009
Адрес: Беларусь, Столбцы
Сообщений: 148
Написано 32 полезных сообщений (для 57 пользователей)
|
Ответ: Помогите с boolean!!!
ну просто есть переменная с названием intro и paint, потом сложно будет в этом разбираться, путаться будешь, или вообще не скомпилится
__________________
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
15.05.2010, 00:01
|
#18
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: Помогите с boolean!!!
Что-то не могу понять, что значит
Procedure data;
begin
intro:=true;//--------------?
paint:=false;//-------------?
end;
Что делают выделенные конструкции?
Да еще и при том, что переменная и процедура имеют одинаковые имена.
|
(Offline)
|
|
15.05.2010, 00:47
|
#19
|
Знающий
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений (для 13 пользователей)
|
Ответ: Помогите с boolean!!!
я не знаю...помогли бы лучше...я вообще в булеанах не понимаю...может кто обьяснит толком? Прошу! Мне оч надо!
__________________
G502, GT S5230w user!
|
(Offline)
|
|
15.05.2010, 00:59
|
#20
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: Помогите с boolean!!!
Так я вот и спрашиваю - что нужно получить в итоге?
|
(Offline)
|
|
15.05.2010, 00:59
|
#21
|
ПроЭктировщик
Регистрация: 21.06.2009
Адрес: Беларусь, Столбцы
Сообщений: 148
Написано 32 полезных сообщений (для 57 пользователей)
|
Ответ: Помогите с boolean!!!
В общем Boolean - логический тип данных который может принимать два значения true или false (да или нет). Используется много где. например если я хочу чтобы чтобы после какого-то действия чтото или не выполнялось или выполнялось
var
p:boolean;
a,b,i:integer;
p:=false;
for i:=1 to 100 do
begin
a:=a+i;
if a>150 then p:=true;
if p<> true then b:=b+a;
end;
__________________
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
15.05.2010, 08:22
|
#22
|
Знающий
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений (для 13 пользователей)
|
Ответ: Помогите с boolean!!!
впринцыпе чуть понял, если что то ещё спрошу. Не закрывайтепока тему
__________________
G502, GT S5230w user!
|
(Offline)
|
|
15.05.2010, 08:51
|
#23
|
Знающий
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений (для 13 пользователей)
|
Ответ: Помогите с boolean!!!
Что не так:
Program LaFull;
Var int:image;
bulLogin:boolean;
Procedure login;
begin
drawImage(int,0,0);
repaint;
delay(-1);
end;
Procedure data;
begin
bulLogin:=true;
if (bulLogin=true) then login;
int:=LoadImage('/int.png');
end;
begin
data;
end.
?????
Всё компилит, а экран белый!
__________________
G502, GT S5230w user!
Последний раз редактировалось Rock2roll, 15.05.2010 в 10:06.
|
(Offline)
|
|
15.05.2010, 11:16
|
#24
|
ПроЭктировщик
Регистрация: 31.01.2007
Сообщений: 128
Написано 20 полезных сообщений (для 43 пользователей)
|
Ответ: Помогите с boolean!!!
if (bulLogin=true) then login;
int:=LoadImage('/int.png');
Местами поменять
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
15.05.2010, 11:33
|
#25
|
Знающий
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений (для 13 пользователей)
|
Ответ: Помогите с boolean!!!
Bruteo!!!! Огромнейшее спасибо тебе!!!! Я так мучался из-за этого! Ты меня прямо спас!!! Я тебе очень благодарен! Огромнейшее спасибо!!!
__________________
G502, GT S5230w user!
|
(Offline)
|
|
15.05.2010, 12:46
|
#26
|
Знающий
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений (для 13 пользователей)
|
Ответ: Помогите с boolean!!!
Program LaFull;
Var int,log,mouse,tab,ping:image;
w,h,key,x,y:integer;
bulLogin,bulMouse,bulPing:boolean;
Procedure Pings;
begin
drawImage(int,0,0);
drawImage(ping,w-85,h-69);
repaint;
end;
Procedure mouseX;
begin
Key:=KeyToAction(getKeyPressed);
if (Key=GA_LEFT) then X:=X-2;
if (Key=GA_RIGHT) then X:=X+2;
if (Key=GA_UP) then Y:=Y-2;
if (Key=GA_DOWN) then Y:=Y+2;
if x<0 then x:=0;
if y<0 then y:=0;
if y>getheight-5 then y:=getheight-5;
if x>getwidth-5 then x:=getwidth-5;
drawImage(mouse,x,y);
repaint;
end;
Procedure login;
begin
repeat
drawImage(int,0,0);
drawImage(log,w-98,h-31);
drawImage(tab,getwidth-118,getheight-86);
repaint;
if (x>45) and (y>185) and (x<115) and (y<200) and (KeyToAction(getKeyPressed)=GA_FIRE) then
bulPing:=true;
until (x>-100) and (y>-100) and (x<-50) and (y<-50) and (KeyToAction(getKeyPressed)=GA_FIRE);
end;
Procedure data;
begin
x:=getwidth/2; y:=getheight/2;
w:=getwidth/2; h:=getheight/2;
bulMouse:=true;
bulLogin:=true;
bulPing:=false;
int:=LoadImage('/int.png');
log:=loadimage('/log.png');
mouse:=loadimage('/mouse.png');
tab:=loadimage('/tab.png');
ping:=LoadImage('/ping.png');
if (bulPing=true) then bulLogin:=false;
if (bulMouse=true) then mouseX;
if (bulLogin=true) then login;
if (bulPing=true) then Pings;
end;
begin
data;
end.
Почему не двигается мышь?, та которая mouse? И как задержать процедуру без делай норм?
__________________
G502, GT S5230w user!
|
(Offline)
|
|
15.05.2010, 19:24
|
#27
|
Знающий
Регистрация: 18.03.2009
Сообщений: 223
Написано 10 полезных сообщений (для 17 пользователей)
|
Ответ: Помогите с boolean!!!
чёт я вообще недоганяю... зачем тебе там эти всякие булеаны? а чем тебе delay(100) не устраивает? можно ещё так:
var ms:integer;
begin
ms:=GetRelativeTimeMs;
...
код
...
while GetRelativeTimeMs-ms<100 do // задержка
begin
end;
end.
тут задержка будет ровно 100мс, т.к. тут считается время выполнения цикла.
__________________
И суслики вам не помогут
|
(Offline)
|
|
15.05.2010, 20:57
|
#28
|
Знающий
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений (для 13 пользователей)
|
Ответ: Помогите с boolean!!!
Нет, мне нужны именно булеаны. Как сделать чтобы перемещался курсор?? ПОМОГИТЕ!! Прошу
__________________
G502, GT S5230w user!
|
(Offline)
|
|
16.05.2010, 11:10
|
#29
|
Знающий
Регистрация: 25.10.2009
Сообщений: 338
Написано 53 полезных сообщений (для 61 пользователей)
|
Ответ: Помогите с boolean!!!
вот код:
Program NewProject1;
var
key,cursorx,cursory,a,ScrW,ScrH:integer;
cursor:image;
domause:boolean;
procedure cls;
begin
setColor(255,255,255);
fillRect(0,0,getWidth,getHeight);
end;
procedure mause;
begin
cursorx:=5;
cursory:=5;
repeat
key:=getkeyclicked;
if key=KE_KEY4 then cursorx:=cursorx-11;
if key=KE_KEY6 then cursorx:=cursorx+11;
if key=KE_KEY2 then cursory:=cursory-11;
if key=KE_KEY8 then cursory:=cursory+11;
if cursorx>scrW then cursorx:=scrw;
if cursory>scrH then cursory:=scrh;
if cursorx<0 then cursorx:=0;
if cursory<0 then cursory:=0;
drawimage(cursor,cursorx,cursory);
repaint;
delay(50);
cls;
until false;
end;
procedure data;
begin
repeat
a:=a+1;
drawtext(''+a,0,0);
repaint;
delay(100);
cls;
setcolor(0,0,0);
until a>=50;
domause:=true;
end;
Begin
cursor:=loadimage('/icon.png');
ScrW:= GetWidth;
ScrH:= GetHeight;
data;
if domause then mause;
End.
сначала идет процедура дата которая прибовляет к "а" по одному, когдп "а" будет равна 50 то идёт процедура mause
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
16.05.2010, 11:31
|
#30
|
Знающий
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений (для 13 пользователей)
|
Ответ: Помогите с boolean!!!
Спасибо огромное
__________________
G502, GT S5230w user!
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 20:27.
|