首页 > 代码库 > 使用VB创建贪吃蛇

使用VB创建贪吃蛇

       贪吃蛇作为一个经典游戏,在其开发成功后,有很长一段时间令很多人为之振奋,但随着时间的流逝,贪吃蛇也逐渐淡出人们的视野。本次,我利用VB重现贪吃蛇的创建。主要使用到的控件:Label标签,Command按钮,Timer控件。

以下为创建过程:

贪吃蛇作为一个游戏来说,主要分为6个部分:

  1. 地图创建部分;
  2. 地图坐标初始化部分;
  3. 食物创建部分;
  4. 贪吃蛇创建部分;
  5. 贪吃蛇移动控制部分;
  6. 贪吃蛇吃食物身体变化部分。

 在创建之前,我们需要为我们需要的变量进行定义:

 1 Private MapXy(4900) As xy 用于存放全部的地图坐标,这里以70*70为例
 2 Private Snake() As xy 用于存放蛇的身体及头的坐标
 3 Private SnakeLength As Long 用于存放蛇身体长度
 4 Private wbtemp As xy 用于存放尾巴坐标及类型
 5 Private Food As xy 用于保存食物的坐标
 6 Private Alive As Boolean‘用于判断是否活着
 7 Private MapColors As Long
 8 Private SnakeHeadColors As Long
 9 Private SnakeBodyColors As Long
10 Private FoodColors As Long
11 Private MapCol As Long
12 Private MapTotal As Long
13 Private Key As Integer

 地图的创建:

 1 Private Function CreateMap(ByVal TotalNum As Long, ByVal ColNum As Long, ByVal MapInitColor As Long) As Boolean  Create the game map,if create success then return true,else return false
 2  On Error Resume Next
 3  Dim i As Long
 4  If TotalNum <= 2 Then
 5  CreateMap = False
 6  Exit Function
 7  Else
 8  Map(1).BackColor = MapInitColor 初始颜色
 9         For i = 2 To TotalNum 创建了70*70的区域
10                 DoEvents
11                 Load Map(i)
12                 Map(i).Width = Map(i - 1).Width
13                 Map(i).Visible = True
14                 If (i - ColNum - 1) Mod ColNum = 0 Then
15                         Map(i).Top = Map(i - 1).Top + Map(1).Height + 1
16                         Map(i).Left = Map(1).Left
17                 Else
18                         Map(i).Top = Map(i - 1).Top
19                         Map(i).Left = Map(i - 1).Left + Map(1).Width + 1
20                 End If
21 
22         Next
23         CreateMap = True
24     End If
25 End Function

地图坐标初始化:

1 Private Sub MapXyInit() 地图坐标初始化
2 Dim i As Integer
3 For i = 1 To MapTotal
4 MapXy(i).lx = 0 0是无障碍,1是障碍(包含蛇自身),2是食物
5 MapXy(i).X = Fix(i / (1 + MapCol)) + 1 x坐标是除数+1
6 MapXy(i).Y = i - (MapXy(i).X - 1) * MapCol y做差
7 Map(i).BackColor = MapColors
8 Next
9 End Sub

创建食物Food:

 1 Sub CreatFood() 创建食物
 2 
 3         Randomize
 4 a:
 5         Food.X = Int(Rnd() * (MapCol - 1 + 1) + 1) 这是food的x坐标:1-MapCol
 6         Food.Y = Int(Rnd() * (MapCol - 1 + 1) + 1) 这是food的y坐标:1-MapCol
 7 
 8         If MapXy(((Food.X) - 1) * MapCol + Food.Y).lx = 1 Then 这里就以食物所在的位置是否为红就可以判断是不是在蛇身上
 9                 GoTo a
10         Else
11                MapXy(((Food.X) - 1) * MapCol + Food.Y).lx = 2 表示创建了食物,类型是2
12                Map((((Food.X) - 1) * MapCol + Food.Y)).BackColor = FoodColors 食物的颜色是绿色
13         End If
14 
15 End Sub

