VB课程设计.docx

VB课程设计.docx

《VB课程设计.docx》由会员分享，可在线阅读，更多相关《VB课程设计.docx（12页珍藏版）》请在冰豆网上搜索。

VB课程设计

沈阳航空航天大学

课程设计

学号2011040602026

班级14060201

姓名杨壮

教师王晓岩

2013年6月23日

沈阳航空航天大学

课程设计任务书

学院：

机电工程专业：

工业工程班级：

14060201

学号：

2011040602026题目：

典型算法的动画演示

一、课程设计时间

2013年6月10日~21日（第16~17周），共计2周，40学时。

二、课程设计内容

对VB的典型算法进行动画演示，具体要求如下：

1.用学生由高到低站队列的实例对“一组有序数中插入一个数后仍然有序”的算法进行动画演示，学生图片自行查找和设计，表现要生动；

2.对用户输入的6个整数编写冒泡法从小到大排序、元素变换的动画演示程序（可以采用控件数组，准备换值的2个元素可以使用显眼颜色、闪烁效果来达到突出显示的目的）。

三、课程设计要求

程序质量：

✧贯彻事件驱动的程序设计思想。

✧用户界面友好，功能明确，操作方便。

✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。

课程设计说明书：

✧课程结束后，上交课程设计说明书和源程序。

课程设计说明书的内容参见提供的模板。

四、指导教师和学生签字

指导教师：

________学生签名：

________

五、成绩

六、教师评语

目录

需求分析4

设计分析4

技术要点5

主要界面截图7

总结7

完整的源程序8

参考文献12

需求分析

图示冒泡法能够清晰呈现计算机中对于排列大小数组过程，因而可以推及至其它的计算方法的演示。

为初学各种语言的人士能够更好的接受和掌握冒泡法及其他方法的掌握。

设计分析

（1）概述：

基本原理：

运用time控件对冒泡法的运算分步体现于窗体上。

（2）总体设计：

图1总体设计

（3）详细设计：

图2详细设计

技术要点

1.对于4个Time控件的控制运行的设置

通过各个command的触发来实现其是否计时。

以“开始”为例

PrivateSubCommand1_Click（）

Timer1.Enabled=True

Timer2.Enabled=False

Timer3.Enabled=False

Timer4.Enabled=True

Command2.Enabled=True

Command1.Enabled=False

Command4.Enabled=False

EndSub

2.通过时间循环来实现个数字间比较和互换。

以第一次比较为例。

PrivateSubTimer1_Timer（）

StaticaAsInteger

Ifa=5Then

a=0

EndIf

Picture1（a）.BackColor=&HC0&

Picture1（a+1）.BackColor=&HFF00&

IfPicture1（a）.Height>Picture1（a+1）.HeightThen

Picture1（a）.BorderStyle=1:

Picture1（a+1）.BorderStyle=1

EndIf

a=a+1

Timer2.Enabled=True

Timer1.Enabled=False

EndSub

3.以最后运行最后一次顺序一致使停止。

（1）

PrivateSubTimer4_Timer（）

DimkAsInteger,lAsInteger

Fork=0To4

IfPicture1（k）.Height

l=l+1

EndIf

Nextk

Ifl=5Then

Timer1.Enabled=False

Timer2.Enabled=False

Timer3.Enabled=False

Timer4.Enabled=False

Command1.Enabled=True

Command2.Enabled=False

MsgBox"演示结束"

EndIf

EndSub

（2）

PrivateSubTimer4_Timer（）

DimkAsInteger,lAsInteger

Fork=0To4

IfVal（Label1（k）.Caption）

l=l+1

EndIf

Nextk

Ifl=5Then

Timer1.Enabled=False

Timer2.Enabled=False

Timer3.Enabled=False

Timer4.Enabled=False

Command1.Enabled=True

Command2.Enabled=False

MsgBox"冒泡法演示结束"

Text1（0）.Text=""

Text1

（1）.Text=""

Text1

（2）.Text=""

Text1（3）.Text=""

Text1（4）.Text=""

Text1（5）.Text=""

EndIf

EndSub

主要界面截图

动画演示界面，为主要要界面。

总结

通过这次的为期一周的课程设计，对于VB的编程的知识有了更多了解。

尤其是对冒泡法和时间控件的掌握和灵活运用。

在课设过程中，我遇到了重重困难，例如：

VB的各种控件的使用。

通过同学的指点和自己查阅资料，我克服了困难，顺利的完成了任务。

完整的源程序

（1）

PrivateSubForm_Load（）

Timer1.Enabled=False

Timer2.Enabled=False

Timer3.Enabled=False

Timer4.Enabled=False

Command1.Enabled=True

Command2.Enabled=True

EndSub

PrivateSubCommand1_Click（）

Timer1.Enabled=True

Timer2.Enabled=False

Timer3.Enabled=False

Timer4.Enabled=True

Command2.Enabled=True

Command1.Enabled=True

EndSub

PrivateSubCommand2_Click（）

End

EndSub

PrivateSubTimer1_Timer（）

StaticaAsInteger

Ifa=5Then

