Реферат: Программирование логической игры на visual basic
If et = 17 Then Label48.Caption = Label48.Caption - 1
If et = 18 Then Label48.Caption = Label48.Caption + 1
If et = 19 Then Label48.Caption = Label48.Caption + 5
If et = 20 Then Label48.Caption = Label48.Caption - 25
n = 1 'Больше не обрабатывать, т.к. маркер уже нарисован
End If
End Sub
Теперь «подключим» процедуру подсчета очков – в каждую из процедур Click-а для ячеек нижней строки:
Private Sub Label7_Click()
If firstset = 0 Then Save_Color 'Запомнить цвет фона
If firstset = 0 Then Label7.BackColor = &HFF0000 'Поставить цвет фона маркера (синий)
If firstset = 0 Then firstset = 1 'Больше не обрабатывать
markersave = 0 'Указывает на ячейку, в которую установлен маркер
Set_Marker_Count ‘Скорректировать счет
End Sub
Для остальных ячеек нижней строки – точно так же.
Теперь напишем процедуру подсчета очков при сдвиге ячеек сверху – вниз.
Процедура будет выглядеть чрезвычайно просто:
Private Sub Dn_Count()
'Подсчитать очки при сдвиге сверху - вниз
n = 0 ‘Временно разрешить работу процедуры Set_Marker_Count
Set_Marker_Count ‘Процедура подсчета очков при постановке маркера
End Sub
Для демонстрации работы процедуры вставим ее вызов в процедуру сдвига рядов ячеек сверху – вниз Frame1_Click():
Private Sub Frame1_Click()
Num_Move 'Сдвинуть номиналы всех ячеек сверху - вниз
Up_Str_App 'Заполнить верхнюю строку игрового поля новыми номиналами
Marker_Reset 'Восстановить маркер
Dn_Count 'Подсчитать очки при сдвиге сверху - вниз