典型算法的动画演示.doc

沈 阳 航 空 航 天 大 学 课程设计 学 号2011040602026 班 级2013年 6 月 23日沈阳航空航天大学 课程设计任务书 学院：机电工程 专业：工业工程 班级学号：2011040602026题目：典型算法的动画演示 一、课程设计时间 2013年6月10日~21日（第16~17周），共计2周，40学时。 二、课程设计内容 对VB的典型算法进行动画演示，具体要求如下： 1.用学生由高到低站队列的实例对“一组有序数中插入一个数后仍然有序”的算法进行动画演示，学生图片自行查找和设计，表现要生动； 2.对用户输入的6个整数编写冒泡法从小到大排序、元素变换的动画演示程序（可以采用控件数组，准备换值的2个元素可以使用显眼颜色、闪烁效果来达到突出显示的目的）。 三、课程设计要求 程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。 课程设计说明书： 课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。 四、指导教师和学生签字 指导教师：________ 学生签名：________ 五、成绩 六、教师评语 目 录 需求分析 4 设计分析 4 技术要点 5 主要界面截图 7 总结 7 完整的源程序 8 参考文献 12 需求分析 图示冒泡法能够清晰呈现计算机中对于排列大小数组过程，因而可以推及至其它的计算方法的演示。为初学各种语言的人士能够更好的接受和掌握冒泡法及其他方法的掌握。 设计分析 概述： 基本原理：运用time控件对冒泡法的运算分步体现于窗体上。 （2）总体设计： 图1 总体设计 （3）详细设计： 图2 详细设计 技术要点 1.对于4个Time控件的控制运行的设置 通过各个command的触发来实现其是否计时。以“开始”为例 Private Sub Command1_Click() Timer1.Enabled = True Timer2.Enabled = False Timer3.Enabled = False Timer4.Enabled = True Command2.Enabled = True Command1.Enabled = False Command4.Enabled = False End Sub 2 .通过时间循环来实现个数字间比较和互换。 以第一次比较为例。 Private Sub Timer1_Timer() Static a As Integer If a = 5 Then a = 0 End If Picture1(a).BackColor = HC0 Picture1(a + 1).BackColor = HFF00 If Picture1(a).Height Picture1(a + 1).Height Then Picture1(a).BorderStyle = 1: Picture1(a + 1).BorderStyle = 1 End If a = a + 1 Timer2.Enabled = True Timer1.Enabled = False End Sub 以最后运行最后一次顺序一致使停止。 （1） Private Sub Timer4_Timer() Dim k As Integer, l As Integer For k = 0 To 4 If Picture1(k).Height Picture1(k + 1).Height Then l = l + 1 End If Next k If l = 5 Then Timer1.Enabled = False Timer2.Enabled = False Timer3.Enabled = False Timer4.Enabled = False Command1.Enabled = True Command2.Enabled = False MsgBox 演示结束 End If End Sub （2） Private Sub Timer4_Timer() Dim k As Integer, l As Integer For k = 0 To 4 If Val(Label1(k).Caption) Val(Label1(k + 1).Caption) Then l = l + 1 End If Next k If l = 5 Then Timer1.Enabled = False Timer2.Enabled = False Timer3.Enabled = False Timer4.Enabled