a=0

EndIf

Picture1（a）.BackColor=&HC0&

Picture1（a+1）.BackColor=&HFF00&

IfPicture1（a）.Height>Picture1（a+1）.HeightThen

Picture1（a）.BorderStyle=1:

Picture1（a+1）.BorderStyle=1

EndIf

a=a+1

Timer2.Enabled=True

Timer1.Enabled=False

EndSub

PrivateSubTimer2_Timer（）

StaticiAsInteger,jAsInteger

Ifi=5Then

i=0

EndIf

IfPicture1（i）.Height>Picture1（i+1）.HeightThen

Picture2=Picture1（i）:

Picture1（i）=Picture1（i+1）:

Picture1（i+1）=Picture2

Picture1（i）.BackColor=&H8000000F

Picture1（i+1）.BackColor=&H8000000F

EndIf

i=i+1

Timer3.Enabled=True

Timer2.Enabled=False

EndSub

PrivateSubTimer3_Timer（）

StaticcAsInteger

Ifc=5Then

c=0

EndIf

IfPicture1（c）.Height

Picture1（c）.BorderStyle=0:

Picture1（c+1）.BorderStyle=0

Picture1（c）.BackColor=&H8000000F

Picture1（c+1）.BackColor=&H8000000F

EndIf

c=c+1

Timer1.Enabled=True

Timer3.Enabled=False

EndSub

PrivateSubTimer4_Timer（）

DimkAsInteger,lAsInteger

Fork=0To4

IfPicture1（k）.Height

l=l+1

EndIf

Nextk

Ifl=5Then

Timer1.Enabled=False

Timer2.Enabled=False

Timer3.Enabled=False

Timer4.Enabled=False

Command1.Enabled=True

Command2.Enabled=False

MsgBox"演示结束"

EndIf

EndSub

（2）

PrivateSubForm_Load（）

Timer1.Enabled=False

Timer2.Enabled=False

Timer3.Enabled=False

Timer4.Enabled=False

Command1.Enabled=True

Command2.Enabled=False

EndSub

PrivateSubCommand1_Click（）

Label1（0）.Caption=Text1（0）.Text

Label1

（1）.Caption=Text1

（1）.Text

Label1

（2）.Caption=Text1

（2）.Text

Label1（3）.Caption=Text1（3）.Text

Label1（4）.Caption=Text1（4）.Text

Label1（5）.Caption=Text1（5）.Text

Timer1.Enabled=True

Timer2.Enabled=False

Timer3.Enabled=False

Timer4.Enabled=True

Command2.Enabled=True

Command1.Enabled=False

EndSub

PrivateSubCommand2_Click（）

End

EndSub

PrivateSubTimer1_Timer（）

StaticaAsInteger

Ifa=5Then

a=0

EndIf

Label1（a）.BackColor=&HC0&

Label1（a+1）.BackColor=&HFF00&

IfVal（Label1（a）.Caption）>Val（Label1（a+1）.Caption）Then

Label1（a）.BorderStyle=1:

Label1（a+1）.BorderStyle=1

EndIf

a=a+1

Timer2.Enabled=True

Timer1.Enabled=False

EndSub

PrivateSubTimer2_Timer（）

StaticiAsInteger,jAsInteger

Ifi=5Then

i=0

EndIf

IfVal（Label1（i）.Caption）>Val（Label1（i+1）.Caption）Then

j=Val（Label1（i）.Caption）:

Label1（i）.Caption=Label1（i+1）:

Label1（i+1）=j

Label1（i）.BackColor=&H8000000F

Label1（i+1）.BackColor=&H8000000F

EndIf

i=i+1

Timer3.Enabled=True

Timer2.Enabled=False

EndSub

PrivateSubTimer3_Timer（）

StaticcAsInteger

Ifc=5Then

c=0

EndIf

IfVal（Label1（c）.Caption）

Label1（c）.BorderStyle=0:

Label1（c+1）.BorderStyle=0

Label1（c）.BackColor=&H8000000F

Label1（c+1）.BackColor=&H8000000F

EndIf

c=c+1

Timer1.Enabled=True

Timer3.Enabled=False

EndSub

PrivateSubTimer4_Timer（）

DimkAsInteger,lAsInteger

Fork=0To4

IfVal（Label1（k）.Caption）

l=l+1

EndIf

Nextk

Ifl=5Then

Timer1.Enabled=False

Timer2.Enabled=False

Timer3.Enabled=False

Timer4.Enabled=False

Command1.Enabled=True

Command2.Enabled=False

MsgBox"冒泡法演示结束"

Text1（0）.Text=""

Text1

（1）.Text=""

Text1

（2）.Text=""

Text1（3）.Text=""

Text1（4）.Text=""

Text1（5）.Text=""

EndIf

EndSub

参考文献

[1]刘瑞新．《VisualBasic程序设计教程》．北京：

机械工业出版社，2003

[2]龚沛曾．《VisualBasic程序设计教程》．北京：

高等教育出版社，2009

[3]李霞．《VisualBasic应用程序开发指南》．北京：

人民邮电出版社，1997