超级打地鼠文本vb.docx
《超级打地鼠文本vb.docx》由会员分享，可在线阅读，更多相关《超级打地鼠文本vb.docx（12页珍藏版）》请在冰豆网上搜索。
超级打地鼠文本vb
兰州交通大学
VB计算机程序课程设计报告
题目游戏超级打地鼠
系别土木工程学院
年级11级专业测绘工程
班级测绘1101班学号201103205
学生姓名张匡宇
设计时间2012年5月到6月
成绩
目录
第1章课程设计目的与要求1
1.1课程设计目的1
1.2课程设计的实验环境1
1.3课程设计的预备知识1
1.4课程设计要求1
第2章课程设计内容2
2.1游戏介绍2
2.2游戏设计3
2.3游戏实现10
第3章课程设计总结12
参考文献12
第1章课程设计目的与要求
1.1课程设计目的
本课程的课程设计实际是学生学习完《vb程序设计教程》课程后，进行的一次全面的综合训练，其目的在于加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法及基本技巧。
1.2课程设计的实验环境
软件：
MicrosoftVisualBasic6.0
硬件要求能运行Windows9.X操作系统的微机系统。
1.3课程设计的预备知识
熟悉VisualBasic6.0程序设计的基本语法知识及常用技巧。
1.4课程设计要求
按课老师的课题，每个小组设计一个完整的应用程序。
要求根据规定设计的具体要求，按照应用程序的设计步骤和VB的基本知识应用程序的分析与实现。
同学独立完成各方面的设计，选择同一题目的同学，可以共同协作完成一个应用程序的开发任务。
要求书写详细的设计说明书，写出全部的代码。
在界面设计中，需画出每个窗体的布局，进行说明。
第2章
课程设计内容
2.1游戏介绍
2.1.1游戏规则
打地鼠是一种非常有趣的益智游戏。
游戏进行时，地鼠会在不同的地方随机出现，当地鼠出现时，可以通过按键的方式打击地鼠，时间到时游戏结束，打中地鼠次数越多得分越高。
另外，游戏设置了不同的难度，可供玩家选择。
2.2游戏设计
2.2.1界面设计：
在游戏界面添加了3个label控件，3个command控件，2个timer控件，5个image控件，还有2个下拉菜单。
如下图2.1所示。
图2.1游戏开始界面
2.2.2属性设置
Command1的属性设置为：
开始游戏
Command2的属性设置为：
暂停游戏
Command3的属性设置为：
返回游戏
计时器1（Timer1）的属性设置为：
Enabled设置为：
Fslse
Interval设置为：
700
计时器2（Timer2）的属性设置为：
Enabled设置为：
Fslse
Interval设置为：
1000
Image1，image2，image3，image4，image5的属性设置为:
Visiable设置为：
False
2.2.3编程代码
DimsXAsSingle
DimsYAsSingle
DimdsAsByte
DimaAsInteger
DimtAsInteger
Subzb（X,Y）
SelectCaseds
Case0,1,2
X=ds
Y=0
Case3,4,5
X=ds-3
Y=1
Case6,7,8
X=ds-6
Y=2
EndSelect
EndSub
PrivateSubCommand1_Click（）
Timer1.Enabled=True
Timer2.Enabled=True
Timer2.Interval=1000
t=60
EndSub
PrivateSubCommand3_Click（）
Timer2.Interval=1000
Timer1.Interval=700
EndSub
PrivateSubd11_Click（）
Shell"explorer.exe
EndSub
PrivateSubd12_Click（）
MsgBox"超级打地鼠是我们张匡宇超级无敌公司开发的第一款益智类游戏，十分好玩，版权归本公司所有.不得盗版，违者杀无赦，哈哈哈",vbInformation,"关于超级打地鼠"
EndSub
PrivateSubd211_Click（）
Timer1.Interval=700
EndSub
PrivateSubd212_Click（）
Timer1.Interval=500
EndSub
PrivateSubd213_Click（）
Timer1.Interval=300
EndSub
PrivateSubform_load（）
Randomize
Print
Fords=0To8
zbX,Y
PaintPictureImage2.Picture,1000+1050*X,1000+1050*Y
Next
EndSub
PrivateSubForm_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Image1.MoveX-Image1.Width/2,Y-Image1.Height/2
sX=Image1.Left
sY=Image1.Top
Label2.Caption="加油，帅哥。
最后的胜利是属于你的！
"
EndSub
PrivateSubImage1_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Image1.Picture=Image3.Picture
xy=9
IfsX>800AndsX<1850Then
IfsY+1500>1600AndsY+1500<2350Thenxy=0
IfsY+1500>2650AndsY+1500<3400Thenxy=3
IfsY+1500>3700AndsY+1500<4450Thenxy=6
EndIf
IfsX>1850AndsX<2900Then
IfsY+1500>1600AndsY+1500<2350Thenxy=1
IfsY+1500>2650AndsY+1500<3400Thenxy=4
IfsY+1500>3700AndsY+1500<4450Thenxy=7
EndIf
IfsX>2900AndsX<3950Then
IfsY+1500>1600AndsY+1500<2350Thenxy=2
IfsY+1500>2650AndsY+1500<3400Thenxy=5
IfsY+1500>3700AndsY+1500<4450Thenxy=8
EndIf
Ifds=xyThen
a=a+1
Label1.Caption="打中次数:
"&a
zbX,Y
PaintPictureImage5.Picture,1000+1050*X,1000+1050*Y
EndIf
EndSub
PrivateSubcommand2_click（）
Timer2.Interval=0
Timer1.Interval=0
EndSub
PrivateSubImage1_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Image1.MovesX-（Image1.Width/2-X）,sY-（Image1.Height/2-Y）
sX=Image1.Left
sY=Image1.Top
EndSub
PrivateSubImage1_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Image1.Picture=Image2.Picture
EndSub
PrivateSubTimer1_Timer（）
zbX,Y
PaintPictureImage2.Picture,1000+1050*X,1000+1050*Y
ds=Int（Rnd*9）
zbX,Y
PaintPictureImage4.Picture,1000+1050*X,1000+1050*Y
Image1.Picture=LoadPicture（"G:
\地鼠行动41\地鼠行动1\锤子1.jpg"）
Image2.Picture=LoadPicture（"G:
\地鼠行动41\地鼠行动1\12.jpg"）
Image3.Picture=LoadPicture（"G:
\地鼠行动41\地鼠行动1\锤子2.jpg"）
Image4.Picture=LoadPicture（"G:
\地鼠行动41\地鼠行动1\131.jpg"）
Image5.Picture=LoadPicture（"G:
\地鼠行动41\地鼠行动1\121.jpg"）
EndSub
PrivateSubTimer2_Timer（）
t=t-1
Label3.Caption="倒计时"&t&"秒"
Ift=0Then
Timer1.Enabled=False
Timer2.Enabled=False
zbX,Y
PaintPictureImage2.Picture,1000+1050*X,1000+1050*Y
Ifa>50Then
msg=MsgBox（"恭喜"+Chr（13）+"你已经是地鼠最高境界了，还要继续吗？
",vbYesNo,"超级打地鼠"）
Else
msg=MsgBox（"您打中了"&a&"次。
还要继续吗?
",vbYesNo,"超级打地鼠"）
EndIf
Ifmsg=vbYesThen
a=0
Timer1.Enabled=True
Else
UnloadMe
EndIf
EndIf
EndSub
2.3游戏实现
2.3.2游戏运行
此图是为进入游戏界面，单击开始游戏按钮，游戏开始运行，此时单击鼠标左键开始游戏，如果中途有事，单击暂停游戏按钮。
如图2.3所示：
图2.2游戏运行界面
此图为运行中图片，单击左键进行操作，用鼠标控制悬空的小锤砸地鼠，砸到就加分，依次累计，分高则过关。
如图2.4所示：
图2.3游戏运行中界面
此图为游戏结束界面，在游戏中会对打击地鼠次数进行累计并显示在操作界面上，分数达到一定时就过关。
如图2.5所示：
图2.4游戏结束界面
第3章课程设计总结
通过一个学期的学习，我认为要学好vb语言程序设计这门课程，不仅要认真阅读课本知识，更重要的是要通过上机实践才能增强和巩固我得知识。
通过这次vb课程设计，我感觉到了课程设计是培养学生综合运用所学知识,发现,提出,分析和解决实际问题,锻炼实践能力的重要环节,是对学生实际工作能力的具体训练和考察过程.随着科学技术发展的日新日异，使用各种编程语言编写各种软件和游戏等已经成为当今计算机应用中空前活跃的领域，在生活中可以说得是无处不在。
因此作为二十一世纪的大学生来说掌握vb编程设计语言以及其他的汇编语言的开发技术是十分重要的。
所以虽然课社结束了，但我会继续学习vb编程语言教程。
回顾起此次vb课程设计，同时不仅可以巩固了以前所学过的知识，而且学到了很多在书本上所没有学到过的知识。
通过这次课程设计使我懂得了理论与实际相结合是很重要的，只有理论知识是远远不够的，只有把所学的理论知识与实践相结合起来，从理论中得出结论，才能提高自己的实际动手能力和独立思考的能力。
在设计的过程中遇到问题，可以说得是困难重重，难免会遇到过各种各样的问题，同时在设计的过程中发现了自己的不足之处，对以前所学过的知识理解得不够深刻，掌握得不够牢固，通过这次课程设计之后，一定把以前所学过的知识重新温故。
参考文献
VisualBasic程序设计教程（第三版）高等教育出版社
升级会员 