Движения по нажатию клавиши

[ТРОЯН=)]

Всем привет!!Подскажите плиз как заставить например квадрат двигатся по нажатию клавишь право лево верх низ????

[Вадим Буренков]

А тебе для чего это надо?

В теории все просто:
1)Делаешь процедуру прорисовки квадрата (лучше через спрайт).
2)Вводим переменные x,y:integer (координаты квадрата)
2)Далее делаем блок такого типа

...........
{инициализация граф. режима и прочее}
Repeat
if keypressed then Ch:=Readkey
else Ch:=' ';

'w' : begin
y:=y-10;
Cleardevice;
{вывод квадрата }
end;

's' : begin
y:=y+10;
Cleardevice;
{вывод квадрата }
end;

'a' : begin
x:=x-10;
Cleardevice;
{вывод квадрата }
end;


'd' : begin
x:=x+10;
Cleardevice;
{вывод квадрата }
end;


until Ch = #27;

Если че непонятно могу обьяснить.

[Extreme]

Сообщение от ТРОЯН=)

Всем привет!!Подскажите плиз как заставить например квадрат двигатся по нажатию клавишь право лево верх низ????

Через функцию gotoXY(для начала тебе лучше символ, а потом уже квадраты).

gotoXY(x,y);
write(chr(5));
textcolor(blue);
a:=readkey;
case ord(a) of
80: if y<17 then y:=y+1;
75: if x>2 then x:=x-1;
77: if x<79 then x:=x+1;
72: if y>2 then y:=y-1;
Соответственно все это в бегины и энды, задать переменные, вырезал из своей игры, скачай посмотри код, думаю разберешься.
Теперь не много по данному коду. Функция gotoXY переводит курсор в заданную точку. chr(5) это встроенный символ в паскале. case ord ждет нажатия клавиши и по нажатию определяет что необходимо делать, ограничения написаны для того чтобы символ не убегал за экран. В uses crt экран имеет разрешеине 80x28 вроде(1<=x<=80)(1<=y<=28)

Сообщение от Вадим Буренков

А тебе для чего это надо?

В теории все просто:
1)Делаешь процедуру прорисовки квадрата (лучше через спрайт).
2)Вводим переменные x,y:integer (координаты квадрата)
2)Далее делаем блок такого типа

...........
{инициализация граф. режима и прочее}
Repeat
if keypressed then Ch:=Readkey
else Ch:=' ';

'w' : begin
y:=y-10;
Cleardevice;
{вывод квадрата }
end;

's' : begin
y:=y+10;
Cleardevice;
{вывод квадрата }
end;

'a' : begin
x:=x-10;
Cleardevice;
{вывод квадрата }
end;


'd' : begin
x:=x+10;
Cleardevice;
{вывод квадрата }
end;


until Ch = #27;

Если че непонятно могу обьяснить.

А для чего инициализировать Graph режим если для его задачи и crt хватит с лихвой)

[ТРОЯН=)]

Спасибо за помощь)))

[Вадим Буренков]

А для чего инициализировать Graph режим если для его задачи и crt хватит с лихвой)

Ответ на вопрос:

Подскажите плиз как заставить например квадрат двигатся по нажатию клавишь

[Extreme]

Сообщение от Вадим Буренков

Ответ на вопрос:

А что с помощью chr(201,186,205,187,200,188) трудно начертить квадрат и перемещать по средством x:=x+1? Просто я не зная режима Graph так делаю, поэтому и советую как проще раз он библиотеку crt плохо знает.