Для меня это сложно!Мне надо обычную!Я написал код где голова двигается по полю,не могу написать чтобы звенья бегали за ней!
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