VB课程设计报告

发布 2022-10-02 06:56:28 阅读 4489

拼图游戏设计报告。

学院机械班级机设054 学号 050377 姓名李赔龙成绩

一、设计思路。

1.目的。培养学生综合利用vb语言进行程序设计的能力,主要是利用vb的图像控件进行界面设计,用vb的鼠标事件进行控件的拖拽处理以及利用数组进行数据处理的能力。

2.基本要求。

打开任意一个**,按照可以设定的切片数进行分割,打乱排序,然后可以利用鼠标拖动切片到不同位置进行互换,直到拼合出原来图像,具体要求如下:

可以打开jpg,bmp,gif等任意格式**,并且窗体大小可以根据**大小可调。

根据切片数量绘制出分割线,切片数量用户可以定制。

游戏开始之后,可以分割**并且打乱顺序。

用户可以拖动各个分片进行重新组合,直到拼合出原图像。

系统能够自动检查到用户拼合出了原图像并提示用户。

2.关键问题的解决。

利用pictureclip控件进行**的加载,利用image控件进行分割后**的存储。件分割后**存入动态数组中,以便进行**的分割。当拼图成功后进行提示。

二、模块之间的调用关系,或程序流程图。

三、部分程序关键源**及注释。

private sub command1_click()

= false

dim openfile as openfilename

dim rtn as string

= len(openfile)

sfilter = 所有支持文件 (*jpg;*.bmp)" chr(0) &jpg;*.bmp" &chr(0) &chr(13) &

jpg图像 (*jpg)" chr(0) &jpg" &chr(0) &chr(13) &

bmp位图 (*bmp)" chr(0) &bmp" &chr(0)

= sfilter

= string(257, 0)

= len( -1

= +view\"

= "选择展示文件"

rtn = getopenfilename(openfile)

private sub timer1_timer()

if = false then

s = s + 1

if s > 59 then

m = m + 1

s = 0if m > 59 then

h = h + 1

m = 0end if

end if

= format(h, "00format(m, "00format(s, "00")

end if

t = if t = s + 60 * m + 3600 * h then

= false

msgbox ("时间到")

end if

end sub

private sub picture1_dragdrop(source as control, x as single, y as single)

= false

leftnull + int((picnum2) mod * changew, topnull + int((picnum2) /changeh, changew, changeh

leftnull + int((picnum) mod * changew, topnull + int((picnum) /changeh, changew, changeh

( +f, b

( +f, b

(leftnull + int((picnum) mod * changew, topnull + int((picnum) /changeh)-(leftnull + int((picnum) mod * changew + changew, topnull + int((picnum) /changeh + changeh), f, b

= loadpicture(""

dim tempint as integer

tempint = allsort(picnum)

allsort(picnum) =allsort(picnum2)

allsort(picnum2) =tempint

if allsort(picnum) =picnum then

if allsortbo(picnum) =false then endnum = endnum - 1

allsortbo(picnum) =true

elseif allsortbo(picnum) =true then endnum = endnum + 1

allsortbo(picnum) =false

end if

if allsort(picnum2) =picnum2 then

if allsortbo(picnum2) =false then endnum = endnum - 1

allsortbo(picnum2) =true

elseif allsortbo(picnum2) =true then endnum = endnum + 1

allsortbo(picnum2) =false

end if

if endnum = 0 then

= false

msgbox "恭喜您!您成功了!"

end if

dim isover as boolean

isover = true

for i = 0 to allnum - 1

if allsortbo(i) =false then

isover = false

exit for

end if

nextif isover then msgbox "成功"

end sub

四、设计方案的完善及目前存在的问题。

1.设计方案要完善的地方。

加入自动提示,使得分割后的**放到正确位置时自动提示。

2. 目前存在的问题。

不能限定人为的次数时的游戏进行到所制定次数是自动停止。

五、本次设计的收获及心得体会。

通过设计使自己更加了解vb编程的重要性,了解到vb的设计思路。为以后的计算机学习打下更结实的基础。

六、对该题目和vb设计的意见和建议。

1. 对该题目的意见和建议。

希望该题目能够加上电脑的自动演示功能,即让电脑对打乱后的切片进行自动排序,拼成原来的**。

2.对本次设计的意见和建议。

本次设计总体上达到基本要求,但有待进一步改进,例如可以同时分割两幅**,使得电脑能够识别到两幅**是否同时拼图成功。

VB课程设计报告

课程设计题目个人收支管理。难度 姓名 刘泽禄。学号 913103860633 随着社会生活步调的不断加快,人们越来越繁忙。也因此各项收入和支出名目繁多,如果不善于管理常会出现入不敷出,工资感觉没怎么用到月底就已经全光了。所以对自己在日常生活中的收入和支出进行记录和管理是十分必要的。这也正是设计这个程...

vb课程设计报告

vb程序设计。设计题目 键盘打字练习。学院 经济管理学院 班级 学号 营销1301 2013011694 指导教师 崇美英。学生姓名 闫鑫。起止日期 14 02 24 14 02 28 成绩。目录 登陆界面。1.1课程设计题目3 1.2小组成员3 1.3系统分析及界面设计3 2.1系统主要功能及流程...

VB课程设计报告

表目录。图目录。企业单位人事档案管理工作是一种繁琐的,务求准确迅速的信息检索工作。随着计算机信息技术的飞速发展,人类进入信息时代,社会的竞争越来越激烈,企业人事管理就越显示出其不可或缺性,成为企业一个非常重要的模块。企业人事管理系统主要是用于对所有员工的基本资料进行录入 职务变更和管理。使用人事管理...