003
25.04.2005, 21:31 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)
|
Brauchen tut das Programm nur einen Timer (Timer1) und ein Label Control (Label1).
Dem Timer gibst du einen Intervall von 100.
| Visual Basic: |
Timer1.Intervall = 100
|
Berechnen kannst du die Variablen (in dem Code sind es Strings) folgendermaßen:
| Visual Basic: |
Dim sekunden As String
Dim minuten As String
Dim stunden As String
Dim zeit
Private Sub Timer1_Timer()
zeit = Time
sekunden = Format(Second(zeit), "00")
minuten = Format(Minute(zeit), "00")
stunden = Format(Hour(zeit), "00")
Label1.Caption = stunden & ":" & minuten & ":" & sekunden
End Sub
|
Um die Zeit berechnen zu könne, musst du es natürlich erstmal außerhalb des Subs deklarieren, damit die Angaben auch von anderen Modulen e.t.c. erreichbar sind.
Da die Sekunden in "XX" angegeben werden ("##", zwei Zahlen als eine Ganzzahl) kannst du sie auch so berechnen.
| Visual Basic: |
Dim Test As String
sekunden * minuten - stunden = Test + " " & zeit
|
Damit kannst du sozusagen alles machen, was du willst.
Die verschiedenen Strings sind schon vordeklariert (wie gesagt, noch außerhalb des Subs) und du kannst mit ihnen spielen ;-)
--
Mit freundlichen Grüßen
Audron, audron@sxene.de
|
