Порядок выполнения. 10. Установите на форме следующие объекты и измените им свойства:

10. Установите на форме следующие объекты и измените им свойства:

11. Приведите свою форму в соответствие с образцом

12. В окне кода процедуры обработки события Load для объекта Form набрать

Form1.KeyPreview = True

13. В окне кода процедуры обработки события KeyDown для объекта Form набрать

'определим текущие координаты

x = sss.Left

y = sss.Top

'определим будущие координаты

If KeyCode = 37 Then 'нажата клавиша ç

x = x - 50

End If

If KeyCode = 39 Then ‘'нажата клавиша è

x = x + 50

End If

If KeyCode = 38 Then ‘'нажата клавиша é

y = y - 50

End If

If KeyCode = 40 Then ‘'нажата клавиша ê

y = y + 50

End If

ys1 = (Line1.Y2 - Line1.Y1) * (x - Line1.X1) / (Line1.X2 - Line1.X1) + Line1.Y1

ys2 = (Line2.Y2 - Line2.Y1) * (x - Line2.X1) / (Line2.X2 - Line2.X1) + Line2.Y1

If y < ys1 Or y > Abs(ys2) - sss.Height Then

MsgBox " Bыход за территорию! ",, " Kуда пошел? "

Exit Sub

End If

sss.Move x, y 'движение

14. Проверьте работу приложения

15.

16. Измените программу так, чтобы при нажатии клавиш шарик становился красным, а когда отпущена – белым.

17. Измените программу так, чтобы управление шариком осуществлялось клавишами М (влево), И (вверх ), Т (вправо) и пробел (вниз)

Результат показать преподавателю