vb版记忆游戏程序设计实验报告.doc

VB语言程序设计课程设计报告

（2010-2011学年第二学期）

系(部)

机械系

专业班级

机电专60904班

学生姓名

谌前

学号/序号

200962143/5

指导教师

张国英

完成时间

第19周

记忆游戏设计

一、设计目标

记忆游戏：两套一样的图片隐藏在一个方阵内，用鼠标去点击可看到所隐藏的图片，并将上一次所看到的图片重新隐藏起来，如果相邻两次所点击的图片是一样的，那么这两个图片所在的按钮会消失。游戏得分可以用总点击数或计时数来计算。

程序设计界面如图1所示。

图1:记忆游戏界面

二、概要设计

1.功能模块（见图2）

记忆游戏控制计时

记忆游戏

控制

计时

选项

选项

退出开始结束

退出

开始

结束

图2记忆游戏功能模

2.界面设计

在窗口左边的工具箱中，单击一下框架控件，在窗体上绘出两个大小合适的框架，将其中大的框架名称改为gamearea,并将caption属性分别改为空格、难度。用同样的方法在框架中添加一个命令按钮，并将其名称改为command,visible属性改为false,在小的框架里面添加三个optionbutton,将其名称都改为option1，option属性分别改为初级、中级、高级。然后用同样的方法在框架的右边添加三个命令按钮，将其名称分别改为start,endthis,close,并将caption属性分别改为开始、结束、退出。用同样的方法添加两个label控件，同时在两个label控件的下面分别添加一个文本框，将其名称分别改为consumed、totalclick

三、详细设计

加载窗体时利用随机函数初始化使每次运行均不一样

PrivateSubForm_Load()

Randomize

theWidth=Command(0).Width

theHeight=Command(0).Height

cur_radix=elementary

EndSub

利用一个框架一个单选按钮组和SelectCase语句来实现难度级别的不同

PrivateSubOption1_Click(IndexAsInteger)

SelectCaseIndex

Case0

cur_radix=elementary

Case1

cur_radix=intermediate

Case2

cur_radix=senior

EndSelect

EndSub

利用时钟控件Timer和text控件来实现计时功能

PrivateSubTimer1_Timer()

timeconsumed.Text=timeconsumed.Text+1

EndSub

注意：时钟控件的interval值应设置为1000，即为每秒钟计一次时

当Enable=true时时钟控件才能使用

利用text控件和If语句来实现点击次数的计算，并将该按钮的tag属性中的字符取出作为图片名进行加载

PrivateSubcommand_click(IndexAsInteger)

IfIndex=lastindexThenExitSub

totalclick.Text=totalclick.Text+1

Command(Index).Picture=LoadPicture(App.Path+\tupian\Command(Index).Tag.gif)加载图片

IfCommand(lastindex).Tag=Command(Index).TagThen

Command(lastindex).Tag=

Command(Index).Tag=

CallsndPlaySound(goal,1)

Command(lastindex).Visible=False

Command(Index).