Справочник Жаркова по проектированию и программированию искусственного интеллекта. Том 4: Программирование на Visual Basic искусственного интеллекта

По второму варианту, свяжем верхний левый угол прямоугольника, описанного вокруг хлеба, с указателем мыши, чтобы в режиме выполнения хлеб следовал за управляемым нами указателем мыши. В режиме проектирования дважды щёлкаем по каждой новой кнопке, а в панели Properties на вкладке Events дважды щёлкаем по имени события MouseMove. Появившиеся шаблоны методов для обработки этих событий после записи нашего кода принимают такой вид.

Рис. 4.9. Подвижный сыр и управляемый нами хлеб.

Рис.

Листинг 4.12. Методы для обработки событий.

Private Sub Button3_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Button3.Click

'Перемещаем объект вверх:

by -= ySpeed

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Button4.Click

'Перемещаем объект вниз:

by += ySpeed

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, _

ByVal e As System.

'Перемещаем объект влево:

bx -= xSpeed

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Button6.Click

'Перемещаем объект вправо:

bx += xSpeed

End Sub

Private Sub Form1_MouseMove(ByVal sender As System.Object, _

ByVal e As System.Windows.Forms.MouseEventArgs) _

Handles MyBase.MouseMove

'Определяем координаты указателя мыши на форме:

Dim mouseX As Integer = e.

Dim mouseY As Integer = e.Y

'Задаём координаты хлеба, равные координатам мыши:

bx = mouseX

by = mouseY

End Sub

Для удобства, задаём другие значения начальным координатам хлеба (например,

Dim bx As Integer = 150 : Dim by As Integer = 200)

в нижней части формы.

После запуска программы (Build, Build Selection; Debug, Start Without Debugging) сыр самостоятельно (без нашего участия) перемещается по экрану, отталкиваясь от границы со звуковым сигналом.

А после нажатий мышью четырёх кнопок Вверх, Вниз, Влево и Вправо мы можем перемещать батон хлеба в соответствующих четырёх направлениях по всему экрану (рис. 4.9).

На рис. 4.9 видно, что по умолчанию на форме выделена первая кнопка Button (на этой кнопке размещён фокус (Focus) программы), и поэтому данную кнопку мы можем нажать не только мышью, но и клавишей Enter, после чего скорость перемещения сыра возрастёт пропорционально количеству нажатий.