vb课程设计报告模板

1、课程设计报告（VB） 编号： 拼图游戏设计报告学院 机械 班级 机设054 学号 050377 姓名 李赔龙 成绩 一、设计思路 1.目的培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的图像控件进行界面设计，用VB的鼠标事件进行控件的拖拽处理以及利用数组进行数据处理的能力。2.基本要求打开任意一个图片，按照可以设定的切片数进行分割，打乱排序，然后可以利用鼠标拖动切片到不同位置进行互换，直到拼合出原来图像，具体要求如下： 可以打开Jpg,bmp,gif等任意格式图片，并且窗体大小可以根据图片大小可调。 根据切片数量绘制出分割线，切片数量用户可以定制。 游戏开始之后，可以分割图片并且打

2、乱顺序 用户可以拖动各个分片进行重新组合，直到拼合出原图像。 系统能够自动检查到用户拼合出了原图像并提示用户。2.关键问题的解决 利用pictureclip控件进行图片的加载，利用image控件进行分割后图片的存储。件分割后图片存入动态数组中，以便进行图片的分割。当拼图成功后进行提示。二、模块之间的调用关系，或程序流程图调用调用调用调用调用Gamestart模块Singleplayer模块doubleplayers模块Singlehelp模块doublehelp模块三、部分程序关键源代码及注释 Private Sub Command1_Click()Timer1.Enabled = False

3、 Dim OpenFile As OPENFILENAME Dim rtn As String OpenFile.lStructSize = Len(OpenFile) OpenFile.hwndOwner = Me.hWnd OpenFile.hInstance = App.hInstance sFilter = 所有支持文件 (*.Jpg;*.Bmp) & Chr(0) & *.Jpg;*.Bmp & Chr(0) & Chr(13) & _ Jpg图像 (*.Jpg) & Chr(0) & *.Jpg & Chr(0) & Chr(13) & _ Bmp位图 (*.Bmp) & Chr(

4、0) & *.Bmp & Chr(0) OpenFile.lpstrFilter = sFilter OpenFile.nFilterIndex = 1 OpenFile.lpstrFile = String(257, 0) OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1 OpenFile.lpstrFileTitle = OpenFile.lpstrFile OpenFile.nMaxFileTitle = OpenFile.nMaxFile OpenFile.lpstrInitialDir = App.Path + view OpenFile

5、.lpstrTitle = 选择展示文件 OpenFile.flags = 0rtn = GetOpenFileName(OpenFile)Private Sub timer1_timer() If Command4.Enabled = False Thens = s + 1If s 59 Thenm = m + 1s = 0If m 59 Thenh = h + 1m = 0End IfEnd IfText3.Text = Format(h, 00) & : & Format(m, 00) & : & Format(s, 00) End Ift = Text4.TextIf t = s +

6、60 * m + 3600 * h ThenTimer1.Enabled = FalseMsgBox (时间到)End IfEnd SubPrivate Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)Shape3.Visible = False Picture2.Picture = PictureClip1.GraphicCell(AllSort(PicNum2) Image2.Picture = PictureClip1.GraphicCell(AllSort(PicNum)Picture1.PaintPi

7、cture Image2.Picture, LeftNull + Int(PicNum2) Mod PictureClip1.Cols) * ChangeW, TopNull + Int(PicNum2) / PictureClip1.Cols) * ChangeH, ChangeW, ChangeHPicture1.PaintPicture Picture2.Picture, LeftNull + Int(PicNum) Mod PictureClip1.Cols) * ChangeW, TopNull + Int(PicNum) / PictureClip1.Cols) * ChangeH

8、, ChangeW, ChangeHPicture1.Line (Shape3.Left, Shape3.Top)-(Shape3.Left + Shape3.Width, Shape3.Top + Shape3.Height), f, BPicture1.Line (Shape3.Left, Shape3.Top)-(Shape3.Left + Shape3.Width, Shape3.Top + Shape3.Height), f, BPicture1.Line (LeftNull + Int(PicNum) Mod PictureClip1.Cols) * ChangeW, TopNul

9、l + Int(PicNum) / PictureClip1.Cols) * ChangeH)-(LeftNull + Int(PicNum) Mod PictureClip1.Cols) * ChangeW + ChangeW, TopNull + Int(PicNum) / PictureClip1.Cols) * ChangeH + ChangeH), f, BImage2.Picture = LoadPicture()Dim TempInt As IntegerTempInt = AllSort(PicNum)AllSort(PicNum) = AllSort(PicNum2)AllS

10、ort(PicNum2) = TempIntIf AllSort(PicNum) = PicNum Then If AllSortbo(PicNum) = False Then EndNum = EndNum - 1AllSortbo(PicNum) = TrueElse If AllSortbo(PicNum) = True Then EndNum = EndNum + 1AllSortbo(PicNum) = FalseEnd IfIf AllSort(PicNum2) = PicNum2 Then If AllSortbo(PicNum2) = False Then EndNum = E

11、ndNum - 1AllSortbo(PicNum2) = TrueElse If AllSortbo(PicNum2) = True Then EndNum = EndNum + 1AllSortbo(PicNum2) = FalseEnd IfIf EndNum = 0 ThenShape2.Visible = FalseMsgBox 恭喜您！您成功了！End IfDim IsOver As BooleanIsOver = TrueFor i = 0 To AllNum - 1If AllSortbo(i) = False ThenIsOver = FalseExit ForEnd IfNextIf IsOver Then MsgBox 成功End Sub 四、设计方案的完善及目前存在的问题1设计方案要完善的地方 加入自动提示，使得分割后的图片放到正确位置时自动提示。2. 目前存在的问题 不能限定人为的次数时的游戏进行到所制定次数是自动停止。五、本次设计的收获及心得体会 通过设计使自己更加了解vb编