vb怎么设计简单的计时器

aaa一辈子4 2011-05-23 计时器浏览 268 次

用vb中的timer控件，设计计时器。用三个命令按钮，分别为：开始、暂停、结束。再用一个标签或者文本框显示就好了。
各位大侠教教，我初学。

精彩问答

liguozheng2006 发布日期：2011-05-24

Private Sub Command1_Click()
Timer1.Enabled = True

End Sub

Private Sub Command2_Click()
Timer1.Enabled = False

End Sub

Private Sub Command3_Click()
Timer1.Enabled = False
Label1.Caption = 0
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
s = 0
Label1.Caption = s
End Sub

Private Sub Timer1_Timer()
s = Label1.Caption
s = s + 1
Label1.Caption = s
End Sub

1 0 回复 0条评论

全部评论

WonDinZN 发布日期：2011-05-31

Dim nCount As Long

Private Sub cmdPause_Click()
Timer1.Enabled = False

End Sub

Private Sub cmdStart_Click()
Timer1.Enabled = True

End Sub

Private Sub cmdStop_Click()
Timer1.Enabled = False
nCount = 0
Label1.Caption = Format(nCount)

End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
nCount = 0
Label1.Caption = Format(nCount)
End Sub

Private Sub Timer1_Timer()
nCount = nCount + 1
Label1.Caption = Format(nCount)
End Sub

16 0 回复 0条评论

您可能感兴趣的主题

我想用温控器时间计时器 续电器交流触器来控制加热灯接线图。 2018-07-30

是这样，如果我温控器设置温度为80度，在到达温度后时间计时器开始计时，时间到停止加热并报警（这期间温度低于
三菱plc计时器t37中的pt 2018-06-13

三菱plc计时器t37中的pt T37 PT 这种定时器，显然是西门子的PLC ，查找西门子s7-200
制作一个支持UWB超宽带芯片（RTU7***）的电路，实现简单的接收发功能。2011-08-26

想制作一个支持UWB超宽带芯片（RTU7***）的电路，实现简单的接收发功能。 1。寻找一下RTU7300
怎样才能制作Z简单的电解液？ 2018-02-04

我想用Z简单的材料配制蓄电池电解液专用硫酸和蒸馏水按一定比例配制而成密度通常是1.24-1.30g/c
谁能简单的说一下断路器 2013-10-25

断路器是做什么的都有什么具体规格什么样的断路器放在什么样的地方我真的对断路器一窍不通，谁可以用通俗易
用什么简单的小工具包粽子 2015-06-28

用什么简单的小工具包粽子 diy粽子模具裹粽器这种强大的小玩意帮助你分分秒秒噶~~~~自己去买个哦
工控中组态不可以简单的理解为:把电脑通过软件变成触摸屏使用 2018-05-15

工控中组态不可以简单的理解为:把电脑通过软件变成触摸屏使用只考虑基本功能的话用PLC和触摸屏做一个设备的
有没有配方简单的化学发光剂啊？ 2013-07-23

网上查的感觉好麻烦，有简单的么？有的话把配方以及具体制作过程告诉我双氧水、乙醇、烧碱可以发出微弱红光荧
C语言，计时器 2017-10-08 08:53:45

给段C语言编写的计时器代码，谢谢秒表计时器的代码 #include #include #include #i
求C语言计时器的例子 2017-05-20 00:57:23

我想为执行某个功能建立一个计时器。比如说，当A功能开始时，A计时器开始计时，当A功能结束时，A计时器结束计时