Запомнить координаты мышки в graphabc - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Как в GraphABC при нажатии кнопки мышки в графическом окне запомнить координаты это тойчки????

Решение задачи: «Запомнить координаты мышки в graphabc»

textual
Листинг программы
Uses GraphABC;
var
  xm, ym, mouse_up: integer; // xm - координаты мыши по x
  // ym - координаты мыши по y
  // mouse_up - статус мыши
 
Procedure MouseUp(x, y, mb: integer); // процедура нажатии мыши
begin
   If (mb = 1) then 
  begin
    xm := x;
    ym := y;
    mouse_up := 1;
  end;
end;
 
begin
  repeat
    OnMouseUp := MouseUp;
  until (mouse_up = 1);
  Writeln('Координаты мыши: ', xm, ', ',ym);
End.

Объяснение кода листинга программы

  1. Объявлены три переменные: xm, ym и mouse_up типа integer (целое число).
  2. Xm будет хранить координаты мыши по x, ym - координаты мыши по y, а mouse_up - статус мыши.
  3. Определена процедура MouseUp с тремя параметрами: x, y и mb (координаты мыши и ее статус).
  4. Если статус мыши mb равен 1 (нажатие мыши), то координаты мыши x и y присваиваются переменным xm и ym соответственно, а переменная mouse_up принимает значение 1.
  5. В основной части программы определена бесконечная повторяющаяся процедура OnMouseUp, которая вызывает процедуру MouseUp при каждом повторении.
  6. Программа повторяется до тех пор, пока переменная mouse_up не примет значение 1.
  7. После окончания внутреннего цикла программа выводит на экран координаты мыши в формате 'Координаты мыши: ', xm, ', ',ym.

Оцени полезность:

5   голосов , оценка 3.2 из 5
Похожие ответы