贪吃蛇VB编程详解2.docVIP

VB编程有点象搭积木，一个游戏可以由几个小程序组成，然后通过特定的方式联系在一起。 玩贪吃蛇游戏时，注意到游戏主要由以下几部分做法组成： 1．随机出现的食物的做法 食物的颜色是随机出现，食物为一个小圆，外框线是黑色的 2．键盘控制按钮控制蛇运行的做法 3．食物吃掉，蛇身加长的做法 4．蛇死时的闪动的做法 5．蛇撞墙或撞自身后游戏结束的做法 蛇头为圆形，有外框线，蛇身为方形，颜色是随机的，有外框线 我找到了一个贪吃蛇的VB代码，仔细的把这个贪吃蛇代码根据以上几部分分解开来，就象把一个搭好的积木城堡又重新拆解成一块块的积木。 贪吃蛇VB代码详解——键盘控制蛇运行的做法 课程作业报告内容 2．1 在VB应用程序里设计好小游戏（贪吃蛇向前、向左向右和向后爬行），共有控件如下： 控件名称 Form1 shape Timer 数量 1 共4个 1 2．2控件的属性 Form1：默认值，宽度和高度尺寸适中 Shape控件组，表示蛇头和蛇身，蛇头为圆形，蛇身为方形 控件组 控件属性 Shape1(0) 表示蛇头 FillColor在调色版中选一种颜色 BorderStyle选择1-Solid Shape选择3-circle FillStyle选择0-Solid Shape1(1) 表示蛇身 FillColor在调色版中选一种颜色 BorderStyle选择1-Solid Shape选择0-Rectangle FillStyle选为0-Solid Shape1(2) 表示蛇身 FillColor在调色版中选一种颜色 BorderStyle选择1-Solid shape设为0-Rectangle FillStyle选为0-Solid Shape1(3) 表示蛇身 FillColor在调色版中选一种颜色 BorderStyle选择1-Solid Shape选择0-Rectangle FillStyle选为0-Solid Timer：默认值 设计界面如下图所示 2．3如何给小游戏添加菜单栏 选择VB的菜单栏中的工具菜单，在工具菜单中选择菜单编辑器一项，给贪吃蛇——键盘控制按钮控制蛇爬行小游戏再添加一个菜单栏，打开游戏菜单后，里面有两个选顶，一个是开始，一个是结束 标题 游戏（主菜单） 开始 结束 名称（代码） Game Start Exit 2．4游戏代码说明， 其中的Runstep为蛇身方格的宽度，在下图说明中为10，但在实际游戏中为400个点，以下是代表四个方向（游戏代码）的四个选项： Case 0 Shape1(0).Left = Shape1(0).Left - Runstep Left方向减 往左走的蛇 注意蛇行走的方向为横向 Shape1(0).Left -Runstep Case1 Shape1(0).Top = Shape1(0).Top - Runstep Top方向减 往下走的蛇 注意蛇行走的方向为纵向 Shape1(0).Top -Runstep Case 2 Shape1(0).Left = Shape1(0).Left + Runstep Left方向加 往右走的蛇 注意蛇行走的方向为横向 Shape1(0).Left +Runstep Case 3 Shape1(0).Top = Shape1(0).Top + Runstep Top方向加 往上走的蛇 注意蛇行走的方向为纵向 Shape1(0).Top +Runstep 另外还有就是用键盘的四个方向键控制蛇往前后左右的行走，我一开始也搞不清楚为什么用Case 37 ,Case 38,Case 39,Case 40这四个代表键盘的KeyCode号码能代表四个方向，好在我查到了两个贪吃蛇代码，全是37、38、39、40这个个KeyCode号码，我就觉得很奇怪，结果代表键盘的四个方向的代码真的是用37—38—39—40来表示的，因为我从贪吃蛇是单独分离出来的贪吃蛇往前后左右爬行的小游戏运行后可以用键盘控制的 请看游戏代码吧： 3．游戏代码 一个是窗体（Form1）代码，还有一个是模块代码，本来想把他们二合一成为窗体代码的，可是是从原来的游戏中分离出来的，所以还有一个为模块（Module1）的代码 Form1代码： Const Runstep = 400 ‘定义常量，即蛇身为一个shape的宽度 ‘变量在模块中定义，窗体中没有定义 Private Sub exit_Click() Timer1.Interval = 0 End Sub Private Sub form_load() ‘载入窗体，初始化蛇身为一个数组shape1(i) Dim i A