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

《vb课程设计报告题目5 打冰雹游戏》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VisualBasic程序设计课程设计报告设计题目题目5打冰雹游戏题目难度二级姓名冯婉婉学号1109570107提交日期目录题目描述与功能要求题目描述：“打冰雹”游戏是指从窗口顶部落下多个圆球表示的“冰雹”，用户使用鼠标来指引箭头表示的“枪”瞄准其中一个圆球，单击鼠标射击。如果打中圆球则加分，没打中减分。若累积有5个圆球一直未被击中而落到地面（用水平黑线表示），则失败。用户玩游戏的目标是尽量短的时间内得尽量多的分数，同时避免圆球落地。功能要求：（1）设计图1.26（课本）所示的窗口界面。程序启动时，自动进入游戏状态

2、，10个不同颜色的圆球从窗口顶部向下运动。用户使用鼠标指向其中一个圆球，然后单击。如果击中圆球则加1分，未击中则减1分，分数显示在“得分”文本框中。“所用时间”文本框中显示当前已用的时间。被击中的圆球立即消失，新的圆球从顶部落下。（2）要求同时显示10个圆球，每个圆球的颜色和下落速度各不相同。窗口底部的箭头一直指向鼠标指针的方向。单击鼠标射击时，显示一条从箭头发出到达鼠标指针的直线表示子弹轨迹。（3）程序共有4个难度等级，分别是“简单”、“中等”、“较难”和“高级”。默认的难受为“中等”。不同的等级对应不同的总体下

3、落速度。在游戏过程中，随时可以通过“选择难度”组合框来改变难度级别。（4）游戏开始时，提供的“能量”数是5。如果有一个圆球落到地面，则减1。当能量为0时，显示如图1.27所示的消息框。然后，程序自动将难度改为“简单”让用户重新开始，这时能量恢复为5，得分从0开始。圆球落地后立即消失，新的圆球从顶部落下，窗口上始终保持有10个圆球。（5）游戏过程中，当得分达到25时，显示如图1.28所示的提示;当得分达到50时，显示如图1.29所示的提示；当得分达到100时，显示如图1.30所示的提示，并自动将难度设为“较难”，当得

4、分达到150时，自动将难度设为“高级”。二、程序设计（一）计算模型或算法实行有关公式等内容的介绍。（二）窗体（界面）设计本题目的程序设计由一个窗体组成。分别由三个Timer，三个TextBox，一个ComboBox，七个Line,十个shape,四个Label等控件组成。整个窗口设计如下:窗体A的设计窗体A图示。窗体A中控件列表序号控件名称控件类型功能1Label标签对文本框与组合框进行说明2TextBox文本框显示程序运行的结果即得分、剩余能量、所用时间的数值3ComboBox组合框显示选择难度4Timer定时器

5、在程序运行的过程中不断地累积时间，当达到给定的时间间隔时，自动地引发名为Timer的事件。tmr21是定时掉冰雹的，tmr1是计算不同的难易程度掉冰雹的速度，tmr5是记录玩游戏所用时间5Shape形状显示多种不同的形状，装饰窗体，这里即圆形6Line直线在窗体上显示一条直线。Line2到Line7是做指针用的，Line1是作为冰雹没有打中落下去让冰雹消失窗体A中事件过程列表序号事件过程输入参数功能1cboNd_Click()PrivateSubcboNd_Click()IfcboNd.Text="简单"Thent

6、mr1.Interval=500ElseIfcboNd.Text="中等"Thentmr1.Interval=300ElseIfcboNd.Text="较难"Thentmr1.Interval=250ElseIfcboNd.Text="高级"Thentmr1.Interval=150EndIfEndSub根据时间间隔划分难度级别以及控制圆球下落速度2Form_Load()PrivateSubForm_Load()RandomizeForint1=0To9shp1(int1).FillStyle=0随机产生十个不同颜

7、色不同位置的圆球shp1(int1).FillColor=Rnd*&HFFFFFFshp1(int1).Top=Rnd*500shp1(int1).Left=Rnd*9120NextEndSub3PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)a=4680:b=6480:c=6480-5280:d=Atn((4680-4560)/(6480-5760))e=Atn((4680-4440)/(6480-5760))

8、:f=Sqr(120^2+720^2):g=Sqr(240^2+720^2)Dimsng1AsSingle,sng2AsSingleIfX<>aThenIfX>aThensng1=Atn((b-Y)/(X-a))sng2=d+sng1:sng4=e+sng1Line3.X2=a+g*Cos(sng4):Line3.Y2=b-g*Sin(sng4)Line6.