VB記時器編程的討論 在很多場合下編程（例如工業(yè)控制、游戲）中需要比較精確的記時器，本文討論的是在VB下實現(xiàn)記時器的若干方法以及它們的精度控制問題。 在VB中最常用的是Timer控件，它的設(shè)置和使用都非常方便，理論上它的記時精度可以達到1ms(毫秒)。但是眾所周知的，實際上Timer在記時間隔小于50ms之下是精度是十分差的。它只適用于對于精度要求不太高的場合。 這里作者要介紹的是兩中利用Windows API函數(shù)實現(xiàn)精確記時的方法。第一中方法是利用高性能頻率記數(shù)（作者本人的稱呼）法。利用這種方法要使用兩個API函數(shù)QueryPerformanceFrequency和QueryPerformanceCounter。QueryPerformanceFrequency函數(shù)獲得高性能頻率記數(shù)器的震蕩頻率，該函數(shù)的定義如下：  

Private Declare Function QueryPerformanceFrequency Lib "kernel32" _
              (lpFrequency As LARGE_INTEGER) As Long
函數(shù)中的數(shù)據(jù)結(jié)構(gòu)LARGE_INTEGER定義如下：
Type LARGE_INTEGER
    lowpart As Long
    highpart As Long
End Type

調(diào)用該函數(shù)后，函數(shù)會將系統(tǒng)頻率記數(shù)器的震蕩頻率保存到lpPerformanceCount中，其中低位保存到lowpart中，高位保存到highpart中。但是現(xiàn)在的Windows沒有使用到hightpart（系統(tǒng)頻率記數(shù)器的震蕩頻率與計算機的主頻無關(guān)，我在幾臺機上做過驗證，都是lowpart為1193180，highpart為0）。
QueryPerformanceCounter函數(shù)獲得系統(tǒng)頻率記數(shù)器的震蕩次數(shù)，函數(shù)的定義如下

Private Declare Function QueryPerformanceCounter Lib "kernel32" _
        (lpPerformanceCount As LARGE_INTEGER) As Long

獲得記時器震蕩次數(shù)保存在lpPerformanceCount中。
顯然，如果首先獲得利用QueryPerformanceFrequency函數(shù)獲得頻率記數(shù)器的震蕩頻率，然后在執(zhí)行某個程序段之前調(diào)用QueryPerformanceCounter函數(shù)獲得頻率記數(shù)器的震蕩次數(shù)，在程序段結(jié)束再調(diào)用QueryPerformanceCounter函數(shù)獲得頻率記數(shù)器的震蕩次數(shù)，將兩次獲得的震蕩次數(shù)相減后再除以震蕩頻率就獲得的了兩次間隔之間的時間（以秒為單位）。如果在程序中建立一個循環(huán)，在循環(huán)中不停的調(diào)用QueryPerformanceCounter獲得頻率記數(shù)器的震蕩次數(shù)并同先前的頻率記數(shù)器的震蕩次數(shù)相減，將結(jié)果除以頻率記數(shù)器的震蕩頻率，如果達到一定的時間就執(zhí)行某個任務(wù)，這樣就實現(xiàn)了一個比較精確的記時器的功能。

另外的一種精確記時器的功能是利用多媒體記時器函數(shù)（這也是作者的定義，因為這個系列的函數(shù)是在Winmm.dll中定義并且是為媒體播放服務(wù)的）。
實現(xiàn)多媒體記時器首先要定義timeSetEvent函數(shù)，該函數(shù)的定義如下：

Public Declare Function timeSetEvent Lib "winmm.dll" (ByVal uDelay As Long, ByVal _
        uResolution As Long, ByVal lpFunction As Long, ByVal dwUser As Long, _
        ByVal uFlags As Long) As Long

