贪吃蛇VB编程详解2.docx

1、贪吃蛇VB编程详解2VB 编程有点象搭积木，一个游戏可以由几个小程序组成，然后通过 特定的方式联系在一起。玩贪吃蛇游戏时，注意到游戏主要由以下几部分做法组成： 1随机出现的食物的做法食物的颜色是随机出现，食物为一个小圆，外框线是黑色的 2键盘控制按钮控制蛇运行的做法 3食物吃掉，蛇身加长的做法4蛇死时的闪动的做法5蛇撞墙或撞自身后游戏结束的做法蛇头为圆形，有外框线，蛇身为方形，颜色是随机的，有外框线 我找到了一个贪吃蛇的 VB 代码，仔细的把这个贪吃蛇代码根据以上几部分分解开来， 就象把一个搭好的积木城堡又重新拆解成一块块的 积木。贪吃蛇 VB 代码详解键盘控制蛇运行的做法2.1在VB应用程序

2、里设计好小游戏(贪吃蛇向前、向左向右 和向后爬行)，共有控件如下：控件名称FormlshapeTimer数量1共4个12. 2控件的属性Forml:默认值，宽度和高度尺寸适中Shape控件组，表示蛇头和蛇身，蛇头为圆形，蛇身为方形控件组控件属性Shape1(0)表示蛇头FillColor在调色版中选一种颜色BorderStyle 选择 1-SolidShape选择 3-circleFillStyle 选择 0-SolidShape1(1)表示蛇身FillColor在调色版中选一种颜色BorderStyle 选择 1-SolidShape选择 0-RectangleFillStyle 选为 0-

3、SolidShapel (2)表示蛇身FillColor在调色版中选一种颜色BorderStyle 选择 1-Solidshape设为 O-RectangleFillStyle 选为 0-SolidShapel (3)表示蛇身FillColor在调色版中选一种颜色BorderStyle 选择 1-SolidShape选择 0-RectangleFillStyle 选为 0-SolidTimer:默认值设计界面如下图所示 For*! 匚冈2. 3如何给小游戏添加菜单栏选择VB的菜单栏中的工具菜单，在工具菜单中选择菜单编辑器一项，给贪吃蛇键盘控制按钮控制蛇爬行小游戏再添加一个菜单栏，打开游戏菜单后

4、，里面有两个选顶，一个是开始，一个是结束标题游戏（主菜单）开始结束名称（代码）GameStartExit2. 4游戏代码说明，其中的Run step为蛇身方格的宽度，在下图说明中为10，但在实际游戏中为400个点，以下是代表四个方向（游戏代码）的四个选项:-Run step+Run step方向为纵向Shape1(0).Top+Run step另外还有就是用键盘的四个方向键控制蛇往前后左右的行走， 我一开 始也搞不清楚为什么用 Case 37 ,Case 38,Case 39,Case 4这四个代表键盘的KeyCode号码能代表四个方向，好在我查到了两个贪吃蛇代码，全是37、38、39、40这

5、个个KeyCode号码，我就觉得很奇怪，结果代表键盘的四个方向的代码真的是用 37 38 39 40来表示的，因为我从贪吃蛇是单独分离出来的贪吃蛇往前后左右爬行的小游 戏运行后可以用键盘控制的请看游戏代码吧：3.游戏代码一个是窗体（Form1）代码，还有一个是模块代码，本来想把他们二合一成为窗体代码的，可是是从原来的游戏中分离出来的， 所以还有一个为模块（Module1）的代码Form1代码：Const Run step = 400定义常量，即蛇身为一个shape的宽度变量在模块中定义，窗体中没有定义Private Sub exit_Click()Timer1.Interval = 0End

6、SubPrivate Sub form_load() 载入窗体，初始化蛇身为一个数组 shape1(i) Dim i As IntegerFor i = 0 To 3 Step 1snake_init(i).x = Shape1(i).Left snake_init(i).y = Shape1(i).Top Next iEnd SubPrivate Sub Form_KeyDown(KeyCode As Integer, shift As Integer) Select Case KeyCodeCase 37蛇不可以退着走，但可以拐弯If Runway 2 ThenRunway = 0End

7、IfCase 38If Runway 3 ThenRunway = 1End IfCase 39If Runway 0 ThenRunway = 2End IfCase 40If Runway 1 ThenRunway = 3End IfEnd SelectEnd SubPrivate Sub start_Click()Timer1.Interval = 1000Call init_gameEnd SubPrivate Sub Timer1_Timer() snake_point.x = Shape1(0).Left snake_point.y = Shape1(0).TopSelect Ca

8、se RunwayCase 0Shape1(0).Left = Shape1(0).Left - RunstepCall move_snakeCase 1Shape1(0).Top = Shape1(0).Top - RunstepCall move_snakeCase 2Shape1(0).Left = Shape1(0).Left + RunstepCall move_snakeCase 3Shape1(0).Top = Shape1(0).Top + RunstepCall move_snakeEnd SelectEnd Sub注解：在 Form1 中对 Form1 load 即载入窗体

9、后，对蛇身做了一个定 位，再把游戏菜单中的开始和结束做了一个说明，即开始 Timer1.Interval =1000 ，结束 Timer1.Interval = 0 ，然后再说明 Timer1 的用法，然后是用键盘控制蛇爬行的用法都做了说明， 但是在键盘控 制蛇爬行时对 Runway 变量没有做定义和说明， 还有定义蛇的四个行 走方向对Call move_snake（函数）也没有做说明，在开始游戏是有 一个重要的代码 Call init_game 也会在模块中说明，（开始我做游戏代 码是就没有Call init_game这一项代码，也没有说明，结果程序是可 以运行的， 而且蛇也会向四个方向爬行

10、的， 但是运行的路线是不一样 的）在 Form1 没有说明的这几个方面会在模块中一一提到，并解释 清楚。下面是模块 Module1 的代码：（先在工程菜单中添加一个模块） 定义变量Public Runway As Integer定义蛇身Public Type str_snake_pointx As Integer y As IntegerEnd Type蛇身初始化，定义蛇身Public snake_init（0 To 3） As str_snake_pointPublic snake_point As str_snake_pointPublic Sub init_game（）Dim i As

11、IntegerFor i = 0 To 3 Step 1Form1.Shape1(i).Left = snake_init(i).x Form1.Shape1(i).Top = snake_init(i).y Next iRunway = 0End SubPublic Sub move_snake()Dim tempx As IntegerDim tempy As IntegerDim i As IntegerFor i = 1 To 3 Step 1把 X1 和 X2 的值互换，比如 X1=4， X2=6设一个临时变量C, C=X1，把X1的值存在变量C中， X1=X2，把X2的值给X1，现

12、在X1就是原来的X2的值了 X2=C，再把C的值给x2,现在X2就是原来的X1的值了tempx = Form1.Shape1(i).Lefttempy = Form1.Shape1(i).TopForm1.Shape1(i).Left = snake_point.xForm1.Shape1(i).Top = sn ake_po in t.y sn ake_po in t.x = tempxsn ake_po in t.y = tempyNext iEnd Sub4.编写完代码，运行程序，结果如下:5.总结通过对VB这一课程的自学，了解并掌握了其基本操作。以课程设计的形式加深了对VB这一计算机语言的认知