Написание игры "Змейка" - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.7 из 5
Похожие ответы