- 1、本文档共11页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
沈 阳 航 空 航 天 大 学
课程设计
学 号 _ _
班 级 _ _____
姓 名 _____
指导教师 _ ____
2011年 3 月 12 日沈阳航空航天大学
课程设计任务书
学院:机电工程学院 专业:机械设计制造及其自动化 班级:
学号: 题目:“冒泡法”排序的动漫演示
一、课程设计时间
2012年3月5~9日(第一周),共计一周,20学时。
二、课程设计内容
用控件数组技术实现动画,演示用冒泡法对数组(18,12,16,10,11,19)由小到大排序,元素变换的完整过程。
要求:准备换值的2个元素,使用明显颜色,闪烁效果。
三、课程设计要求
程序质量:
贯彻事件驱动的程序设计思想。
用户界面友好,功能明确,操作方便;可以增加其它功能或修饰。
代码应适当缩进,并给出必要的注释,以增强程序的可读性。
课程设计说明书:
课程结束后,上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师: ______ 学生签名:_____
五、成绩
六、教师评语
目 录
需求分析 4
设计分析 4
技术要点 5
主要界面截图 6
总结 7
完整的源程序 8
参考文献 12
一.需求分析
题目要求用“冒泡法”对一组数据进行由小到大排序,并且动画演示排序过程中元素变换的过程。也就是表示,比较相邻两个数大小和交换过程要可见,并用明显的颜色来区分正在比较的两个数字。
颜色的变换、数字的交换实现了动画的效果.
二.设计分析
1·基本原理:“冒泡法”排序——使用TextBox,Timer控件。分别用来进行数组的输入和控制程序的运行。
2·总体设计思想:
(1)从第一个元素开始,对数组中两辆相邻的元素比较,Text (0)与Text (1)比较,若为逆序,则Text (0)与Text (1)交换;然后Text (1) 与Text (2)比较,···,直到最后Text (N-1) 与Text (N)比较,这时一轮比较完毕,一个最大的数“沉底 ”,成为数组中的最后一个元素Text (N),一些较小的数如同气泡一样“上浮”一个位置。
(2)然后对Text (0) 与Text (N-1)的N个数进行同(1)的操作,次最大的数放入Text (N-1)元素内,完成第二轮排序;一次类推,进行N轮排序后,所有的数均有序。排序结束。
三.技术要点
1.用Timer的interval属性的运用控制程序的运行。
2.多个Timer控件的共同运用
3. 按冒泡法的排序规则大数沉底小数上浮,大的数不断后移,达到数字由小到大排列;
4. 用蓝色和红色两个明显颜色区分相邻的两个数,比较的两个数凹凸变换达到动画的效果。
5. 当数字大小顺序排列结束后弹出对话框提示您程序运行结束。
四.主要界面截图
图1 冒泡法排序主界面
五.总结
这次课设我的题目是用冒泡法排序一组数据,通过这次课设我了解了Timer控件的用法,用Timer控件来控制程序的运行次数,用第三变量来进行大小数的交换,最后还用到Msgbox弹出对话框来提示排序结束。 在课设过程中,我遇到了很多问题,例如:多个Timer空间的配合使用,如何设定时间间隔来控制程序运行速度等等。通过老师的指点,自己查阅资料,与同学之间交流讨论,不断试运行程序,我解决了困难,顺利的完成了这次课设。
同时我也知道了 VB程序的博大精深,它在生活中各个方面都能发挥巨大的作用,所以,学好VB对我们以后的社会生活会有很多的帮助。总而言之,这次VB课程设计让我受益匪浅,学习到很多以前弄不懂的知识,与此同时,老师的谆谆教导,同学朋友的热心帮助,自己不断的努力,使我在这段时间感触颇深。
这次的课设作业叫我懂得了很多,以后希望有更多的机会,来多多实践自己。
六.完整的源程序
Private Sub Command1_Click()
Text1(0) = 18: Text1(1) = 12: Text1(2) = 16: Text1(3) = 10: Text1(4) = 11: Text1(5) = 19
For i = 0 To 5
Text1(i).BackColor = QBColor(13)
Next i
End Sub
Private Sub Command2_Click()
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
文档评论(0)