创建蛇:

 1 Private Sub CreateSnake() 创建蛇自身
 2 On Error Resume Next
 3 SnakeLength = 1
 4 ReDim Preserve Snake(SnakeLength) 重新定义蛇的长度
 5 Randomize
 6 Snake(SnakeLength).X = Int(Rnd() * (MapCol - 1 + 1) + 1)
 7 Snake(SnakeLength).Y = Int(Rnd() * (MapCol - 1 + 1) + 1)
 8 MapXy((Snake(SnakeLength).X - 1) * MapCol + Snake(SnakeLength).Y).lx = 1 表示为有障碍
 9 Map((Snake(SnakeLength).X - 1) * MapCol + Snake(SnakeLength).Y).BackColor = SnakeHeadColors
10 End Sub

蛇吃食物的身体变化:

 1 Sub EatFood() 吃food的坐标变化
 2 
 3         Dim i
 4 
 5         Dim temp() As xy
 6 
 7         If Snake(SnakeLength).X = Food.X And Snake(SnakeLength).Y = Food.Y Then  表示吃到食物
 8                 ReDim Preserve temp(SnakeLength + 1) 暂时存放
 9 
10                 For i = 1 To UBound(Snake)
11                         temp(i + 1) = Snake(i)
12                 Next
13 
14                 temp(1) = wbtemp 将尾巴坐标置入
15                 SnakeLength = SnakeLength + 1
16                 ReDim Preserve Snake(SnakeLength) 重新改变长度
17 
18                 For i = 1 To SnakeLength
19                         Snake(i) = temp(i)
20                 Next
21                 Call CreatFood
22         End If
23 
24 End Sub

蛇身体的移动:

 1 Private Function SnakeMove(a() As xy, b As xy) 这是蛇身体的移动
 2         Dim i As Long
 3         If UBound(a) > 1 Then
 4                 wbtemp = a(1)
 5                 Map((a(1).X - 1) * MapCol + a(1).Y).BackColor = MapColors 尾巴颜色黑
 6                 MapXy(((a(1).X - 1) * MapCol + a(1).Y)).lx = 0
 7                 For i = 1 To UBound(a) - 1
 8                         a(i) = a(i + 1)
 9                        Map((a(i).X - 1) * MapCol + a(i).Y).BackColor = SnakeBodyColors 尾巴红
10                 Next
11                 a(UBound(a)) = b
12                 Map((b.X - 1) * MapCol + b.Y).BackColor = SnakeHeadColors 头颜色蓝
13                  MapXy((b.X - 1) * MapCol + b.Y).lx = 1
14         Else 表明只有蛇头
15                 wbtemp = a(UBound(a))
16                  Map((wbtemp.X - 1) * MapCol + (wbtemp.Y)).BackColor = MapColors 尾巴颜色黑
17                 MapXy(((a(UBound(a)).X - 1) * MapCol + a(UBound(a)).Y)).lx = 0
18                 a(UBound(a)) = b
19                Map((b.X - 1) * MapCol + b.Y).BackColor = SnakeHeadColors 头颜色蓝
20                  MapXy((b.X - 1) * MapCol + b.Y).lx = 1
21         End If
22         EatFood
23 End Function

蛇在移动的前提下向上移动,这里注意墙和障碍物的定义,不能穿墙和穿越自己的身体:

 1 Sub Move_Up() 向上移动
 2     Dim g As xy
 3         If Snake(SnakeLength).X > 1 Then
 4                 If MapXy((Snake(SnakeLength).X - 2) * MapCol + Snake(SnakeLength).Y).lx <> 1 Then
 5                            g.X = Snake(SnakeLength).X - 1
 6                            g.Y = Snake(SnakeLength).Y
 7                         SnakeMove Snake, g
 8                         Else
 9                         Alive = False
10                 End If
11 
12         Else
13                 Alive = False
14         End If
15 
16 End Sub

