Одновременное нажатие клавиш

@Kolbasnik · Регистрация: 29.04.2017

Author24 — интернет-сервис помощи студентам

Как сделать так, чтобы при нажатии w с d, w с a, s с d, s с a, объект двигался по диагонали? Желательно напишите код.

@ZX Spectrum-128 · 13.05.2017, 08:03

Pascal

uses 
  graphABC; 
var
  x, y, dx, dy: integer;
 
procedure KeyDown(Key: integer);
begin
  if Key = VK_W then 
  begin
    x := x + dx;
    y := y + dy;
  end;  
end;
 
begin
  x := 100;
  y := 100;
  DX := 1;
  dy := 1;
  OnKeyDown := KeyDown;
  LockDrawing;
  while true do
  begin
    Window.Clear;
    Brush.Color := clGreen;
    Ellipse(x, y, x + 100, y + 100);
    Redraw;
    Sleep(1);
  end;
end.

@Kolbasnik 0 / 0 / 0 Регистрация: 29.04.2017 Сообщений: 23
		1
	Одновременное нажатие клавиш 12.05.2017, 18:56. Показов 1856. Ответов 1 Метки нет (Все метки) Как сделать так, чтобы при нажатии w с d, w с a, s с d, s с a, объект двигался по диагонали? Желательно напишите код. 0

	13.05.2017, 08:03

Одновременное нажатие клавиш

Решение