Guten morgen…
Ich brauche unbedingt eure Hilfe…
Auf einem Formular ist eine Stopuhr…wie kann ich das machen das alle 15minuten sich eine Zahl in einer Labelfeld um 0,55 erhöht…
Also…
bis 15 minuten --> 0,55
Bis 30 minuten --> 1,10
Bis 45 minuten --> 1,65
Bis 60 minuten --> 2,20
Usw.
Das heisst die Zahl in dem Labelfeld wird alle 15 minuten um 0,55 erhöht.
Ich hoffe ihr können mir helfen…
Lg Maria
Hall Maria,
nimm das Timer Objekt und Zählvariable.
TimerIntervall = 1000 (entspricht 1 Sec.)
15 Min = 900 Sec.
30 min = 1800 Sec. usw.
Das Ganze erledigst Du im Timer-Ereignis
Gruss Steven
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Steven,
fast richtig. Als Timer-Interval kann man Werte bis zu 64000 einstellen, mehr als 60000 = eine Minute machen da wenig Sinn.
Ein wenig rechnen muß man schon. Eine Möglichkeit zum Beispiel:
Einer Timer auf die Form legen und den Interval auf 60000 setzen.
Private Sub Timer1_Timer()
Static cnt
cnt = cnt + 1
If cnt >= 15 Then
cnt = 0
Label1.Caption = Csng(Label1.Caption) + 0.55
EndIf
End Sub
… nicht getestet, deshalb sind Tippfehler möglich, sollte aber so gehen.
cu Rainer