Bluesun456
Grünschnabel
ich habe ein programm geschriebn mit nem timer der imma 5minutn runter zählt und das in einem loop! ja soweit so gut mein problem ist wie kann ich dieser timer auch grafisch darstellen. danke euch jetzt schon für eure hilfe
Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Private Sub Form_Load()
ProgressBar1.Max = 300
ProgressBar1.Min = 0
ProgressBar1.Value = 300
ProgressBar1.Scrolling = ccScrollingSmooth
Label1.Caption = "00:05:00"
Zeit = "00:05:00"
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If ProgressBar1.Value > 0 Then
ProgressBar1.Value = ProgressBar1.Value - 1
Zeit = DateAdd("s", -1, Zeit)
Label1.Caption = CStr(Zeit)
Else
ProgressBar1.Value = 299
Label1.Caption = "00:04:59"
Zeit = "00:04:59"
End If
End Sub