VB 6.0에서 밀리 초 단위로 실행 시간 계산

이미지 암호화 기능 작성이 끝났으므로 함수의 시간과 CPU 실행을 계산하고 싶습니다. 이 코드는 Visual Basic 6.0으로 작성되었습니다. VB 6.0에서이 함수에 대한 시간 및 CPU 사용량을 계산하는 정확도 코드가 있습니까?VB 6.0에서 밀리 초 단위로 실행 시간 계산

출처

2015-01-20 Jane

은 당신이 요구하는 무엇을 말할 수 있지만 이후하는 MS 측정을위한 충분한 정확한 밤은는 CPU 타이머의 해상도 누군가가 당신을 위해 타이머 기능을 작성하도록 요청하는 것처럼 보이는 코드는 게시하지 않았습니다. 다음은 예제 링크 인 http://www.windowsdevcenter.com/pub/a/windows/2005/03/01/VB_timer.html입니다. 또는 코드가 있고 도움이 필요하면 시도한 내용과 문제의 부분을 업데이트하십시오. – jac

내가 기억한다면, TimeGetTime은 winmm.dll에서 꽤 정확합니다. https://msdn.microsoft.com/en-us/library/windows/desktop/dd757629%28v=vs.85%29.aspx – xpda

당신은

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

에주의 불구의 GetTickCount() API를 사용할 수

힘든

출처

2015-01-21 06:54:46 Hrqls

VB 6.0에서 밀리 초 단위로 실행 시간 계산

답변

관련 문제