Чем могут быть полезны события?

Date: 2015-10-07; view: 455.

События являются центральным ядром в работе интерактивной программы. Если вы хотите позволить пользователю взаимодействовать с вашей программой, вы будете делать это с помощью событий. Например, Вы пишите игру Tic-Tac-Toe. Вы захотите сделать так, чтобы у пользователя было право выбора на его/ее игру, так? Вот здесь нам и пригодятся события – Вы получаете введенные пользователем данные снаружи программы при помощи событий. Если это сложно понять, не переживайте, мы подробно рассмотрим очень простой пример, на котором будет понятно, что такое события и как им найти применение.

Внизу приведена очень простая программа, которая имеет всего одно предложение и одну подпрограмму. Подпрограмма использует операцию ShowMessage в объекте Графическое Окно для отображения окна сообщений пользователю.

GraphicsWindow.MouseDown = OnMouseDown

Sub OnMouseDown

GraphicsWindow.ShowMessage("Вы щелкнули мышью.", "Привет!")

EndSub

Обратите внимание на одну интересную часть приведенной выше программы – строка, в которой мы присваиваем имя подпрограммы событию MouseDown,принадлежащегообъекту GraphicsWindow (Графическое Окно). Заметьте, что MouseDown очень похоже на свойство, за исключением одного – вместо присваивания ему какого-либо значения мы присваиваем ему подпрограмму OnMouseDown. Вот что является отличительной особенностью событий – когда происходит событие, подпрограмма вызывается автоматически. В данном случае подпрограмма OnMouseDown вызывается при каждом нажатии мышкой на Графическое Окно. Теперь запустите программу и посмотрите на результат. При каждом нажатии на Графическое Окно мышкой на экране будет появляться такое же окно сообщений, как Вы видите ниже.

Рисунок 49 – Реакция на событие

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

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

GraphicsWindow.BrushColor = "Blue"

GraphicsWindow.MouseDown = OnMouseDown

Sub OnMouseDown

x = GraphicsWindow.MouseX - 10

y = GraphicsWindow.MouseY - 10

GraphicsWindow.FillEllipse(x, y, 20, 20)

EndSub

Рисунок 50 – Использование события Mouse Down

Обратите внимание на то, что в этой программе мы использовали MouseX и MouseY для определения координат мышки. Потом мы рисуем круг, используя координаты мышки в качестве центра круга.