《软件设计基础VB》课程设计报告书.docx

1、软件设计基础VB课程设计报告书河北联合大学2011-2012第2学期 软件设计基础-VB课程设计报告设计名称： 设计显示弹球的程序 姓 名： 学 号： 专业班级： 学 院： 设计时间： 设计地点： 成绩：指导教师评语： 指导教师签字： 年 月 日目 录1.课程设计目的 2.课程设计任务与要求 3.课程设计说明书 4.课程设计成果 5.程序调试过程 6.设计问题的不足和改进方案 7.课程设计心得 8.附录 9.参考文献 1课程设计目的软件设计基础-VB课程设计是这门课程的实践性教学环节之一，本次设计结合实际应用的要求，使课程设计既覆盖VB的知识点，又接近工程实际需要。目的是通过课程设计的综合训练

2、，培养学生实际分析问题、解决问题的能力，以及编程和动手能力，最终目标是通过课程设计这种形式，帮助学生系统掌握VB这门课程的主要内容，养成良好的编程习惯，更好的完成教学任务。2课程设计任务与要求：要求：本次课程设计利用软件设计基础-VB课程中所学到的编程知识和编程技巧，完成具有一定难度和工作量的程序设计题目，帮助学生掌握编程、调试的基本技能，独立完成所布置的任务。要求：1、对系统进行功能需求分析2、设计合理的数据结构和系统框架3、界面设计美观、清楚、合理4、编程简练，程序功能齐全，能正确运行5、具有一定的创新性6、说明书、流程图要清楚7、课题完成后必须按要求提交课程设计报告任务：.基本要求：（1

3、）要求使用面向对象和结构化程序设计的编程思路。（2）动画效果显示利用定时器完成。（3）弹球的反弹角度为45度。.创新要求：在基本要求达到后，进行创新设计，如不同角度，添加障碍物等等设计。3课程设计说明书功能描述小球在一个矩形的区域内运动，每当碰到矩形的边，就改变运动的轨迹。概要设计点击开始 调整位置点击暂停点击继续点击重新开始退出 详细设计 总体流程图：各功能模块流程图：代码实现form1首页作用：程序界面所用控件：4个标签，1个时钟，3个图形。设计思路：用时钟控制shape1的运动。单击label1,6,5,7或者相应按键实现相应功能，无label2，label3,label4 。代码如下：

4、Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode 调整位置 Case 37 If Shape1.Left = 0 Then 控制不超出边框 Shape1.Left = 0 MsgBox (不能超出左边界) End If Me.Shape1.Left = Me.Shape1.Left - 200 Case 38 If Shape1.Top = 7050 Then Shape1.Left = 7050 MsgBox (不能超出右边界) End If Me.Shape1.Left =

5、Me.Shape1.Left + 200 Case 40 If Shape1.Top = 6550 Then Shape1.Top = 6550 MsgBox (不能超出下边界) End If Me.Shape1.Top = Me.Shape1.Top + 200 Case 66 Shape1.Left = 3000 Shape1.Top = 6720 Timer1.Enabled = False Case 67 Timer1.Enabled = True Case 83 Timer1.Enabled = False End SelectEnd SubPrivate Sub Label1_Cl

6、ick()Timer1.Enabled = True Label5.Enabled = TrueEnd SubPrivate Sub Label5_Click() Timer1.Enabled = False Label6.Enabled = Label5.EnabledEnd SubPrivate Sub Label6_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Label7_Click()Shape1.Left = 3000 Shape1.Top = 6720 Timer1.Enabled = False Label5.Enabled =

7、False Label6.Enabled = FalseEnd SubPrivate Sub menube_Click() Timer1.Enabled = True Label5.Enabled = TrueEnd SubPrivate Sub menubq_Click()MsgBox 本程序由联大201114570211制作，谢谢使用！, 64, 版权问题End SubPrivate Sub menugy_Click() MsgBox 当小球运动到两档板之间时停止运动, 64, 关于End SubPrivate Sub menuquit_Click()Unload MeEnd SubPri

8、vate Static Sub Timer1_Timer() Timer1.Interval = 10 Dim n%, m%, i% If Shape1.Left 7965 Then 使球碰壁反弹的条件 n = 1 End If Select Case (n) Case 0 Shape1.Left = Shape1.Left + 100 Case 1 Shape1.Left = Shape1.Left - 100 End Select If Shape1.Top = 7300 Then 使球碰壁反弹的条件 m = 1 End If Select Case (m) Case 0 Shape1.T

9、op = Shape1.Top + 100 Case 1 Shape1.Top = Shape1.Top - 100 End Select If Shape1.Top = 1300 And Shape1.Left = 2500 Then m = 0 End If If Shape1.Top = 3730 And Shape1.Left = 5000 Then m = 0 End If If Shape1.Top = 2700 And Shape1.Left = 3900 Then Timer1.Enabled = False MsgBox (please restart)End IfEnd S

10、ub4课程设计成果点击开始，或按F2开始点击暂停或按S暂停运行到挡板中间停止调整位置时不能超出边界5.程序调试过程一、按F2小球使运动问题1：小球运动到边界时不反弹。解决：使用static静态函数二、按键调整位置问题1：小球超出边界解决：当小球到达边界时小球的位置属性维持不变比如到达左边界时If Shape1.Left = 0 Then 控制不超出边框 Shape1.Left = 0 MsgBox (不能超出左边界)三、点击或按S键暂停四、点击或按C键继续 问题1：按继续键实现开始功能 解决：暂停前继续键不可用五、点击或按B键重新开始 小球回到初始位6.设计问题的不足和改进方案问题1：小球运动

11、到边界时不反弹。解决：使用static静态函数问题1：小球超出边界解决：当小球到达边界时小球的位置属性维持不变比如到达左边界时If Shape1.Left = 0 Then 控制不超出边框 Shape1.Left = 0 MsgBox (不能超出左边界) 问题1：按继续键实现开始功能 解决：暂停前继续键不可用存在的问题：小球的发射角度不能随机计划解决方案：定义一个角度变量a和高度变量y，每次运行时随机出一个范围在30,75或105,150的角a，确定小球相对于“容器”（left属性），利用三角函数（y=tan(a)*shape1.left）,计算出y值。由此随机出每次运行时小球的发射角度。7.课程设计心得对编写程序有了深入了解，对所学知识进行了综合利用；掌握了图形控件和图形方法及其应用；熟练掌握了vb中的基本结构，并可以应用；掌握了键盘事件的操作，应用。8.附录无9.参考文献1、 陈明锐.Visual Basic程序设计及应用教程.北京:高等教育出版社,2008.122、张春英. Visual Basic程序设计实例教程.北京邮电大学出版社，2010. 3、刘凤春. Visual Basic程序设计实训及课程设计.北京邮电大学出版社，2010.1 4、龚沛增,Visual Basic 程序设计教程,清华大学出版社5、柴相花 等，Visual Basic 实力精通 机械工业出版社