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

VB课程设计报告 —拼图游戏 知识点：控件数组，公共对话框控件，PictureClip控件，多模块程序设计，图片的应用。 题目介绍 “拼图”是一种老少皆宜、容易上手的益智类小游戏，本题目要求编制一个拼图游戏程序。使用方法如下： （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。 重点： 随机排列图片 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) '产生0～n-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 Next End Sub 判断被单击的图片是否与空挡相邻， Private Sub