title image


Smiley Countdown
Hallo community!



Ich möchte ein Countdown-Programm schreiben, bei dem ich (vorwiegend) 10 Minuten herunter zählen lasse. Dabei sollen sich die Sekunden in einem label und die Minuten in einem anderen label reduzieren. Falls es aber auch schon in einem Fenster geht, auch gut.



Mein bisheriger Code:



Dim Zahl%

Dim i%



'runterzählen von zahl aus "form load"

Label1.Caption = CInt(Label1.Caption) - 1



Zahl = CInt(Label1.Caption)

If Zahl = 4 Then Beep

If Zahl <= 3 Then

For i = 1 To 3

Beep

Next i



If Zahl <= 0 Then

Timer1.Enabled = False

Label1.Caption = "000"

MsgBox "und Stopp!", vbInformation + vbOKOnly, "STOP"

End If

End If

End Sub



Wer kann helfen?

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: