Руководство по разработке динамической логической игры на Visual Basic 6.0
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: выборы реферат, лечение пяточной шпори
| Добавил(а) на сайт: Adolija.
Предыдущая страница реферата | 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 | Следующая страница реферата
Главная