vb课程设计拼图游戏

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

1、VisualBasic课程设计报告题目1:拼图游戏难度：指导教师：姓名学专业班级学院曰期1.题目简介(1)本题目要求设计一个拼图游戏程序，要求如下.•指定一幅完整的图片，将其分割成m*n个小图块，打乱后重新排列，其屮有一个没有图片的“空当”如图(2)使用鼠标单击与空当相邻的图块可以与其互换位置。(3)利用空当位置使原图恢复原来的顺序，并记下玩家的移动步数,游戏过程中可以查看参考图以方便顺利通过游戏。2、设计思路与总体方案本程序含五个窗体模块，其巾以窗体frmMain的作用最为主耍，该模块负责加载选定的图片并按所选的行列数分割，进行随机排列并加载空当，实现鼠标点击吋其屮的图块吋与相邻的空当进

2、行替换，实现拼图完成这个结束动作。该模块中主要的变量有Rows，Cols，Arrange()，space,started,stepsshowrefFunctionisOK()其屮，Rows,Cols,showref这三个为全局变量，分别表示行数，列数，以及是否显示参考阁(因此showref为逻辑型变量)其余变量为模块级变景，started也为逻辑变量，负责显示游戏是否已开始，ArrangeO数组表示联系图像控件与数组的关系，space显示空当的位置，steps来记隶玩家所走的步数，FunctionisOK()用来检验拼阁是否已经完成的函数，为逻辑性变量。除外，过程变to2),b(Oto2)

3、,s,r,c用來写入或读取排行榜中的记录。其屮，还设有菜单栏，通过CommonDialog控件负责实现“打开图片”与“配置颜色”对话框，并同时还拥有打丌frmRecod(排行榜窗体模块)的工能。主要代码(游戏初始时加载图片)：DimiAsIntegerDimnAsIntegerCD.Filter="图片文件(气JPG，*.BMP)

4、*.jpg;*.bmpnCD.DialogTitle=”打开图片’’CD.InitDir=App.Path&"pics”CD.ShowOpen(显示指定阁片对话框)IfCD.FileName=’"•ThenExitSubIfstartedThenFori=1T

5、oRows*Cols-1'(淸除已打的控件数组元素)UnloadimgPT(i)NextimgPT(O).Picture=LoadPicture()IfshowrefThenfrmRef.Image1.Picture=LoadPicture()ElseMe.Picture=LoadPicture()EndIffrmDivide.Show1,Me'(显不•指定行列对话框)PC.Picture=LoadPicture(CD.FileName)PC.Rows=Rowsc窗体以像素为竽位)PC.Cols=Colsn=Rows*ColsimgPT(O).Width=320/Cols体frmDivid

6、e载入片后弹出此窗口，负责提示玩家进行阁片行列数4*3,4*4这四种模式。玩家通过imgPT(O).Height=240/Rows的选择，用以调节游戏等级，可分为3*3,3*4,通过两个VScroll控件调节TextBox屮的行列数，Text1.Text=VScroll1.ValueText2.Text=VScroll2.ValuefrmMain.Rows=Text1.Text，frmMain.Cols=Text2.Text赋值语句来与frmMain模块进行数值传递。体frmRef通过窗体frmMain巾的“兄示参考图”按钮来兄示玩家游戏时的所需的参考图，frmMain通过showref=

7、NotshowrefIfshowrefThenLoadfrmReffrmRef.Imagel.Picture=PC.PicturefrmRef.Top=Me.TopfrmRef.Left=Me.Left+Me.WidthfrmRef.ShowcmdShowRef.Caption=”关闭参考阁”ElseUnloadfrmRefcmdShowRef.Caption=”显示参考图”来打开这个模块以显示参考图，通过对逻辑变量showref的非运算加载该模块,设置高度与宽度。frmRecord用来显示玩家通过游戏后所处的名次，姓名，移动步数，难度（行数x列数），并且只冇名次在大于系统默认前三名的状况

8、下冰能被录入排行榜，否则会弹出“完成，你未进入前三名！”的提醒框。代码如下:OpenApp.Path&nRecord.txtnForInputAs#1For1=0To2Input#l,tt(l),b(l),r(l),c(l)(依次读入步数,姓名，行数，列数)NextClose#1Ifs