-
Visual
Basic
课
程
设
计
报
所属课程名称：
Visual
Basic
程序设
计
课程设计题目：
快速配对游戏
课程设计难度
：两星
课程设计时间：
2012.2.27 ~ 4.18
学
号：
9121091601XX
姓
名：
XXX
南京理工大学机械工程学院
二〇一三
年
X
月
告
一、
程
序功能
（
1
）
运行程序，显示如图
1
的开始界面，图片均
为“背对”用户。单击“开始”按钮，图片显
示
1.5
秒（如图
2
，图片均随机安排）
，然后翻过去。用户使用鼠标将图片翻起，如果连续
单击的两个图片内容相同则
会保持显示状态；如果两图片不同，两张图片
0.5
秒后自动翻
过去。用户凭记忆在尽量短的时间内将
8
对图片全部“翻起”
，游戏完成。
图
1
图
2
（
2
）
从用户第一次单击图片是，
程序开始计时
（
以秒为单位）
，
并在窗口的右上角显示已用时间。
没击中一对图片，窗口中显示一个“笑脸”图标，否则显示一个“严肃的脸”图标（见图
3
）
。
图
3
（
3
）
程序自动记录前三个最短完成时间，在游戏结束时一图
4
所示的消息框显示所用的时间，
1
并请玩家输入名字。单击“排行榜”按钮时可以弹出“排行榜
”窗体，如图
5
所示，显示
前三名所用
的时间。
图
4
图
5
（
4
）
在游戏中，
窗口的
“开始”
和
“排行榜”
按钮成无效态，
游戏完成后，
“开始”
按钮变为
“重<
/p>
来”
，单击该按钮可以从头再来一局。
二、
课
程设计的详细设计
游戏主界面：
（
1
）窗体的顶
部要放置“开始”
、
“排行榜”和“退出”按钮。在放置一个两
个重合的
图像控件用来显示游戏中的“笑脸”和“严肃的脸”
。
再放置一个标签控件来显
示用户所用的时间。加入三个定时器控件“
Timershow
”
、
“
Timercompare
”和
“
Timercounter
”分别来控制展示图片的时间、点击不同图片后
图片的展示时
间和记录玩家的所用时间。
（
2
）窗体的中部放置
16
个图像框控件数组“
”
来放置游戏中的图片。
和一个放置
“
背
面”图片的图像框控件“
Imageback
”
在案安排游戏使用图片时使用的是随机函数
Rnd
随机的将“
Imagepicture
（）
”
的
In
dex
值赋给数组，
然后将这些选中的图片的
< br>“
Picture
”
属性赋给<
/p>
“
Imageshow
（）
”
图像框达到随机安排图片的目的。
（
3
）窗体的下部放置
31
个图像框控件“
Imagepicture
（）
”来放置
< br>31
种不同的候选
图片。
排行榜窗体：
（
1
）加入
12
个标签控件用来显示“排行榜”
。
“
LabelWanjia
（）
”控件组显示玩家姓
名，
“
LabelChengji
（）
”控件组显示玩家
成绩。
（
2
）
添加“返回”按钮，单击按钮时返回游戏主界面。
游戏加载时将
“
chengji
< br>”
文件中的已存入的成绩和玩家姓名加载到
“排行榜”<
/p>
窗体的相应位置上。
在游戏完成时用消
息框提示你的成绩，如果你的成绩进入前三名则可以再“
Inputbox
”里面输入
自己的姓名。
在游戏程序结束时将“排行榜”窗体上的内容存入成绩文件中。
全程序中使用控件数组和数组使程序的编写简单、明了。
2
三、
程
序调试过程
【问题
1
】
：
在程序加载时要将
31
张图片中的
8
张随机的成对安排到游戏使用的图片中，
但在加载
时会出现
4
张相同的图片。
【解决办法】
：在选出
8
张图片后判断是否有相同的图片，如果有则重新跳到“
Rnd
”函数重新选
出
8
张不同的图
片。
【问题
2
】
：在游戏运行时会出现：如果点击一张已经翻开的图片和一张没翻开的图片时也会出
现
两张图片翻回显示背面的情况。
【
解决办法】
：在程序设计时用逻辑数组“
Finishi
（）
”判断图片是否翻开，如果是已经翻开则不记
录点击的图片数。
【问题
3
】
：当游戏再来一次时，可以连续点击两张以上的不同图片翻开对比
。
【解决办法】
：
< br>在游戏重新开始时将所有的
“
Imageshow
（）
”
图像框控件的
“是否翻开”
值
“
Finishi
（）
”全部设置为“
False
”
。
四、
更
上一层楼
（
1
）
（
2
）
在游戏过程中使用的
8
对图片不是一直不变
的，而是从候选的
31
张图片中随机选出
8
张图片。
在玩家进入前三名时
不仅可以记录玩家的成绩，而且还可以记录玩家的名字。
五、
课
程设计总结
体会：
自己动手设计程序可以提高我们的计算机技术，
当自己
设计的程序可以运行时有成就感，
增
加对编程的兴趣。
同时在编程的过程中可以提高我们发现问题和解决问题的能力，
能培养自
己的创新能
力。
不足：在点击“开始”按钮后到显示图片的时间间隔有点长。
六、
源
程序代码
Option Explicit
Dim a(0 To
15) As Integer, b(1 To 2) As Integer, str(1 To 3)
As String
Dim Finish(0 To 15) As
Boolean, Order(1 To 3) As String, Q(1 To 3) As
Integer
Dim y As Integer, Time1 As
Integer
Private Sub
CmdExit_Click()
'
退出
Dim
i As Integer, k As Integer
Open &
For i = 1 To 3
'
保存姓名和成绩
k = 15 - Len(str(i))
Print #2, str(i) & Space(k) & Q(i) &
Space(5)
Next
Close
3
-
-
-
-
-
-
-
-
-
上一篇：HEIDENHAIN说明书
下一篇：17算法流程图(锻炼逻辑思维)