《贪吃蛇VB编程详解1.docx》由会员分享，可在线阅读，更多相关《贪吃蛇VB编程详解1.docx（5页珍藏版）》请在三一文库上搜索。
1、VB编程有点象搭积木，一个游戏可以由几个小程序组成，然后通过 特定的方式联系在一起。玩贪吃蛇游戏时，注意到游戏主要由以下几部分做法组成：1 .随机出现的食物的做法食物的颜色是随机出现，食物为一个小圆，外面的外框线是黑色 的2 .食物吃掉的做法3 .蛇死时的闪动的做法4 .蛇身加长的做法5 .键盘控制按钮控制蛇运行的做法6 .蛇头和蛇身的画法蛇头为圆形，有外框线，蛇身为方形，颜色是随机的，有外框线我找到了一个贪吃蛇的 VB代码，仔细的把这个贪吃蛇代码根据以上 几部分分解开来，就象把一个搭好的积木城堡又重新拆解成一块块的 积木。1. 1课程设计该小游戏的描述1. 2课程设计小游戏要求随机出现的食物
2、的做法食物的颜色是随机出现，食物为一个小圆，外面的外框线是黑色的要在对游戏的原理进行深入分析的基础上，利用图形控件(shape & Line)设计该款游戏2. 课程作业报告内容2. 1在VB应用程序里设计好小游戏(VB动画)窗口，共有控 件如下：控件名称Form1shapeLineTimerCommand数量112112. 2控件的属性Form1:默认值，宽度和高度尺寸适中Shape1:表示食物，设为一个带颜色和轮廓线的圆形物体，BorderColor即轮廓线设为黑色，FillColor为填充的颜色，在调色板中选择一种颜色即可。FillStyle填充样式设为0-Solid, Shape
3、形状设为 3-CircleLinel :为水平线，X1为0, X2和Forml的宽度一样，高度 Y1 和Y2可设为0或其它值Line2:为垂直线，Y1和Y2 一个设为0,另一个和Forml的高度 一样，而X1和X2在这里可设为0,也可设为其他值，如果Linel和 Line2设为斜线或其他值，也可以，但食物 Shape只能出现在一个很 小的范围内Timer：默认值Command! Caption设为：出现食物设计界面如下图所示2. 2设计好界面后，打开“代码”窗口，编写如下代码:Dim sabby As IntegerPrivate Sub Command1_Click()Timerl.Inte
4、rval = 600sabby = 0 试试看，如果sabby不设为零，会有什么结果End SubPrivate Sub Timer1_Timer()Dim pointx As IntegerDim pointy As IntegerRandomizepointx = Rnd * (Line1.X2 - Line1.X1 + 5) + Line1.X1pointy = Rnd * (Line2.Y2 - Line2.Y1 + 5) + Line2.Y1Shape1.Left = pointxShape1.Top = pointyShape1.FillC010r = RGB(Rnd * 255, Rnd * 255, Rnd * 255)Shape1.Visib1e = Truesabby = sabby + 1If sabby = 20 ThenTimer1.Interval = 0End IfEnd Sub2.3编写好代码后，执行操作，结果如下：*8 FtJ”l3. 总结通过对VB这一课程的自学，了解并掌握了其基本操作。以课程设计的形式加深了对VB这一计算机语言的认知