VB课程设计报告--拼图游戏.doc

VB课程设计报告 拼图游戏知识点：控件数组，公共对话框控件，PictureClip控件，多模块程序设计，图片的应用。1. 题目介绍 “拼图”是一种老少皆宜、容易上手的益智类小游戏，本题目要求编制一个拼图游戏程序。使用方法如下：（1）指定一幅图片，将其分割成m n 个小图块并且打乱顺序后重新排列，其中有一块没有图块的“空挡”。（2）使用鼠标单击与空挡相邻的图块使该图块与空挡的位置互换。 （3）利用空挡位置移动各图块，最终恢复图片原貌，完成拼图。移动的步数越少则说明游戏者的水平越高。游戏过程中，可以打开参考图帮助找到正确的位置。 2.功能要求（1）运行程序，在进入游戏之前显示一个背景图片。（2）选择菜单中的“打开图片”命令，显示打开图片对话框，“打开图片”对话框使用公共对话框控件实现，并且只能指定以*.jpg *.bmp为扩展名的文件。可以在查看菜单中选着“缩略图”进行预览。（3）选择图片之后，程序弹出“指定行列数”对话框，提示将图片分几行几列。使用微调按钮可以调节行数和列数，限制在3-7之间。（4）指定行列数之后，单击确定返回主窗口，程序自动按照指定的行列数将图片进分割，然后随机排列。（5）打乱的图片中一空挡位置，用户单击与空挡相邻的图块可以与其互换位置。点击了空挡或者与其不相邻的，程序不做任何操作。原图只少右下角的图块。（6）图片复原时，程序显示消息框表示祝贺，同时显示游戏共使用的步数。（7）游戏过程中，如果用户希望参考原图，可以单击“显示原图”按钮，打开“参考图”窗口。（8）窗体中的背景颜色可以改变，从菜单中选择“背景颜色”命令，弹出“颜色”飞、公共对话框，用户从中选择一颜色即可。（9）在游戏过程中或在完成后，均可退出程序或选择“打开图片”菜单命令重新开始一个新图片。（10）“参考图”窗口应是一个非模态窗口，在关闭主窗口时同时卸载，而不是隐藏，否则该程序不会完全关闭，仍会驻留内存。3.程序设计 概述：（1）PictureClip 控件来管理打开图片并将其分为指定的行列图块，其Picture、Rows、Cols等属性值应在程序中设定。 （2）使用image控件数组来显示图块，设计时只需在窗体上放置一个image控件并将其的index设为0 ，其他的用load语句加载。 （3）“打开图片”和“颜色”对话框commondialog控件实现。设置其filter属性使之只能打开bmp和jpg类型的图片文件。 （4）将image控件的stretch属性设计为TRUE。 重点： （1） 随机排列图片 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 给数组Arrange随机赋值 j = Int(Rnd * n) 产生0n-1的随机数 If Arrange(j) = -1 Then Arrange(j) = i i = i + 1 If i = n Then Exit Do End If Loop For i = 1 To n - 1 加载控件数组元素 Load imgPT(i) Next For i = 0 To n - 1 If Arrange(i) n - 1 Then imgPT(i).Picture = PC.GraphicCell(Arrange(i) 将图块赋给控件数组元素 Else imgPT(i).Picture = LoadPicture() 将“打乱”前图片右下角的图块设为空 space = i End If NextEnd Sub（2） 判断被单击的图片是否与空挡相邻，Private Sub imgPT_Click(Index As Integer) Dim r1 As Integer, c1 As Integer Dim r2 As Integer, c2 As Integer Dim n As Integer Dim i As Integer If Not started Then Exit Sub c1 = space Mod Cols 计算空档的行列 r1 = space Cols c2 = Index Mod Cols 计算点击的行列 r2 = Index Cols If Abs(c1 - c2) = 1 And Abs(r1 - r2) = 0 Or Abs(c1 - c2) = 0 And Abs(r1 - r2) = 1 Then 判断是否相邻 n = Arrange(Index) Arrange(Index) = Arrange(space) Arrange(space) = n imgPT(space) = PC.GraphicCell(Arrange(space) imgPT(Index) = LoadPicture() space = Index steps = steps + 1 txtStep.Text = steps If isOK() Then MsgBox 恭喜，完成拼图！共用了 & steps & 步。, vbInformation 判断是否拼完，如果已完成 For i = 1 To Rows * Cols - 1 imgPT(i).Enabled = False 拼图完成时，使鼠标点击失效 Next End If End IfEnd Sub（3） 判断是否已经拼完 Private Function isOK() As Boolean 判断是否拼完 Dim i As Integer For i = 0 To Cols * Rows - 1 If Arrange(i) i Then Exit For Next If i = Cols * Rows Then isOK = TrueEnd Function 附：完整代码Option ExplicitPublic Rows As Integer, Cols As Integer 图块的行列数Const GAP As Integer = 2 行列图块的间距Private Arrange() As Integer 图象控件与数组的对应关系Private space As Integer 空档的位置Private started As Boolean 是否已开始Private steps As Integer 步数Public showref As Boolean 是否显示参考图Private Sub cmdShowRef_Click() 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 = 关闭参考图 Else Unload frmRef cmdShowRef.Caption = 显示参考图 End IfEnd SubPrivate Sub Form_Click() Dim i As Integer For i = 0 To Rows * Cols - 3 Arrange(i) = i Next Arrange(Rows * Cols - 1) = Rows * Cols - 2 Arrange(Rows * Cols - 2) = Rows * Cols - 1 For i = 0 To Rows * Cols - 1 imgPT(i) = PC.GraphicCell(Arrange(i) Next imgPT(Rows * Cols - 2) = LoadPicture space = Rows * Cols - 2End SubPrivate Sub Form_Unload(Cancel As Integer) Unload frmRefEnd SubPrivate Sub imgPT_Click(Index As Integer) Dim r1 As Integer, c1 As Integer Dim r2 As Integer, c2 As Integer Dim n As Integer Dim i As Integer If Not started Then Exit Sub c1 = space Mod Cols 计算空档的行列 r1 = space Cols c2 = Index Mod Cols 计算点击的行列 r2 = Index Cols If Abs(c1 - c2) = 1 And Abs(r1 - r2) = 0 Or Abs(c1 - c2) = 0 And Abs(r1 - r2) = 1 Then 判断是否相邻 n = Arrange(Index) Arrange(Index) = Arrange(space) Arrange(space) = n imgPT(space) = PC.GraphicCell(Arrange(space) imgPT(Index) = LoadPicture() space = Index steps = steps + 1 txtStep.Text = steps If isOK() Then MsgBox 恭喜，完成拼图！共用了 & steps & 步。, vbInformation 判断是否拼完，如果已完成 For i = 1 To Rows * Cols - 1 imgPT(i).Enabled = False 拼图完成时，使鼠标点击失效 Next End If End IfEnd SubPrivate Sub mnuBackColor_Click() CD.Color = Me.BackColor CD.ShowColor Me.BackColor = CD.Color End SubPrivate Sub mnuExit_Click() Unload MeEnd SubPrivate Sub mnuOpen_Click() Dim i As Integer 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 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 窗体以像素为单位 imgPT(0).Height = 240 / Rows Call Rnd_Arrange 随机排列 For i = 0 To n - 1 排列图象控件 imgPT(i).Top = (i Cols) * (240 / Rows + GAP) imgPT(i).Left = (i Mod Cols) * (320 / Cols + GAP) imgPT(i).Visible = True Next If showref Then frmRef.Image1.Picture = PC.Picture started = True cmdShowRef.Enabled = True steps = 0 txtStep.Text = 0End SubPrivate 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 给数组Arrange随机赋值 j = Int(Rnd * n) 产生0n-1的随机数 If Arrange(j) = -1 Then Arrange(j) = i i = i + 1 If i = n Then Exit Do End If Loop For i = 1 To n - 1 加载控件数组元素 Load imgPT(i) Next For i = 0 To n - 1 If Arrange(i) n - 1 Then imgPT(i).Picture