Вниз  MIDlet Pascal
<< 1 ... 45 46 47 48 49 ... 160 >>
- 11.01.2013 / 15:37
#231864
ВитаминКО
  Супермодератор
ВитаминКО 
Сейчас: Offline
vl@volk, чтобы не вылетала сразу, искуственно замедляй программу: циклом с большим конечным значением или оператором sleep (если есть такой)
__________________
 わからない！！
- 11.01.2013 / 15:41
#231866
Az@
  Пользователь
Az@ 
Там можно сделать read();
и закончить. Мы, паскалитсы, должны помогать друг другу. Ведь мы вымираем, на этом сайте единицы пишут на дельфи
- 11.01.2013 / 15:43
#231867
vl@volk
  Пользователь
vl@volk 
Сейчас: Offline
Az@, Я нашел, с функциями я еще не очень разобрался, но паскаль нравится, можно с помощью цикла repeat...until
__________________
 знает толк
- 11.01.2013 / 15:45
#231868
vl@volk
  Пользователь
vl@volk 
Сейчас: Offline
ВитаминКО, есть наподобе sleep, delay(1000), но она останавливает прогу и нельзя копки нажать(не реагируют)
__________________
 знает толк
- 11.01.2013 / 15:47
#231870
Az@
  Пользователь
Az@ 
Там типа нажмите че либо для продолжения выводим такое сообщение
потом ждем нажатия кнопки и ток тогда выходим. Можно продолжить если хочется
- 11.01.2013 / 15:51
#231873
vl@volk
  Пользователь
vl@volk 
Сейчас: Offline
Az@,
  1.  begin
  2. repeat
  3.  тут операторы;
  4. if getkeyclicked=ke_key1 then until true;
  5. until false;
  6. end.
я примерно так хочу, поклацаю попробую
__________________
 знает толк
Изменено vl@volk (11.01 / 15:52) (всего 1 раз)
- 11.01.2013 / 19:25
#231932
Maxxxl123
  Пользователь
Maxxxl123 
Сейчас: Offline
  1. procedure fireT;
  2.     begin
  3.     for i:=1 to 3 do
  4.         begin
  5.         if ((x<bx[i])and ((x+8)>bx[i])and nap=1) then bs[i]:=0;
  6.         if ((x>bx[i])and ((x+8)<(bx[i]+20))and nap=1) then bs[i]:=0;
  7.         if ((x<bx[i])and ((x+8)>bx[i])and nap=3) then bs[i]:=0;
  8.         if ((x>bx[i])and ((x+8)<(bx[i]+20))and nap=3) then bs[i]:=0;
  9.         if ((y<by[i])and ((y+8)>by[i])and nap=1) then bs[i]:=0;
  10.         if ((y>by[i])and ((y+8)<(by[i]+20))and nap=1) then bs[i]:=0;
  11.         if ((y<by[i])and ((y+8)>by[i])and nap=3) then bs[i]:=0;
  12.         if ((y>by[i])and ((y+8)<(by[i]+20))and nap=3) then bs[i]:=0;
  13.         end;
  14.         setColor(200,0,200);
  15.         if nap=1 then drawLine(x+8,0,x+8,y+8);
  16.   if(nap=2) then drawLine(x+8,y+8,getWidth,y+8);
  17.   if(nap=3) then drawLine(x+8,y+8,x+8,getHeight);
  18.   if(nap=4) then drawLine(x+8,y+8,0,y+8);
  19.  
  20.  
  21.         fire:=false;
  22.         end;
компиль ругается :
operand is wrong type
- 11.01.2013 / 20:19
#231953
Maxxxl123
  Пользователь
Maxxxl123 
Сейчас: Offline
  1. program samolet;
  2. var
  3. x,y:integer;
  4. str:string;
  5. play,exit,clicked:Command;
  6. bs,by,bx:array[1..3] of integer;
  7. i,speed,nap,state:integer;
  8. fire:boolean;
вот переменные :helpme:
- 11.01.2013 / 20:45
#231964
Dmitriy
  Пользователь
Dmitriy 
Сейчас: Offline
Maxxxl123, какой номер строки?
- 11.01.2013 / 20:46
#231966
Dmitriy
  Пользователь
Dmitriy 
Сейчас: Offline
getHeight походит на переменную может так getHeight()?
<< 1 ... 45 46 47 48 49 ... 160 >>
Наверх  Всего сообщений: 1594
Фильтровать сообщения
Поиск по теме
Файлы топика (72)