vb射击游戏程序设计实验报告-副本

vb射击游戏程序设计实验报告-副本

ID:35201990

大小:374.00 KB

页数:6页

时间:2019-03-21

vb射击游戏程序设计实验报告-副本_第1页
vb射击游戏程序设计实验报告-副本_第2页
vb射击游戏程序设计实验报告-副本_第3页
vb射击游戏程序设计实验报告-副本_第4页
vb射击游戏程序设计实验报告-副本_第5页
资源描述:

《vb射击游戏程序设计实验报告-副本》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库

1、VB射击游戏程序设计实验报告实验名称:VisualBasic程序射击游戏一、实验目的与要求1、掌握VisualBasic中常用控件的使用,熟悉其基本功能2、学习用属性窗口设置对象窗口及用代码设置对象属性的方法。3、学习如何用对象(窗体和控件)建立界面及在代码编辑器中输入程序代码的基本操作。4、掌握简单的游戏程序设计。二、实验内容射击小游戏:程序运行后的画面如下图所示,此时窗体中只有“开始”按钮时无效的。单击“初学者”、“业余水平”或者“职业水平”按钮后,即可设定为靶子的图像位置的变换速度,级别越高变换速度越快,同时“开始”按钮变为有效。窗体右边有两个标签,上边的

2、标签时显示比赛的剩余时间,下面的标签显示打中靶子的个数。单击“开始”按钮,窗体中会出现一个小图像,此时各个按钮均无效、不可见。操作鼠标单击该图像,如果击中了,则窗体内右下边标签中的数据会自动加1。.如下图a所示。十秒钟后游戏结束,自动弹出对话框,显示总成绩。一、实验步骤1.设置界面:1个窗体,4个标签,5个按钮和3个时钟,如图所示:2.设置对象的属性:Timer1时钟用来触发“靶子”按钮控件的变化,Timer2时钟用来控制比赛的时间,Timer3时钟用来控制Label1中的秒数显示变化。3.“靶子”按钮的Default属性值设置为False,表示回车键不响应;C

3、ancle属性设置为False,表示按Esc键不响应;Picture属性为加载一幅小图像给按钮;style属性为1-Graphical,表示按钮上可以显示图像和文字。界面显示:成绩显示:一、程序代码DimN,S,RasIntegerPrivateSub初学者-Click()Timer1.Interval=1000Command1.Enabled=TrueEndSubPrivateSub业余水平-Click()Timer1.Interval=800Command1.Enabled=TrueEndSubPrivateSub职业水平-Click()Timer1.Int

4、erval=600Command1.Enabled=TrueEndSubPrivateSub开始-Click()N=0S=0Command1.Enabled=TrueCommand1.Visible=TrueCommand1.Left=2600Command1.Top=2000Command2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseCommand2.Visible=FalseCommand3.Visible=FalseCommand4.Visi

5、ble=FalseCommand5.Visible=FalseTimer1.Enabled=TrueTimer2.Enabled=TrueTimer3.Enabled=TrueLabel1.Caption=20Label2.Caption=0EndSubPrivateSubTimer1-Timer()RandomizeCommand1.Left=LCommand1.Top=TEndSubPrivateSubTimer2-Timer()Command1.Visible=FalseTimer1.Enabled=FalseTimer2.Enabled=FalseTim

6、er3.Enabled=FalseCommand2.Visible=TrueCommand3.Visible=TrueCommand4.Visible=TrueCommand5.Visible=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueLabel1.Caption=0DimS$IfN<10ThenS$=“太差了!只打中了”+Str$(N)+”次靶子.”ElseIfN<15andN>=10ThenS$=“还不错!打中了”+Str$(N)+”次靶子.”ElseS$=“太棒了!

7、打中了”+Str$(N)+”次靶子.”EndIfR=MsgBox(S$,0,”打靶成绩统计”)EndSubPrivateSubTimer3-Timer()S=S+1Label1.Caption=20–SEndSubRem在靶子上单击按下鼠标左键时产生事件PrivateSub靶子-MouseDown(ButtonasInteger,shiftasInteger,xasSingle,YasSingle)N=N+1Label2.Caption=NEndSub一、实验心得这是一个简单的设计小游戏,里面所涉及到的代码程序是一些简单基本的。运用了标签控件和命令控件和时间控件

8、。程序代码编写过程中遇到

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。