百米倒计时小例子

在研究类这块，有个小例子对我的帮助特别大。在这里跟大家分享一下。

本例中，主要讲的百米赛跑中的计时。

下面是TimerTask类模块中代码：

Option Explicit

Public Event UpdateTime(ByVal dblJump As Double)
Public Event ChangeText()

Public Sub TimerTask(ByVal Duration As Double)
    Dim dblStart As Double
    Dim dblSecond As Double
    Dim dblSoFar As Double
    dblStart = Timer
    'Timer类 提供以指定的时间间隔执行方法的机制,此类不能被继承。
    '返回一个 Single，代表从午夜开始到现在经过的秒数。
    'Microsoft Windows中，Timer函数返回一秒的小数部分。
    
    dblSoFar = dblStart
    Do While Timer < dblStart + Duration  '当某一时刻的秒数小于开始时间+停留时间
        If Timer - dblSoFar >= 1 Then     '设置递增秒数
            dblSoFar = dblSoFar + 1
            RaiseEvent UpdateTime(Timer - dblStart)   '调用事件UpdateTimer更新经过的时间秒数
        End If
    Loop
    
    RaiseEvent ChangeText   '调用ChangeText事件。
End Sub

在这个类中，定义了UpdateTime和ChangeText两个事件，主要定义了TimerTask过程，该过程是程序的核心，由于是百米赛跑，对时间的要求较高。它精确能够比较精确的取得了时间。

接下来是窗体中，实例化过程和调用过程：

Option Explicit

Private WithEvents mText As TimerState  '实例化TimerState这个类

Private Sub Command1_Click()
    Text1.Text = "From Now"
    Text1.Refresh
    Text2.Text = "0"
    Text2.Refresh         '此处不刷新，该文本框不会显示0
    Call mText.TimerTask(9.84) '调用mText窗体的TimerTask事件过程（其返回值设置为9.84）

End Sub

Private Sub Form_Load()
    Command1.Caption = "Click to Start Timer"
    Text1.Text = ""
    Text2.Text = ""
    Label1.Caption = "The fastest 100 meter run took this long:"
    Set mText = New TimerState
    End Sub

Private Sub mText_ChangeText()
    Text1.Text = "Until Now"
    Text2.Text = "9.84"
    'Text2.Text = "11"
End Sub

Private Sub mText_UpdateTime(ByVal dblJump As Double)
    Text2.Text = Str(Format(dblJump, "0"))
    DoEvents  ' 将控制让给其他程序。
End Sub

执行之后的结果：

看懂上面的类，其他的也没有什么难度，很容易看懂。不过类的思想，事件的定义和调用是我们应该重点掌握的。从简单做起，慢慢理解。