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

《VB课程设计报告——拼图游戏》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、VB课程设计报告-------拼图游戏马学清1008260132指导老师：张小兵一、题目介绍“拼图”是一种老少皆宜、容易上手的益智类小游戏。指定一幅完整的图片，将其分割成小的图块，并且打乱顺序后重新排列，其中有一块没有任何东西的“空档”，使用鼠标单机与空档相邻的图块，使该图块与空档位置互换，利用空档位置移动各图块，最终恢复图片原样，完成拼图。移动的步数越少则表明游戏者的水平越高。游戏过程中用参考图来获得帮助查找每图块的相对正确的位置。二、功能要求1.指定一幅图片，将其分割成m×n小图块，并且打乱顺序后重新

2、排列，其中有一块没有任何东西的“空挡”。2.使用鼠标单击与空挡相邻的图块，使该图块与空挡的位置互换。利用空挡位置移动各图块，最终恢复图片原貌，完成拼图。移动的步数越少则说明游戏者的水平越高。游戏过程中用参考图来获得帮助查找每图块的相对正确的位置3.三、程序设计概述：（1）PictureClip控件来管理打开图片并将其分为指定的行列图块，其Picture、Rows、Cols等属性值应在程序中设定。（2）使用image控件数组来显示图块，设计时只需在窗体上放置一个image控件并将其的index设为0，其他的

3、用load语句加载。（3）“打开图片”和“颜色”对话框Commondialog控件实现。设置其filter属性使之只能打开bmp和jpg类型的图片文件。（4）将image控件的stretch属性设计为TRUE四、程序源代码OptionExplicitPrivateSubcmdOK_Click()frmMain.Rows=txtRows.TextfrmMain.Cols=txtCols.TextUnloadMeEndSubOptionExplicitPublicRowsAsInteger,ColsAsInt

4、eger'图块的行列数ConstGAPAsInteger=2'行列图块的间距PrivateArrange()AsInteger'图象控件与数组的对应关系PrivatespaceAsInteger'空档的位置PrivatestartedAsBoolean'是否已开始PrivatestepsAsInteger'步数PublicshowrefAsBoolean'是否显示参考图PrivateSubcmdShowRef_Click()showref=NotshowrefIfshowrefThenLoadfrmRef

5、frmRef.Image1.Picture=PC.PicturefrmRef.Top=Me.TopfrmRef.Left=Me.Left+Me.WidthfrmRef.ShowcmdShowRef.Caption="关闭参考图"ElseUnloadfrmRefcmdShowRef.Caption="显示参考图"EndIfEndSubPrivateSubForm_Unload(CancelAsInteger)UnloadfrmRefEndSubPrivateSubimgPT_Click(IndexAsInt

6、eger)Dimr1AsInteger,c1AsIntegerDimr2AsInteger,c2AsIntegerDimnAsIntegerDimiAsIntegerIfNotstartedThenExitSubc1=spaceModCols'计算空档的行列r1=spaceCols+1c2=IndexModCols'计算点击的行列r2=IndexCols+1IfAbs(c1-c2)=1AndAbs(r1-r2)=0OrAbs(c1-c2)=0AndAbs(r1-r2)=1Then'判断是否相邻n=Ar

7、range(Index)Arrange(Index)=Arrange(space)Arrange(space)=nimgPT(space)=PC.GraphicCell(Arrange(space))imgPT(Index)=LoadPicture()space=Indexsteps=steps+1txtStep.Text=stepsIfisOK()ThenMsgBox"恭喜，完成拼图！共用了"&steps&"步。",vbInformation'判断是否拼完，如果已完成Fori=1ToRows*Cols-

8、1imgPT(i).Enabled=False'拼图完成时，使鼠标点击失效NextEndIfEndIfEndSubPrivateSubmnuBackColor_Click()CD.Color=Me.BackColorCD.ShowColorMe.BackColor=CD.ColorEndSubPrivateSubmnuExit_Click()UnloadMeEndSubPrivateSubmnuOpen_Click()Dimi