Модуль класса clsЛовец остается прежним. Приведу в окончательном виде все остальное, а именно: модуль класса clsШар, модуль кода и модуль (окно кода) формы.
Модуль кода
Public Const Число_шаров = 10
Public Const Размер_шара = 200
Public Const Размер_ловца = 500
Public Const Дальность = 200 'Это расстояние, на котором ловец достает шар
Public Ловец As clsЛовец 'Объявляем объект Ловец класса clsЛовец
Public Шар(1 To Число_шаров) As clsШар 'Объявляем массив объектов Шар класса clsШар
Модуль формы
Public intЧисло_пойманных_шаров As Integer
Private Sub Form_Load() 'Эта процедура выполняется один раз при запуске проекта
Dim i As Integer
Randomize 'Шары должны разлетаться со случайной скоростью и в случайном направлении
'Настраиваем размеры изображений шара и ловца:
imgШар(1).Height = Размер_шара
imgШар(1).Width = Размер_шара
imgЛовец.Height = Размер_ловца
imgЛовец.Width = Размер_ловца
'Порождаем массив изображений шара:
For i = 2 To Число_шаров
Load imgШар(i)
imgШар(i).Visible = True
Next i
'Порождаем объект Ловец и массив объектов-шаров:
Set Ловец = New clsЛовец
For i = 1 To Число_шаров
Set Шар(i) = New clsШар
Next i
Начальная_установка
KeyPreview = True 'Чтобы форма реагировала на клавиатуру
txtСчетчик_времени.Locked = True 'Чтобы в процессе игры нельзя было вручную менять показания счетчика
End Sub
Private Sub cmd_Начинай_сначала_Click() 'Что происходит при нажатии кнопки НАЧИНАЙ СНАЧАЛА
Начальная_установка
txtСчетчик_времени.SetFocus 'Чтобы фокус ушел с кнопки, иначе первое нажатие на стрелки клавиатуры не вызывает движения ловца
End Sub
Private Sub Начальная_установка() 'Все объекты встают в исходную позицию и настраиваются на новую игру
Dim i As Integer
txtСчетчик_времени.Text = 0 'Обнуляем счетчик времени
intЧисло_пойманных_шаров = 0 'Обнуляем число пойманных шаров
Ловец.Начальная_установка 'Ловец встает в исходную позицию и настраивается на новую игру
For i = 1 To Число_шаров 'Все шары встают в исходную позицию и настраиваются на новую игру
Шар(i).Начальная_установка
Next i
End Sub
Private Sub Timer1_Timer() 'Главная_процедура игры, выполняется один раз на каждом импульсе таймера
Dim i As Integer
'Действуют все шары:
For i = 1 To Число_шаров
Шар(i).Действие 'Сначала объект Шар вычисляет свои координаты,
imgШар(i).Left = Шар(i).x 'Затем изображение шара сдвигается на вычисленные координаты
imgШар(i).Top = Шар(i).y
Next i
'Действует ловец:
Ловец.Действие 'Сначала объект Ловец вычисляет свои координаты,
imgЛовец.Left = Ловец.x 'Затем изображение Ловца сдвигается на вычисленные координаты
imgЛовец.Top = Ловец.y
'Действует счетчик времени на форме, увеличивая свои показания на 1:
If intЧисло_пойманных_шаров <> Число_шаров Then txtСчетчик_времени.Text = txtСчетчик_времени.Text + 1
End Sub
'Обработка события - нажатия клавиши на клавиатуре для управления ловцом:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp Ловец.Руль = вверх
Case vbKeyLeft Ловец.Руль = влево
Case vbKeyDown Ловец.Руль = вниз
Case vbKeyRight: Ловец.Руль = вправо
Case vbKeyControl: Ловец.Руль = стоп
End Select
End Sub
Модуль clsШар
Public x As Long 'Координаты шара
Public y As Long
Private dx As Long 'Шаг шара по горизонтали и вертикали между двумя импульсами таймера
Private dy As Long
Private Макс_шаг As Long 'Максимально возможное значение шага шара
Private Sub Class_Initialize() 'Процедура, выполняющаяся при рождении шара
Макс_шаг = 100
End Sub
Public Sub Начальная_установка() 'Шар встает в исходную позицию и настраивается на новую игру
'Ставим шар на исходную позицию:
x = f.shpБортик.Left + f.shpБортик.Width * 3 / 4 'Она отстоит по горизонтали на четверть ширины поля от правого его края
y = f.shpБортик.Top + f.shpБортик.Height / 2 'Она по вертикали расположена посредине поля
'Вычисление шага:
dx = Макс_шаг * (1 - 2 * Rnd) 'Шаг по горизонтали случаен и не превосходит Макс_шаг
dy = Макс_шаг * (1 - 2 * Rnd) 'Шаг по вертикали случаен и не превосходит Макс_шаг
End Sub
Public Sub Действие() 'Главная_процедура шара, выполняется один раз на каждом импульсе таймера
If Поймали Then Выход_шара_из_игры 'Сначала шар определяет, не поймали ли его,
Отскакивать_или_нет 'затем, если бортик рядом, реагирует на него,
Шаг 'и наконец делает шаг
End Sub
Private Sub Отскакивать_или_нет() 'Реакция на бортик
If Шар_у_пола_или_потолка Then
dy = -dy 'Отскок от пола или потолка
ElseIf Шар_у_стен Then
dx = -dx 'Отскок от стен
End If
End Sub
Private Sub Шаг()
x = x + dx
y = y + dy
End Sub
Private Function Шар_у_пола_или_потолка() As Boolean
If y < f.shpБортик.Top Or y + Размер_шара > f.shpБортик.Top + f.shpБортик.Height Then
Шар_у_пола_или_потолка = True
Else
Шар_у_пола_или_потолка = False
End If
End Function
Private Function Шар_у_стен() As Boolean
If x < f.shpБортик.Left Or x + Размер_шара > f.shpБортик.Left + f.shpБортик.Width Then
Шар_у_стен = True
Else
Шар_у_стен = False
End If
End Function
Private Function Поймали() As Boolean
'ЕСЛИ расстояние по горизонтали между центрами шара и ловца меньше Дальности
'И если расстояние по вертикали между центрами шара и ловца меньше Дальности, ТО
Запустите проект. Проверьте, правильно ли он работает. Поиграйте значениями шагов ловца и шара, их размерами, числом шаров и другими величинами, подберите наиболее удобные для себя.
Пояснения. Обратите внимание, что в обоих классах много одноименных переменных и процедур. Как я уже говорил чуть выше, никакой путаницы здесь произойти не может. Иметь одинаковые имена для элементов одинакового смысла удобно и правильно.
В модуле формы разберитесь самостоятельно. Я думаю, что комментариев достаточно. Поговорим подробнее о модуле шара. Совершенно аналогично модулю ловца здесь имеется два метода - Начальная_установка и Действие. Метод Действие главный, он определяет, что должен делать шар в каждое мгновение своего полета. Он должен знать, поймали его или нет, и пора ли отскакивать от бортика. Этому и посвящены первые две из трех строк процедуры Действие. Эти две строки вычисляют нужным образом dx и dy, а третья строка - Шаг - изменяет в соответствии с этими значениями координаты x и y. Все, больше ничего во время движения шара делать не нужно.
Теперь посмотрим, что происходит при нажатии на кнопку "Начинай сначала". Выполняется процедура cmd_Начинай_сначала_Click и после пары прыжков по процедурам Visual Basic передает управление процедуре Начальная_установка каждого шара. Здесь трудности у вас может вызвать вычисление dx и dy. Поскольку значение Rnd есть случайное число в диапазоне от 0 до 1, то легко видеть, что как dx, так и dy будут случайными числами в диапазоне от -100 до 100. Этого достаточно, чтобы шар полетел со случайной скоростью в случайном направлении.
Теперь насчет отскока. Возможно, тем, кто не очень силен в математике и физике, покажется удивительным, что для отскока от горизонтальной преграды достаточно выполнить оператор dy = -dy, то есть поменять вертикальную составляющую шага на ее противоположное значение. "Но это действительно так!" Аналогично, достаточно выполнить оператор dx = -dx для отскока от вертикальной преграды. Чтобы лучше понять этот факт, запустите пошаговый режим при Макс_шаг=1000 и Число_шаров=1. При этом проследите внимательно за dx и dy, x и y.
Недоработки проекта
Замеченные мной недоработки проекта вызваны нежеланием усложнять и увеличивать в объеме его код. Вот они:
· Иногда шар, вместо того, чтобы отскочить от борта, начинает двигаться скачками вдоль него. Возьмем к примеру левый бортик. Почти наверняка это связано с неточностью обработки вещественных чисел в операторе x=x+dx, в результате чего после отскока опять выполняется условие x < f.shpБортик.Left и шарик опять выполняет оператор dx = -dx. Рискну посоветовать (сам не проверял): в момент отскока незначительно увеличьте абсоютное значение шага: dx = -(dx+0.001).
· Я не знаю, как поведет себя шар, попавший точно в угол. По идее, он должен там застрять. Но у меня так ни разу не было.
· Постоянными нажатиями на клавиши направления мы можем передвигать ловца за пределами стола. Ни к чему это. Надо бы запретить.
