ПОНЯТНО О Visual Basic NET (том 3)


Движем ловца – вторая ступень проекта - часть 2


  • Увеличить на 1 счетчик времени (импульсов таймера) на форме.
  • Перечислю действия, которые должны выполняться при нажатии на кнопку «Начинай сначала»:

    • Установить в 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Ловец




    - Начало -  - Назад -  - Вперед -



    Книжный магазин