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

End If

End Sub

Надписи в заголовке формы "Left" и "Right" выводятся только для отладки.

Переменная markersave однозначно показывает в какой ячейке нижней строки игрового поля стоит маркер. Напишем процедуру перемещения маркера вправо-влево по нижней строке:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

'Обработка нажатия клавиш «стрелка вправо» и «стрелка влево»

If (GetAsyncKeyState(vbKeyLeft)) Then

' Кнопка влево

Form1.Caption = "Left"

Move_Point_Left 'Переместить маркер влево

ElseIf (GetAsyncKeyState(vbKeyRight)) Then

' Кнопка вправо

Form1.Caption = "Right"

Move_Point_Right 'Переместить маркер вправо

End If

End Sub

Private Sub Move_Point_Left()

If markersave = 0 Then 'Если самая левая ячейка нижней строки

markersave = 7 'Левее самой левой ячейки – самая ПРАВАЯ (циклический переход)

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

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

Label14_Click 'Переместить маркер (самая правая ячейка!)

vt = markersave

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

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

End If

If markersave = 1 Then

markersave = 0 'Поместить левее

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