vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Variablen & Strings01.02.03
Countdown

VB-Version:  VB5, VB6
 Views:  14.713 

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

Diese Seite wurde bereits 14.713 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel