Руководство по разработке динамической логической игры на Visual Basic 6.0
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: выборы реферат, лечение пяточной шпори
| Добавил(а) на сайт: Adolija.
Предыдущая страница реферата | 18 19 20 21 22 23 24 25 26 27 28 | Следующая страница реферата
If markersave = 7 Then
markersave = 6 'Поместить левее
firstset = 0 'Временно разрешить рисование маркера
Label14.BackColor = savecolor(7) 'Восстановить цвет ячейки, где БЫЛ маркер
Label13_Click 'Переместить маркер
vt = markersave
markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует
‘никакой ячейке)
End If
markersave = vt
n = 0
Set_Marker_Count
End Sub
Private Sub Move_Point_Right()
If markersave = 0 Then 'Если самая левая ячейка
markersave = 1 'Переместить правее (т.к. значение > на 1)
firstset = 0 'Временно разрешить рисование маркера
Label7.BackColor = savecolor(0) 'Восстановить цвет ячейки, где БЫЛ маркер
Label8_Click 'Переместить маркер
vt = markersave
markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует
‘никакой ячейке)
End If
If markersave = 1 Then
markersave = 2 'Переместить правее (т.к. значение > на 1)
firstset = 0 'Временно разрешить рисование маркера
Label8.BackColor = savecolor(1) 'Восстановить цвет ячейки, где БЫЛ маркер
Label9_Click 'Переместить маркер
vt = markersave
markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует
‘никакой ячейке)
End If
If markersave = 2 Then
markersave = 3 'Переместить правее (т.к. значение > на 1)
firstset = 0 'Временно разрешить рисование маркера
Label9.BackColor = savecolor(2) 'Восстановить цвет ячейки, где БЫЛ маркер
Label10_Click 'Переместить маркер
vt = markersave
markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует
‘никакой ячейке)
End If
If markersave = 3 Then
markersave = 4 'Переместить правее (т.к. значение > на 1)
firstset = 0 'Временно разрешить рисование маркера
Label10.BackColor = savecolor(3) 'Восстановить цвет ячейки, где БЫЛ маркер
Label11_Click 'Переместить маркер
vt = markersave
markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует
‘никакой ячейке)
End If
Рекомендуем скачать другие рефераты по теме: математика, защита дипломной работы.
Категории:
Предыдущая страница реферата | 18 19 20 21 22 23 24 25 26 27 28 | Следующая страница реферата
Главная