VB课程设计.doc

沈 阳 航 空 航 天 大 学 课程设计学 号2009040601161班 级 94060105 姓 名 白云 指导教师 徐晗 2011年 3 月 18日沈阳航空航天大学设计用纸沈阳航空航天大学课程设计任务书学院：机电工程学院 专业：机械制造 班级：94060105学号：2009040601161 题目：“冒泡法”排序的动画演示一、课程设计时间200708第2学期第2周，共计1周，40学时。二、课程设计内容用控件数组技术实现动画演示，用冒泡法对一组数据（例如：18,12,16,10,11,19,13,19）由小到大排序，演示排序过程中元素变换的完整过程。要求：排序过程中欲交换值的2个元素，使用明显颜色、闪烁效果。三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。 用户界面中的菜单至少应包括“进书”、“售书”、“计算利润”、“书库现状”、“出售现状”、“退出”6项。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩六、教师评语目 录需求分析4设计分析4技术要点5主要界面截图7总结7完整的源程序8参考文献12需求分析 图示冒泡法能够清晰呈现计算机中对于排列大小数组过程，因而可以推及至其它的计算方法的演示。为初学各种语言的人士能够更好的接受和掌握冒泡法及其他方法的掌握。设计分析（1） 概述：基本原理：运用time控件对冒泡法的运算分步体现于窗体上。（2）总体设计：显示在窗体上根据time进行运算通过Time控件控制时间图1 总体设计（3）详细设计：开始设置Time起点冒泡法运算循环计时显示于窗体上与冒泡法数据对应图2 详细设计技术要点1.对于4个Time控件的控制运行的设置 通过各个command的触发来实现其是否计时。以“开始”为例Private Sub Command1_Click()Timer1.Enabled = TrueTimer2.Enabled = FalseTimer3.Enabled = FalseTimer4.Enabled = TrueCommand2.Enabled = TrueCommand1.Enabled = FalseCommand4.Enabled = FalseEnd Sub2 .通过时间循环来实现个数字间比较和互换。 以第一次比较为例。Private Sub Timer1_Timer()Static a As IntegerIf a = 7 Thena = 0End IfLabel1(a).BackColor = &HFF00FFLabel1(a + 1).BackColor = &H80C0FFIf Label1(a).Caption Label1(a + 1).Caption ThenLabel1(a).BorderStyle = 1: Label1(a + 1).BorderStyle = 1End Ifa = a + 1Timer2.Enabled = TrueTimer1.Enabled = FalseEnd Sub3.以最后运行最后一次顺序一致使停止。Private Sub Timer4_Timer()Dim k As Integer, l As IntegerFor k = 0 To 6If Label1(k).Caption Label1(a + 1).Caption ThenLabel1(a).BorderStyle = 1: Label1(a + 1).BorderStyle = 1End Ifa = a + 1Timer2.Enabled = TrueTimer1.Enabled = FalseEnd SubPrivate Sub Timer2_Timer()Static i As Integer, j As IntegerIf i = 7 Theni = 0End IfIf Val(Label1(i).Caption) Val(Label1(i + 1).Caption) Then j = Label1(i).Caption: Label1(i).Caption = Label1(i + 1): Label1(i + 1) = j Label1(i).BackColor = &H80FF&Label1(i + 1).BackColor = &H80FF&End Ifi = i + 1Timer3.Enabled = TrueTimer2.Enabled = False End SubPrivate Sub Timer3_Timer()Static c As IntegerIf c = 7 Thenc = 0End IfIf Label1(c).Caption Label1(c + 1).Caption ThenLabel1(c).BorderStyle = 0: Label1(c + 1).BorderStyle = 0 Label1(c).BackColor = &H8000000FLabel1(c + 1).BackColor = &H8000000FEnd Ifc = c + 1Timer1.Enabled = TrueTimer3.Enabled = FalseEnd SubPrivate Sub Timer4_Timer()Dim k As Integer, l As IntegerFor k = 0 To 6If Label1(k).Caption Label1(k + 1).Caption Then l = l + 1End IfNext kIf l = 6 ThenTimer1.Enabled = FalseTimer2.Enabled = FalseTimer3.Enabled = FalseTimer4.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled = FalseMsgBox 冒泡法演示结束End If