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

Next j

Field_Fill 'Нарисовать новые значения на экран

End Sub

Чтобы посмотреть, как работает копирование значений и атрибутов ячеек сверху вниз, создадим «временную» процедуру обработки Click-а на рамке Frame1:

Private Sub Frame1_Click()

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

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



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

Поделитесь этой записью или добавьте в закладки