VB计时器怎么用 VB定时器的使用

作者&投稿:刁萧 (若有异议请与网页底部的电邮联系)

需要准备的工具:电脑,VB6.0程序设计软件。

1、首先打开VB6.0程序设计软件,到程序新建工程主界面,如下图:

2、然后双击新建工程里的”标准 exe“进入工程1(forml)如下图:

3、在左边工具栏窗体上先加载一个计时器控件 如图:

4、加载好计时器控件后,我们在当前计时器控件下面加载一个标签。

5、为了使加载的标签在运行时能把它看清楚,通过修改右边属性”Bordarstyle"里面的属性”0“改选为”1“使标签边框凹陷下去 ,如图:

6、接下来,我们将当前标签右边的属性名称改为”L1“如图:

7、我们开始修改计时器的属性,接下来我们把计时器控件当前的”interval“的属性设置成”1000“ 毫秒,就是1秒钟让它产生一次事件,如图 :

8、双击计时器控件,开始编写计时器程序,”L1.caption=time”如图:

9、然后返回“form"窗口,点击运行,一个简单的计时器软件就做好了。



需要准备的工具:电脑,VB6.0程序设计软件。

1、打开VB6.0,新建一个工程,在窗体中添加三个命令按钮,caption分别改为“设置倒计时”、“启动倒计时”、“继续”,将窗体Form1的caption属性改为“倒计时”,添加一个计时器控件,添加一个文本框,将界面设置成下图:

2、将文本框的Text属性清空,将字体Font属性调整为小四,便于观察,将背景色属性Backcolor调为浅、黄色。

3、双击“设置倒计时”命令按钮,进入代码编辑窗口,输入如下代码:

