HiResTimer_Start (XAPI2000)
![]()
| Deklaration Sub HiResTimer_Start () Beskrivning Startar en högprecisionstidmätning. Avläsning av hittils förfluten tid utförs med funktionen HiResTimer_GetElapsedTime. Nogrannheten för denna funktion är en mikrosekund (0.000001 s), vilket innebär att mycket nogranna mätningar är möjliga. Den vanliga timern i Visual Basic har bara en nogrannhet på 55 ms (ca 1/18 sekund). Se även HiResTimer_GetElapsedTime, HiResTimer_GetFrequency |
Exempel
Nedanstående exempel mäter hur många
mikrsosekunder det tar att tilldela en label en textsträng i ett formulär.
Dim X As Long '
Sätt datatyperna till 'Integer' i VB.NET
Dim T As Long
' Först kollar vi hur mycket själva timer-funktionerna
tar på sig vid anrop
' och lagrar resultatet i variabeln X
HiResTimer_Start
X = HiResTimer_GetElapsedTime()
' Nu startar vi en tidmätning
HiResTimer_Start
' Vi tilldelar en label en textsträng (vi ska mäta
tiden för denna process)
Label1 = "SamLogic VB Super Library"
' Nu hämtar vi förfluten tid i mikrosekunder och drar
av X från detta och
' lagrar resultatet i variabeln T
T = HiResTimer_GetElapsedTime() - X
![]()