VB课程设计：拼图游戏_精品.pdf

Visual Basic课程设计报告 题目1： 拼图游戏 难度： *** 指导教师： 姓 名： 学 号： 专 业： 班 级： 学 院： 日 期： 1．题目简介 1 （）本题目要求设计一个拼图游戏程序，要求如下： 指定一幅完整的图片，将其分割成m*n 个小图块，打乱后重新排列， 其中有一个没有图片的 “空当” 如图———— 2 （）使用鼠标单击与空当相邻的图块可以与其互换位置。 3 （）利用空当位置使原图恢复原来的顺序，并记下玩家的移动步数， 游戏过程中可以查看参考图以方便顺利通过游戏。 1 2、设计思路与总体方案 本程序包含五个窗体模块，其中以窗体frmMain 的作用最为主要，该模 块负责加载选定的图片并按所选的行列数分割，进行随机排列并加载空当，实现 鼠标点击时其中的图块时与相邻的空当进行替换，实现拼图完成这个结束动作。 Rows Cols Arrange() space started steps 该模块中主要的变量有 ， ， ， ， ， showref Function isOK() 其中，Rows ， Cols ，showref 这三个为全局变量，分别表示行数 ，列数， 以及是否显示参考图 （因此showref 为逻辑型变量）其余变量为模块级变量， started 也为逻辑变量，负责显示游戏是否已开始，Arrange()数组表示联系图像控 件与数组的关系，space 显示空当的位置，steps来记录玩家所走的步数，Function isOK() tt 0 用来检验拼图是否已经完成的函数，为逻辑性变量。除外，过程变量 （ to2）， b （0to2），s ， r ， c 用来写入或读取排行榜中的记录。 其中，还设有菜单栏，通过CommonDialog控件负责实现 “打开图片”与 “配置 颜色”对话框，并同时还拥有打开frmRecod （排行榜窗体模块）的工能。 主要代码 （游戏初始时加载图片）： Dim iAsInteger DimnAsInteger CD.Filter 图片文件(*.JPG,*.BMP)|*.jpg;*.bmp CD.DialogTitle 打开图片 CD.InitDir App.Path \pics CD.ShowOpen （显示指定图片对话框） IfCD.FileName Then Exit Sub If startedThen For i 1ToRows *Cols- 1 （清除已有的控件数组元 素） UnloadimgPT(i) Next imgPT(0).Picture LoadPicture() If showrefThen frmRef.Image1.Picture LoadPicture() Else Me.Picture LoadPicture() EndIf frmDivide.Show 1,Me （显示指定行列对话框） PC.Picture LoadPicture(CD.FileName) PC.Rows Rows PC.Cols Cols n Rows *Cols imgPT(0).Width 320/ Cols （窗体以像素为单位）