Алгоритм игры "змейка". Как заставить двигаться хвост? - VB

Узнай цену своей работы

Формулировка задачи:

Подскажите плз, как заставить двигаться хвост змейки %) Голова бегает нормально, а вот хвост чтоит на месте. Покрайней мере заставил бегать только одно звено за головой %) а остальное стоит. Подскажите алгоритм.

Решение задачи: «Алгоритм игры "змейка". Как заставить двигаться хвост?»

textual
Листинг программы
Private Declare Function GetCursorPos Lib 'user32' (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
 
Dim Part As Integer
'Dim Snake As POINTAPI
 
Private Sub SnakeAdd()
Part = Snake.Count
Label1.Caption = Part
Load Snake(Part)
Snake(Part).FillColor = RGB(Int(250), Int(100), Int(200))
End Sub
 
Private Sub Form_Load()
SnakeAdd
Timer1.Interval = 500
End Sub
 
Public Sub SnakeMove()
If (Snake(0).Top > 405) And (Snake(0).Top < Snake_Shape.Height - 270) Then
 
If Snake.Count > 1 Then
For I = 1 To Snake.Count - 1
Snake(I).Top = Snake(I - 1).Top
Snake(I).Left = Snake(I - 1).Left
Next
Snake(0).Top = Snake(0).Top - 235
'Snake(0).Left = Snake(0).Left - 235
End If
End If
 
End Sub
 
Private Sub Timer1_Timer()
SnakeMove
End Sub

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


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

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

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