...und wieder mal der gute alte CountDown...

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von picoflop.

    ...und wieder mal der gute alte CountDown...

    Hi,
    ich schreib immernoch an meiner Wettkampftafel rum. Vieles habe ich schon hinbekommen. Nun kommt nur ncoh der CountDown.

    Grundlage:
    Der Countdown soll von wahlweise 1:30, 2:00, 3:00 oder 4:00 Minuten nach unten zählen. Wenn der Schiedsrichter den Kampf unterbricht, muss die Uhr angehalten werden. Wenn der Schiedsrichter den Kampf wieder freigibt, dann soll die Uhr weiterlaufen - also z.B. bei einer Restkampfzeit von 1:21 hab ich unterbrochen, dann Kampfreigabe - und die Uhr soll bei 1:21 wieder weiter nach unten zählen ( Bin schon halb besoffen vom Programmieren - hoffe, ihr könnt mir folgen...)
    Der Typ, der den Countdown bedient, soll NUR (!!) die Leertaste bedienen. Leertaste hat also mehrere Funktionen, siehe weiter unten.


    Start, Stop und Pause hab ich im Countdown per Leertaste mehr oder minder schön hinbekommen,
    Folgendes Problem mit dem Runterzählen der Kampftzeit hab ich aber noch:
    Wenn ich also mittendrin unterbreche, zeigt mir der Countdown prötzlich die VOLLe Kampfzeit (also z.B. 1:30) an. Wenn ich dann wieder auf die Leertaste hämmer, dann zählt er merkwürdigerweise am richtigen Standort weiter nach unten.
    Hier der Code.
    Die variablen "sek" und "min" sind jeweils Public als Integer definiert:

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    2. If sek <> 0 Then
    3. Label17.Text = sek
    4. Label15.Text = min
    5. End If
    6. Label17.Text = (Label17.Text - 1).ToString("00")
    7. sek = Label17.Text
    8. If Label17.Text = -1 Then
    9. Label17.Text = 59
    10. Label15.Text = Label15.Text - 1
    11. min = Label15.Text
    12. End If
    13. If Label15.Text = -1 Then
    14. Timer1.Stop()
    15. Label15.Text = 0
    16. Label17.Text = "00"
    17. My.Computer.Audio.Play("E:\WK-Tafel\HornLang.wav", AudioPlayMode.Background)
    18. End If
    21. End Sub
    22. Private Sub Button1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyDown
    23. If e.KeyCode = Keys.Space AndAlso z = 0 Then
    24. z = 1
    25. Timer1.Start()
    26. Label15.Text = min
    27. Label17.Text = sek
    28. ElseIf e.KeyCode = Keys.Space AndAlso z = 1 Then
    29. z = 0
    30. Timer1.Stop()
    31. Label15.Text = min
    32. Label17.Text = sek
    33. End If
    34. End Sub
    35. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    36. Label15.Text = 1
    37. Label17.Text = 30.ToString("00")
    38. End Sub


    Ich hoffe, ich hab alles richtig erläutert. So soll es sein:

    - Kampfstart (z.B. 1:30 Minuten Kampfzeit) -> durch Drücken der Leertaste
    - Kampfunterbrechung (z.B. bei 1:21 Minuten Restzeit) -> durch Drücken der Leertaste
    - Kampffortsetzung (ab 1:21 Minuten) -> durch drücken der Leertaste

    Irgendwie ist dein Code etwas komisch. Naja geh doch einfach einmal alles in Einzelschritten durch. Vor allem die Stelle an der du stoppst. Sieh dir da mal den Inhalt von min und sek an. Da müsste eigentlich die Stelle sein an der was falsch läuft.

    Mfg
    Firestorm

    Hier mal ein "schöner" Ansatz, auch wenns quick and dirty ist ;)

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class CountDownEventsArgs
    2. Inherits System.EventArgs
    3. Public TimeRemaining As TimeSpan
    4. End Class
    6. Public Enum CountDownStatus
    7. Running
    8. Paused
    9. Stopped
    10. End Enum
    12. Public Class CountDown
    14. Private t As TimeSpan
    15. Private current As Long = 0
    16. Private st As CountDownStatus = CountDownStatus.Stopped
    17. Private WithEvents tm As New Timers.Timer With {.AutoReset = True, .Enabled = False, .Interval = 50}
    19. Public Event Tick(ByVal sender As Object, ByVal e As CountDownEventsArgs)
    20. Public Event Stopped(ByVal sender As Object, ByVal e As CountDownEventsArgs)
    22. Public Sub New(ByVal tm As TimeSpan)
    23. t = tm
    24. End Sub
    26. Public Sub New(ByVal Seconds As Integer)
    27. t = New TimeSpan(0, 0, Seconds)
    28. End Sub
    30. Public Sub New(ByVal minutes As Integer, ByVal Seconds As Integer)
    31. t = New TimeSpan(0, minutes, Seconds)
    32. End Sub
    34. Public Sub New(ByVal hours As Integer, ByVal minutes As Integer, ByVal seconds As Integer)
    35. t = New TimeSpan(hours, minutes, seconds)
    36. End Sub
    38. Public ReadOnly Property Status() As CountDownStatus
    39. Get
    40. Return st
    41. End Get
    42. End Property
    44. Public Sub Start()
    45. If Not st = CountDownStatus.Running Then
    46. If current = 0 Then current = t.TotalMilliseconds
    47. st = CountDownStatus.Running
    48. tm.Enabled = True
    49. End If
    50. End Sub
    52. Public Sub Pause()
    53. If st = CountDownStatus.Running Then
    54. st = CountDownStatus.Paused
    55. tm.Enabled = False
    56. End If
    57. End Sub
    59. Public Sub [Stop]()
    60. current = 0
    61. st = CountDownStatus.Stopped
    62. tm.Enabled = False
    63. Dim d As [Delegate] = StoppedEvent
    64. Dim ev As New CountDownEventsArgs
    65. ev.TimeRemaining = TimeSpan.FromMilliseconds(0)
    66. For Each o As [Delegate] In d.GetInvocationList
    67. If TypeOf o.Target Is Control Then
    68. DirectCast(o.Target, Control).Invoke(d, New Object() {Me, ev})
    69. Else
    70. o.DynamicInvoke(New Object() {Me, ev})
    71. End If
    72. Next
    73. End Sub
    75. Private Sub tm_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles tm.Elapsed
    76. If st = CountDownStatus.Running Then
    77. If current > tm.Interval Then
    78. Dim s As Integer = TimeSpan.FromMilliseconds(current).Seconds
    79. current -= tm.Interval
    80. Dim tx As TimeSpan = TimeSpan.FromMilliseconds(current)
    81. If tx.Seconds <> s Then
    82. Dim d As [Delegate] = TickEvent
    83. Dim ev As New CountDownEventsArgs
    84. ev.TimeRemaining = New TimeSpan(tx.Hours, tx.Minutes, tx.Seconds)
    85. For Each o As [Delegate] In d.GetInvocationList
    86. If TypeOf o.Target Is Control Then
    87. DirectCast(o.Target, Control).Invoke(d, New Object() {Me, ev})
    88. Else
    89. o.DynamicInvoke(New Object() {Me, ev})
    90. End If
    91. Next
    92. End If
    93. Else
    94. Me.Stop()
    95. End If
    96. End If
    97. End Sub
    98. End Class


    Bsp.:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private WithEvents cd As New CountDown(10)
    5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    6. If cd.Status = CountDownStatus.Paused OrElse cd.Status = CountDownStatus.Stopped Then
    7. cd.Start()
    8. ElseIf cd.Status = CountDownStatus.Running Then
    9. cd.Pause()
    10. End If
    11. End Sub
    13. Private Sub cd_Stopped(ByVal sender As Object, ByVal e As CountDownEventsArgs) Handles cd.Stopped
    14. Label1.Text = "game over"
    15. End Sub
    17. Private Sub cd_Tick(ByVal sender As Object, ByVal e As CountDownEventsArgs) Handles cd.Tick
    18. Label1.Text = e.TimeRemaining.ToString()
    19. End Sub
    21. End Class


    Wir "bauen" uns also einfach eine entsprechende Stopuhr, die uns jeweils per Event mitteilt, dass sich die Zeit geändert hat, bzw das die Zeit abgelaufen ist.

    EDIT: Da der interne Timer viel zu ungenau ist und die Berechnung mit Timer.Interval demzufolge irgendwie Müll ist, arbeite ich gerade an einer Version die den High Performance timer für die Zeitmessung verwendet (der normale Timer gibt weiter den Takt an geht aber nicht mehr in die Berechnung ein). Das sollte dann hoffentlich eine Genauigkeit < 1ms ermöglichen. Sobald die Version fertig ist, stell ich die mal in den Sourcecode-Austausch.

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

Facebook
Telefonspende