vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
zurück
Rubrik: Allgemein15.11.02
Anzeigen wie lange ein Programm schon läuft

VB-Version:  VB5, VB6
 Views:  9.446 

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.

Diese Seite wurde bereits 9.446 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2019 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel