HI Leutz
Ich hab da ein problem : ich habe ein VB programm geschrieben welches die aktuelle zeit datum usw. angibt. ( mit den befehlen hour(time) second(time) usw. )
Das Problem ist das nur die zeit beim laden des programmes angezeigt wird und dann stehen bleibt. Das liegt daran das die uhr nicht mehr aktualisiert wird.
Wie kann man das machen ?
Borlander
Suncezz
„VB Aktualisierung“
Wenn der Ausgabecode nur einmal durchlaufen wird, dann wird die Zeit natürlich auch nur einmal ausgegeben, am besten verwendest Du eine Timer Componente (bei Delpi wäre das TTimer, denke das wird bei VB so ähnliuch heißen), stellst einen Intervall von einer Sekunde ein und als fügst den notwendigen Code in die Ereignisbehandlung ein...
CU Borlander
T-Rex
Suncezz
„VB Aktualisierung“
Hi,
' Du brauchst:
' - 1 Label (Label1)
' - 1 Timer (Timer1)
Option Explicit
Private Sub Form_Load()
' Timer einstellen
With Timer1
.Interval = 500 ' Millisekunden
.Enabled = True
End With
End Sub
Private Sub Timer1_Timer()
Static blnDoppelPunkt As Boolean
' Aktuelle Zeit ausgeben
If blnDoppelPunkt Then
Label1.Caption = Format$(Now, "hh\:nn")
Else
Label1.Caption = Format$(Now, "hh\ nn")
End If
' Flag ändern
blnDoppelPunkt = Not (blnDoppelPunkt)
End Sub
Borlander
T-Rex
„Hi, Du brauchst: - 1 Label Label1 - 1 Timer Timer1 Option Explicit Private Sub...“
T-Rex
Borlander
„ Warum 500ms? Ein mal pro Sekunde 1000ms sollte doch voll ausreichen - alles...“
Borlander
T-Rex
„ Damit der Doppelpunkt blinkt . Über die Systembelastung braucht man sich...“
Hab mir den Quelltext nicht so genau durchgelesen mir sind nur die 500ms ins Auge gesprungen. Wenn man dieses "Feature" umbedingt braucht sollte man aber auf die Breite des Leerzeichens und Doppelpunktes achten - unterscheidet die sich, dann würde die Anzeige "zittern" (vertikale Verschiebung des Textes rechts vom Leerzeichen / Doppelpunkt).
Über die Systembelastung braucht man sich keinen Kopf machen
Wir haben sowieso alle mehr unter dem Tisch stehen als wir eigentlich brauchen ;-)
Trotzdem bin ich mit der Rechernzeit gerne sparsam...
CU Borlander
Suncezz
Nachtrag zu: „VB Aktualisierung“
HI
Danke für die Antworten es geht nun !
