Руководство по разработке динамической логической игры на Visual Basic 6.0
Категория реферата: Рефераты по информатике, программированию
Теги реферата: выборы реферат, лечение пяточной шпори
Добавил(а) на сайт: Adolija.
Предыдущая страница реферата | 18 19 20 21 22 23 24 25 26 27 28 | Следующая страница реферата
If markersave = 4 Then
markersave = 5 'Переместить правее (т.к. значение > на 1)
firstset = 0 'Временно разрешить рисование маркера
Label11.BackColor = savecolor(4) 'Восстановить цвет ячейки, где БЫЛ маркер
Label12_Click 'Переместить маркер
vt = markersave
markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует
‘никакой ячейке)
End If
If markersave = 5 Then
markersave = 6 'Переместить правее (т.к. значение > на 1)
firstset = 0 'Временно разрешить рисование маркера
Label12.BackColor = savecolor(5) 'Восстановить цвет ячейки, где БЫЛ маркер
Label13_Click 'Переместить маркер
vt = markersave
markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует
‘никакой ячейке)
End If
If markersave = 6 Then
markersave = 7 'Переместить правее (т.к. значение > на 1)
firstset = 0 'Временно разрешить рисование маркера
Label13.BackColor = savecolor(6) 'Восстановить цвет ячейки, где БЫЛ маркер
Label14_Click 'Переместить маркер
vt = markersave
markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует
‘никакой ячейке)
End If
If markersave = 7 Then
markersave = 0 'Переместить правее (т.к. значение > на 1)
firstset = 0 'Временно разрешить рисование маркера
Label14.BackColor = savecolor(7) 'Восстановить цвет ячейки, где БЫЛ маркер
Label7_Click 'Переместить маркер
vt = markersave
markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует
‘никакой ячейке)
End If
markersave = vt
n = 0
Set_Marker_Count
End Sub
Теперь нужно сделать всего одну процедуру – процедуру сдвига нумерации текущих игровых уровней:
Private Sub Level_Count()
Label6.Caption = Label6.Caption + 1
Label5.Caption = Label6.Caption + 1
Label4.Caption = Label5.Caption + 1
Label3.Caption = Label4.Caption + 1
Label2.Caption = Label3.Caption + 1
End Sub
Подключим процедуру сдвига слоев к работе, например так:
Private Sub Dn_Count()
Рекомендуем скачать другие рефераты по теме: математика, защита дипломной работы.
Предыдущая страница реферата | 18 19 20 21 22 23 24 25 26 27 28 | Следующая страница реферата