在VB 6.0中以毫秒計算執行時間

我已經完成了一個圖像加密函數的編寫，並且我想計算函數的時間和cpu執行。此代碼是用Visual Basic 6.0編寫的。你有準確性代碼來計算VB 6.0中這個函數的時間和CPU支出嗎？在VB 6.0中以毫秒計算執行時間

2015-01-20 Jane

很難告訴你問什麼，但既然你沒有發佈任何代碼，它看起來像你要求有人爲你寫一個計時器功能。以下是一個示例鏈接：http：//www.windowsdevcenter.com/pub/a/windows/2005/03/01/VB_timer.html。或者，如果您有代碼並需要幫助，請用您嘗試過的方式更新您的問題，以及問題的哪一部分是問題。 – jac 2015-01-21 00:25:28

如果我沒有記錯，TimeGetTime是非常準確的，從winmm.dll。 https://msdn.microsoft.com/en-us/library/windows/desktop/dd757629%28v=vs.85%29.aspx – xpda 2015-01-22 05:04:27

可以使用的GetTickCount（）API

Option Explicit 

Private Declare Function GetTickCount Lib "kernel32"() As Long 

Private Sub Command1_Click() 
    YourFunction 
End Sub 

Private Function YourFunction() As Long 
    Dim lngTime As Long 
    Dim lngIndex As Long 
    'record start 
    lngTime = GetTickCount 
    'do your thing 
    For lngIndex = 1 To 10000 
    Caption = CStr(lngIndex) 
    Next lngIndex 
    'record passed time 
    lngTime = GetTickCount - lngTime 
    Print "execution took " & CStr(lngTime); " ms" 
End Function

注重雖然在CPU計時器的分辨率心不是爲MS測量不夠準確

來源

2015-01-21 06:54:46 Hrqls

在VB 6.0中以毫秒計算執行時間

回答

相關問題