函數(shù)定義中參數(shù)uDelay定義延遲時間，以毫秒為單位，該參數(shù)相當(dāng)于Timer控件的Interval屬性。參數(shù)uResolution定義記時精度，如果要求盡可能高的精度，要將該參數(shù)設(shè)置為0；參數(shù)lpFunction定義了timeSetEvent函數(shù)的回調(diào)函數(shù)的地址。參數(shù)dwUser定義用戶自定義的回調(diào)值，該值將傳遞給回調(diào)函數(shù)。參數(shù)uFlags定義定時類型，如果定義為Time_OneShot，則只會在當(dāng)達到uDelay定義的時間后調(diào)用回調(diào)函數(shù)一次，如果定義為TIME_PERIODIC，則在每次達到定時時間后調(diào)用回調(diào)函數(shù)。
如果函數(shù)調(diào)用成功，在系統(tǒng)中建立了一個多媒體記時器對象，每當(dāng)經(jīng)過一個uDelay時間后lpFunction指定的函數(shù)都會被調(diào)用。同時函數(shù)返回一個對象標(biāo)識，如果不再需要記時器則必須要使用timeKillEvent函數(shù)刪除記時器對象。
由于Windows是一個多任務(wù)的操作系統(tǒng)，因此基于API調(diào)用的記時器的精度都會受到其它很多因素的干擾。到底這兩中記時器的精度如何，我們來使用以下的程序進行驗證：
設(shè)置三種記時器（Timer控件、高性能頻率記數(shù)、多媒體記時器）。將它們的定時間隔設(shè)置為10毫秒，讓它們不停工作直到達到一個比較長的時間（比如60秒），這樣記時器的誤差會被累計下來，然后同實際經(jīng)過的時間相比較，就可以得到它們的精度。
下面是具體的檢測程序。
首先建立一個工程文件，在Form1中加入一個Timer控件，兩個CommandButton控件和三個TextBox控件，然后在Form1的代碼窗口中加入以下代碼


Option Explicit

Private Sub Command1_Click()
    Dim lagTick1 As LARGE_INTEGER
    Dim lagTick2 As LARGE_INTEGER
    Dim lTen As Long
     
    Command2.Enabled = True
    Command1.Enabled = False
    iCountStart = 60
    lmmCount = 60
    TimerCount = 60
    actTime1 = GetTickCount
    lTimeID = timeSetEvent(10, 0, AddressOf TimeProc, 1, 1)
    Timer1.Enabled = True
     
    lTen = 10 * lMSFreq
    Call QueryPerformanceCounter(lagTick1)
    lagTick2 = lagTick1
    While iCountStart > 0
        Call QueryPerformanceCounter(lagTick2)
        '如果時鐘震動次數(shù)超過10毫秒的次數(shù)則刷新Text1的顯示
        If lagTick2.lowpart - lagTick1.lowpart > lTen Then
            lagTick1 = lagTick2
            iCountStart = iCountStart - 0.01
            Text1.Text = Format$(iCountStart, "00.00")
        End If
        DoEvents
    Wend
End Sub

Private Sub Command2_Click()
    EndCount
End Sub

Private Sub Form_Load()
    Dim lim As LARGE_INTEGER
     
    Text1.Text = "60.00"
    Text2.Text = "60.00"
    Text3.Text = "60.00"
    Command1.Caption = "開始倒記時"
    Command2.Caption = "停止記時"
    Command2.Enabled = False
     
    '獲得系統(tǒng)板上時鐘頻率
    QueryPerformanceFrequency lim
     
    '將頻率除以1000就的出時鐘1毫秒震動的次數(shù)
    lMSFreq = (lim.highpart * 2 ^ 16) \ 1000 + lim.lowpart \ 1000
    Timer1.Interval = 10
    Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    TimerCount = TimerCount - 0.01
    Text3.Text = Format$(TimerCount, "00.00")
    If TimerCount <= 0 Then
Timer1.Enabled = False
End If
End Sub
在Project中加入一個Module，然后在其中加入以下代碼：
Option Explicit

