Public Class TimerDemo

 

    Private threadingTimer As Threading.Timer

    Private prevTimerTicks As Long

    Private avgTimerTicks As Long

    Private numTimerExpirations As Long

    Private timerRunning As Boolean = False

 

    Private Sub btnThreadingTimer_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnThreadingTimer.Click

If timerRunning = True Then

timerRunning = False

While Not threadingTimer Is Nothing

Threading.Thread.Sleep(0)

End While

avgTimerTicks = avgTimerTicks / numTimerExpirations

                lThreadingTimer.Text = "Avg. Timer Interval: " + avgTimerTicks.ToString() + _

" ms (" + numTimerExpirations.ToString() + ")"

                btnThreadingTimer.Text = "Start Threading Timer"

                btnFormsTimer.Enabled = True

           Else

                timerRunning = True

                lThreadingTimer.Text = "Timer running"

                btnThreadingTimer.Text = "Stop Threading Timer"

                btnFormsTimer.Enabled = False

                avgTimerTicks = 0

                numTimerExpirations = 0

                prevTimerTicks = Environment.TickCount

                threadingTimer = New Threading.Timer(New _

Threading.TimerCallback(AddressOf ThreadingTimerTick), Nothing, 0, 100)

           End If

    End Sub

Private Sub btnFormsTimer_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnFormsTimer.Click

If timerRunning = True Then

timerRunning = False

 

                avgTimerTicks = avgTimerTicks / numTimerExpirations

                lFormsTimer.Text = "Avg. Timer Interval: " + avgTimerTicks.ToString() + _

" ms (" + numTimerExpirations.ToString() + ")"

                btnFormsTimer.Text = "Start Forms Timer"

                btnThreadingTimer.Enabled = True

           Else

                timerRunning = True

                lFormsTimer.Text = "Timer running"

                btnFormsTimer.Text = "Stop Forms Timer"

                btnThreadingTimer.Enabled = False

                avgTimerTicks = 0

                numTimerExpirations = 0

                prevTimerTicks = Environment.TickCount

                formsTimer.Interval = 100   ' 利用窗体上放置的Timer控件

                formsTimer.Enabled = True

           End If

End Sub

 

Private Sub btnProcessing_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnProcessing.Click

           btnProcessing.Enabled = False

           Threading.Thread.CurrentThread.Priority = Threading.ThreadPriority.BelowNormal

           For i As Long = 0 To 5000000

           Next

           btnProcessing.Enabled = True

           Threading.Thread.CurrentThread.Priority = Threading.ThreadPriority.Normal

    End Sub

 

    Private Sub ThreadingTimerTick(ByVal state As Object)

           If timerRunning = False Then

                threadingTimer.Dispose()

                threadingTimer = Nothing

           Else

                Dim currentTimerTicks As Long = Environment.TickCount

                avgTimerTicks = avgTimerTicks + (currentTimerTicks - prevTimerTicks)

                numTimerExpirations = numTimerExpirations + 1

                prevTimerTicks = currentTimerTicks

           End If

    End Sub

Private Sub formsTimer_Tick(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles formsTimer.Tick

If timerRunning = False Then

formsTimer.Enabled = False

                formsTimer = Nothing

           Else

                Dim currentTimerTicks As Long = Environment.TickCount

                avgTimerTicks = avgTimerTicks + (currentTimerTicks - prevTimerTicks)

                numTimerExpirations = numTimerExpirations + 1

                prevTimerTicks = currentTimerTicks

           End If

    End Sub

 

End Class