VB课程设拼拼看设计报告.doc

拼拼看设计报告学院 机械学院 班级 机设054 学号 050375 姓名 季文华 成绩 一、设计思路1.要达到的目的图1图2要求用Visual Basic对象的程序设计思想完成程序的设计。由对话框装入一图形文件到图像控件，将图片分割成9组再装入到图片控件数组各元素，见图1。单击Start按钮生成要拼的图形。如图2所示（图中隐藏图片的位置是随机产生的）。单击隐藏图片相邻的图片可以移动图片的位置，重复移动图片最终完成拼图。如果未能完成拼图操作，可以单击标题为show的按钮，恢复图片原状。程序界面美观，能够完成主要的功能。培养学生综合利用Visual Basic语言进行程序设计的能力，主要是培养学生利用系统提供的基本控件进行创新性设计，理解Visual Basic语言中面向对象的程序设计。2.关键问题的解决 把图片装入Image1控件。 保存图片控件数组元素的原始位置数据。 按照给定的分割系数分割图像，将分割得到的图像画入各图片控件数组元素。 随机产生一个图片控件数组元素索引号，将该元素隐藏，将其与其它元素充分交换位置，将图片原有位置打乱。 在拼图过程中，每交换一次图片位置，要判断一次拼图是否成功。二、模块之间的调用关系，或程序流程图调用调用调用调用开始模块Inmage控件数组模块时钟模块结果输出模块结果输出模块三、部分程序关键源代码及注释Private Sub Renew()Watch.Text = Time 00:00 计时重画For I = 0 To Nub 载入PIC数组控件的原始位置数据 PIC(I).Left = PL(I) PIC(I).Top = PT(I)Next PICG.Mov = 0 不能操作拼图If Nub = 15 Then 隐藏PIC控件看情况置可见与否与否 PIC(PHid).Visible = TrueElse If PHid 9 Then PIC(PHid).Visible = True End IfEnd IfImage1.Stretch = FalseImage1.Visible = FalseImage1.BorderStyle = 0 调整Image1的边框样式得到图像的原始大小PICG.ImH = Image1.Height 得到图像的大小尺寸PICG.ImW = Image1.WidthFor I = 0 To Nub PIC(I).Visible = True 置各PIC控件于可见NextEnd Sub四、设计方案的完善及目前存在的问题1设计方案要完善的地方没有使用Inputbox控件增加多种分割方法2. 目前存在的问题界面还不够漂亮五、本次设计的收获及心得体会在这次VB设计中学到了很多东西，但还有很多东西要学。对一些问题的解决还不够熟练。着要在以后的学习中慢慢练习。学无止境，不懂的东西还很多。六、对该题目和VB设计的意见和建议1. 对该题目的意见和建议增加一些控件的应用，对该题目还是相当又难度的，希望以后再吧题目做的更完善。2对本次设计的意见和建议本次设计