Countdown VB-Version:  VB5, VB6
	Views:  15.065

Wie kann man von einer bestimmten Zeit rückwärts zählen - also einenCountdown programmieren?

Nehmen Sie eine Form, darauf ein Label und einen Timer und folgenden Code:

Option Explicit
 
Private nSek As Integer
 
Private Sub Form_Load()
  ' Timer initialisieren
  Timer1.Interval = 1000   ' entspricht einer Sekunde
 
  ' Countdown
  nSek = 10
  Label1.Caption = CStr(nSek)
End Sub
 
Private Sub Timer1_Timer()
  ' und wieder eine Sekunde vorbei
  nSek = nSek - 1
  Label1.Caption = CStr(nSek)
 
  ' Falls 10 Sekunden erreicht, Timer deaktivieren
  If nSek < 1 Then Timer1.Enabled = False
End Sub

Hier habe ich mal 10 Sekunden zu Grunde gelegt. Natürlich geht es auch mitMinuten - aber zum Ausprobieren ist dies hier kurzweiliger