文档介绍：该【VB小游戏设计 】是由【guoxiachuanyue】上传分享，文档一共【16】页，该文档可以免费在线阅读，需要了解更多关于【VB小游戏设计 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。目录
第1章课程设计目的与要求1
课程设计目的1
课程设计的实验环境1
课程设计的预备知识1
课程设计要求1
第2章课程设计内容2
游戏介绍2
游戏设计2
游戏实现10
第3章课程设计总结13
参考文献15
1
第1章课程设计目的与要求
本课程的课程设计实际是学生学****完《可视化编程技术》课程后,进行的一次全面的综合训练,其目的在于加深对可视化编程技术基本知识的理解,掌握运用VB开发应用程序的基本方法及基本技巧。
课程设计的实验环境
。
软件:
课程设计的预备知识
。
课程设计要求
按课程设计指导书提供的课题,每个小组设计一个完整的小游戏应用程序。要求根据规定设计游戏的具体要求,按照应用程序的设计步骤和VB的基本知识应用程序的分析与实现。应根据后面给出的基本学时分配合理安排设计时间,并独立完成各方面的设计。选择同一题目的同学,可以共同协作完成一个应用程序的开发任务。要求书写详细的设计说明书,对有复杂的代码段和程序段的部分,应画出程序流程图,写出全部的代码。在界面设计中,需画出每个窗体的布局,进行属性说明,杜绝雷同。
第2章课程设计内容
打地鼠是一种非常有趣的益智游戏。游戏进行时,地鼠不断从洞中探出头再缩回去,当地鼠头在洞外时,可以通过按键的方式打击地鼠,时间到时游戏结束,打中地鼠次数越多得分越高,击错、逃跑数越多得分越低。在英雄榜中保留前五名最高得分信息。
进入“游戏”选择“打地鼠”,选择“开始/帮助/英雄榜”,按ok键确认选项,鼠标左键敲打地鼠。
鼠标左右键都可打击想、要能更快的打到地鼠连续打击左右键,那能加快打地鼠的次数。
:
打开标准EXE工程,先添加一个Label控件,属性为“得分”,然后再添加一个时间控件Timer,然后在添加5个图片控件,分别为Image1,Image2,Image3,Image4,Image5。然后在在5个图片控件中分别添加。
。
2
Commandl的属性设置为:开始
Command2的属性设置为:结束计时器(Timer)的属性设置为:
Enabled设置为:Fslse
Interval设置为:700
编程思路及代码
Dim鼠XAsSingle
Dim鼠YAsSingle
Dim地鼠AsByte
Dim对数AsInteger
Dim总数AsInteger
Sub判断(X,Y)
SelectCase地鼠
Case0,l,2
X=地鼠
=0
Case3,4,5
X=地鼠-3
=l
Case6,7,8
X=地鼠-6
=2
EndSelect
EndSub
PrivateSubForm_Load()
Randomize
Show
3
Print
For地鼠=0To8
判断X,Y
,1000+1050*X,1000+1050*Y
Next
总数=1
EndSub
PrivateSubForm_Load()
Randomize
Show
Print
For地鼠=0To8判断X,Y
,1000+1050*X,1000+1050*Y
Next
总数=1
EndSub
PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
-,Y-
鼠X=
鼠Y=
=True
="运行中..."
EndSub
PrivateSubImage1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
=
xy=99
4
f鼠X>800And鼠X<1850Then
If
鼠Y+
1500
>
1600
And
鼠Y
+
1500
<
2350
Then
xy
=
0
If
鼠Y+
1500
>
2650
And
鼠Y
+
1500
<
3400
Then
xy
=
3
If
鼠Y+
1500
>
3700
And
鼠Y
+
1500
<
4450
Then
xy
=
6
EndIf
f鼠X
>1850
And
鼠
X<2900
Then
If
鼠Y+
1500
>
1600
And
鼠Y
+
1500
<
2350
Then
xy
=
1
If
鼠Y+
1500
>
2650
And
鼠Y
+
1500
<
3400
Then
xy
=
4
If
鼠Y+
1500
>
3700
And
鼠Y
+
1500
<
4450
Then
xy
=
7
EndIf
f鼠X
>2900
And
鼠
X<3950
Then
If
鼠Y+
1500
>
1600
And
鼠Y
+
1500
<
2350
Then
xy
=
2
If
鼠Y+
1500
>
2650
And
鼠Y
+
1500
<
3400
Then
xy
=
5
If
鼠Y+
1500
>
3700
And
鼠Y
+
1500
<
4450
Then
xy
=
8
EndIf
If地鼠
=xyThen
对数=
对数+
1
="打中次数
.〃
&对数
判断X,
Y
,
1000+
1050*
X,1000
+
1050*Y
EndIf
EndSub
PrivateSubImage1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,
AsSingle)
-(-X),鼠Y-(-Y)鼠X==
EndSub
PrivateSubImage1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,
AsSingle)
=
EndSub
5
PrivateSubTimer1_Timer()
总数=总数+1
判断X,Y
,1000+1050*X,1000+1050*Y
地鼠=Int(Rnd*9)
判断X,Y
,1000+1050*X,1000+1050*Y
If总数>100Then
=False
判断X,Y
,1000+1050*X,1000+1050*YIf对数>100Then
msg=MsgBox("恭喜"+Chr(13)+"你以经爆机了,还要继续吗?",vbYesNo,"地鼠娱乐部")
Else
msg=MsgBox("你以经过关了,您打中了"&对数&"次。还要继续吗?",vbYesNo,
"地鼠娱乐部")
EndIf
Ifmsg=vbYesThen
总数=1
对数=0
=True
Else
UnloadMe
EndIf
EndIf
EndSub
PrivateSub犯得上_Click(IndexAsInteger)
End
EndSub
6
PrivateSub关于_Click()
MsgBox"地鼠娱乐部"+Chr(13)+Chr(13)+这是一个基于Windows98以上操作系统下"+Chr(13)+_
〃用VB编写的程序〃,‘〃地鼠娱乐部〃
EndSub
PrivateSub使用_Click()
MsgBox〃欢迎来到地鼠娱乐部〃+Chr(13)+〃使用说明:〃+Chr(13)+〃鼠标左右键都可打击〃_
+〃想要能更快的打到地鼠连续打击左右键,〃+Chr(13)+〃那能加快打地鼠的次数〃,,〃地鼠娱乐部〃
EndSub
PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,
AsSingle)
-,Y-
鼠X=
鼠Y=
=True
=〃运行中...〃
EndSub
PrivateSubImage1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,
AsSingle)
=
xy=99
If鼠X>800And鼠X<1850Then
If鼠Y+1500>1600And鼠Y+1500<2350Thenxy=0
If鼠Y+1500>2650And鼠Y+1500<3400Thenxy=3
If鼠Y+1500>3700And鼠Y+1500<4450Thenxy=6
EndIf
If鼠X
>1850
And
鼠
X<2900
Then
If
鼠Y+
1500
>
1600
And
鼠Y
+
1500
<
2350
Then
xy
=
1
7
If
鼠Y+
1500
>
2650
And
鼠Y
+
1500
<
3400
Then
xy
=
4
If
鼠Y+
1500
>
3700
And
鼠Y
+
1500
<
4450
Then
xy
=
7
EndIf
If鼠X
>2900
And
鼠
X<3950
Then
If
鼠Y+
1500
>
1600
And
鼠Y
+
1500
<
2350
Then
xy
=
2
If
鼠Y+
1500
>
2650
And
鼠Y
+
1500
<
3400
Then
xy
=
5
If
鼠Y+
1500
>
3700
And
鼠Y
+
1500
<
4450
Then
xy
=
8
EndIf
If地鼠
=xyThen
对数=
对数+
1
="打中次数
.〃
&对数
判断X,
Y
,
1000+
1050*
X,1000
+
1050*Y
EndIf
EndSub
PrivateSubImage1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
-(-X),鼠Y-(-Y)鼠X==
EndSub
PrivateSubImage1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
=
EndSub
PrivateSubTimer1_Timer()
总数=总数+1
判断X,Y
,1000+1050*X,1000+1050*Y
地鼠=Int(Rnd*9)
判断X,Y
8
,1000+1050*X,1000+1050*Y
If总数>100Then
=False
判断X,Y
,1000+1050*X,1000+1050*YIf对数>100Then
msg=MsgBox("恭喜"+Chr(13)+"你以经爆机了,还要继续吗?",vbYesNo,"地鼠娱乐部")
Else
msg=MsgBox("你以经过关了,您打中了"&对数&"次。还要继续吗?",vbYesNo,
"地鼠娱乐部")
EndIf
Ifmsg=vbYesThen
总数=1
对数=0
=True
Else
UnloadMe
EndIf
EndIf
EndSub
PrivateSub犯得上_Click(IndexAsInteger)
End
EndSub
PrivateSub关于_Click()
MsgBox"地鼠娱乐部"+Chr(13)+Chr(13)+这是一个基于Windows98以上操作系统下"+Chr(13)+
〃用VB编写的程序〃,‘〃地鼠娱乐部〃
EndSub
PrivateSub使用_Click()
9