Вниз  MIDlet Pascal
<< 1 ... 11 12 13 14 15 ... 160 >>
- 23.11.2011 / 13:47
#116843
XakepPRO
  Модератор форума
XakepPRO 
Сейчас: Offline
BPS, Поработать с формами.
- 29.11.2011 / 09:45
#119397
BPS
  Пользователь
BPS 
Как сделать очистку экрана? А то текст накладывается друг на друга
- 29.11.2011 / 10:40
#119408
Naik
  Пользователь
Naik 
Сейчас: Offline
BPS, fillrect(0,0,getwidth(),getheight()); как то так
- 29.11.2011 / 10:57
#119414
BPS
  Пользователь
BPS 
Naik, Спасибо, я разобрался
  1. program game;
  2. procedure cls;
  3. Begin
  4. SetColor (255,255,255);
  5. FillRect (0,0,240,320);
  6. end;
  7. Begin
  8. cls;
  9. ...
  10. end.

- 3.12.2011 / 02:10
#120897
Carburn
  Пользователь
Carburn 
Сейчас: Offline
Почему компилятор выдает сообщение: Переопределение функции sc(III)?
  1. program name;
  2. type pOint=record
  3. x,y,dx,dy:integer;end;
  4. var p:poiNt;w,h:integer;
  5. procedure sc(r,g,b:integer);static M._setColor;
  6. begin
  7. w:=getwidth;h:=getheight;p.x:=0;p.y:=0;p.dx:=1;p.dy:=1;
  8. repeat
  9. setcolor(0);
  10. fillrect(0,0,w,h);
  11. sc(255,255,$cc);
  12. drawtext('('p.x','p.y'|'p.dx','p.dy')',p.x,p.y);
  13. p.x:=p.x+p.dx;
  14. p.y:=p.y+p.dy;
  15. if(p.x<0)or(p.x>w-getstringwidth('(240,320|-1,-1)')) then p.dx:=-p.dx;
  16. if(p.y<0)or(p.y>h-getstringheight('')) then p.dy:=-p.dy;
  17. repaint;
  18. until getKeyClicked<>ke_None;
  19. end.

- 3.12.2011 / 10:42
#120914
P@bloid
  Пользователь
P@bloid 
Сейчас: Offline
Carburn, во-первых это MobPascal, в MIDletPascal такой код вообще не скомпилится.
Во вторых, sc обозначает setcolor - встроеную функцию и переопределять ее нельзя.
- 3.12.2011 / 11:39
#120922
Carburn
  Пользователь
Carburn 
Сейчас: Offline
P@bloid, Удалил переопределение и все заработало.
- 3.12.2011 / 15:03
#120957
Carburn
  Пользователь
Carburn 
Сейчас: Offline
Это кстати в examples было.
- 3.12.2011 / 15:06
#120958
Andrey
  Пользователь
Andrey 
Сейчас: Offline
Опытные прогер на бейсе,но паскаль не оч знаю,программирую с тела,Моб паскаль это то же что на компе Мид...П...?скорость у моб паскаль выше чем у бейса?
- 3.12.2011 / 15:08
#120959
Andrey
  Пользователь
Andrey 
Сейчас: Offline
Единственное что я умею это вывести картинку на экран в моб паскаль и хело ворлд,на МБ все знаю
<< 1 ... 11 12 13 14 15 ... 160 >>
Наверх  Всего сообщений: 1594
Фильтровать сообщения
Поиск по теме
Файлы топика (72)