vb课程设-拼图游戏设计报告

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

1、拼图游戏课程设计报告（VB）编号：05拼图游戏设计报告学院机械工程学院班级机设063学号060417姓名王琪成绩一、设计思路1.要达到的目的①可以打开Jpg,bmp,gif等任意格式图片，并且窗体大小可以根据图片大小可调。②根据切片数量绘制出分割线，切片数量用户可以定制。③游戏开始之后，可以分割图片并且打乱顺序④用户可以拖动各个分片进行重新组合，直到拼合出原图像。⑤系统能够自动检查到用户拼合出了原图像并提示用户。2.关键问题的解决①使用LoadPicture加载图片，并设置PictureBox的AutoSize属性，使窗体大小可以根据图片大小可调。②利用循环和Line方法绘制分割线

2、，切片数量由InputBox输入。③用PaintPicture方法来从整体图像上获取切片上的图像，并使用随机函数打乱图片顺序。④切片的拖动利用鼠标的Mouse_Down,Mouse_Move,Mouse_Up,拖动时互换二个切片实质上就是两个PictureBox互换位置⑤当所有的数组下标和该下标元素存储的PictureBox数组index相同时，即可认为用户成功的拼合了原图。二、模块之间的调用关系，或程序流程图调用调用调用调用loadpic模块startgame模块Pic1模块mouse模块Timer模块三、部分程序关键源代码及注释'分解图片并按照顺序放入网格ReDimwho(0T

3、on^2)pt=0Fori=1Tonpl=0Forj=1Tonk=(i-1)*n+j拼图游戏课程设计报告（VB）编号：05Pic2(k).Visible=TruePic2(k).Top=ptPic2(k).Left=plPic2(k).Width=SplitImagewidthPic2(k).Height=SplitImageheightPic2(k).PaintPicturePic1.Picture,0,0,SplitImagewidth,SplitImageheight,pl,pt,SplitImagewidth,SplitImageheightPic2(k).Line(0,0

4、)-(SplitImagewidth,SplitImageheight),t,BPic2(k).ZOrderpl=pl+SplitImagewidthNextjpt=pt+SplitImageheightNexti'打乱图片顺序ReDimwho(1Ton^2)DimiAsIntegerDimtempAsIntegerFori=1Ton^2who(i)=iNextiFori=1Ton^2*2'随机选择两个网格j=Int(Rnd()*n^2+1)k=Int(Rnd()*n^2+1)'更换网格中图片t=Pic2(who(j)).Topl=Pic2(who(j)).LeftPic2(who

5、(j)).Top=Pic2(who(k)).TopPic2(who(j)).Left=Pic2(who(k)).LeftPic2(who(k)).Top=tPic2(who(k)).Left=l'更新图片所在位置temp=who(j)who(j)=who(k)who(k)=tempNexti'找到某个位置所在的索引PrivateFunctionfindareaindex(XAsSingle,YAsSingle,n,SplitImagewidth,SplitImageheight)AsIntegerFori=1TonForj=1Tonk=(i-1)*n+jleftx=(j-1)*Sp

6、litImagewidthlefty=(i-1)*SplitImageheightIfX>leftxAndY>leftyAndX

7、挡。③更改切片数量后，必须重新加载图片才能有效。五、本次设计的收获及心得体会通过这次教学组织进行课程设计，不仅让我复习了很多VB的知识，而且学会了编简单的程序，我编的是拼图游戏，感觉很满意，当然还有很多地方不足，有待进一步改进。在编程的这几天的确有诸多感受，它既是自己能力的体现，也是进一步学习的过程。这是次有意义的活动锻炼了我的思维能力，感觉很好。六、对该题目和VB设计的意见和建议1.对该题目的意见和建议本题主要涉及picturebox和mouse事件，还有控件数组的