Предыдущая страница реферата | 16  17  18  19  20  21  22  23  24  25  26 | Следующая страница реферата

If firstset = 0 Then firstset = 1 'Больше не обрабатывать

markersave = 5 'Маркер в ячейке, соответствующей  savecolor(5)

End Sub

Private Sub Label13_Click()

If firstset = 0 Then Save_Color 'Запомнить цвет фона всех ячеек нижней строки

If firstset = 0 Then Label13.BackColor = &HFF0000 'Маркер СИНЕГО цвета

If firstset = 0 Then firstset = 1 'Больше не обрабатывать

markersave = 6 'Маркер в ячейке, соответствующей  savecolor(6)

End Sub

Private Sub Label14_Click()

If firstset = 0 Then Save_Color 'Запомнить цвет фона всех ячеек нижней строки

If firstset = 0 Then Label14.BackColor = &HFF0000 'Маркер СИНЕГО цвета

If firstset = 0 Then firstset = 1 'Больше не обрабатывать

markersave = 7 'Маркер в ячейке, соответствующей  savecolor(7)

End Sub

Private Sub Save_Color()

savecolor(0) = Label7.BackColor 'Запомнить предыдущий цвет фона Label7

savecolor(1) = Label8.BackColor 'Запомнить предыдущий цвет фона Label8

savecolor(2) = Label9.BackColor 'Запомнить предыдущий цвет фона Label9

savecolor(3) = Label10.BackColor 'Запомнить предыдущий цвет фона Label10

savecolor(4) = Label11.BackColor 'Запомнить предыдущий цвет фона Label11

savecolor(5) = Label12.BackColor 'Запомнить предыдущий цвет фона Label12

savecolor(6) = Label13.BackColor 'Запомнить предыдущий цвет фона Label13

savecolor(7) = Label14.BackColor 'Запомнить предыдущий цвет фона Label14

End Sub

Процедура  Save_Color()  будет использоваться для восстановления цвета ячеек при перемещении маркера по горизонтали (по нижней строке игрового поля).

Создадим переменную markersave в которой будем запоминать НОМЕР ЭЛЕМЕНТА массива savecolor(j), которая соответствует ячейке с маркером (в которую поставили маркер).

Можно проверить, что маркер возможно поставить только в одну ячейку. Теперь нужно обеспечить сохранение маркера (окраску ячейки в синий цвет) при сдвигании ячеек сверху-вниз.

Процедура восстановления цвета маркера после смещения ячеек игрового поля сверху-вниз:

Private Sub Marker_Reset()

If markersave = 0  Then Label7.BackColor = &HFF0000

If markersave = 1  Then Label8.BackColor = &HFF0000

If markersave = 2  Then Label9.BackColor = &HFF0000

If markersave = 3  Then Label10.BackColor = &HFF0000

If markersave = 4  Then Label11.BackColor = &HFF0000

If markersave = 5  Then Label12.BackColor = &HFF0000

If markersave = 6  Then Label13.BackColor = &HFF0000

If markersave = 7  Then Label14.BackColor = &HFF0000

End Sub

Теперь «подключим» процедуру Marker_Reset() к работе в процедуре сдвига вниз. В самый низ процедуры Frame1_Click() вставим следующий код (выделен красным цветом):

Private Sub Frame1_Click()

Num_Move 'Сдвинуть значения всех строк на одну вниз

Up_Str_App 'Заполнить верхнюю строку новыми номиналами

Marker_Reset 'Восстановить маркер

End Sub

Полный VB-проект с этого этапа разработки игры -  в файле vbg5.zip

Напишем процедуру подсчета очков при установке маркера в начале игры.

Private Sub Set_Marker_Count()

'Подсчет очков при постановке маркера

Рекомендуем скачать другие рефераты по теме: математика, защита дипломной работы.





Предыдущая страница реферата | 16  17  18  19  20  21  22  23  24  25  26 | Следующая страница реферата