управление с клавиатуры.

[puporev]

Вот ты спросил в начале, как управлять стрелками. Я тебе написал. И зачем? Тебе все пофиг...

uses crt, graph;

procedure move (x, y:integer);
begin
setfillstyle (1,7);
bar (x-20, y-20, x+20, y+20);
setfillstyle (1,8);
bar (x-35, y-32, x-21, y+32);
bar (x+21, y-32, x+35, y+32);
bar (x-8, y-4, x+8, y+12);
bar (x-2, y-39, x+2, y);
end;

procedure clear (x, y:integer);
begin
setfillstyle (1,0);
bar (x-20, y-20, x+20, y+20);
setfillstyle (1,0);
bar (x-35, y-32, x-21, y+32);
bar (x+21, y-32, x+35, y+32);
bar (x-8, y-4, x+8, y+12);
bar (x-2, y-39, x+2, y);
end;
var Gd, Gm:integer;
    x, y:integer;
    key:char;
begin
Gd:=VGA;
Gm:=VGAHi;
Initgraph (Gd, Gm, '...\bgi');
x:=getmaxX div 2;
y:=getmaxY-50;;
outtextXY(100,30,'Upravlenie - strelki');
outtextXY(130,50,'Vihod - Esc');
Move(x,y);
repeat
key:=readkey;
case key of
#72:begin
    delay(50);
    Clear(x,y);
    y:=y-5;
    Move(x,y);
    end;
#77:begin
    delay(50);
    Clear(x,y);
    x:=x+5;
    Move(x,y);
    end;
#80:begin
    delay(50);
    Clear(x,y);
    y:=y+5;
    Move(x,y);
    end;
#75:begin
    delay(50);
    Clear(x,y);
    x:=x-5;
    Move(x,y);
    end;
end;
until key=#27;
end.

[AntonEew]

не пофиг...
я примерно то же самое делал, я ж написал...
ниже моего примера, где я процедуры составлял.
просто у меня почему-то не работало.
хотя и делал по твоему первому образцу.


так? просто когда я начал писать само движение через case of end, он у меня все равно не двигался...
вот что я тебе хотел сказать.
еще в сообщении #19

просто ты не так меня понял.


все работает.
СПАСИБО большое!
извини, что не сразу все понял, так как я первый месяц изучаю паскаль.

[sir.andrey]

Может быть не move, а MoveTo?

[puporev]

Может быть не move, а MoveTo?

Если не понимаешь о чем идет речь, то не срамись...

[sir.andrey]

Сообщение от puporev

Если не понимаешь о чем идет речь, то не срамись...

Ну ладно, ладно, затупил!
Не увидел процедурку и написал, что первое в голову пришло!

[puporev]

что первое в голову пришло!

В Турбо Паскале вообще нет MoveTo....

[sir.andrey]

Сообщение от puporev

В Турбо Паскале вообще нет MoveTo....

procedure MoveTo(X, Y: Integer);
Перемещает текущий указатель координат в точку окна с координатами (X, Y). Точка на экране не высвечивается.

X, Y - координаты точки относительно левого верхнего угла окна.

Применяется только в графическом режиме.

[Serge_Bliznykov]

Сообщение от sir.andrey

procedure MoveTo(X, Y: Integer);
Перемещает текущий указатель координат в точку окна с координатами (X, Y). Точка на экране не высвечивается.

угу. точно. есть такая процедура в модуле Graph... Turbo Pascal 7.0

[puporev]

Что-то я затупил... Редко пользуюсь, обычно Line(x1,y1,x2,y2);

[ViktorR]

так как я первый месяц изучаю паскаль.

Рекомендую найти и почитать учебник по Паскалю от Т.А. Павловской. Там, в частности,
рассматривается и Ваш вопрос (с объяснениями и примерами): создание объектов в Паскале и управление ими.
Моя оценка учебника - мудрый (в самом хорошем смысле этого слова) учебник для начинающих изучать программирование.