Question

用vb的timer做一个计时器程序

包括开始、停止、重置，共3个按钮
计时单位精确到0.01秒
重置后，再按开始是从0开始重新计时的
计时中会溢出错误？
请高手写一下代码，特别是重置后，我自己做的时候不能重新从0开始计时，而是又接着停止时的时间继续下去!!!
还要在label上显示，刚忘了

Answer 1

窗体上放一个Label，三个Command按钮：

Dim h As Integer, m As Integer, s As Integer, ms As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
Timer1_Timer
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
h = 0
m = 0
s = 0
ms = 0
Label1.Caption = Format(h, "00") & ":" & Format(m, "00") & _
        ":" & Format(s, "00") & ":" & Format(ms, "000")
End Sub

Private Sub Form_Load()
Command1.Caption = "开始"
Command2.Caption = "停止"
Command3.Caption = "重置"
Label1.Caption = ""
Timer1.Interval = 10
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
ms = ms + 10
If ms > 999 Then s = s + 1: ms = 0
If s > 59 Then m = m + 1: s = 0
If m > 59 Then h = h + 1: m = 0
Label1.Caption = Format(h, "00") & ":" & Format(m, "00") & _
        ":" & Format(s, "00") & ":" & Format(ms, "000")
End Sub

Answer 2

Public Class Form1

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Text = Label1.Text + 0.01
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Enabled = True
        Button2.Enabled = True
        Button1.Enabled = False
        Button3.Enabled = False
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Timer1.Enabled = False
        Button1.Enabled = True
        Button3.Enabled = True
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Timer1.Enabled = False
        Label1.Text = 0
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Button2.Enabled = False
        Button3.Enabled = False
    End Sub
End Class

Answer 3

Option Explicit
--------------------------------------------------
Static iSec As Integer
Static iMin As Integer
Static iHour As Integer

--------------------------------------------------
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
iSec = 0
iMin = 0
iHour = 0

End Sub

--------------------------------------------------
Private Sub Timer1_Timer()

iSec = iSec + 1

If iSec >= 60 Then
iMin = iMin + 1
iSec = 0

If iMin >= 60 Then
iHour = iHour + 1
iMin = 0
End If

End If

Label1.Caption = Format(iHour, "00") & "：" & _
Format(iMin, "00") & "：" & _
Format(iSec, "00")

End Sub

Answer 4

1、溢出错误是因为你定义的数据类型不够，你定义double类型，保证不会溢出
2、按重置的时候，同时把累积的数清零。

追问

具体怎么编码呢

追答

留下QQ或邮箱，源代码发给你

追问

451412952@扣扣.com

追答

已发，请查收