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

VB课程设计报告

-------拼图游戏

马学清1008260132 指导老师：张小兵

一、题目介绍

“拼图”是一种老少皆宜、容易上手的益智类小游戏。指定一幅完整的图片，将其分割成小的图块，并且打乱顺序后重新排列，其中有一块没有任何东西的“空档”，使用鼠标单机与空档相邻的图块，使该图块与空档位置互换，利用空档位置移动各图块，最终恢复图片原样，完成拼图。移动的步数越少则表明游戏者的水平越高。游戏过程中用参考图来获得帮助查找每图块的相对正确的位置

。

二、功能要求

1.指定一幅图片，将其分割成m × n 小图块，并且打乱顺序后重新排列，其中有一块没

有任何东西的“空挡”。

2.使用鼠标单击与空挡相邻的图块，使该图块与空挡的位置互换。

利用空挡位置移动各图块，最终恢复图片原貌，完成拼图。移动的步数越少则说明游戏者的水平越高。游戏过程中用参考图来获得帮助查找每图块的相对正确的位置

3.

三、程序设计

概述：

（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) = 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 If

End Sub

Private Sub mnuBackColor_Click()

CD.Color = Me.BackColor

CD.ShowColor

Me.BackColor = CD.Color

End Sub

Private Sub mnuExit_Click()

Unload Me

End Sub

Private 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)