forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   Visual Basic (http://forum.boolean.name/forumdisplay.php?f=62)
-   -   Змейка (http://forum.boolean.name/showthread.php?t=14606)

Drago56 18.04.2011 19:01

Змейка
 
Помогите пожалуйста, нужна игра змейка как можно проще алгоритм чтобы был

Harter 19.04.2011 13:32

Ответ: Змейка
 
Я верю в тебя, парень.
клик

impersonalis 19.04.2011 13:38

Ответ: Змейка
 
алгоритм говоришь?
http://forum.boolean.name/showthread.php?t=1169

Drago56 19.04.2011 19:09

Ответ: Змейка
 
Для меня это сложно!Мне надо обычную!Я написал код где голова двигается по полю,не могу написать чтобы звенья бегали за ней!
Код:

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



Часовой пояс GMT +4, время: 23:00.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot