Движем ловца – вторая ступень проекта - часть 2
Перечислю действия, которые должны выполняться при нажатии на кнопку «Начинай сначала»:
- Установить в 0 счетчик времени.
- Заставить ловца выполнить свою процедуру Начальная_установка, то есть прыгнуть в точку старта ловца.
Программа. Вот как выглядит наш проект на второй ступени. На третьей ступени добавится класс шара, к стандартному модулю и коду формы добавятся строки, касающиеся шаров. А модуль clsЛовец я привожу целиком, в окончательном варианте.
Стандартный модуль: Остался неизменным.
Модуль формы:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Форма = Me
KeyPreview = True 'Чтобы форма реагировала на клавиатуру
Счетчик_времени.ReadOnly = True 'Чтобы нельзя было вручную менять показания счетчика
Ловец = New clsЛовец 'Создаем объект Ловец класса clsЛовец
Начальная_установка()
End Sub
Private Sub Начальная_установка()
Счетчик_времени.Text = 0 'Обнуляем счетчик времени
Счетчик_времени.Focus() 'Чтобы фокус ушел с кнопки
Ловец.Начальная_установка() 'Ловец встает в исходную позицию
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Ловец.Действие()
Счетчик_времени.Text = Счетчик_времени.Text + 1 'Счетчик времени на форме увеличивается на 1
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles MyBase.KeyDown
Ловец.Реакция_на_клавиатуру(e)
End Sub
Private Sub Начинай_сначала_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Начинай_сначала.Click
Начальная_установка()
End Sub
Модуль класса clsЛовец (останется неизменным):
Public Class clsЛовец