多功能计时器

沈阳航空航天大学

课程设计任务书

学院：机电工程学院专业：机械设计班级：

学号：题目：多功能计时器

一、课程设计时间

2012年3月5日~9日（第1周），共计1周。

二、课程设计内容

利用VB编写小程序，模拟一个时钟计时器，要求该计时器可以实现多种计时方式，具体的功能概括如下：

1 要求具有时钟、秒表、倒计时钟三种计时方式，方式的选择可通过按钮，也可通过菜单等实现；

2 能够以电子表的格式显示日期及时间，时间会以时钟的真实方式运行计时；

3可以模拟秒表的运行，在该界面中可以有按钮控制秒表的计时及暂停；

4可以实现倒计时，通过设定窗口设定倒计时的初始值（如：1分钟），并随着点击确定，开始倒计时，时间到了给出相应提示。

三、课程设计要求

程序质量：

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

✧用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。

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

课程设计说明书：

✧课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提

供的模板。

四、指导教师和学生签字

指导教师：________ 学生签名：________

五、成绩

六、教师评语

目录

一、需求分析 (4)

二、设计分析 (4)

三、技术要点 (7)

四、总结 (8)

五、完整的源程序 (10)

六、参考文献 (12)

一、需求分析

多功能计时器具有时钟、秒钟、倒计时钟，三种功能。由于能够用电子表的格式显示，并且能够以真实的方式运行，所以可以通过按钮控制计时。要求：

1 要求时钟、秒表、倒计时钟三种计时方式的选择可通过按钮，也可通过菜单等实现；

2 能够以电子表的格式显示日期及时间，时间会以时钟的真实方式运行计时；

3可以模拟秒表的运行，在该界面中可以有按钮控制秒表的计时及暂停；

4可以实现倒计时，通过设定窗口设定倒计时的初始值（如：1分钟），并随着点击确定，开始倒计时，时间到了给出相应提示。

二、设计分析

（1）基本原理：建立程序设计来进行时间的显示，并运用函数的运算进行秒表的运行与倒计时的运行。

（2）总体设计：

图1 总体设计

（3）详细设计：

图2 详细设计

三、技术要点

（1）设计时钟程序

Private Sub Timer1_Timer()

Text1.Text = Now

End Sub

（2）设计秒表程序

Private Sub Command1_Click()

Timer2.Enabled = True

Command2.Caption = "停止"

Command3.Caption = "清除"

End Sub

Private Sub Command2_Click()

Timer2.Enabled = False

Command1.Caption = "继续"

Command3.Caption = "清除"

End Sub

Private Sub Command3_Click()

a = 0

Text2.Text = Format(Str(0) + ":" + Str(0) + ":" + Str(0))‘时间归零

Timer2.Enabled = False

Command1.Caption = "开始"

Command2.Caption = "停止"

End Sub

Private Sub Timer2_Timer()

Text2.Text = Format(Str(a \ 3600) + ":" + Str(a \ 60 - (a \ 3600) * 60) + ":"

+ Str(a - (a \ 60) * 60)) ‘时间计算

a = a + 1

End Sub

（3）设计倒计时钟程序

Private Sub Command7_Click()

If Option1 = True Then

s = Text4

End If

If Option2 = True Then

m = Text4

s = 60 * m ‘时间换算使字符统一

End If

If Option3 = True Then

h = Text4

s = 3600 * h ‘时间换算使字符统一

End If

End Sub

Private Sub Command4_Click()

Timer3.Enabled = True

Command5.Caption = "停止"

Command6.Caption = "清除"

End Sub

Private Sub Command5_Click()

Timer3.Enabled = False

Command4.Caption = "继续"

Command6.Caption = "清除"

End Sub

Private Sub Command6_Click()

s = 0

Text3.Text = Format(Str(0) + ":" + Str(0) + ":" + Str(0)) ‘时间归零

Timer3.Enabled = False

Command4.Caption = "开始"

Command5.Caption = "停止"

End Sub

Private Sub Timer3_Timer()

Text3.Text = Format(Str(s \ 3600) + ":" + Str(s \ 60 - (s \ 3600) * 60) + ":"

+ Str(s - (s \ 60) * 60) ‘时间的表达

s = s - 1

If Text3.Text = Format(Str(0) + ":" + Str(0) + ":" + Str(0)) Then

Text3.Text = "时间到！"

Timer3.Enabled = False

End If

If Text4 < 0 Then

Text3.Text = "错误！请重新输入！"

End If

End Sub

四、总结

这次课设我的题目是多功能计时器，通过这次课设让我了解