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

[AntonEew]

не подскажете, как при помощи команды ReadKey сделать управление объектом с клавиатуры?
что-то вроде
if readkey:=#75 then move...
или же каким-то образом через case of end?
надо, чтоб при нажатии стрелки влево объект двигался влево.

[GetMax]

не подскажете, как при помощи команды ReadKey сделать управление объектом с клавиатуры?

Подскажу

Uses CRT;
Var
   ch:Char;
Begin
   ch:=ReadKey;
   If ch = #75 then //движение объекта влево
End.

или же каким-то образом через case of end?

Если необходимо реализовать движение во все стороны, то лучше пользоваться Case.

[puporev]

Перемещение стрелками круга.

uses crt,graph;
var x0,y0,x,y:integer;
    c:char;
procedure Move(x,y:integer);
begin
setcolor(11);
circle(x,y,20);
setfillstyle(1,11);
fillellipse(x,y,20,20);
end;
procedure Clear(x,y:integer);
begin
setcolor(0);
circle(x,y,20);
setfillstyle(1,0);
fillellipse(x,y,20,20);
end;
begin
x0:=0;
initgraph(x0,y0,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
x:=x0;y:=y0;
Move(x0,y0);
outtextXY(100,30,'Upravlenie - strelki');
outtextXY(130,50,'Vihod - Esc');
repeat
c:=readkey;
case c 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 c=#27;
end.

[AntonEew]

then ... что?
как компьтеру объяснить движение влево?
через move?
но там вроде отдельно х и у прописывать надо, а мне это никчему.
что-то типа move left?
ругается на неопознанную переменную.
кстати, спасибо за подсказку.)

[puporev]

но там вроде отдельно х и у прописывать надо, а мне это никчему.

Ну и отдыхай, а то как говориться ни украсть, ни покараулить...

[AntonEew]

нет, я не хотел тебя обидеть, просто в твоем коде паскаль ругается на Clear.
типа, неопознанная переменная.
и когда я пишу move (x, y); ему не нравится выражение в скобках.
не пойми меня неправильно)

[puporev]

ругается на Clear.
типа, неопознанная переменная.

С какого это перепугу, если выше написано.

procedure Clear(x,y:integer);
begin
setcolor(0);
circle(x,y,20);
setfillstyle(1,0);
fillellipse(x,y,20,20);
end;

[puporev]

и когда я пишу move (x, y); ему не нравится выражение в скобках.

Так ты для начала ничего в моем коде не меняй, а просто скопируй и запусти в турбо Паскале или во Free Pascal. Я же не просто так код скинул, а предварительно проверенный.

[AntonEew]

твой код он кушает, а вот когда я пытаюсь добавить его в свой, он сильно ругается.
либо компилится, но объект никуда не двигается.
либо вылетает при нажатии стрелки. пробовал и procedure, и case of end...
вот мой исходный код объекта:

program tank;

 uses Crt, Graph;

 var Gd, Gm:Integer;
 move:char;

 begin
 Gd:=VGA;
 Gm:=VGAHi;
 InitGraph (Gd, Gm, '...\bgi');
 If GraphResult = grOK then

 ClearDevice;

 setfillstyle (1,7);
 Bar (300,425,350,470);
 setfillstyle (1,8);
 Bar (285,410,300,479);
 Bar (350,410,365,479);
 Bar (315,445,335,460);
 Bar (323,400,327,455);

 ReadLn;
 end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[puporev]

Ну, судя по твоему коду, это клинический случай, я лично пас.