Тема: Змейка
Показать сообщение отдельно
Старый 19.04.2011, 19:09   #4
Drago56
AnyKey`щик
 
Регистрация: 16.12.2010
Сообщений: 6
Написано одно полезное сообщение
(для 8 участников)
Ответ: Змейка

Для меня это сложно!Мне надо обычную!Я написал код где голова двигается по полю,не могу написать чтобы звенья бегали за ней!
Dim L As Boolean
Dim R As Boolean
Dim U As Boolean
Dim D As Boolean
Dim p As Boolean
Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
' klavisha DOWN
If KeyCode = 40 Then
  L = False
  R = False
  U = False
  D = True
  End If
' klavisha LEFT
  If KeyCode = 37 Then
  L = True
  R = False
  U = False
  D = False
End If
' klavisha UP
If KeyCode = 38 Then
  L = False
  R = False
  U = True
  D = False
End If
' klavisha RIGHT
If KeyCode = 39 Then
  L = False
  R = True
  U = False
  D = False
End If
End Sub

Private Sub Timer1_Timer()
If D = True Then
 Shape1.Top = Shape1.Top + 255
End If
End Sub

Private Sub Timer2_Timer()
If L = True Then
 Shape1.Left = Shape1.Left - 255
End If
End Sub

Private Sub Timer3_Timer()
 If U = True Then
 Shape1.Top = Shape1.Top - 255
End If
End Sub

Private Sub Timer4_Timer()
If R = True Then
 Shape1.Left = Shape1.Left + 255
End If
End Sub
(Offline)
 
Ответить с цитированием