a=InputBox("请输入倒计时时间(以分为单位):","倒计时输入框"

4、双击“启动倒计时”命令按钮,进入代码编辑窗口,输入如下代码:

Timer1.Interval=1000'设置计时器为一秒发生一次

Timer1.Enabled=True'激活计时器

If a < 60 Then

m=a

Else

h=s\60

m=aMod60

EndIf

m=m-1

s=60

5、双击“计时器”控件,进入代码编辑窗口,输入如下代码:

s=s-1

If s = 0 And m <> 0 Then

s=60

m=m-1

EndIf

If m = 0 And h <> 0 Then

h=h-1

m=59

s=60

6、VB6.0制作倒计时计时器在代码编辑窗口的通用段进行变量定义:

Dim h As Integer,m As Integer,s As Integer'分别存储时分秒

Dim a AsInteger

7、双击窗体,进入代码编辑器,在Form_Load事件中写入代码:

Timer1.Enabled=False'先关闭计时器

8、关闭代码窗口,按下F5运行程序,单击“设置倒计时”命令按钮,弹出输入对话框,此时输入分钟数为1,确定,如图:

9、单击“启动倒计时”命令按钮,文本框显示倒计时时间,并时刻变动,至此实现了倒计时功能,如图:



Timer控件使用:

Timer 控件响应时间的流逝。它们独立于用户,编程后可用来在一定的时间间隔执行操作。此控件的一个一般用处是检查系统时钟,判断是否该执行某项任务。对于其它后台处理,Timer 控件也非常有用。

每个 Timer 控件都有 Interval
属性,指定定时器事件之间的毫秒数。除非禁止此属性,否则定时器在大致相等的时间间隔不断接受事件(称作定时器事件会更贴切)。

在为 Timer 控件编程时应考虑对 Interval 属性的几条限制:

  • 如果应用程序或其它应用程序正在进行对系统要求很高的操作─ 例如长循环、高强度的计算或者正在访问驱动器、网络或端口─ 则应用程序定时器事件的间隔可能比
    Interval 属性指定的间隔长。

  • 间隔的取值可在 0 到 64,767 之间(包括这两个数值),这意味着即使是最长的间隔也不比一分钟长多少(大约 64.8 秒)。

  • 间隔并不一定十分准确。要保证间隔准确,应在需要时才让定时器检查系统时钟,而不在内部追踪积聚的时间。

  • 系统每秒生成 18 个时钟信号─ 所以即使用毫秒衡量 Interval 属性,间隔实际的精确度不会超过 18 分之一秒。

每个 Timer 控件必须要与窗体关联。因此要创建定时器应用程序就必须至少创建一个窗体(如果不需要窗体完成其它操作就不必使窗体可见)。

在窗体上放置 Timer 控件:

在窗体上放置 Timer 控件的方法与绘制其它控件的方法相同:单击工具箱中的定时器按钮并将它拖动到窗体上。

 Timer 控件只在设计时出现在窗体上,所以可以选定这个控件,查看属性,编写事件过程。运行时,定时器不可见,所以其位置和大小无关紧要。

初始化 Timer 控件:

 Timer 控件有两个关键属性。

数字钟应用程序示例:

包含一个定时器和一个有边框的标签。

应用程序中的唯一过程是定时器的事件过程:

Private Sub Timer1_Timer ()
   If lblTime.Caption <> CStr(Time) Then
      lblTime.Caption = Time
   End If
End Sub

过程调用内在的 Time 函数来显示系统时间。此函数返回一个 Variant,以日期/时间数值 (VarType 7) 的形式包含当前时间。将它赋予某个字符串变量或属性时,比如赋予本例中的 Caption 属性时,Visual Basic 将用“控制面板”中指定的格式将其转换成一个字符串。若要用其它格式显示,可使用 Format 函数。



你好,计时器控件 英文名叫Timer VB中图标是一个闹钟的样子

这个控件主要用来定时刷新/操作 某样指令

它属性如下
Enabled :设置计时器True为可用。如果为False 则不可用。
Interval:设置计时器执行时间,1000为1秒,最大为60000即1分。

一般在Button或其他可操作控件中 对这两个属性进行设置
如:在Button中添加 timer1.enabled=false
然后在Timer中添加你想操作的命令:
Private Sub Timer1_Timer()
Button1.Caption = Format(Now, "yyyy-mm-dd hh:mm:ss") '取系统当前时间为按钮的标题
End Sub

加入Timer1控件后
Timer1.Enabled = True '设置计时器True为可用。如果为False 则不可用。
Timer1.Interval = 1000'设置计时器执行时间,1000为1秒,最大为60000即1分。

然后再timer1的事件里写入要执行的代码。

有不懂的补充!呵

在VB里如何使用计时器?~

计时器是在每一定时间间隔就触发一次事件,这个时间可在计时器的interval属性中设定,默认值为0,表示计时器不工作。
如果触发事件后不关闭计时器(设置enabled属性为false,功能与interval=0时一样),它就每隔一定时间不断触发事件,直到程序结束或 interval属性值设为0 或 enabled属性设为0

倒计时5秒结束后自动关闭form2:
**Timer是不准确,但精度要求不高时还是可以的。
1.新建标准EXE工程,在Form1添加一计时器Timer1,一文本框Text1,再加一窗体:form2
2.写入下面代码(有两方案),但以下还是保留
[方案一:最简单的,看不到倒数过程]
private sub Form_load()
form2.show '运行窗体2
timer1.interval=5*1000 '5000毫秒,即5秒
end sub
Private Sub Timer1_Timer()
timer1.enabled=false '关闭计时器
unload form2 '关闭form2
End Sub
[方案二:看到倒数过程]
private sub Form_load()
form2.show '运行窗体2
text1.text="5"
timer1.interval=1*1000 '1000毫秒,即1秒
end sub
Private Sub Timer1_Timer()
Rem text1的值减1
'{
Dim a as integer
a=val(text1.text) 'text1.text字串转整数
a=a-1
text1.text=str(a) '整数转字串放回text1.text
'}
Rem 检查text1的值
'/*
if a<=0 then
unload form2 '关闭form2
timer1.enabled=false '关闭计时器
'*/
End Sub

窗体加一个timer控件,interval属性设为60000(1分钟),代码区写以下代码 Dim count As Integer '用来记数,全局变量 Private Sub Timer1_Timer()
If count = 30 Then
'你要执行的语句
count = 0
Else
count = count + 1
End If
End Sub

d36欧乐b原装计时器怎么用
答:d36欧乐b原装计时器打开就能用。定时功能都是自动开启的,打开就能用。到了30秒会暂停震动一下或者说有不一样的震感提醒你更换区域。2分钟到了就自动关闭了。

dhtc3b多功能计时器使用方法
答:4、第四个是秒表,点击开始图标即可开始计时,体育测试计时用的就是这类秒表,它可以分段计时和分次计时。

北极星电子钟怎么调时间?后面只是ABCD
答:先按一下“A”键(进入时间设置状态,同时年份“闪烁”,可按“B”或“C(下调)”键修改年份,修改好后按“A”键将闪烁位移到公历“月”,按“B”或“C(下调)”键修改月份。用同样的方法可对日、时、分、秒进行设置;星期、农历月、日将自动跟随公历的变化而变化。 再按“A”或“D”键退...

天梭PRC200手表 3个小表盘和速度测量功能如何使用
答:1按下按钮A,计时开始;2按下按钮B,读取时间;3再次按下按钮B,计时器自动补足刚才损失的时间并累积计时;4按下按钮B,读取时间;5再次按下按钮B,计时器自动补足刚才损失的时间并累积计时;6按下按钮A,计时停止;7按下按钮B,计时器归零。测速:1选定一公里路程;2在起点处按下按钮A;3在终点处...

怎么调时间 3个键怎么用
答:计时器使用方式:上按键代表开始和停止(START/STOP)下面的按键只能在停止的状态下,按下归零。按下上按键,计时器大秒针开始走,再按一下,大秒针停止,1/10秒计时盘停止。此时计时。读数应该为A分B.C秒 。A的读数看计分盘,B的读数看大秒针,C的读数看1/10秒盘。读数完之后,需要继续计时按上...

tmr手表上怎么用
答:按下手表左上角的A键,进入时间设置模式。使用B键进行时间设置。设置完成后按下A键确认。按下D键进入计时器模式,此时tmr代号会出现在屏幕上。按下B键开始计时。再按一次停止计时。再按一次重置计时。在计时器模式下,按下A键可以进入计时器设置模式,可以设置计时器的时长和警报功能。卡西欧成立于1946...

打点计时器怎么用?打点计时器加速度怎么算?
答:打点计时器在打B、F点时,自由落体物体的速度大小分别为:vB=▲m/s,vF=▲m/s。自由落体物体的加速度大小a=▲m/s2(结果保留三位有效数字)。一、打点计时器 1、是一种测量短暂时间的工具。如果运动物体带动的纸带通过打点计时器,在纸带上打下的点就记录了物体运动的时间,纸带上的点也相应...

tmr手表上怎么用
答:该手表的使用方法如下:1、进入计时器模式:按下手表A键,进入时间设置模式,再按下D键,便能进入计时器模式,此时TMR三个字母会在手表屏幕中闪烁。2、开始计时:在计时器模式中,按下B键开始计时。若要停止计时,再按一次B键即可。若要重置计时,需要再按三次B键。3、设置计时器时长和警报:在...

天梭运动表3个小表盘分别有什么用?
答:3.10 20 30 那个盘,代表的是计分盘 计时器使用方式: 上按键代表开始和停止(START/STOP)下面的按键只能在停止的状态下,按下归零。 按下上按键,计时器大秒针开始走,再按一下,大秒针停止,1/10秒计时盘停止。此时计时读数应该为A分B.C秒 A的读数看计分盘,B的读数看大秒针,C的读数看1/...

倒计时模式顾名思义就是用来倒计时的,卡西欧倒计时怎么设置?
答:卡西欧倒计时怎么设置?如果卡西欧手表想取消倒计时,按住表盘左上角的按钮3s。这个按钮的主要作用是确认或者退出。使用卡西欧手表时,需要注意它的四个按钮,分别是左上、右上、左下和右下,分别表示为A、B、C、D按钮。如果你想启动计时器,按四次B按钮,如果你想启动倒计时,按五次A按钮。卡西欧倒...