Timer

物件

Timer1: 從工具箱拉入

運作原理

Timer1.Enabled = True時，則會自動啟動Timer1.Tick副程序。

初始化

FormLoad程序中，寫入下面兩行指令：

Timer1.Interval = 1000

Timer1.Enabled = False

倒數計時器

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

' 計算時間的開始(2分鍾)

'timer_I = 2 * 60

' 啟動計時器

Timer1.Enabled = True

' 恢復預設值

Label1.BackColor = Color.FromKnownColor(KnownColor.Control)

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label1.Text = timer_I.ToString()

Dim dtime As New TimeSpan(0, timer_I, 0)

Label1.Text = dtime.ToString()

timer_I = timer_I - 1

If timer_I <= 0 Then

Label1.BackColor = Color.Red

Timer1.Enabled = False

End If

End Sub

計時器

'計時開始

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

' 壘計時間的開始(秒)

timer_I = 0

' 啟動計時器

Timer1.Enabled = True

' 恢復預設值

Label1.BackColor = Color.FromKnownColor(KnownColor.Control)

End Sub

'累計計時中...

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label1.Text = timer_I.ToString()

Dim dtime As New TimeSpan(0, timer_I, 0)

Label1.Text = dtime.ToString()

timer_I = timer_I + 1

End Sub

Private Sub btn_Finished_Click(sender As Object, e As EventArgs) Handles btn_Finished.Click

Label1.BackColor = Color.Red

Timer1.Enabled = False

btn_Finished.Enabled = False

Beep()

End Sub

※測試紀錄※

Timer1.Interval = 1、timer_I = timer_I + 1，每分鐘誤差快5秒多。

Timer1.Interval = 1、timer_I = timer_I + 0.945，每分鐘誤差快0.3秒，手按碼錶較慢也差不多是0.3秒。