vb课程设计报告题目5打冰雹游戏.doc

Visual Basic程序设计 课程设计报告 设计题目 题目5 打冰雹游戏 题目难度 二 级 姓 名 冯婉婉 学 号 1109570107 提交日期  目 录 题目描述与功能要求 题目描述：“打冰雹”游戏是指从窗口顶部落下多个圆球表示的“冰雹”，用户使用鼠标来指引箭头表示的“枪”瞄准其中一个圆球，单击鼠标射击。如果打中圆球则加分，没打中减分。若累积有5个圆球一直未被击中而落到地面（用水平黑线表示），则失败。用户玩游戏的目标是尽量短的时间内得尽量多的分数，同时避免圆球落地。 功能要求：（1）设计图1.26（课本）所示的窗口界面。程序启动时，自动进入游戏状态，10个不同颜色的圆球从窗口顶部向下运动。用户使用鼠标指向其中一个圆球，然后单击。如果击中圆球则加1分，未击中则减1分，分数显示在“得分”文本框中。“所用时间”文本框中显示当前已用的时间。被击中的圆球立即消失，新的圆球从顶部落下。 （2）要求同时显示10个圆球，每个圆球的颜色和下落速度各不相同。窗口底部的箭头一直指向鼠标指针的方向。单击鼠标射击时，显示一条从箭头发出到达鼠标指针的直线表示子弹轨迹。 （3）程序共有4个难度等级，分别是“简单”、“中等”、“较难”和“高级”。默认的难受为“中等”。不同的等级对应不同的总体下落速度。在游戏过程中，随时可以通过“选择难度”组合框来改变难度级别。 （4）游戏开始时，提供的“能量”数是5。如果有一个圆球落到地面，则减1。当能量为0时，显示如图1.27所示的消息框。然后，程序自动将难度改为“简单”让用户重新开始，这时能量恢复为5，得分从0开始。 圆球落地后立即消失，新的圆球从顶部落下，窗口上始终保持有10个圆球。 （5）游戏过程中，当得分达到25时，显示如图1.28所示的提示;当得分达到50时，显示如图1.29所示的提示；当得分达到100时，显示如图1.30所示的提示，并自动将难度设为“较难”，当得分达到150时，自动将难度设为“高级”。 二、程序设计 （一）计算模型或算法实行 有关公式等内容的介绍。 （二）窗体（界面）设计 本题目的程序设计由一个窗体组成。分别由三个Timer，三个TextBox，一个ComboBox，七个Line,十个shape,四个Label等控件组成。整个窗口设计如下: 窗体A的设计 窗体A图示。 窗体A中控件列表 序号 控件名称 控件类型 功能 1 Label 标签 对文本框与组合框进行说明 2 TextBox 文本框 显示程序运行的结果即得分、剩余能量、所用时间的数值 3 ComboBox 组合框 显示选择难度 4 Timer 定时器 在程序运行的过程中不断地累积时间，当达到给定的时间间隔时，自动地引发名为Timer的事件。tmr21是定时掉冰雹的，tmr1是计算不同的难易程度掉冰雹的速度，tmr5是记录玩游戏所用时间 5 Shape 形状 显示多种不同的形状，装饰窗体，这里即圆形 6 Line 直线 在窗体上显示一条直线。 Line2到Line7是做指针用的，Line1是作为冰雹没有打中落下去让冰雹消失 窗体A中事件过程列表 序号 事件过程 输入参数 功能 1 cboNd_Click() Private Sub cboNd_Click() If cboNd.Text = 简单 Then tmr1.Interval = 500 ElseIf cboNd.Text = 中等 Then tmr1.Interval = 300 ElseIf cboNd.Text = 较难 Then tmr1.Interval = 250 ElseIf cboNd.Text = 高级 Then tmr1.Interval = 150 End If End Sub 根据时间间隔划分难度级别以及控制圆球下落速度 2 Form_Load() Private Sub Form_Load() Randomize For int1 = 0 To 9 shp1(int1).FillStyle = 0 shp1(int1).FillColor = Rnd * HFFFFFF shp1(int1).Top = Rnd * 500 shp1(int1).Left = Rnd * 9120 Next End Sub 随机产生十个不同颜色不同位置的