VB射击游戏程序设计实验报告 - 副本.doc

VB射击游戏程序设计实验报告 实验名称：Visual Basic 程序射击游戏一、 实验目的与要求1、 掌握Visual Basic中常用控件的使用，熟悉其基本功能2、 学习用属性窗口设置对象窗口及用代码设置对象属性的方法。3、 学习如何用对象（窗体和控件）建立界面及在代码编辑器中输入程序代码的基本操作。4、 掌握简单的游戏程序设计。二、 实验内容 射击小游戏：程序运行后的画面如下图所示，此时窗体中只有“开始”按钮时无效的。单击“初学者”、“业余水平”或者“职业水平”按钮后，即可设定为靶子的图像位置的变换速度，级别越高变换速度越快，同时“开始”按钮变为有效。窗体右边有两个标签，上边的标签时显示比赛的剩余时间，下面的标签显示打中靶子的个数。 单击“开始”按钮，窗体中会出现一个小图像，此时各个按钮均无效、不可见。操作鼠标单击该图像，如果击中了，则窗体内右下边标签中的数据会自动加1。.如下图a所示。十秒钟后游戏结束，自动弹出对话框，显示总成绩。三、 实验步骤1. 设置界面：1个窗体，4个标签，5个按钮和3个时钟，如图所示：2. 设置对象的属性：Timer1时钟用来触发“靶子”按钮控件的变化，Timer2时钟用来控制比赛的时间，Timer3时钟用来控制Label1中的秒数显示变化。3. “靶子”按钮的Default属性值设置为False,表示回车键不响应；Cancle属性设置为False,表示按Esc键不响应；Picture属性为加载一幅小图像给按钮；style属性为1-Graphical,表示按钮上可以显示图像和文字。界面显示：成绩显示：四、 程序代码Dim N,S,R as Integer Private Sub 初学者-Click() Timer1.Interval = 1000Command1.Enabled = TrueEnd SubPrivate Sub 业余水平-Click()Timer1.Interval = 800Command1.Enabled = True End SubPrivate Sub 职业水平-Click() Timer1.Interval = 600 Command1.Enabled = True End SubPrivate Sub 开始-Click() N = 0 S = 0 Command1.Enabled = TrueCommand1.Visible = TrueCommand1.Left = 2600Command1.Top = 2000Command2.Enabled = FalseCommand3.Enabled = FalseCommand4. Enabled = False Command5. Enabled = FalseCommand2.Visible = FalseCommand3.Visible = FalseCommand4.Visible = FalseCommand5.Visible = FalseTimer1.Enabled = TrueTimer2.Enabled = TrueTimer3.Enabled = TrueLabel1.Caption = 20Label2.Caption = 0End SubPrivate Sub Timer1-Timer()Randomize Command1.Left = LCommand1.Top = TEnd SubPrivate Sub Timer2-Timer() Command1.Visible = False Timer1.Enabled = FalseTimer2.Enabled = FalseTimer3.Enabled = FalseCommand2.Visible = TrueCommand3. Visible = TrueCommand4.Visible = TrueCommand5.Visible = True Command2. Enabled = TrueCommand3. Enabled = TrueCommand4. Enabled = TrueLabel1.Caption = 0 Dim S$ If N 10 ThenS$ = “太差了！只打中了”+ Str$(N)+”次靶子.”ElseIf N =10 ThenS$ = “还不错！打中了”+ Str$(N)+”次靶子.” Else S$ = “太棒了！打中了”+ Str$(N)+”次靶子.”End IfR = MsgBox(S$,0,”打靶成绩统计”)End SubPrivate Sub Timer3-Timer() S = S + 1Label1.Caption = 20 SEnd SubRem 在靶子上单击按下鼠标左键时产生事件Private Sub 靶子-MouseDown(Button as Integer, shift as Integer,x as Single,Y as Single)N = N + 1Label2.Caption = NEnd Sub五、 实验心得 这是一个简单的设计小游戏，里面所涉及到的代码程序是一些简单基本的。运用了标签控件和命令控件和时间控件。程序代码编写过程中遇到不少问题，有对代码的不理解，属性值设置错误等。程序运行后也出现很多错误，需要不停的调试修改。而且自己对代码含义掌握的不是很好，所以代码编写出现问题较多。我觉得：（1）程序设计入门阶段要经常自己动手抄写或编写一些小程序,亲自动手进行程序设计是创造性思维应用的体现,是培养逻辑思维的好方法.因此一定要多动手编写程序,而且要从小程序开发开始,逐渐提高写程序的能力.（2）多看别人设计好的程序代码,