Как улеличивать скорость движения во время движия

[Нур]

В общем задача нарисовать шарик двигающийся от одного края к другому, при этом при нажатии клавиши вверх скорость его движения увеличивается, при нажатии вниз скорость уменьшается))) Движение реализовал. Скрость сделал пустым циклом, ну для задержки. не знаю как изменять скорость, ну понимаю что надо менять границы пустого цикла но как это сделать при движении шарика не знаю. ПОМОГИТЕ пожалуйста люди добрые)))

[eoln]

Смотря какой язык. delay или sleep, можно и таймером

[DeKot]

По такому алгоритму это должно выглядеть следующим образом:
Создай обработчик OnKeyDown клавиш "вверх", "вниз", в котором определяешь - если нажата "вверх" глобальная переменная dV := +<числовое значение>; если нажата "вниз" - dV := -<числовое значение>.
А в процедуре организации движения перед циклом задержки (определяющей скорость движения) укажи

Application.ProcessMessages;
 for i:= 1 to (V + dV) do 
 begin
   < пустой цикл>
 end;

Числовые значения V и dV зависят от харатеристик компьютера (тактовая, величина памяти, загруженность системными процессами и другими приложениями и др.).Подбирать практически по факту.
При нажатии клавиш стрелки "Вниз" \ "Вверх" значение (V + dV) будет при каждом нажатии уменьшаться \ увеличиваться на величину dV, а значит и длительность выполнения цикла соответственно изменяться.

[Нур]

Язык Delphi

[Нур]

DeKot как я понял то мне надо примерно вот так

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key='w' then m:=m-100000;
  if Key='s' then m:=m+100000;
end;

потом когда идет цикл движения там

begin
   Canvas.Brush.Color:=Color;
   Canvas.Ellipse(x0+30,y0+30,x0-30,y0-30);
   
   x0:=x0 - 1;
   Canvas.Brush.Color:=clBlue;
   Canvas.Ellipse(x0+30,y0+30,x0-30,y0-30);
   
   Application.ProcessMessages;
   for j:=0 to m do;
   end;

[Нур]

только вот во время цикла чет не реагирует на нажатые клавиши(((

[Нур]

Я думал что то типа ReadKey поискать но не нашел(((

[Нур]

аааа чувак спасибо дошло)))) я написав это просто при запуске программы раскладку на нужную не менял))) Два часа сидел))) аж истерика началась как понял суть

[DeKot]

В посте №5 все правильно.Вместо буквенных клавиш лучше пользоваться клавишами управления курсора ("стрелки")

case Key of
     38: m:=m+100000; // стрелка "вверх"
     40: m:=m-100000; // стрелка "вниз"
     end;

Тогда и раскладка не будет влиять.
Или же :

if (Key='w') or (Key='ц') then m:=m-100000;
  if (Key='s') or (Key='ы') then m:=m+100000;

[Нур]

Спасибо еще раз. Просто когда делал не мог вспонить коды стрелок)) поэтому для проверки буквы писал.