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

拼图游戏设计报告 学院 机械工程学院 班级 机设063 学号 060417 姓名 王琪 成绩 一、设计思路 1.要达到的目的 ①可以打开Jpg,bmp,gif等任意格式图片，并且窗体大小可以根据图片大小可调。 ②根据切片数量绘制出分割线，切片数量用户可以定制。 ③游戏开始之后，可以分割图片并且打乱顺序 ④用户可以拖动各个分片进行重新组合，直到拼合出原图像。 ⑤系统能够自动检查到用户拼合出了原图像并提示用户。 2.关键问题的解决 ①使用LoadPicture加载图片，并设置PictureBox的AutoSize属性，使窗体大小可以根据图片大小可调。 ②利用循环和Line方法绘制分割线，切片数量由InputBox输入。 ③用PaintPicture方法来从整体图像上获取切片上的图像，并使用随机函数打乱图片顺序。 ④切片的拖动利用鼠标的Mouse_Down,Mouse_Move,Mouse_Up, 拖动时互换二个切片实质上就是两个PictureBox互换位置 ⑤当所有的数组下标和该下标元素存储的PictureBox数组index相同时，即可认为用户成功的拼合了原图。 二、模块之间的调用关系，或程序流程图 三、部分程序关键源代码及注释 分解图片并按照顺序放入网格 ReDim who(0 To n ^ 2) pt = 0 For i = 1 To n pl = 0 For j = 1 To n k = (i - 1) * n + j Pic2(k).Visible = True Pic2(k).Top = pt Pic2(k).Left = pl Pic2(k).Width = SplitImagewidth Pic2(k).Height = SplitImageheight Pic2(k).PaintPicture Pic1.Picture, 0, 0, SplitImagewidth, SplitImageheight, pl, pt, SplitImagewidth, SplitImageheight Pic2(k).Line (0, 0)-(SplitImagewidth, SplitImageheight), t, B Pic2(k).ZOrder pl = pl + SplitImagewidth Next j pt = pt + SplitImageheight Next i 打乱图片顺序 ReDim who(1 To n ^ 2) Dim i As Integer Dim temp As Integer For i = 1 To n ^ 2 who(i) = i Next i For i = 1 To n ^ 2 * 2 随机选择两个网格 j = Int(Rnd() * n ^ 2 + 1) k = Int(Rnd() * n ^ 2 + 1) 更换网格中图片 t = Pic2(who(j)).Top l = Pic2(who(j)).Left Pic2(who(j)).Top = Pic2(who(k)).Top Pic2(who(j)).Left = Pic2(who(k)).Left Pic2(who(k)).Top = t Pic2(who(k)).Left = l 更新图片所在位置 temp = who(j) who(j) = who(k) who(k) = temp Next i 找到某个位置所在的索引 Private Function findareaindex(X As Single, Y As Single, n, SplitImagewidth, SplitImageheight) As Integer For i = 1 To n For j = 1 To n k = (i - 1) * n + j leftx = (j - 1) * SplitImagewidth lefty = (i - 1) * SplitImageheight If X leftx And Y lefty And X leftx + SplitImagewidth And Y lefty +