VB趣味程序设计--时钟控件篇
第3课秒表
教学目标
1.认识时钟控件，掌握重要的几个属性。
2.能进行Timer1_Timer事件处理过程的编写。
3.掌握几个常用的时间函数。
教学重难点
Timer1_Timer事件处理过程的编写，函数的运用
教学过程：
一、认识时钟控件
VB时钟控件（Timer）又称计时器、定时器控件，用于按指定的
时间间隔周期性地自动触发事件。它是VB的20个标准控件之一，也
是VB中一个非常重要的常用控件。
它主要有两个功能：一是用于定时完成某项任务，即每隔一段固
定的时间就执行一次相同的任务。另一个是进行某种后台处理。时钟
控件只有一个事件，就是Timer定时器事件。通过触发Timer事件，时
钟控件可以有规律地隔一段时间执行一次代码。时钟控件的常用属性
有两个：Enabled用于设置Timer控件是否响应Timer定时器事件，相
当于启动或关闭定时器的开关；Interval用于返回或设置对Timer控件
的定时器事件调用周期的时间间隔。时钟控件在设计时出现在窗体中，
而在程序运行阶段是不可见的，所以它的位置无关紧要。
时钟控件的应用很多，如与标签控件配合显示系统时钟、显示闪烁文字，与图形控件配合显示动画效果，与绘图方法配合绘制图形，利用系统时钟进行计数、计时、倒计时等等。
函数名作用
Now 返回当前计算机的系统日期和时间
Time 返回当前系统时间(h:m:s)
Hour(Time)、Minute(Time)、Second(Time)分别返回小时、分钟、秒
Date 返回当前系统日期（年月日）
Year(Date)、Month(Date)、Day(Date)分别返回年、月、日
Timer 返回时经子夜12:00 AM 后的秒数。html特效代码天气时钟
三、小试牛刀
任务1：熟悉几个重要的时间函数的运用。
1.界面搭建
一个标签Label，一个时钟控件Timer1。
其中Timer1的Enabled为True,Interval的值为1000。
2.代码编写
Private Sub Timer1_Timer()
Label1.caption=now ‘显示日期时间
End Sub
请大家实践其他函数，看看效果。
3.调试运行
四、拓展提高
任务2：设计一个秒表计时器
1、任务分析
单击开始后开始计时，同时出现暂停按钮，当单击暂停时计时暂停，显示为继续。单击继续可继续计时。当单击停止时计时结束，暂停按钮消失。
2、界面搭建
1个标签，2个按钮，1个时钟控件Timer2（Enabled:False Interval：100）
3、编写代码
窗体加载时执行的代码：
Private Sub Form_Load()
Command2.Visible = ‘按钮2不可见
Command1.Caption = "开始"
Command2.Caption = "暂停"
End Sub
按钮command1（开始与停止）的代码编写：
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Command1.Caption =
Timer2.Tag = ‘存储当前秒数
Timer2.Enabled =
Command2.Visible = True
Else
Command1.Caption = "开始"
End If
End Sub
按钮command2（暂停与继续）的代码编写：
Private Sub Command2_Click()
If Command2.Caption = "暂停" Then
Command2.Caption = "继续"
Else
Command2.Caption = "暂停"
End If
End Sub
时钟Timer2的timer事件代码编写：
Private Sub Timer2_Timer()
m = ‘计算过去的时间
n0 = (m * 100) Mod 100 ‘保留2位，如3.9453221秒保留位3.94 m = Int(m)
n1 = Format(m Mod 60, "00.") ‘秒
n2 = Format((m \ 60) Mod 60, "00:") ‘分
n3 = Format(m \ 3600, "00:") ‘小时
Label2.Caption = n3 & n2 & n1 & n0
End Sub
4、调试
调试成功后，保存文件，并生成学号-3.exe 如
五、学有余力的同学可自己进行一些设计，倒计时等。
感谢您的阅读，祝您生活愉快。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。