Rubrik: Allgemein | 15.11.02 |
Anzeigen wie lange ein Programm schon läuft VB-Version: VB5, VB6 | ||
Views: 11.078 |
Sie möchten wissen, wie lange Ihr Programm läuft? Hierzu müssen Sie die Zeit des Starts ermitteln und dann die laufende Zeit hinzuaddieren. Das Ganze sieht dann so aus:
Starten Sie ein neues Projekt und setzen auf die Form ein Timer-Control sowie ein Label zur Anzeige der Zeit. Dann noch diesen Code:
' Variable, die die Zeit des Programmstarts beinhaltet Public dProgStart As Date Private Sub Form_Load() ' ermitteln der Zeit bei Programmstart dProgStart = CDate(CStr(Date) & " 00:00:00") ' Timer-Intervall auf 1000 ms = 1 Sekunde setzen Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Static lSekTimer As Long Dim n As Date ' sekundenweise hochzählen lSekTimer = lSekTimer + 1 ' zu bereits vergangener Zeit die Sekunden hinzuzählen n = DateAdd("s", lSekTimer, dProgStart) ' auf dem Label aktuell die vergangene Zeit seit Programmstart anzeigen Label1.Caption = Format(n, "hh:mm:ss") End Sub
Wenn Sie jetzt ihr Programm starten, wird Ihnen im Label die seit Programmstart vergangene Zeit angezeigt.