Countdown mit VB 2008

[Darthcrawl]

Ich würde gerne einen Countdown einrichten der nach Ablauf einen Befehl ausführt der alle Programme beendet und den Rechner runterfährt.

Ich habe 4 Radiobuttons, 1 Textfeld und einen Button. Erstmal habe ich mir Radiobuttons angekuckt.

Hier habe ich es so gemacht das beim klicken der Konstantewert im Texfeld angezeigt wird.
Jetzt soll normal von diesem Wert runtergezählt werden.



Private Sub Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ok.Click
Const dreißig As Integer = 30
Const sechzig As Integer = 60
Const neunzig As Integer = 90
Const hundertzwanzig As Integer = 120

If dreißigbutton.Checked Then
Dim anzeige1 = Str(dreißig)
TextBoxTimer.Text = dreißig
ElseIf sechzigbutton.Checked Then
Dim anzeige2 = Str(sechzig)
TextBoxTimer.Text = anzeige2
ElseIf neunzigbutton.Checked Then
Dim anzeige3 = Str(neunzig)
TextBoxTimer.Text = anzeige3
ElseIf hundertzwanzigbutton.Checked Then
Dim anzeige3 = Str(hundertzwanzig)
TextBoxTimer.Text = anzeige3
End If
End Sub


Kann mir jemand jetzt ein paar Tipps geben? Ich weiß das ich jetzt den Datentyp Date brauche, aber beim umwandeln bekomm ich die Meldung das der Intergerwert 30 nicht in Date umgewandelt werden kann

[Berufspenner]

Soll das der vollständige Code sein oder ist das nur ein unfertiges Fragment? Ich kenn mich mit VB ja mal so gar nicht aus, aber irgendwie fehlt mir da der eigentliche Countdown bei. Also die Erzeugung eines Zeitwertes und deren sekündliche verminderung bis zum Ende ;)

[Darthcrawl]

Ja nee :)

das war ja erstmal eine Spielerei mit den Konstanten, Radiobuttons und dem Textfeld.
Das mit dem Countdown fehlt.
Ich hab halt nach dem Code erstmal versucht die Ausgabe im Textfeld in Minuten anzugeben. Da hab ich momentan Probleme. Der nächste Schritt wäre der Timer, wobei ich für den Timer sehr sehr viele unterschiedliche Codes im Netz gefunden habe.

[Berufspenner]

Achso, weil du gemeint hast, dass du Probleme bei der Verarbeitung deiner Int-Werte in äquivalente Zeit-Typen hast. Es wäre also sinnvoller, wenn du dazu deinen Code mal postest bzw. bei dem bereits gezeigten Code das Problem hervorhebst ;)

[Darthcrawl]

Ich hab mal folgendes probiert



Private Sub Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ok.Click
Const dreißig As Integer = 30 <----- hab ich mal in Dim dreißig As date = 30 geändert, aber Integerwerte können wohl nicht als Date deklariert werden. Hab das dann rückgängig gemacht.
Const sechzig As Integer = 60
Const neunzig As Integer = 90
Const hundertzwanzig As Integer = 120

If dreißigbutton.Checked Then
Dim anzeige1 = Str(dreißig) <-------- als zweites habe ich das in Dim anzeige1 = minute(dreißig) geändert, ging auch nicht
TextBoxTimer.Text = dreißig
ElseIf sechzigbutton.Checked Then
Dim anzeige2 = Str(sechzig)
TextBoxTimer.Text = anzeige2
ElseIf neunzigbutton.Checked Then
Dim anzeige3 = Str(neunzig)
TextBoxTimer.Text = anzeige3
ElseIf hundertzwanzigbutton.Checked Then
Dim anzeige3 = Str(hundertzwanzig)
TextBoxTimer.Text = anzeige3
End If
End Sub