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

[Fi11eR]

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

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

описание этой процедуры тоже в код добавь

[puporev]

Просто в моей программе в процедурах рисование и стирание круга заменить на прямоугольник. И не нужно оперировать абсолютными координатами, а переменными.

[AntonEew]

puporev, в смысле, клинический случай?
я что-то совсем не так делаю?
объясни, а то четвертый день мучаюсь!

[puporev]

объясни, а то четвертый день мучаюсь!

Я же привел рабочий пример как это нужно делать, просто замени круг на прямоугольник.
Ну а дурость здесь

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);

Это что, движение по нажатию клавиш?

[AntonEew]

нет, это прорисовка объекта...
причем тут нажатие клавиш?
разве паскалю не все равно какой объект двигать?
и каким образом он нарисован? с точными координатами или переменными?

Подставил вместо твоего круга свой танк, а он все равно не движется.
Хотя остальной код не менял. Просто стоит на месте, а при нажатии стрелок иногда мерцает черным. И все.
Может быть, это все из-за точных координат?

[puporev]

Может быть, это все из-за точных координат?

Именно так. Я же говорю, для того чтобы фигура двигалась, она дрлжна быть привязана к динамическим экранным координатам, которые меняются при нажатии стрелок.
Для этого тебе нужно свой танк написать не цифрами, а взять какую-то точку, например какой-то угол танка или середину и все остальное рисовать от этой точки, например

procedure Tank(x,y,c:integer);//координаты исходной точки и цвет
begin
 setcolor(c);
 setfillstyle(1,c);
 bar(x-20,y-20,x+20,y+20);
 end;

Это просто для примера.
Когда нажимаешь стрелку, например вправо

if keypressed then
 begin
  c:=readkey;
  if c=#77 then x:=x+5;
end;

вся фигура получает новые координаты и смещается.

Вообще по идее тебе нужно бы написать 4х2 процедур.
Танк прямо, влево, вправо, вниз и это все нарисовать и стереть.

[AntonEew]

ага, спасибо.
а инициализацию графики в процедуре писать?
или в самой программе после основного begin?

[puporev]

а инициализацию графики в процедуре писать?

Нет, это в основной программе, или отдельной процедурой.

[AntonEew]

я начал переделывать:

uses crt, graph;

var Gd, Gm:integer;
x0, y0, x, y:integer;
key:char;

procedure tank (x, y:integer);
begin
setfillstyle (1,7);
x:=getmaxX div 2;
y:=430,
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 move (x, y:integer);
begin
setfillstyle (1,7);
x:=getmaxX div 2;
y:=430,
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);
x:=getmaxX div 2;
y:=430,
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;

begin

Gd:=VGA;
Gm:=VGAHi;
Initgraph (Gd, Gm, '...\bgi');
If graphResult = grOK then

ClearDevice;

setfillstyle (1,7);
x:=getmaxX div 2;
y:=430,
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);

ReadLn;

end.

так? просто когда я начал писать само движение через case of end, он у меня все равно не двигался...
может опять что-то не то??
извини за настойчивость.

[AntonEew]

даже так не движется:

uses crt, graph;

var Gd, Gm:integer;
x, y:integer;
key:char;

begin

Gd:=VGA;
Gm:=VGAHi;
Initgraph (Gd, Gm, '...\bgi');
If graphResult = grOK then

ClearDevice;

setfillstyle (1,7);
x:=getmaxX div 2;
y:=430,
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;

key:=readkey;
if key=#77 then x:=x-5;

readln;

end.