Hallo Community!
Wollte grade einen Countdown Timer erstellen.
Die Source habe ich aus dem Internet.
Ich habe folgendes Problem:
Ich will nicht das z.B. die Sekunden von 10 auf 9 springen sondern von 10 auf 09.
Ich habe folgende Elemente:
1x Start/Pause Button (um den Timer zu starten)
1x OK Button (Um die eingegebene Zeit festzulegen)
1x Reset Button (Um die Zeit auf 00:00:00 zu setzen)
3x Label (STUNDEN-; MINUTEN-; SEKUNDENANZEIGE)
3x Textbox (STUNDEN-; MINUTEN-; SEKUNDENTEXTBOX)
Bild:
Problem (ich will 07 nicht 7):
Sourcecode:
Ich hoffe das mir jemand weiterhelfen kann.
Wollte grade einen Countdown Timer erstellen.
Die Source habe ich aus dem Internet.
Ich habe folgendes Problem:
Ich will nicht das z.B. die Sekunden von 10 auf 9 springen sondern von 10 auf 09.
Ich habe folgende Elemente:
1x Start/Pause Button (um den Timer zu starten)
1x OK Button (Um die eingegebene Zeit festzulegen)
1x Reset Button (Um die Zeit auf 00:00:00 zu setzen)
3x Label (STUNDEN-; MINUTEN-; SEKUNDENANZEIGE)
3x Textbox (STUNDEN-; MINUTEN-; SEKUNDENTEXTBOX)
Bild:
Problem (ich will 07 nicht 7):
Sourcecode:
VB.NET-Quellcode
- Public Class Form2
- Private Sub reset_button_Click(sender As Object, e As EventArgs) Handles reset_button.Click
- stunden_label.Text = "00"
- minuten_label.Text = "00"
- sekunden_label.Text = "00"
- Timer1.Enabled = False
- End Sub
- Private Sub start_pause_button_Click(sender As Object, e As EventArgs) Handles start_pause_button.Click
- If start_pause_button.Text = "Start" Then
- Timer1.Enabled = True
- ok_button.Enabled = False
- start_pause_button.Text = "Pause"
- ElseIf start_pause_button.Text = "Pause" Then
- Timer1.Enabled = False
- reset_button.Enabled = True
- ok_button.Enabled = True
- start_pause_button.Text = "Start"
- End If
- End Sub
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- Timer1.Interval = 1000
- If stunden_label.Text = "" Then
- stunden_label.Text = "0"
- End If
- If minuten_label.Text = "" Then
- minuten_label.Text = "0"
- End If
- If sekunden_label.Text = "" Then
- sekunden_label.Text = "0"
- End If
- If stunden_label.Text = "00" Then
- stunden_label.Text = "0"
- End If
- If minuten_label.Text = "00" Then
- minuten_label.Text = "0"
- End If
- If sekunden_label.Text = "00" Then
- sekunden_label.Text = "0"
- End If
- If sekunden_label.Text > "0" Then
- sekunden_label.Text = sekunden_label.Text - 1
- End If
- If minuten_label.Text > "0" Then
- If sekunden_label.Text = "0" Then
- minuten_label.Text = minuten_label.Text - 1
- sekunden_label.Text = "59"
- End If
- End If
- If stunden_label.Text > "0" Then
- If minuten_label.Text = "0" Then
- If sekunden_label.Text = "0" Then
- stunden_label.Text = stunden_label.Text - 1
- minuten_label.Text = "59"
- sekunden_label.Text = "59"
- End If
- End If
- End If
- If sekunden_label.Text = "0" Then
- If minuten_label.Text = "0" Then
- If stunden_label.Text = "0" Then
- Timer1.Enabled = False
- MessageBox.Show("Die Zeit ist abgelaufen!", _
- "Zeit um", _
- MessageBoxButtons.OK, _
- MessageBoxIcon.Information)
- start_pause_button.Text = "Start"
- reset_button.Enabled = False
- End If
- End If
- End If
- End Sub
- Private Sub ok_button_Click(sender As Object, e As EventArgs) Handles ok_button.Click
- If sekunden_textbox.Text = "00" Then
- If minuten_textbox.Text = "00" Then
- If stunden_textbox.Text = "00" Then
- start_pause_button.Enabled = False
- MsgBox("Bitte gib einen Wert größer als 0 ein!")
- End If
- End If
- End If
- If sekunden_textbox.Text = "0" Then
- If minuten_textbox.Text = "0" Then
- If stunden_textbox.Text = "0" Then
- start_pause_button.Enabled = False
- MsgBox("Bitte gib einen Wert größer als 0 ein!")
- End If
- End If
- End If
- If sekunden_textbox.Text = "" Then
- minuten_textbox.Text = ""
- stunden_textbox.Text = ""
- start_pause_button.Enabled = False
- MessageBox.Show("Bitte gib eine Zeit ein!", _
- "Keine Zeit eingegeben", _
- MessageBoxButtons.OK, _
- MessageBoxIcon.Warning)
- End If
- ok_button.Enabled = True
- stunden_label.Text = stunden_textbox.Text
- minuten_label.Text = minuten_textbox.Text
- sekunden_label.Text = sekunden_textbox.Text
- If stunden_label.Text > "0" Then
- start_pause_button.Enabled = True
- End If
- If minuten_label.Text > "0" Then
- start_pause_button.Enabled = True
- End If
- If sekunden_label.Text > "0" Then
- start_pause_button.Enabled = True
- End If
- End Sub
- End Class
Ich hoffe das mir jemand weiterhelfen kann.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „nikexo“ ()