Реферат: Программирование логической игры на visual basic

Num_Move

End Sub

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

Теперь нужно добавить код Private Sub Up_Str_App() для заполнения верхней строки игрового поля новыми значениями.

Private Sub Up_Str_App()

TM = Time 'Прочитать текущее время

TTMS = Len(TM) 'Длина строки с временем

TTM = Mid$(TM, 7, 2) 'Выделить секунды

For i = 0 To TTM 'Повторить цикл столько раз, сколько секунд

Next i

'--------------------------------------------------

' Заполнить верхнюю строку массива field(i, 5)

For i = 0 To 7

field(i, 5) = Int((20 * Rnd) + 1)

Next i

'--------------------------------------------------

'Заполнить верхнюю строку номиналами, копируя их из Label56

Field_Fill 'Перерисовать значения на экране, с новыми значениями верхней строки

End Sub

Подключим вызов процедуры в Frame1.Click

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

Покликайте мышкой на поле Frame1 и посмотрите, как все работает!

Теперь нужно написать код обработки постановки игроком игрового маркера в любую из ячеек нижней строки игрового поля.

Процедура для сохранения цветовых атрибутов всех ячеек нижней строки до установки маркера:

Private Sub Save_Color()

savecolor(0) = Label7.BackColor 'Запомнить цвет фона Label7

savecolor(1) = Label8.BackColor 'Запомнить цвет фона Label8

savecolor(2) = Label9.BackColor 'Запомнить цвет фона Label9

savecolor(3) = Label10.BackColor 'Запомнить цвет фона Label10