Rus7pnz Пользователь Сейчас: Offline
Имя: Руслан Откуда: Пенза Регистрация: 29.11.2011
| Вот код программы: program Kubik; var x,y,key:integer; begin x:=0; y:=0; while key<>GA_FIRE do begin getWidth; getHeight; drawRect(0,0,240,320); SetColor(0,255,0); FillRect(0,0,240,320); SetColor(255,255,255); FillRect(x,y,10,10); setColor(0,255,0); Repaint; Delay(100); Key:=keyToAction(GetKeyClicked); if key=GA_LEFT then x:=x-10; if key=GA_RIGHT then x:=x+10; if key=GA_UP then y:=y-10; if key=GA_DOWN then y:=y+10; end; end. Помогите чем сможете.
Изменено Rus7pnz (3.12 / 21:03) (всего 1 раз) |