VB课程设计：拼图游戏

If started Then
For i = 1 To Rows * Cols - 1
'（清除已有的控件数组元
素）
Unload imgPT(i)
Next
imgPT(0).Picture = LoadPicture()
If showref Then frmRef.Image1.Picture = LoadPicture()
Else
Me.Picture = LoadPicture()
End If
frmDivide.Show 1, Me
'
（显示指定行列对话框）
PC.Picture = LoadPicture(CD.FileName)
PC.Rows = Rows
PC.Cols = 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 中的行列数，通过
（2）使用鼠标单击与空当相邻的图块可以与其互换位置。 （3）利用空当位置使原图恢复原来的顺序，并记下玩家的移动步数， 游戏过程中可以查看参考图以方便顺利通过游戏。
1
2、设计思路与总体方案
本程序包含五个窗体模块，其中以窗体 frmMain 的作用最为主要，该模
块负责加载选定的图片并按所选的行列数分割，进行随机排列并加载空当，实现
For i = 0 To Cols * Rows - 1
If Arrange(i) <> i Then Exit For
Next
If i = Cols * Rows Then isOK = True
（isOK = True 时，IF 语句运行使得游戏
结束）
4、设计中尚存的不足分析
Else Unload frmRef cmdShowRef.Caption = "显示参考图"
来打开这个模块以显示参考图，通过对逻辑变量 showref 的非运算加载该模块， 设置高度与宽度。
窗体 frmRecord 用来显示玩家通过游戏后所处的名次，姓名，移动步
数，难度（行数 X 列数），并且只有名次在大于系统默认前三名的状况下才能被 录 入 排 行 榜 ， 否 则 会 弹 出 “ 完 成 ， 你 未 进 入 前 三 名 ！” 的 提 醒 框 。
以及是否显示参考图（因此 showref 为逻辑型变量）其余变量为模块级变量，
started 也为逻辑变量，负责显示游戏是否已开始，Arrange()数组表示联系图像控
件与数组的关系，space 显示空当的位置，steps 来记录玩家所走的步数，Function
isOK()用来检验拼图是否已经完成的函数，为逻辑性变量。除外，过程变量 tt（0
to2）， b（0 to 2），s ， r ， c 用来写入或读取排行榜中的记录。
其中，还设有菜单栏，通过 CommonDialog 控件负责实现“打开图片”与“配置
颜色”对话框，并同时还拥有打开 frmRecod（排行榜窗体模块）的工能。
主要代码（游戏初始时加载图片）：
Dim i As Integer
ቤተ መጻሕፍቲ ባይዱ
If isOK() Then
MsgBox "恭喜，完成拼图！共用了" & steps & "步。"
'
For i = 1 To Rows * Cols - 1
imgPT(i).Enabled = False
解决方法：上述代码表示游戏过程中可利用 Function isOK()来检验玩家是否
已经完成游戏，检验过程代码如下：Dim i As Integer
PictureClip 控件在我看来是最主要的，他负责管理打开的图片并将其分割为指
定行列的小图块。
CommonDialog 控件负责实现“打开图片”与“配置颜色”对话框。
Image 控件数组用于显示图片，其中他的 Stretch 属性设计为 True，可以使
图片自动放大或缩小，方便玩家自由选择图片进行游戏。
Text1.Text = VScroll1.Value Text2.Text = VScroll2.Value frmMain.Rows = Text1.Text， frmMain.Cols = Text2.Text 赋值语句来与 frmMain 模块进行数值传递。
窗体 frmRef 通过窗体 frmMain 中的“显示参考图”按钮来显示玩家游戏
因此，该随机排列图片过程的代码如下：
Private Sub Rnd_Arrange()
'
Dim i As Integer, j As Integer
Dim n As Integer
n = Rows * Cols
ReDim Arrange(0 To n - 1) For i = 0 To n - 1 Arrange(i) = -1 （ 用-1 标记未赋值的元素） Next i=0 Do j = Int(Rnd * n) （产生 0～n-1 的随机数，并用 Arrange 赋值） If Arrange(j) = -1 Then Arrange(j) = i i=i+1 If i = n Then Exit Do End If Loop
难点（2）—————————— 当你单击图片时判断是否与空
当相邻并进行移动。
解决方法：计算这两者分别所处的行列，利用 IF 语句进行判断，
通过改变 Image 的 Index 值来改变所显示的图片，而非移动这个控件。
该过程代码如下：
c1 = space Mod Cols
（计算空档的行列）
r1 = space \ Cols
Arrange(Index) = Arrange(space)
Arrange(space) = n
imgPT(space) = PC.GraphicCell(Arrange(space))
imgPT(Index) = LoadPicture()（进行替换）
难点（3）———————————————判定拼图结束
主窗体重点（难点 1）——————————随机排列图片
解决方案：利用 j = Int(Rnd * n)产生的随机数（0~n-1）同时通过 Arrange
赋值给 PC.GraphicCell，来传递给 imgPT（）进行图片的随机分布。
例如：Arrange（3）=9
imgPT(i).Picture = PC.GraphicCell(Arrange(3))
时的所需的参考图，frmMain 通过 showref = Not showref
If showref Then Load frmRef frmRef.Image1.Picture = PC.Picture frmRef.Top = Me.Top frmRef.Left = Me.Left + Me.Width frmRef.Show cmdShowRef.Caption = "关闭参考图"
（通过以上的 IF 语句先比较出步数在系统默认下的的名次，再通过赋值语句进 行排名，同时将姓名，行数，列数也进行赋值处理同步于步数的名次变化，优点 是不需建立多维数组进行储存）
Open App.Path & "\Record.txt" For Output As #1 For l = 0 To 2 Write #1, tt(l), b(l), r(l), c(l) Next Close #1 Else MsgBox "完成，你未进入前三名！", vbInformation End If
窗体 frmHelp 用以显示对本游戏的提示，用以解释游戏无法顺
利进行的原因，详情请见（4、设计中尚存的不足分析）。
主要代码：
Image2(0).Picture = LoadPicture(App.Path & "\Resource\ab.jpg")
（加载图片）
4
3、对重点（难点）问题的解决
窗 体 模 块 frmMain 为 主 要 载 体 ， 也 是 该 程 序 的 难 点 所 在 ， 其 中 的
Dim n As Integer
CD.Filter = "图片文件(*.JPG,*.BMP)|*.jpg;*.bmp"
CD.DialogTitle = "打开图片"
CD.InitDir = App.Path & "\pics"
CD.ShowOpen
（显示指定图片对话框）
If CD.FileName = "" Then Exit Sub
鼠标点击时其中的图块时与相邻的空当进行替换，实现拼图完成这个结束动作。
该模块中主要的变量有 Rows ， Cols ，Arrange() ，space，started，steps
showref Function isOK()
其中，Rows ， Cols ，showref 这三个为全局变量，分别表示行数 ，列数，
If s < tt(1) And s >= tt(0) Then tt(2) = tt(1): tt(1) = s: b(2) = b(1): b(1) = InputBox("请 输入姓名：", "输入框", "无名侠"): r(2) = r(1): r(1) = Rows: c(2) = c(1): c(1) = Cols: MsgBox "完成，恭喜" & b(1) & "你成为第二名！", vbInformation