UC知道用VB编写贪吃蛇的问题
来源：百度知道 编辑：UC知道 时间：2024/05/29 01:52:45
shape2为果实,shape1为蛇身,shape1的index属性为0,通过创建控件数组来增加蛇身.label1显示当前分数,label2显示剩下时间,在窗体上添加6个时钟控件,用于控制蛇的速度与发布果实与减去时间.
代码如下
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 And Timer3.Enabled = False Then
Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End If
If KeyCode = 38 And Timer4.Enabled = False Then
Timer2.Enabled = True
Timer1.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End If
If KeyCode = 39 And Timer1.Enabled = False Then
Timer3.Enabled = True
Timer1.Enabled = False
Timer2.Enabled = False
Timer4.Enabled = False
End If
If KeyCode = 40 And Timer2.Enabled = False Then
Timer4.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
Timer1.Enabled = False
End If
End Sub
Private Sub Form_Load()
Randomize
x = Fix(10 * Rnd +
Private Sub Timer5_Timer()
If Shape1(0).Left <= Shape2.Left + 50 And Shape1(0).Left >= Shape2.Left - 50 And Shape1(0).Top <= Shape2.Top + 50 And Shape1(0).Top >= Shape2.Top - 50 Then
If Shape2.Visible = True Then
Label1.Caption = Label1.Caption + 5
Shape2.Visible = False
Randomize
x = Fix(10 * Rnd + 1)
y = Fix(10 * Rnd + 1)
Shape2.Left = x * 300
Shape2.Top = y * 300
Shape2.Visible = True
End If
End If
End Sub
整段代码中，这一段是判断“蛇”是否已经吃到“果实”，如果吃到“果实”就随机位置产生一个“果实”，但这段代码中没有增加蛇的长度的代码。在这一段中加进去就OK了。
例：
Private Sub Timer5_Timer()
If Shape1(0).Left <= Shape2.Left + 50 And Shape1(0).Left >= Shape2.Left - 50 And Shape1(0).Top <= Shape2.Top + 50 And Shape1(0).Top >= Shape2.Top - 50 Then
If Shape2.Visible = True Then ‘如果果实是有效的，
Label1.Caption = Label1.Caption + 5 ‘给玩家加分。
Shape2.Visible = False ’隐藏被吃掉的果实。
‘在这里加入代码增加蛇的长度
Randomize
x = Fix(10 * Rnd + 1)