VB课程设计--弹球游戏

《VB课程设计--弹球游戏》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、VB课程设计题目：弹球游戏班级：091106学号：09110623姓名：涂风根指导老师：邹国华时间：2010年5月10至16日内容摘要本程序着重点放在应用VisualBasic编程的基础知识和基本方法，同时加强对结构化程序的了解，更加熟练面向对象的程序设计方法。在程序中用到的数据类型有长整型、实型、基本整型，用到的基本结构有选择结构和顺序结构，涉及的问题有小球的启动、小球的坐标位置控制、小球与左、右壁的碰撞、小球与下底、木板碰撞、小球与上底碰撞，弹出”提示信息”框、提供是否继续的选择、小球与图片框碰撞发生颜色的变化、记录得分各个按钮的关联设置、时钟控件何时可用、小球的速

2、度变化控制、速度不同，每次的得分不同。用到的控件有图片框控件、文本框、命令按钮、形状控件、组合框控件、标签、时钟控件。本程序相对简单，代码简短，思路清晰。对各个控件的名称（Name）属性作了相应改变，使之能顾名思义，加大了程序的可读性。目录一、任务描述对系统要实现的功能进行确切的描述二、概要设计根据功能分析，建立系统的体系结构，即将整个系统分解成若干子模块，用框图表示各功能模块之间的接口关系三、详细设计详细说明各功能模块的实现过程，所用到的算法、技巧等（附上代码）四、效果及存在问题说明系统的运行效果（附上界面图形）、存在哪些不足以及预期的解决办法五、心得谈谈在课程设计过

3、程中的心得体会六、参考文献七、课程设计评分及打分表设计一个方框供老师写评语和打分正文一、任务描述1、小球的启动2、小球的坐标位置控制3、小球与左、右壁的碰撞4、小球与下底、木板碰撞5、小球与上底碰撞，弹出”提示信息”框，提供是否继续的选择6、小球与图片框碰撞发生颜色的变化7、利用函数调用，记录得分8、各个按钮的关联设置9、时钟控件何时可用10、小球的速度变化控制11、速度不同，每次的得分不同二、概要设计开始窗体加载时钟控件确定速度按钮开始按钮时钟控件时钟控件小球的运动得分小球速度小球颜色结束选择速度按钮得分时钟控件右移按钮木板的右运动木板的左运动左移按钮选择速度组合框确

4、定速度按钮时钟控件确定速度按钮开始标签文本框得分三、详细设计（算法、技巧）1、利用时钟控件，让小球随着时间的变化而变化，同时通过设置不同的时间间隔来实现速度的选择功能，再根据速度的选择不同，使每次的得分不同。2、利用小球与图片框的位置关系来实现小球与图片框边界相互碰撞的效果。3、碰撞时小球的背景色发生改变4、利用背景色的变化来美化用户界面5、在小球与木板碰撞的条件中，先建立一个木板与小球碰与不碰的总条件，再利用选择语句实现异斥，再巧妙地利用小球是否在木板上，来达到预期的效果。6、巧妙地利用常见的函数调用在文本框中输出分数7、保证小球的入射角和出射角均为45度。详细代码如

5、下：:Rem声明小球的位置变量dx和dy和小球的横纵坐标均为单精度类型,分数mark为长整型DimdxAsSingle,dyAsSingle,xAsSingle,yAsSingle,markAsLongPrivateSubForm_Load()Timer1.Enabled=False'使时钟控件不可用Timer1.Interval=50'将计时间隔设置为0.05秒dx=-Int(Rnd*91+10)dy=Int(Rnd*91+10)'随机产生小球的位置变量dx,dyx=ballshape.Lefty=ballshape.Top'将原始坐标赋值给变量x,y，保持原始坐标不

6、变startcmd.Enabled=Falsechoicecmd.Enabled=False'程序运行时，使“开始”和“确定速度”按钮不可用EndSubPrivateSubstartcmd_Click()'小球开始运动命令,即让时钟控件可用Ifstartcmd.Caption="开始"Then'将开始与暂停功能结合Timer1.Enabled=Truestartcmd.Caption="暂停"'当开始按钮的标题为“暂停”时，再单击此按钮，时钟控件不可用Else'当开始按钮的标题为“开始”时，时钟控件可用Timer1.Enabled=Falsestartcmd.Capti

7、on="开始"EndIfEndSubPrivateSubendcmd_Click()'终止程序Endtotalmark(mark)'调用totalmark函数，返回分数值EndSubPrivateSubTimer1_Timer()'小球随着时间地推移而运动marktext.Text=0'小球开始运动时，分数为零Ifballshape.Left<=0Then'此时小球撞到图片框的左壁ballshape.FillColor=vbYellow'小球的颜色变为黄色dx=-dx'实现反弹ElseIfballshape.Left+ballshape.