|
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
|
