【VB开源代码栏目提醒】:网学会员,鉴于大家对VB开源代码十分关注,论文会员在此为大家搜集整理了“VB射击游戏程序设计实验报告 - 副本 - 中考高考”一文,供大家参考学习!
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 NSR as Integer Private Sub 初学者-Click Timer1.Interval 1000 Command1.Enabled True End Sub Private Sub 业余水平-Click Timer1.Interval 800 Command1.Enabled True End Sub Private Sub 职业水平-Click Timer1.Interval 600 Command1.Enabled True End Sub Private Sub 开始-Click N 0 S 0 Command1.Enabled True Command1.Visible True Command1.Left 2600 Command1.Top 2000 Command2.Enabled False Command3.Enabled False Command4. Enabled False Command5. Enabled False Command2.Visible False Command3.Visible False Command4.Visible False Command5.Visible False Timer1.Enabled True Timer2.Enabled True Timer3.Enabled True Label1.Caption 20 Label2.Caption 0 End Sub Private Sub Timer1-Timer Randomize Command1.Left L Command1.Top T End Sub Private Sub Timer2-Timer Command1.Visible False Timer1.Enabled False Timer2.Enabled False Timer3.Enabled False Command2.Visible True Command3. Visible True Command4.Visible True Command5.Visible True Command2. Enabled True Command3. Enabled True Command4. Enabled True Label1.Caption 0 Dim S If N 10 Then S “太差了只打中了” StrN”次靶子.” ElseIf N 10 Then S “还不错打中了” StrN”次靶子.” Else S “太棒了打中了” StrN”次靶子.” End If R MsgBoxS0”打靶成绩统计” End Sub Private Sub Timer3-Timer S S 1 Label1.Caption 20 – S End Sub Rem 在靶子上单击按下鼠标左键时产生事件 Private Sub 靶子-MouseDownButton as Integer shift as Integerx as SingleY as Single N N 1 Label2.Caption N End Sub 五、 实验心得 这是一个简单的设计小游戏里面所涉及到的
代码程序是一些简单基本的。
运用了标签控件和命令控件和时间控件。
程序
代码编写过程中遇到不少问题有对
代码的不理解属性值设置错误等。
程序运行后也出现很多错误需要不停的调试修改。
而且自己对
代码含义掌握的不是很好所以
代码编写出现
问题较多。
我觉得 1
程序设计入门阶段要经常自己动手抄写或编写一些小程序亲自动手进行程序设计是创造性思维应用的体现是培养逻辑思维的好方法.因此一定要多动手编写程序而且要从小程序开发开始逐渐提高写程序的能力. 2多看别人设计好的程序
代码包括教材上的例题程序.在读懂别人程序后要想他为什么这么设计能不能将程序修改完成更多的功能 则可以学到别人优秀的东西帮助自己 提高自身水平。
3最主要的就是要多练多看理解掌握
代码含义自己多尝试编写程序多调试修改熟悉了自然就能很好的掌握。