Eine einfache Uhr in Visual Basic erstellen
Dafür brauchen wir zuerst einmal ein Label, und einen Commandbutton.
Das Label wird in der oberen rechten ecke platziert und bekommt von uns folgende
Eigenschaftswerte
Name: lblZeit
Caption: (leer)
Height: 860
Width: 2055
Alle anderen werte bleiben unverändert!
Der Commandbutton wird direkt unter dem Label platziert und bekommt folgende werte:
Name: cmdZeit
Caption: Zeit Anzeigen
Height: 495
Width: 1455
So mit der oberfläche sind wir jetzt fertig, aber wenn wir das Programm laufen lassen passiert noch nichts. Der Quellcode fehlt ja noch! Der sieht so aus:
Private Sub cmdZeit_Click()
lblZeit.Caption = Time()
End Sub
lblZeit.caption gibt an das der Wert Caption des Objektes lblZeit verändert wird.
Das Time() ist ein Funktion von Visual Basic das uns die Aktuelle Uhrzeit angibt.
lblZeit.Caption = Time() diese Zeile bedeutet also: Zeige mir in lblZeit die Uhrzeit!
Wenn wir das Programm jetzt starten wird uns die Uhrzeit angezeigt. Prima!
Doch die Uhr läuft nicht weiter sondern bleibt einfach stehen?!?
Wir müssen Visual Basic dazu bringen die Uhrzeit immer zu erneuern, das machen wir mit einem Timer!
Der Timer kann irgendwo auf der Form platzier werden, da er später nicht zu sehen ist.
Er bekommt folgenden werte:
Name:Timer_Zeit
Enabled:False
Interval: 100
Enabled: False sorgt dafür das der Timer nicht schon bei Programmstart läuft den wir sollen die Uhrzeit ja erst auf Knopfdruck sehen! Aber damit das Pogramm funktioniert müssen wir den Quellcode entsprechend anpassen das sieht dann so aus:
Private Sub cmdZeit_Click()
Timer_Zeit.Enabled = True
End Sub
Private Sub Timer_Zeit_Timer()
lblZeit.Caption = Time()
End Sub
Erklärung: Bei dem Click auf den Button cmdZeit wird der Timer aktiviert (Enabled=True)
Der Timer bewirkt das alle 100 Millisekunden (intervall) die Zeit in lblZeit angezeigt wird!
Das Programm ist fertig und liefert uns immer die neueste Uhrzeit. Super :)
Ich hoffe das alles verständlich war da dies mein erstes Tutorial ist
Bei Fragen,Problemen oder Anmerkungen bitte eine Email and Black_Wolf3@web.de
Oder eine Nachricht direkt über Lima
Mit freundlichen Grüßen
BlackWolf