Type LARGE_INTEGER
lowpart As Long
highpart As Long
End Type

Public Declare Function QueryPerformanceCounter Lib "kernel32" _
(lpPerformanceCount As LARGE_INTEGER) As Long
Public Declare Function QueryPerformanceFrequency Lib "kernel32" _
(lpFrequency As LARGE_INTEGER) As Long
Public Declare Function timeSetEvent Lib "winmm.dll" (ByVal uDelay As Long, ByVal _
uResolution As Long, ByVal lpFunction As Long, ByVal dwUser As Long, _
ByVal uFlags As Long) As Long
Public Declare Function timeKillEvent Lib "winmm.dll" (ByVal uID As Long) As Long
Public Declare Function GetTickCount Lib "kernel32" () As Long

Public lMSFreq As Long
Public TimerCount As Single
Public lmmCount As Single
Public lTimeID As Long
Public actTime1 As Long
Public actTime2 As Long
Public iCountStart As Single

Dim iCount As Single

'timeSetEvent的回調(diào)函數(shù)
Sub TimeProc(ByVal uID As Long, ByVal uMsg As Long, ByVal dwUser As Long, _
ByVal dw1 As Long, ByVal dw2 As Long)

Form1.Text2.Text = Format$(lmmCount, "00.00")
lmmCount = lmmCount - 0.01
If lmmCount <= 0 Then
iCountStart = 60
lmmCount = 60
TimerCount = 60
EndCount
End If
End Sub
Sub EndCount()
iCount = iCountStart
iCountStart = 0
timeKillEvent lTimeID
actTime2 = GetTickCount - actTime1
With Form1
.Command1.Enabled = True
.Command2.Enabled = False
.Timer1.Enabled = False

.Text1 = "計數(shù)器記時" + Format$((60 - iCount), "00.00") + " " _
+ "實際經(jīng)過時間" + Format$((actTime2 / 1000), "00.00")
.Text2 = "計數(shù)器記時" + Format$((60 - lmmCount), "00.00") + " " _
+ "實際經(jīng)過時間" + Format$((actTime2 / 1000), "00.00")
.Text3 = "計數(shù)器記時" + Format$((60 - TimerCount), "00.00") + " " _
+ "實際經(jīng)過時間" + Format$((actTime2 / 1000), "00.00")
End With
End Sub


運行程序，點擊“開始倒記時”按鈕開始倒記時，可以看到兩種API記時器工作基本正常，文本框中的倒記時顯示流暢，而Timer控件的時間顯示相比之下卻不堪重負，十分緩慢。按“停止記時”按鈕就可以停止倒記時，由圖1可以看到，兩種API記時器的累計誤差在2‰以下，考慮到系統(tǒng)原因和處理記時顯示的時間，這個誤差基本是可以接受的，而且經(jīng)過作者的多次檢測，誤差都在3‰以下。而Timer控件的誤差簡直是無法接受的。

在運行程序時作者還發(fā)現(xiàn)一個問題，如果在倒記時時拖動窗口，文本框中的顯示都會停止，而當(dāng)停止窗口拖放后，多媒體記時器顯示會跳過這段時間記時，而其它兩種記時器顯示倒記時卻還是從原來的時間倒數(shù)。這說明多媒體記時器是在獨立的線程中運行的，不會受到程序的影響。

綜合上面的介紹和范例，我們可以看到，如果要建立高精度的記時器，使用多媒體記時器是比較好的選擇。而高性能頻率記數(shù)法比較適合計算某個耗時十分短的過程所消耗的時間（例如分析程序中某個被多次調(diào)用的程序段執(zhí)行時間以優(yōu)化程序），因為畢竟高性能頻率記數(shù)的理論可以達到微秒級別。Timer控件雖然精度比上面兩者差很多，但是它使用方便，在要求不高的場合它還是最佳選擇。
以上程序在Windows 98中文版，VB6下運行通過。