Genaue Zeitmessung im 10.000stel Sekundenbereich Wenn es um eine absolut exakte Zeitmessung im 10.000stel Sekundenbereich geht, hilft dieser Code weiter.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  27.861
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 32 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.4 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Wenn es um eine absolut exakte Zeitmessung geht, dann sollten Sie sich die API-Funktionen "QueryPerformanceFrequency" und "QueryPerformanceCounter" einmal zu Gemüte führen. Mit diesen beiden Funktionen lässt sich die Zeit nicht im Millisekundenbereich messen, sondern mit einer Genauigkeit einer 10.000stel Sekunde!

Option Explicit
 
' zunächst die benötigten API-Deklarationen
Private Declare Function QueryPerformanceFrequency Lib "kernel32" ( _
  lpFrequency As Currency) As Long
 
Private Declare Function QueryPerformanceCounter Lib "kernel32" ( _
  lpPerformanceCount As Currency) As Long

' exakte Zeitmessung
Public Function TimerEx() As Currency
  Static nFreq As Currency
 
  If nFreq = 0 Then
    QueryPerformanceFrequency nFreq
  End If
 
  Dim nTimer As Currency
  QueryPerformanceCounter nTimer
  TimerEx = nTimer / nFreq
End Function

Ein kleines Beispiel:
Es soll die Zeit gemessen werden, die benötigt wird, um in einer ListBox einen neuen Eintrag hinzuzufügen. Die erste Zeitmessung erfolgt mit Hilfe der Timer-Funktion von VB:

Dim nTime As Single
nTime = Timer()
List1.AddItem "ein neuer Eintrag"
Label1.Caption = CStr(Timer - nTime) & " Sekunden"

Als Ergebnis kann hier - je nach Prozessorleistung - durchaus ein negativer Wert angezeigt werden, was ja eigentlich gar nicht sein kann

Die Zeitmessung mit der neuen TimerEx-Funktion hingegen, gibt das richtige Ergebnis zurück:

Dim nTime As Currency
nTime = TimerEx()
List1.AddItem "ein neuer Eintrag"
Label1.Caption = CStr(TimerEx() - nTime) & " Sekunden"