Движем ловца – вторая ступень проекта - часть 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Ловец




Содержание  Назад  Вперед