[VB 2010] Mehrfach Countdown in einer Form

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Cell.

    [VB 2010] Mehrfach Countdown in einer Form

    Guten Tag,
    Ich habe heute mit VB angefangen und wollte zum Anfang einen Countdown machen welcher mir die Restzeit anzeigt bis ein Raid wieder zur Verfügung steht. ( Also ein kleines Hilfstool für ein Online-Spiel).
    Der Countdown funktionierte am Anfang einwandfrei - dann kam ich auf die Idee das ich für alle Raids einen Countdown erstelle. Also 3 Countdowns auf der selben Form.

    Nun zu meinem Problem..
    Ich lege die Zeit für den Countdown fest- sagen wir mal 50 Sekunden. Wenn ich einen einzelnd laufen lasse funktioniert es einwandfrei. Sobald ich aber 2 oder 3 Countdowns gleichzeitig laufen lasse sind bei allen 3 Countdowns die 50 Sekunden in ca. 10 Sekunden fertig runtergezählt. Der Countdown zählt nicht mehr im Sekundentakt und zählt auch mal 2 und mehr Sekunden gleichzeitig herunter.

    Wie bekomme ich es hin das jeder Countdown für sich selbst zählt und die anderen nicht beeinflusst?

    Hier mein aktueller Code (ist sogut wie alles C&P von Countdown Anleitungen - bevor die Frage aufkommt.. ich habe mich mit dem Code beschäftigt und weiß wofür was da ist bei den meisten Zeilen):
    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Public Class Form1
    2. Dim totaltime As Long
    4. Function AddZero(ByVal par As Integer) As String
    5. Dim a = ""
    6. If par < 10 Then
    7. a = "0" & par
    8. Else
    9. a = par
    10. End If
    11. Return a
    12. End Function
    13. Private Sub set_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles set_button.Click
    14. totaltime = hr_input.Value * 60 * 60 + mn_input.Value * 60 + se_input.Value
    15. If totaltime <> 0 Then
    16. main_button.Enabled = True
    17. hr_label.Text = AddZero(totaltime \ 3600)
    18. mn_label.Text = AddZero((totaltime Mod 3600) \ 60)
    19. se_label.Text = AddZero((totaltime Mod 3600) Mod 60)
    20. main_button.Text = "Start"
    21. set_button.Enabled = False
    22. Else
    23. MsgBox("Felder dürfen nicht leer sein!")
    24. End If
    25. End Sub
    27. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    28. main_button.Enabled = False
    29. main_button1.Enabled = False
    30. main_button2.Enabled = False
    31. End Sub
    33. Private Sub main_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles main_button.Click
    34. If main_button.Text = "Start" Or main_button.Text = "Continue" Then
    35. hr_input.Enabled = False
    36. mn_input.Enabled = False
    37. se_input.Enabled = False
    38. count.Enabled = True
    39. main_button.Text = "Stop"
    40. Else
    41. main_button.Text = "Continue"
    42. hr_input.Enabled = True
    43. mn_input.Enabled = True
    44. se_input.Enabled = True
    45. count.Enabled = False
    46. set_button.Enabled = True
    47. End If
    48. End Sub
    50. Private Sub count_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles count.Tick
    51. If totaltime > 0 Then
    52. totaltime -= 1
    53. Else
    54. count.Enabled = False
    55. MsgBox("Es ist Zeit für AW: Weißstein-Tempel!")
    56. main_button.Text = "Start"
    57. hr_input.Enabled = True
    58. mn_input.Enabled = True
    59. se_input.Enabled = True
    60. count.Enabled = False
    61. set_button.Enabled = True
    62. End If
    64. hr_label.Text = AddZero(totaltime \ 3600)
    65. mn_label.Text = AddZero((totaltime Mod 3600) \ 60)
    66. se_label.Text = AddZero((totaltime Mod 3600) Mod 60)
    67. End Sub
    68. Private Sub set_button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles set_button1.Click
    69. totaltime = hr_input1.Value * 60 * 60 + mn_input1.Value * 60 + se_input1.Value
    70. If totaltime <> 0 Then
    71. main_button1.Enabled = True
    72. hr_label1.Text = AddZero(totaltime \ 3600)
    73. mn_label1.Text = AddZero((totaltime Mod 3600) \ 60)
    74. se_label1.Text = AddZero((totaltime Mod 3600) Mod 60)
    75. main_button1.Text = "Start"
    76. set_button1.Enabled = False
    77. Else
    78. MsgBox("Felder dürfen nicht leer sein!")
    79. End If
    80. End Sub
    82. Private Sub main_button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles main_button1.Click
    83. If main_button1.Text = "Start" Or main_button1.Text = "Continue" Then
    84. hr_input1.Enabled = False
    85. mn_input1.Enabled = False
    86. se_input1.Enabled = False
    87. count1.Enabled = True
    88. main_button1.Text = "Stop"
    89. Else
    90. main_button1.Text = "Continue"
    91. hr_input1.Enabled = True
    92. mn_input1.Enabled = True
    93. se_input1.Enabled = True
    94. count1.Enabled = False
    95. set_button1.Enabled = True
    96. End If
    97. End Sub
    99. Private Sub count1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles count1.Tick
    100. If totaltime > 0 Then
    101. totaltime -= 1
    102. Else
    103. count1.Enabled = False
    104. MsgBox("Es is Zeit für AW: Flimmerland !")
    105. main_button1.Text = "Start"
    106. hr_input1.Enabled = True
    107. mn_input1.Enabled = True
    108. se_input1.Enabled = True
    109. count1.Enabled = False
    110. set_button1.Enabled = True
    111. End If
    113. hr_label1.Text = AddZero(totaltime \ 3600)
    114. mn_label1.Text = AddZero((totaltime Mod 3600) \ 60)
    115. se_label1.Text = AddZero((totaltime Mod 3600) Mod 60)
    116. End Sub
    117. Private Sub set_button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles set_button2.Click
    118. totaltime = hr_input2.Value * 60 * 60 + mn_input2.Value * 60 + se_input2.Value
    119. If totaltime <> 0 Then
    120. main_button2.Enabled = True
    121. hr_label2.Text = AddZero(totaltime \ 3600)
    122. mn_label2.Text = AddZero((totaltime Mod 3600) \ 60)
    123. se_label2.Text = AddZero((totaltime Mod 3600) Mod 60)
    124. main_button2.Text = "Start"
    125. set_button2.Enabled = False
    126. Else
    127. MsgBox("Felder dürfen nicht leer sein!")
    128. End If
    129. End Sub
    131. Private Sub main_button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles main_button2.Click
    132. If main_button2.Text = "Start" Or main_button2.Text = "Continue" Then
    133. hr_input2.Enabled = False
    134. mn_input2.Enabled = False
    135. se_input2.Enabled = False
    136. count2.Enabled = True
    137. main_button2.Text = "Stop"
    138. Else
    139. main_button2.Text = "Continue"
    140. hr_input2.Enabled = True
    141. mn_input2.Enabled = True
    142. se_input2.Enabled = True
    143. count2.Enabled = False
    144. set_button2.Enabled = True
    145. End If
    146. End Sub
    148. Private Sub count2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles count2.Tick
    149. If totaltime > 0 Then
    150. totaltime -= 1
    151. Else
    152. count2.Enabled = False
    153. MsgBox("Es is Zeit für AW: Wundertunnel !")
    154. main_button2.Text = "Start"
    155. hr_input2.Enabled = True
    156. mn_input2.Enabled = True
    157. se_input2.Enabled = True
    158. count2.Enabled = False
    159. set_button2.Enabled = True
    160. End If
    162. hr_label2.Text = AddZero(totaltime \ 3600)
    163. mn_label2.Text = AddZero((totaltime Mod 3600) \ 60)
    164. se_label2.Text = AddZero((totaltime Mod 3600) Mod 60)
    165. End Sub
    166. End Class


    Und so sieht mein Tool aus:


    Ich hoffe ihr könnt mir helfen und erklären wie ich das behebe.
    Ich danke im Vorraus

    Mit freundlichen Grüßen
    Biro49

    Das zu erklären würde länger dauern, als es zu machen, und dir zu erklären.
    Daher schlage ich vor, du zippst deine Übung und hängst sie an.
    Mit zippen und anhängen selbst hast du auch schon eine Menge gelernt, denn ich bitte folgendes zu beachten:
    1. kein Fremdhoster
    2. Keine binaries - also lösche zuvor die Ordner bin und obj
    3. lauffähig - also teste, dass man deinen zip wirklich nur entpacken muss und starten kann
    Dann kannst du eiglich zügig geholfen werden ;)
    Und mach dich auf überraschend viel Kritk gefasst - ich sehe bereits jetzt, dass du mit ungünstigen Voreinstellungen programmierst.
    Je später man die korrigiert, desto umfangreicher werden Umdenken und Umbauen.

    Ein konzeptionelles Kernproblem scheint mir auch zu sein, dass du zwar für viele Raids CountDownse haben willst, aber sowas kann man nur machen, wenn man im Code auch viele Raids hat.
    Also das ist der Einstieg in Objekt-Orientierte Programmierung, denn du musst dir vmtl. eine Klasse Raid programmieren, und dann viele Raid-Objekte davon erstellen.
    Nur wenn du 50 Raid-Objekte hast, kannst du auch für 50 Raids die CountDownse programmieren.
    Was du ja selber sagst: für 1 Raid ging das wunnebar, mit mehreren nicht mehr.

    achso - zum Anhängen:
    Forum-Funktionalität

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

    Willkommen im Forum. :thumbup:

    Biro49 schrieb:

    für sich selbst zählt
    Da hast Du Dir ein klasse Paradestück für OOP - ObjektOrientierte Programmierung ausgesucht.
    Erstell eine Sicherungskopie Deines Projekts.
    Fang an mit dem einen Controller.
    Pack allen Code, den Du für den Countdown brauchst, in eine separate Klasse. Erstell Dir eine Instanz mit New und tune das ganze, bis es genau so läuft wie bisher.
    Dann erstellst Du 2 weitere Instanzen und behandelst sie parallel zur ersten wie diese.
    Wenn es mehr werden sollten, pack diese Instanzen in ein Array.
    Feddich.
    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!

    Erstmal vielen Dank für die Antworten.
    Da habe ich mir ja anscheinend für den Anfang was schwieriges ausgesucht.

    Habe mein Projekt gezippt und angehängt wie gewünscht.

    ErfinderDesRades schrieb:

    Mit zippen und anhängen

    Und freue mich schon auf die Kritik, denn nur durch Kritik lernt man wie es besser geht.

    Werde nun versuchen das umzusetzen was RodFromGermany mir berschrieben hat.

    Mit freundlichen Grüßen
    Biro49
    Dateien

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

    Biro49 schrieb:

    wie es besser geht.
    3 Timer aber nur eine Variable, auf die alle Timer zum runterzählen zugreifen: totaltime.
    Sieh Dir mal den Typ TimeSpan und deren Ausgabeformate an.
    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!

    RodFromGermany schrieb:

    3 Timer aber nur eine Variable, auf die alle Timer zum runterzählen zugreifen: totaltime.


    Ich hab jetzt einfach mal folgende 2 Zeilen hinzugefügt und diezeilen von Timer2 und Timer3 editiert - jetzt funktioniert es.

    Visual Basic-Quellcode

    1. Dim totaltime1 As Long
    2. Dim totaltime2 As Long


    Wahrscheinlich nicht sehr elegant, aber es funktioniert schonmal.
    Jetzt muss ich noch lernen wie es eleganter geht. Als nächstes kommt das Studieren des Videos von ErfinderDesRades.

    Vielen Dank für eure Hilfe.

    Mit freundlichen Grüßen
    Biro49

    Biro49 schrieb:

    wie es eleganter geht
    Du brauchst nur einen Timer.
    Ruf in dessen Tick-Prozedur die ehemaligen 3 Timer123-Tick-Prozeduren auf.
    Richtig elegant wäre es, wenn Du Dir ein UserControl bautest, in dem alles passiert. Das könnte dann seinen eigenen Timer haben, und da kannst Du beliebig viele CountDowns managen.
    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!

    Cell schrieb:

    stopwatches
    für Wochen und Monate? :rolleyes:
    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!

    nein das nicht aber ich habe festgestellt, das je nachdem wie stark der rechner belastet wird der Timer nicht mehr ordentlich arbeitet wie er soll ... die stopwatch hat das Problem nicht. Wobei ich dazu sagen muss das die Zeitmessungen meiner Anwendungen wesenlich genauer sein müssen ;)

    Simpler Countdown - alle Timer extrem ungenau

Facebook
Telefonspende