Countdown Timer Problem

  • VB.NET

Es gibt 30 Antworten in diesem Thema. Der letzte Beitrag () ist von nikexo.

    Countdown Timer Problem

    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:

    VB.NET-Quellcode

    1. Public Class Form2
    3. Private Sub reset_button_Click(sender As Object, e As EventArgs) Handles reset_button.Click
    4. stunden_label.Text = "00"
    5. minuten_label.Text = "00"
    6. sekunden_label.Text = "00"
    7. Timer1.Enabled = False
    8. End Sub
    10. Private Sub start_pause_button_Click(sender As Object, e As EventArgs) Handles start_pause_button.Click
    11. If start_pause_button.Text = "Start" Then
    12. Timer1.Enabled = True
    13. ok_button.Enabled = False
    14. start_pause_button.Text = "Pause"
    15. ElseIf start_pause_button.Text = "Pause" Then
    16. Timer1.Enabled = False
    17. reset_button.Enabled = True
    18. ok_button.Enabled = True
    19. start_pause_button.Text = "Start"
    20. End If
    21. End Sub
    23. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    24. Timer1.Interval = 1000
    25. If stunden_label.Text = "" Then
    26. stunden_label.Text = "0"
    27. End If
    28. If minuten_label.Text = "" Then
    29. minuten_label.Text = "0"
    30. End If
    31. If sekunden_label.Text = "" Then
    32. sekunden_label.Text = "0"
    33. End If
    34. If stunden_label.Text = "00" Then
    35. stunden_label.Text = "0"
    36. End If
    37. If minuten_label.Text = "00" Then
    38. minuten_label.Text = "0"
    39. End If
    40. If sekunden_label.Text = "00" Then
    41. sekunden_label.Text = "0"
    42. End If
    43. If sekunden_label.Text > "0" Then
    44. sekunden_label.Text = sekunden_label.Text - 1
    45. End If
    46. If minuten_label.Text > "0" Then
    47. If sekunden_label.Text = "0" Then
    48. minuten_label.Text = minuten_label.Text - 1
    49. sekunden_label.Text = "59"
    50. End If
    51. End If
    52. If stunden_label.Text > "0" Then
    53. If minuten_label.Text = "0" Then
    54. If sekunden_label.Text = "0" Then
    55. stunden_label.Text = stunden_label.Text - 1
    56. minuten_label.Text = "59"
    57. sekunden_label.Text = "59"
    58. End If
    59. End If
    60. End If
    62. If sekunden_label.Text = "0" Then
    63. If minuten_label.Text = "0" Then
    64. If stunden_label.Text = "0" Then
    65. Timer1.Enabled = False
    66. MessageBox.Show("Die Zeit ist abgelaufen!", _
    67. "Zeit um", _
    68. MessageBoxButtons.OK, _
    69. MessageBoxIcon.Information)
    70. start_pause_button.Text = "Start"
    71. reset_button.Enabled = False
    72. End If
    73. End If
    74. End If
    75. End Sub
    77. Private Sub ok_button_Click(sender As Object, e As EventArgs) Handles ok_button.Click
    78. If sekunden_textbox.Text = "00" Then
    79. If minuten_textbox.Text = "00" Then
    80. If stunden_textbox.Text = "00" Then
    81. start_pause_button.Enabled = False
    82. MsgBox("Bitte gib einen Wert größer als 0 ein!")
    83. End If
    84. End If
    85. End If
    86. If sekunden_textbox.Text = "0" Then
    87. If minuten_textbox.Text = "0" Then
    88. If stunden_textbox.Text = "0" Then
    89. start_pause_button.Enabled = False
    90. MsgBox("Bitte gib einen Wert größer als 0 ein!")
    92. End If
    93. End If
    94. End If
    95. If sekunden_textbox.Text = "" Then
    96. minuten_textbox.Text = ""
    97. stunden_textbox.Text = ""
    98. start_pause_button.Enabled = False
    99. MessageBox.Show("Bitte gib eine Zeit ein!", _
    100. "Keine Zeit eingegeben", _
    101. MessageBoxButtons.OK, _
    102. MessageBoxIcon.Warning)
    104. End If
    105. ok_button.Enabled = True
    106. stunden_label.Text = stunden_textbox.Text
    107. minuten_label.Text = minuten_textbox.Text
    108. sekunden_label.Text = sekunden_textbox.Text
    109. If stunden_label.Text > "0" Then
    110. start_pause_button.Enabled = True
    111. End If
    112. If minuten_label.Text > "0" Then
    113. start_pause_button.Enabled = True
    114. End If
    115. If sekunden_label.Text > "0" Then
    116. start_pause_button.Enabled = True
    117. End If
    118. End Sub
    119. End Class


    Ich hoffe das mir jemand weiterhelfen kann. :)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „nikexo“ ()

    Die 119 Zeilen kopierten Code aus dem Internet kannst Du gleich wieder vergessen. Ich schätze, das lässt sich ungefähr mit 5-10 Zeilen (wenn überhaupt) erledigen.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Also ich hätte gesagt am besten geht wenn du eine Vordefinierte Anzahl an Nullen (als String ) nimmst und diese dann abschneidest. Also 10 hat eine Länge von zwei und 9 eine Länge von 1. Wenn du jetzt von "00" 2 abschneidest und dann vorne an die 10 anfügst kommt da 10 raus. Wenn du das gleiche bei der 9 machst kommt eben 09 raus.

    Stichwörter: Substring, Length

    Und wie @SpaceyX schon geschrieben hat. Kopier keinen Code aus dem Internet den du nicht oder nur zum Teil nicht verstanden hast. Es wird dich nicht weiterbringen. Beschäftige dich lieber erst mit den Grundlagen.


    Edit: und da wir grad dabei sind Msgbox ist veralteter VB6 code in VB.NET benutzt man Messagebox.Show() und bitte immer Option Strict On. Du bringst oben im Code Datentypen durcheinander.

    Lg Mokki
    ​Smartnotr - ein intelligentes Notizprogramm
    ​zum Thread

    Mokki schrieb:

    Also ich hätte gesagt am besten geht wenn du eine Vordefinierte Anzahl an Nullen (als String ) nimmst und diese dann abschneidest. Also 10 hat eine Länge von zwei und 9 eine Länge von 1. Wenn du jetzt von "00" 2 abschneidest und dann vorne an die 10 anfügst kommt da 10 raus. Wenn du das gleiche bei der 9 machst kommt eben 09 raus.

    Stichwörter: Substring, Length


    Muss man da viel umschreiben? Bzw. schaffe ich das als Anfänger?

    Ja ist nen Einzeiler :)

    Ich kanns nochmal versuchen also:
    Die Zahlen sind ja Integer.
    Wenn man diese in eine String konvertiert kann man mit ihnen nichtmehr rechnen. Man kann aber dadurch die Länge also wieviele Stellen eine Zahl hat herausfinden.
    Bei "10" sind das eben 2 bei "9" ist das eine.
    So jetzt wissen wir:
    Alle Zahlen sollen auf zwei Stellen aufgefüllt werden also aus 1 wird "01" aus 2 wird "02" usw. und aus 10 wird "10".
    Also nemmen wir eine String mit zwei Nullen. Keinen Integer einen String!
    Der hat jetzt eine Länge von 2: "00"
    So jetzt kann man mit Substring von dem String Teile abschneiden. Also schneidet man die Länge der Zahlen ab. Bei "10" wär das dann 2.
    Wenn wir von "00" zwei Chars abschneiden bleibt "" zurück. Das hängen wir jetzt an die "10" vorne dran. Also "" & "10" = "10"
    Bei der "9" machen wir das gleiche: da sie aber nur eine Stelle hat schneiden wir auch nur eine ab. Also wird aus "00" "0". Wenn wir jetzt "0" & "1" zusammenfügen kommt "01" heraus.

    Stichworte nach denne du Googel kannst sind: ToString, Substring und Length

    Lg Mokki
    ​Smartnotr - ein intelligentes Notizprogramm
    ​zum Thread

    @petaod so macht das keinen Sinn...
    ​Ich hätte ihm auch den Einzeiler hinwerfen können und das Thema wär erledigt gewesen. Aber ich habs nicht getan weil ich mir schon gedacht hab was das Problem ist...
    Also @nikexo fang bitte erst mit den Grundlagen an. Ich weis das ist zäh aber wir mussten da alle durch...
    Ich hab hier noch nen paar Links für dich:
    Entwickler-Ressourcen und Tools, Bücher und WebCasts
    Böses aus VB6/VB2003 - und die richtigen VB.NET-Alternativen ​
    ​Tutorials / eBooks

    Wenn du mir die Fragen beantworten kannst werde ich auch versuchen das ganze nochmal zu erklären:
    Was sind Datentypen?
    Wie konvertiere ich von Integer nach String u. zurück?
    Weshalb Option Strict on?
    Wie starte u. beende ich eine Timer?
    Wie benutzt man Substring?

    Lg Mokki
    ​Smartnotr - ein intelligentes Notizprogramm
    ​zum Thread

    nikexo schrieb:

    "Beim Konvertieren von "String" in "System.IFormatProvider" könnten Laufzeitfehler auftreten."


    Ja. Mein Fehler.
    Weil man die .ToString normalerweise nicht auf Strings, sondern (in diesem Fall) auf Zahlen anwendet.
    Nur finde ich in deinem Code keine Zahlen, weil du alle als String speicherst.

    Wenn ich dir jetzt empfehle Option Strict On einzuschalten, damit du typsicher programmierst, wird wahrscheinlich gar nichts mehr laufen.
    Ich halte mich bei dem Programm am besten ganz raus.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    @nikexo Beschreib bitte noch mal Dein Problem aus jetziger Sicht und poste dazu den aktuellen Code.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    nikexo schrieb:

    VB.NET-Quellcode

    1. sekunden_label.Text = sekunden_label.Text - 1

    nikexo schrieb:

    Ok, aber warum wird "00" unterwellt?

    Mach bitte ganz schnell Option Strict On, damit Du mit korrekten Datentypen arbeitest.
    Trenne Daten und GUI. Erstell Dir geeignete Variablen, die den Zählerzustand repräsentieren und zeig im Timertakt Zwischenergebnisse an.
    Wie Du Deine numerischen Werte formatierst, hat Dir @petaod geschrieben.
    Wenn Du diese Information auf den falschen Datentyp anwendest, kommt es zu Fehlern:

    Melde Dich wieder, wenn Du Deinen Code auf Strict On umgestellt hast.
    Füge dazu in Deinen Code als erste Zeile dies ein:

    VB.NET-Quellcode

    1. Option Strict On
    Oder stell besser das ganze Projekt um: Projekt -> Eigenschaften -> Kompilieren.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende