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