您现在的位置:首页 >> 网络教学 >> 常用控件 >> 内容

计时器

时间:2009-6-19 9:25:03 点击:3348

计时器

   VB6.0可以利用系统内部的计时器报时,而且提供了定值时间间隔的功能,用户可以自行设置每个计时器事件的间隔。
所谓时间间隔,指的是相邻计时器事件发生的时间间隔,它以毫秒(千分之一秒)为单位。在大多数个人计算机中,计时器每秒钟最多可以产生18个事件,即两个事件之间的间隔为56/1000秒。也就是说,时间间隔的准确度不会超过1/18秒。
一、属性
计时器控件可以使用Enabled属性和Interval属性。
计时器的Enabled属性默认为True,当属性值为True时,计时器被启动,当属性值为False时,计时器的运行将被挂起,等候属性改为True时才继续运行。

其重要的属性是Interval,该属性用来设置计时器时间之间的间隔,以毫秒为单位,取值范围为0~65535,因此其最大时间间隔不能超过65秒。60000毫秒为1分钟,如果把Interval设置为1000,则表明每秒发生一个计时器事件。如果希望每秒产生n个事件,则属性Interval的值为1000/n。
二、事件
计时器支持Timer事件。对于一个含有计时器控件的窗体,每经过一段由属性Interval指定的时间间隔,就产生一个Timer事件。计时器产生Timer事件的两个前提条件是Enabled属性为True,Interval属性为非0。
在VB6.0中,可以用Timer函数获取系统时钟的时间。Timer事件是VB6.0模拟实时计时器的事件,这是两个不同的时间系统。计时器只有一个Timer事件。
例7.3设计一个倒计时程序,界面设计如图7-6所示,控件属性设置如表7-5所示。

各控件事件过程如下:
Dim t As Integer
Sub Command1_Click()
    t = 60 * Val(Text1.Text)
    Timer1.Enabled = True
End Sub

Sub Timer1_Timer()
    Dim m, s As Integer
    t = t - 1
    m = Int(t / 60)
    s = t Mod 60
    Label1.Caption = m & "分" & s & "秒"
    If (t = 0) Then
    Timer1.Enabled = False
    MsgBox ("时间到!")
    End If
End Sub


程序运行后,效果如图7-7所示。


 

作者:Admin  
相关文章
  • 没有相关文章
本类推荐
  • 没有
本类固顶
  • 没有
  • VB程序设计学习网站(赣南师范学院) © 2008 版权所有 All Rights Reserved.
  • 地址:江西省赣州市经济技术开发区 赣南师范学院数学与计算机科学学院 邮政编码:341000
    Email:ZQ188@163.com 技术支持QQ:87319633 移ICP备10086号
  • GnsySjxy! V2.4