蛇向下移动:

 1 Sub Move_Down() 向下移动
 2     Dim g As xy
 3         If Snake(SnakeLength).X < MapCol Then
 4                 If MapXy((Snake(SnakeLength).X) * MapCol + Snake(SnakeLength).Y).lx <> 1 Then
 5                            g.X = Snake(SnakeLength).X + 1
 6                            g.Y = Snake(SnakeLength).Y
 7                         SnakeMove Snake, g
 8                         Else
 9                         Alive = False
10                 End If
11 
12         Else
13                 Alive = False
14         End If
15 
16 End Sub

蛇向左移动:

 1 Sub Move_Left() 向左移动
 2     Dim g As xy
 3         If Snake(SnakeLength).Y > 1 Then
 4                 If MapXy((Snake(SnakeLength).X - 1) * MapCol + Snake(SnakeLength).Y - 1).lx <> 1 Then
 5                            g.X = Snake(SnakeLength).X
 6                            g.Y = Snake(SnakeLength).Y - 1
 7                         SnakeMove Snake, g
 8                         Else
 9                         Alive = False
10                 End If
11 
12         Else
13                 Alive = False
14         End If
15 
16 End Sub

蛇向右移动:

 1 Sub Move_Right() 向右移动
 2     Dim g As xy
 3         If Snake(SnakeLength).Y < MapCol Then
 4                 If MapXy((Snake(SnakeLength).X - 1) * MapCol + Snake(SnakeLength).Y + 1).lx <> 1 Then
 5                            g.X = Snake(SnakeLength).X
 6                            g.Y = Snake(SnakeLength).Y + 1
 7                         SnakeMove Snake, g
 8                         Else
 9                         Alive = False
10                 End If
11 
12         Else
13                 Alive = False
14         End If
15 
16 End Sub

下面给出一个70*70的地图下,贪吃蛇的初始定义实例:

在这里我们可以随便改变地图的颜色,蛇头的颜色,蛇身体的颜色,以及食物的颜色。

实例:

第一步:

 1 Alive = True
 2  MapColors = &HFF8080    地图自己的颜色
 3  SnakeHeadColors = vbBlue
 4  SnakeBodyColors = vbRed
 5  FoodColors = vbGreen
 6  MapCol = 70
 7  MapTotal = 4900
 8 CreateMap MapTotal, MapCol, MapColors 创建地图
 9 MapXyInit 地图坐标初始化
10 CreateSnake
11 CreatFood

第二步:

 1 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 2 Key = KeyCode
 3         Select Case KeyCode
 4 
 5                 Case vbKeyA:
 6                         Move_Left
 7 
 8                 Case vbKeyD:
 9                         Move_Right
10 
11                 Case vbKeyW:
12                         Move_Up
13 
14                 Case vbKeyS:
15                         Move_Down
16         End Select
17 
18 End Sub

这里的key是在接受键盘点击后的缓存,保证蛇在操作后有一个开始的方向,这位贪吃蛇游戏增加难度,如同给蛇一个初速度。

这里我们再使用时间控件,进行事件处理:

 1 If SnakeLength <= 20 Then
 2 Timer2.Interval = 900
 3 End If
 4 If SnakeLength > 100 Then
 5 Timer2.Interval = 200
 6 End If
 7 If SnakeLength > 20 And SnakeLength <= 100 Then
 8 Timer2.Interval = 500
 9 End If
10 If Key <> 0 And Alive = True Then
11 Call Form_KeyDown(Key, 0)
12 End If

这里分别以蛇的长度作为速度的改变,20,100。

这基础之上,你还可以增加分数,例如我们使用时间控件,在事件中写入:

Label1.Caption = "Score:" & 90 + SnakeLength * 10 & "           Length:" & SnakeLength

这就是在初始化得分100的前提下得分,并显示长度。

在此基础上一个完整的贪吃蛇就完成了。与一般不同的是,这个贪吃蛇的地图是label数组。移动全部在数组中。另外还需要我们定义一种新数据结构类型:

1 Type xy 二维坐标数据类型
2 X As Long x坐标
3 Y As Long y坐标
4 lx As Long 坐标的类型
5 End Type

如此,贪吃蛇就创建成功了。如下图:

技术分享

使用VB创建贪吃蛇