PascalABC-Движение шарика

[m@xon]

Вот кусок программы:

PHP код:

uses GraphABC,Events;

const
  r=10;
  d=3;

var x,y: integer;

procedure Show;
begin
  SetBrushColor(clBlack);
  Ellipse(x-r,y-r,x+r,y+r);
end;

procedure Hide;
begin
  SetBrushColor(clWhite);
  Ellipse(x-r,y-r,x+r,y+r);
end;

procedure KeyDown(Key: integer);
begin
  Hide;
  case Key of
   VK_Left: x:=x-d;
   VK_Up: y:=y-d;
   VK_Right: x:=x+d;
   VK_Down: y:=y+d;
  end;
  Show
end;

procedure KeyPress(Ch: char);
begin
end;

begin
  SetWindowCaption('Нажимайте стрелки для перемещения объекта');
  x:=WindowWidth div 2;
  y:=WindowHeight div 2;
  
  SetPenColor(clWhite);
  
  OnKeyDown:=KeyDown;
  OnKeyPress:=KeyPress;

  Show;
end. 


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

Всем заранее спасибо.

[Alex Cones]

В Case добавьте флаги для обозначения нажатия стрелки. Потом работайте с этими флагами.

[Serge_Bliznykov]

вот, чисто лобзиком, чисто по приколу..

uses GraphABC,Events,CRT;

const
  r=10;
  d=3;
  Mydelay = 40;
type
  TDirection = (None, Left, Right, Up, Down);


var x,y: integer;
  Direction :TDirection;

procedure Show;
begin
  SetBrushColor(clBlack);
  Ellipse(x-r,y-r,x+r,y+r);
end;

procedure Hide;
begin
  SetBrushColor(clWhite);
  Ellipse(x-r,y-r,x+r,y+r);
end;

procedure KeyDown(Key: integer);
begin
  Hide;
  case Key of
   VK_Left: Direction := Left ;
   VK_Up: Direction := Up;
   VK_Right: Direction := Right;
   VK_Down: Direction := Down;
   VK_Escape: Halt;
  end;
  Show
end;

procedure KeyPress(Ch: char);
begin
end;

begin
  SetWindowCaption('Нажимайте стрелки для перемещения объекта');
  x:=WindowWidth div 2;
  y:=WindowHeight div 2;

  Direction := None;

  SetPenColor(clWhite);

  OnKeyDown:=KeyDown;
  OnKeyPress:=KeyPress;

  Show;
  repeat
    if Direction<>None then begin
      Hide;
      case Direction of
       Left: begin x:=x-d; if x<=0 then x:=WindowWidth  end;
       Up:  begin y:=y-d; if y<=0 then y:=WindowHeight  end;
       Right: begin x:=x+d; if x>=WindowWidth then x:=0  end;
       Down: begin y:=y+d; if y>=WindowHeight then y:=0  end;
     end;
     Show;
    end;
    Delay(Mydelay);
  until False;
end.

[m@xon]

Alex Cones,Serge_Bliznykov Спасибо

[m@xon]

Только в программе Serge_Bliznykov шарик иногда просто останавливается. И в углу мигает курсор. Не могу понять почему шарик останавливается

[Serge_Bliznykov]

курсор мигал и в исходной программе..
убрать можно одной строчкой.
перед циклом вставьте строку:

  HideCursor;

шарик иногда просто останавливается

у меня такого нет... Более того, я даже предположить не могу, как он может останавливаться... в программе просто нет такого кода!
после остановки программа на клавиши не реагирует? Останавливается после чего? есть внешние зависимости?

[m@xon]

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

[Serge_Bliznykov]

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

некоторое время - это всёгда одно и то же? и сколько времени надо подождать?
Если есть возможность - на другой машине проверяли?
у меня версия Pascal ABC 3.0.1.35 (17.4.2007)
может от этого зависит?..

извините, но более конкретный совет/подсказку дать не могу. ибо я это PascalABC и поставил себе только ради форума. а раньше в глаза его никогда не видел

[m@xon]

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

некоторое время - это всёгда одно и то же? и сколько времени надо подождать?

Не знаю одно оно или разное, но шарик останавливается минуты через 2.

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

Если есть возможность - на другой машине проверяли?

Нет

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

у меня версия Pascal ABC 3.0.1.35 (17.4.2007)
может от этого зависит?..

Возможно-у меня версия 3.0.1.26(5.3.2007)