Написание игры "Змейка" - VB
Формулировка задачи:
Помогите пожалуйста,напишите простую игру Змейка!!!
Решение задачи: «Написание игры "Змейка"»
textual
Листинг программы
Dim L As Boolean Dim R As Boolean Dim U As Boolean Dim D As Boolean Dim p As Boolean Dim mas(1) As Integer Dim i As Integer Dim j, x, y As Integer Const m = 3 Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) L = False R = False U = False D = False End Sub Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer) ' klavisha DOWN If KeyCode = 40 Then x = 0 y = 255 L = False R = False U = False D = True End If ' klavisha LEFT If KeyCode = 37 Then x = -255 y = 0 L = True R = False U = False D = False End If ' klavisha UP If KeyCode = 38 Then x = 0 y = -255 L = False R = False U = True D = False End If ' klavisha RIGHT If KeyCode = 39 Then x = 255 y = 0 L = False R = True U = False D = False End If End Sub Private Sub Timer1_Timer() For i = 1 To m j = m - i + 1 Shape1(j).Top = Shape1(j - 1).Top Shape1(j).Left = Shape1(j - 1).Left Next i Shape1(0).Top = Shape1(0).Top + y Shape1(0).Left = Shape1(0).Left + x '------------------------------- 'выход за границы For i = 1 To m c = c + i - 1 If (Shape1(c).Top < 0) Or (Shape1(c).Left < 0) Or (Shape1(c).Top > Shape2.Height * 27) Or (Shape1(c).Left > Shape2.Height * 27) Then Timer1.Interval = 0 Picture1.Print "You Looozer" End If Next i End Sub Private Sub Form_Load() 'поле поделеное на рвные части объектов Picture1.Height = Shape2.Height * 27 Picture1.Width = Shape2.Height * 27 End Sub Private Sub Timer2_Timer() 'Generaciy apple If Shape2.Visible = True Then Shape2.Visible = False End If If Shape2.Visible = False Then Shape2.Left = Shape2.Width * Int(27 * Rnd(1)) Shape2.Top = Shape2.Height * Int(27 * Rnd(1)) Shape2.Visible = True End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д