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

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 не соответствует