vb一分钟计时器代码

Ⅰ 如何用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

Ⅱ 求设计vb计时器的代码，要求三个文本框内分别是小时、分和秒的走动

画三个文本框，分别为H、M、S和一个计时器，代码如下：
Private
Sub
Timer1_Timer()
H.Text
=
Hour(Now)
‘显示时
M.Text
=
Minute(Now)
‘显示分
S.Text
=
Second(Now)
’显示秒
End
Sub

Ⅲ vb1分钟计时器

Dim i As Integer

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

Private Sub Timer1_Timer()
i = i + 1
Label1.Caption = i
If i >= 60 Then
i = 0
MsgBox "1分钟了！"
End If
End Sub

Ⅳ VB计时器代码

使用timer控件，把属性interval设置为1000
然后再timer_timer事件中添加加1方法即可。
如图
代码如下：
Public
FTime
As
Integer
Private
Sub
Command1_Click()
Me.Timer1.Enabled
=
True
End
Sub
Private
Sub
Command2_Click()
Me.Timer1.Enabled
=
False
End
Sub
Private
Sub
Form_Load()
Me.Timer1.Enabled
=
False
Me.Timer1.Interval
=
1000
End
Sub
Private
Sub
Timer1_Timer()
FTime
=
FTime
+
1
Me.Label1.Caption
=
"计时（秒）："
&
FTime
End
Sub

Ⅳ 求计时器 vb代码

很简单的，在窗体放置一个Timer1控件，四个Text1、Text2、Text3、Text4控件，二个command1和command2控件，其Caption属性分别是“开始”和“结束”，在代码窗口添加下面代码：

Dim X As Integer,PX As String

Private Sub command1_Click()
PX = "YES"
Timer1.Enabled = True
Text2.Text = Text1.Text
End Sub

Private Sub command2_Click()
PX = ""
Timer1.Enabled = False
Text3.Text = Text1.Text
Text4.Text = X
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Private Sub Timer1_Timer()
Text1.Text = Now
IF PX = "YES" THEN
X = X + 1
END IF
End Sub

Timer1.Interval = 1000 是设置计时时间间隔为1秒。
如果计时结束时X的值特别大，则X的数据类型选择单精度或双精度，至于“显示，开始到结束持续的时间”目前显示的是秒，如果你需要转换成“年-月-日 时:分:秒”的格式，你自己慢慢琢磨吧。

Ⅵ 用VB编写一个计时器，怎么编

private sub cmd1_click()
if cmd1.caption="开始" then
text1=format(now-now,"hh:mm:ss")
timer1.enabled=ture
cmd1.caption="暂停"
else
timer1.enabled=false
cmd1.caption="继续"
end sub
private cmd2_click()
text1=format(now-now,"hh:mm:ss")
timer1.enabled=ture
end sub

private timer1_timer()
text1=Format(DateAdd("s", 1, cdate(text1)), "hh:mm:ss")
end sub

Ⅶ 求一段VB倒计时器代码

'建立一个text1，一个label1，一个timer1，两个command1-2，不用设置任何属性。
Option Explicit
Dim M As Single, S As Long
Private Sub Form_Load()
form1.Width = 3800
form1.Height = 1800
form1.BackColor = RGB(150, 120, 80)
Timer1.Interval = 1000
Timer1.Enabled = False
Text1.Width = 2400
Text1.Height = 300
Text1.Left = 100
Text1.Top = 400
Text1.ForeColor = &H909090
Text1.Visible = True
Command1.Width = 900
Command1.Height = 400
Command1.Left = 2600
Command1.Top = 150
Command2.Width = 900
Command2.Height = 400
Command2.Left = 2600
Command2.Top = 650
Label1.Width = 2400
Label1.Height = 1000
Label1.Left = 100
Label1.Top = 100
Label1.BackColor = &H0
Label1.ForeColor = &H4410FF
Label1.Alignment = 1
Label1.FontSize = 50
Label1.Caption = ""
Label1.Visible = False
Text1.Text = "在此输入分钟，再点击开始"
Command1.Caption = "开始"
Command2.Caption = "退出"
Command1.Enabled = False
End Sub
Private Sub command1_Click()
If Command1.Caption = "开始" Then
If Text1.Text = "" Then Exit Sub
M = CSng(Val(Text1.Text))
If M <= 0 Then Text1.Text = "": Exit Sub
S = M * 60
If S = 0 Then Text1.Text = "": Exit Sub
Text1.Visible = False
Label1.Caption = Str(S)
Label1.Visible = True
Timer1.Enabled = True
Command1.Caption = "停止"
ElseIf Command1.Caption = "停止" Then
Timer1.Enabled = False
Command1.Caption = "继续"
Command2.Caption = "重新开始"
ElseIf Command1.Caption = "继续" Then
Timer1.Enabled = True
Command1.Caption = "停止"
Command2.Caption = "退出"
End If
End Sub
Private Sub command2_Click()
If Command2.Caption = "重新开始" Then
Form_Load
ElseIf Command2.Caption = "退出" Then
End
End If
End Sub
Private Sub Text1_Change()
Command1.Enabled = True
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Text1.Text = "在此输入分钟，再点击开始" Then
Text1.ForeColor = &H0
Text1.Text = ""
End If
End Sub

Private Sub Timer1_Timer()
S = S - 1
Label1.Caption = Trim(Str(S))
If S = 0 Then
MsgBox "时间到！！！"
Beep
Timer1.Enabled = False
Label1.Visible = False
Text1.Visible = True
Command1.Caption = "开始"
End If
End Sub