Von 120 runterzählen lassen - wie?
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von Manschula.
-
-
-
-
Du nimmst einen Timer, setzt den Intervall auf das was du willst (nehmen wir mal 1 Sekunde) dann schreibst du in die Sub mit dem Tick Event das hier:
EDIT:
Nimm lieber das von UFO oder mir. Bei Flipez fehlt die If Abfrage. Wenn die nicht dabei ist zählt er immer weiter
Mfg
FirestormDieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Firestorm“ ()
-
-
-
-
Hawk1337 schrieb:
Wenn ich das mache, stehen die Zahlen von 120 bis 0 untereinander! -
Hawk1337 schrieb:
Also runterzählen nenn ich was anderes... -
-
LaVendetta schrieb:
Also runterzählen nenn ich was anderes...
Ich hätte wohl mal den ganzen Post lesen sollen -
-
VB.NET-Quellcode
- Dim a As Integer = 120
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Timer1.Start()
- End Sub
- Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- a -= 1
- Label1.Text = a.ToString
- If a = 0 Then DirectCast(sender, Timer).Stop()
- End Sub
-
Vermutlich, weil das hier keine gültige Anweisung ist. Der Gedanke dahinter war, du sollst eine Anweisung dort einfügen, wo das Timer-Tick-Ereignis verarbeitet wird...
Wie sowas aussieht, gabs hier auch schon:
Edit: @ xtts02: Wenn du es so machst, dann fang bei 121 an.. -
Manschula schrieb:
Label3.Text = a
Timer1.Tick Event
a = a - 1
Sag ma ... xDDD ??
Du musst Timer1.Tick Event mit:
Ersetzen und dann am Ende noch das
EDIT: Waren wohl 2 vor mir -
UFO schrieb:
@ Firestorm
will ja nichts sagen aber bei dir wird nichts runtergezählt, weil ja CountStatus nur als integer deklariert ist.
wenn dan so:
Dim CountStatus As Integer = 120 -
xtts02 schrieb:
a -= 1
Label1.Text = a.ToString
If a = 0 Then DirectCast(sender, Timer).Stop()
danke hat perfekt funktioniert -
Hey,
LaVendetta schrieb:
Sag ma ... xDDD ??
Richtiges Zitieren ist nicht deine Stärke, oder?
Erschreckend, wie hier für ein scheinbar triviales Thema mehr als 15 Antworten benötigt werden...
Gruß, Manschula
-
Tags
-
Ähnliche Themen
-
Daniel Baumert - - Sonstige Problemstellungen
-
Mr. VB - - Sonstige Problemstellungen