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

End If

If markersave = 3 Then

markersave = 4 'Переместить правее (т.к. значение > на 1)

firstset = 0 'Временно разрешить рисование маркера

Label10.BackColor = savecolor(3) 'Восстановить цвет ячейки, где БЫЛ маркер

Label11_Click 'Переместить маркер

vt = markersave

markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует

‘никакой ячейке)

End If

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