VB课程设计：拼图游戏.doc

VB课程设计:拼图游戏
Visual Basic课程设计报告
题目1: 拼图游戏难度: ***
指导教师:
姓名:
学号:
专业:
班级:
学院:
日期:
1. 题目简介
(1)本题目要求设计一个拼图游戏程序,要求如下:
指定一幅完整的图片,将其分割成m*n个小图块,打乱后重新排列,其中有一个没有图片的“空当”如图————
(2)使用鼠标单击与空当相邻的图块可以与其互换位置。
(3)利用空当位置使原图恢复原来的顺序,并记下玩家的移动步数,游戏过程中可以查看参考图以方便顺利通过游戏。
1
2、设计思路与总体方案
本程序包含五个窗体模块,其中以窗体frmMain的作用最为主要,该模块负责加载选定的图片并按所选的行列数分割,进行随机排列并加载空当,实现鼠标点击时其中的图块时与相邻的空当进行替换,实现拼图完成这个结束动作。该模块中主要的变量有Rows , Cols ,Arrange() ,space,started,steps showref Fu
nction isOK()
其中,Rows , Cols ,showref这三个为全局变量,分别表示行数,列数,以及是否显示参考图(因此showref为逻辑型变量)其余变量为模块级变量,started也为逻辑变量,负责显示游戏是否已开始,Arrange()数组表示联系图像控件与数组的关系,space显示空当的位置,steps来记录玩家所走的步数,Function isOK()用来检验拼图是否已经完成的函数,为逻辑性变量。除外,过程变量tt(0 to2), b(0 to 2),s , r , c用来写入或读取排行榜中的记录。
其中,还设有菜单栏,monDialog控件负责实现“打开图片”与“配置颜色”对话框,并同时还拥有打开frmRecod(排行榜窗体模块)的工能。主要代码(游戏初始时加载图片):
Dim i As Integer
Dim n As Integer
= "图片文件(*.JPG,*.BMP)|*.jpg;*.bmp"
= "打开图片"
= & "\pics"
(显示指定图片对话框) If = "" Then Exit Sub
If started Then
For i = 1 To Rows * Cols - 1 '(清除已有的控件数组元素)
Unload imgPT(i)
Next
imgPT(0).Picture = LoadPicture()
If showref Then = LoadPicture()
Else
= LoadPicture()
End If
1, Me ' (显示指定行列对话框) = LoadPicture()
= Rows
= Cols
n = Rows * Cols
imgPT(0).Width = 320 / Cols ('窗体以像素为单位)
2
imgPT(0).Height = 240 / Rows
窗体frmDivide载入图片后弹出此窗口,负责提示玩家进行图片行列数
的选择,用以调节游戏等级,可分为3*3,3*4, 4*3 ,4*4 这四种模式。玩家通过两个VScroll控件调节TextBox中的行列数,通过
=
=
= ,
=
赋值语句来与frmMain模块进行数值传递。
窗体frmRef通过窗体frmMain中的“显示参考图”按钮来显示玩家游戏时的所需的参考图,frmMain通过 showref = Not showref
If showref Then
Load frmRef
=
=
= +

= "关闭参考图"
Else
Unload frmRef
c