VB课程设计报告——拼图游戏.docVIP

VB课程设计报告 -------拼图游戏 马学清 1008260132 指导老师：张小兵 题目介绍 “拼图”是一种老少皆宜、容易上手的益智类小游戏。指定一幅完整的图片，将其分割成小的图块，并且打乱顺序后重新排列，其中有一块没有任何东西的“空档”，使用鼠标单机与空档相邻的图块，使该图块与空档位置互换，利用空档位置移动各图块，最终恢复图片原样，完成拼图。移动的步数越少则表明游戏者的水平越高。游戏过程中用参考图来获得帮助查找每图块的相对正确的位置 。 二、功能要求 指定一幅图片，将其分割成m × n 小图块，并且打乱顺序后重新排列，其中有一块没有任何东西的“空挡”。 使用鼠标单击与空挡相邻的图块，使该图块与空挡的位置互换。 利用空挡位置移动各图块，最终恢复图片原貌，完成拼图。移动的步数越少则说明游戏者的水平越高。游戏过程中用参考图来获得帮助查找每图块的相对正确的位置 三、 程序设计 概述： （1）PictureClip 控件来管理打开图片并将其分为指定的行列图块，其Picture、Rows、Cols等属性值应在程序中设定。 （2）使用image控件数组来显示图块，设计时只需在窗体上放置一个image控件并将其的index设为0 ，其他的用load语句加载。 （3）“打开图片”和“颜色”对话框Commondialog控件实现。设置其filter属性使之只能打开bmp和jpg类型的图片文件。 （4）将image控件的stretch属性设计为TRUE 四、 程序源代码 Option Explicit Private Sub cmdOK_Click() frmMain.Rows = txtRows.Text frmMain.Cols = txtCols.Text Unload Me End Sub Option Explicit Public 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 If End Sub Private Sub Form_Unload(Cancel As Integer) Unload frmRef End Sub 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 + 1 c2 = Index Mod Cols 计算点击的行列 r2 = Index \ Cols + 1 If Abs(c1 - c2) = 1 And Abs(r1 - r2) = 0 Or Abs(c1 - c2) = 0 And Abs(r1 - r2) =