VB课程设计.docVIP

VB课程设计 题目：弹球游戏 班级：091106 学号姓名：涂风根 指导老师：邹国华 时间：2010年5月10至16日 内容摘要 本程序着重点放在应用Visual Basic编程的基础知识和基本方法，同时加强对结构化程序的了解，更加熟练面向对象的程序设计方法。在程序中用到的数据类型有长整型、实型、基本整型，用到的基本结构有选择结构和顺序结构，涉及的问题有小球的启动、小球的坐标位置控制、小球与左、右壁的碰撞、小球与下底、木板碰撞、小球与上底碰撞，弹出”提示信息”框、提供是否继续的选择、小球与图片框碰撞发生颜色的变化、记录得分各个按钮的关联设置、 时钟控件何时可用、小球的速度变化控制、速度不同，每次的得分不同。用到的控件有图片框控件、文本框、命令按钮、形状控件、组合框控件、标签、时钟控件。本程序相对简单，代码简短，思路清晰。对各个控件的名称（Name）属性作了相应改变，使之能顾名思义，加大了程序的可读性。 目录 一、任务描述 对系统要实现的功能进行确切的描述 二、概要设计 根据功能分析，建立系统的体系结构，即将整个系统分解成若干子模块，用框图表示各功能模块之间的接口关系 三、详细设计 详细说明各功能模块的实现过程，所用到的算法、技巧等（附上代码） 四、效果及存在问题 说明系统的运行效果（附上界面图形）、存在哪些不足以及预期的解决办法 五、心得 谈谈在课程设计过程中的心得体会 六、参考文献 七、课程设计评分及打分表 设计一个方框供老师写评语和打分 正文 一、任务描述 1、小球的启动 2、小球的坐标位置控制 3、小球与左、右壁的碰撞 4、小球与下底、木板碰撞 5、小球与上底碰撞，弹出”提示信息”框，提供是否继续的选择 6、小球与图片框碰撞发生颜色的变化 7、利用函数调用，记录得分 8、各个按钮的关联设置 9、时钟控件何时可用 10、小球的速度变化控制 11、速度不同，每次的得分不同 二、概要设计 三、详细设计（算法、技巧） 1、利用时钟控件，让小球随着时间的变化而变化，同时通过设置不同的时间间隔来实现速度的选择功能，再根据速度的选择不同，使每次的得分不同。 2、利用小球与图片框的位置关系来实现小球与图片框边界相互碰撞的效果。 3、碰撞时小球的背景色发生改变 4、利用背景色的变化来美化用户界面 5、在小球与木板碰撞的条件中，先建立一个木板与小球碰与不碰的总条件，再利用选择语句实现异斥，再巧妙地利用小球是否在木板上，来达到预期的效果。 6、巧妙地利用常见的函数调用在文本框中输出分数 7、保证小球的入射角和出射角均为45度。 详细代码如下： : Rem 声明小球的位置变量dx和dy和小球的横纵坐标均为单精度类型,分数mark为长整型 Dim dx As Single, dy As Single, x As Single, y As Single, mark As Long Private Sub Form_Load() Timer1.Enabled = False 使时钟控件不可用 Timer1.Interval = 50 将计时间隔设置为0.05秒 dx = -Int(Rnd * 91 + 10) dy = Int(Rnd * 91 + 10) 随机产生小球的位置变量dx,dy x = ballshape.Left y = ballshape.Top 将原始坐标赋值给变量x,y，保持原始坐标不变 startcmd.Enabled = False choicecmd.Enabled = False 程序运行时，使“开始”和“确定速度”按钮不可用 End Sub Private Sub startcmd_Click() 小球开始运动命令,即让时钟控件可用 If startcmd.Caption = 开始 Then 将开始与暂停功能结合 Timer1.Enabled = True startcmd.Caption = 暂停 当开始按钮的标题为“暂停”时，再单击此按钮，时钟控件不可用 Else 当开始按钮的标题为“开始”时，时钟控件可用 Timer1.Enabled = False startcmd.Caption = 开始 End If End Sub Private Sub endcmd_Click() 终止程序 End totalmark (mark)