为了正常的体验网站,请在浏览器设置里面开启Javascript功能!

贪吃蛇VB编程详解1

2017-09-20 4页 doc 41KB 39阅读

用户头像

is_841159

暂无简介

举报
贪吃蛇VB编程详解1贪吃蛇VB编程详解1 VB编程有点象搭积木,一个游戏可以由几个小程序组成,然后通过特定的方式联系在一起。 玩贪吃蛇游戏时,注意到游戏主要由以下几部分做法组成: 1(随机出现的食物的做法 食物的颜色是随机出现,食物为一个小圆,外面的外框线是黑色的 2(食物吃掉的做法 3(蛇死时的闪动的做法 4(蛇身加长的做法 5(键盘控制按钮控制蛇运行的做法 6(蛇头和蛇身的画法 蛇头为圆形,有外框线,蛇身为方形,颜色是随机的,有外框线 我找到了一个贪吃蛇的VB代码,仔细的把这个贪吃蛇代码根据以上几部分分解开来,就象把一个...
贪吃蛇VB编程详解1
贪吃蛇VB编程详解1 VB编程有点象搭积木,一个游戏可以由几个小程序组成,然后通过特定的方式联系在一起。 玩贪吃蛇游戏时,注意到游戏主要由以下几部分做法组成: 1(随机出现的食物的做法 食物的颜色是随机出现,食物为一个小圆,外面的外框线是黑色的 2(食物吃掉的做法 3(蛇死时的闪动的做法 4(蛇身加长的做法 5(键盘控制按钮控制蛇运行的做法 6(蛇头和蛇身的画法 蛇头为圆形,有外框线,蛇身为方形,颜色是随机的,有外框线 我找到了一个贪吃蛇的VB代码,仔细的把这个贪吃蛇代码根据以上几部分分解开来,就象把一个搭好的积木城堡又重新拆解成一块块的积木。 1(1课程设计该小游戏的描述 1(2课程设计小游戏要求 随机出现的食物的做法 食物的颜色是随机出现,食物为一个小圆,外面的外框线是黑色的 要在对游戏的原理进行深入分析的基础上,利用图形控件(shape & Line)设计该款游戏 2( 课程作业内容 2(1 在VB应用程序里设计好小游戏(VB动画)窗口,共有控件如下: Form1 shape Line Timer Command 控件名称 1 1 2 1 1 数量 2(2控件的属性 Form1:默认值,宽度和高度尺寸适中 Shape1:表示食物,设为一个带颜色和轮廓线的圆形物体,BorderColor即轮廓线设为黑色,FillColor为填充的颜色,在调色板中选择一种颜色即可。FillStyle填充样式设为0-Solid,Shape形状设为3-Circle。 Line1:为水平线,X1为0,X2和Form1的宽度一样,高度Y1和Y2可设为0或其它值 Line2:为垂直线,Y1和Y2一个设为0,另一个和Form1的高度一样,而X1和X2在这里可设为0,也可设为其他值,如果Line1和Line2设为斜线或其他值,也可以,但食物Shape只能出现在一个很小的范围内 Timer:默认值 Command1:Caption设为:出现食物 设计界面如下图所示 2(2设计好界面后,打开“代码”窗口,编写如下代码: Dim sabby As Integer Private Sub Command1_Click() Timer1.Interval = 600 sabby = 0 ‘试试看,如果sabby不设为零,会有什么结果 End Sub Private Sub Timer1_Timer() Dim pointx As Integer Dim pointy As Integer Randomize pointx = Rnd * (Line1.X2 - Line1.X1 + 5) + Line1.X1 pointy = Rnd * (Line2.Y2 - Line2.Y1 + 5) + Line2.Y1 Shape1.Left = pointx Shape1.Top = pointy Shape1.FillColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Shape1.Visible = True sabby = sabby + 1 If sabby = 20 Then Timer1.Interval = 0 End If End Sub 2.3编写好代码后,执行操作,结果如下: 3( 通过对VB这一课程的自学,了解并掌握了其基本操作。以 课程设计的形式加深了对VB这一计算机语言的认知。
/
本文档为【贪吃蛇VB编程详解1】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。 本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。 网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。

历史搜索

    清空历史搜索