https://v.qq.com/x/page/p093573leeq.html
文字讲解：
刘金玉的零基础VB教程066期：贪吃蛇游戏开发第二节 让蛇动起来
基本思路
原理：贪吃蛇的运动相当于插入一个头结点，删除一个尾节点，如此循环
VB中的代码思路
默认向右移动的情况下：
1、直接将每个节点数据向左移动一个
2、将最后一个节点重新赋值
3、赋值时候必须要注意方向
控制蛇的方向
原则：不能让蛇进行往返，通过控制按键的值与原方向的值的差值的绝对值不等于2，来赋值
课堂总结
1、要让蛇运动，要用到时钟控件
2、每次时钟执行的代码必须要刷新界面cls，清除原先绘画出来的蛇身，根据新的数据来刷新蛇身
3、每次运动的数据是将所有数据从蛇头开始项蛇身后赋值一格，根据当前方向，改变蛇头方向
4、数据与绘画独立处理
程序界面：
程序代码：
代码语言：javascript复制Private Type Node '每一节蛇身
D As Integer '37左38上39右40下
X As Single 'left
Y As Single 'top
End Type
Dim W As Integer '每一节蛇身宽度
Dim sno() As Node '声明一条蛇，是动态数组
Dim currentDirect As Integer '代表蛇运动的当前方向
Private WithEvents timer1 As Timer
'初始化一条蛇的各个参数
Function init()
AutoRedraw = True '自动重绘
W = 200
currentDirect = 39 '默认向右运动
ReDim sno(5) As Node
'初始化各个坐标点
Dim i As Long
For i = 0 To UBound(sno) Step 1
sno(i).D = currentDirect
sno(i).X = ScaleWidth / 2 i * W
sno(i).Y = ScaleHeight / 2
Next i
End Function
'画一条蛇
Function drawSnake()
Cls
Dim i As Long
For i = 0 To UBound(sno) Step 1
Line (sno(i).X, sno(i).Y)-(sno(i).X W, sno(i).Y W), vbBlue, BF
Next i
End Function
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If Abs(currentDirect - KeyCode) <> 2 Then currentDirect = KeyCode
End Sub
Private Sub Form_Load()
Call init
Call drawSnake
'对时钟控件进行初始化
Set timer1 = Controls.Add("vb.timer", "timer1")
timer1.Interval = 100
timer1.Enabled = True
End Sub
'运动思路：插入头结点，删除尾节点
Function sport()
Dim i As Long
'将每一个节点数据向前移动一位
For i = 1 To UBound(sno) Step 1
sno(i - 1) = sno(i)
Next i
'将头结点，也就是数组的最后一位重新复制
If currentDirect = 37 Then
sno(UBound(sno)).X = sno(UBound(sno)).X - W
ElseIf currentDirect = 38 Then
sno(UBound(sno)).Y = sno(UBound(sno)).Y - W
ElseIf currentDirect = 39 Then
sno(UBound(sno)).X = sno(UBound(sno)).X W
ElseIf currentDirect = 40 Then
sno(UBound(sno)).Y = sno(UBound(sno)).Y W
End If
End Function
Private Sub timer1_Timer()
Call sport
Call drawSnake
End Sub
