VB-Homepage Tipp 099

Ermitteln der Windows Laufzeit

Manchmal wundert man sich ja so, was Windows alles so im Hintergrund macht und warum einfache Aktionen so lange dauern. Wenn man aber programmiert und sieht was für aktuelle Daten Windows alles so bereit hält, die man über eine API - Funktion abrufen kann, "versteht" man es schon eher. Eine dieser Funktionalitäten ist ein Timer der seit dem Start Ihrer Windows-Sitzung läuft.
Und genau diese Zeit wollen wir hier sichtbar machen.

General/Declarations - Allgemein/Deklarationen
16Bit
Declare Function GetTickCount Lib "User" () As Long '(1)
Dim S@
32Bit
Declare Function GetTickCount Lib "kernel32" () As Long
Dim S@

General/GetTimeUp - Allgemein/GetTimeUp
Function GetTimeUp$ ()
GetTimeUp$ = TicksToTime$(GetTickCount&())
End Function

General/TicksToTime - Allgemein/TicksToTime
Function TicksToTime$ (ByVal T@)
Dim xDays%, xHours%, xMins%, xSecs%, xT$
Const MSINSEC = 1000@
Const MSINMIN = MSINSEC * 60@
Const MSINHOUR = MSINMIN * 60@
Const MSINDAY = MSINHOUR * 24@
xDays% = Int(T@ / MSINDAY)
T@ = T@ - xDays% * MSINDAY
xHours% = T@ \ MSINHOUR
T@ = T@ - xHours% * MSINHOUR
xMins% = T@ \ MSINMIN
T@ = T@ - xMins% * MSINMIN
xSecs% = T@ \ MSINSEC
xT$ = Format$(xDays%, "00:")
xT$ = xT$ + Format$(xHours%, "00:")
xT$ = xT$ + Format$(xMins%, "00:")
xT$ = xT$ + Format$(xSecs%, "00")
TicksToTime$ = xT$
End Function

Fügen Sie Ihrer Form einen Timer hinzu und stellen den Intervall auf 1000 (1.sek)
Timer1_Timer
Label1.Caption = GetTimeUp$()

Desweiteren benötigen Sie noch ein Labelobjekt (Label1), zur Anzeige der Windows Laufzeit.

Tipp-Download

Quelle : Cobbs / Inside VB

Zurück zur Übersichtsseite