Übungsaufgabe FlipFlop

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 62 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Übungsaufgabe FlipFlop

    Moin moin

    Ich hatte eine Übungsaufgabe.
    Erstellen eines FlipFlop. Ich habe nun zwei Lösungen erstellt.

    Lösung 1: Mittels Timer und TimerTick
    Lösung 2: Mittels ThreadSleep

    Das mit dem Timer ging recht flott aber beim ThreadSleep habe ich lange gebraucht. Erst ging immer nur ein Status / Zustand, dann hing das Programm. Dabei kam ich dann auf die Idee mit dem Async.

    Jetzt meine Frage:
    Warum läuft das mit dem Timer so durch und mit dem ThreadSleep nur in einem Async-Modus?
    Was kann man ggf an dem Code verbessern?



    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class frm_flipflop
    2. Dim flipflop As Boolean = False
    3. Dim flipflop2 As Boolean = False
    4. Dim abort As Boolean
    5. Dim flop As Boolean
    7. Private Sub frm_flipflop_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    8. on_off(False) : settings()
    9. End Sub
    11. Private Sub settings()
    12. Timer1.Stop() : Timer1.Interval = 300
    13. pn_red.BackColor = Color.Red : pn_green.BackColor = Color.Green
    14. pn_red.Visible = False : pn_green.Visible = False
    15. lbl_tith.Text = "FilpFlop via TimerTick"
    16. End Sub
    18. Private Sub btn_onoff_Click(sender As Object, e As EventArgs) Handles btn_onoff.Click
    19. flipflop = Not flipflop
    20. on_off(flipflop)
    21. End Sub
    23. Private Sub on_off(ByVal flipflop As Boolean)
    24. If flipflop = True Then
    25. lbl_onoff.Text = "FlipFlop Ein"
    26. btn_onoff.BackColor = Color.Red
    27. Chb.Enabled = False
    28. abort = False
    29. If Chb.Checked = True Then
    30. flippAsync()
    31. Else
    32. Timer1.Start()
    33. End If
    34. Else
    35. abort = True
    36. lbl_onoff.Text = "FlipFlop Aus"
    37. btn_onoff.BackColor = Color.Green
    38. Chb.Enabled = True
    39. settings()
    40. End If
    41. End Sub
    43. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    44. flipflop2 = Not flipflop2
    45. If flipflop2 Then pn_red.Visible = True Else pn_red.Visible = False
    46. If flipflop2 Then pn_green.Visible = False Else pn_green.Visible = True
    47. End Sub
    49. Private Async Sub flippAsync()
    50. Await Threading.Tasks.Task.Run(Sub() display(True))
    51. abort = False
    52. settings()
    53. End Sub
    55. Private Sub display(ByVal flop As Boolean)
    56. If abort Then Exit Sub
    57. Threading.Thread.Sleep(500)
    58. If flop Then Me.BeginInvoke(Sub() pn_red.Visible = True) Else Me.BeginInvoke(Sub() pn_red.Visible = False)
    59. If flop Then Me.BeginInvoke(Sub() pn_green.Visible = False) Else Me.BeginInvoke(Sub() pn_green.Visible = True)
    60. flop = Not flop
    61. display(flop)
    62. End Sub
    64. Private Sub Chb_CheckedChanged(sender As Object, e As EventArgs) Handles Chb.CheckedChanged
    65. If Chb.Checked Then lbl_tith.Text = "FilpFlop via ThreadingThread" Else lbl_tith.Text = "FilpFlop via TimerTick"
    66. End Sub
    67. End Class

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Hey Amelie, kurze Verständnisfrage. Ich verstehe unter FlipFlop:
    • Zustand 1 soll genauso lang andauern wie Zustand 2
    • man kann die Zeitdauern jedoch einstellen
    • das Ganze arbeitet von alleine, das heißt, ohne bestimmte Auslösung (etwas passiert am PC oder ein Button wird gedrückt) / ohne berührt zu werden
    Also so wie in der Elektrotechnik "ein 555-Timer in astable mode von allein läuft und Zustand 1 genauso lang ist wie Zustand 2, aber man kann es einstellen". Ist das dein Ziel?



    Vergleiche mit Booleans sind redundant.

    VB.NET-Quellcode

    1. If flipflop = True Then

    Besser ist:

    VB.NET-Quellcode

    1. If flipflop Then


    Weil du sonst fragst, ob es True ist, dass True = True ist

    If flipflop Then Das vergesse ich immer das es auch ohne die = geht. ;)

    Im Moment kann man die Zeitintervalle ( welche ja gleich sind ) halt nur im Code einstellen. Wäre ja leicht umzuändern.
    Hmm ohne eine Auslöäsung? Gibt es nicht für alles eine Bestimmte Auslösung? Z.B. an die Elektronik Strom dran machen?
    Ansonsten könnte ich den Button weg lassen und es aus dem FormLoad starten.

    EDIT:

    Ich versuche gerade ein Array mittels Timer auszulesen. Bräuchte da mal Hilfe. ;)
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    Warum läuft das mit dem Timer so durch und mit dem ThreadSleep nur in einem Async-Modus?
    Sleep() hält den Thread an, in dem es läuft.
    Dein Programm läuft also in zwei Threads, dem GUI-Thread und dem Sleep-Thread. Das ist nicht zielführend.
    Mit dem Timer-Tick bist Du auf der richtigen Seite, Dein Programm läuft nur im GUI-Thread, die Belastung durch das "Ticken" ist marginal.
    Dies ist die richtige Lösung.
    ====
    Dier Länge des Wartens kannst Du mit einem oder zwei NumericUpDown-Controls vorgeben.
    Wenn Du die Dauern in einem Array ablegst, kannst Du den Index mit einem NumericUpDown-Control vorgeben.

    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!

    @Bartosz
    Wenn ich den Button einmal drücke läuft das FlipFlp solange bis ich den Button erneut drücke.

    @RodFromGermany
    OK habe ich verstanden.

    Das mit dem Array auslesen ist etwas anderes. Das will ich auslesen, jede Sec ein neuer druchlauf der For Schleife...
    hänge gerade wie ich das in den Timer_Tick bekomme.


    OK Das habe ich hinbekommen.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Amelie“ ()

    Brauche mal Hilfe für das Rückwärts auslesen.
    Vorwärts klappt es so wie ich wollte. Ein Panel nach dem anderen wecheslt die Farbe.
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. Dim panels() As Integer = New Integer() {1, 2, 3, 4, 5, 6}
    3. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    4. If abort Then Exit Sub
    5. If zaehler < panels.Length Then
    6. For i As Integer = 0 To panels.Length - 1
    7. Dim pan As Integer = panels(i)
    8. lbl_led.Text = panels(zaehler).ToString
    9. Dim x As Integer = panels(zaehler)
    10. Me.Controls("Panel" & x).BackColor = Color.Red
    11. If x > 1 Then
    12. Me.Controls("Panel" & x - 1).BackColor = Color.Maroon
    13. End If
    14. Next
    15. zaehler = zaehler + 1
    16. Else
    18. '<====== Rückwärts ... Zahle sind richtig aber bei den Farben hausts durcheinander
    20. zaehler = 0
    21. Array.Reverse(panels, 1, 5)
    22. For i As Integer = 0 To panels.Length - 1
    23. Dim pan As Integer = panels(i)
    24. lbl_led.Text = panels(zaehler).ToString
    25. Dim x As Integer = panels(i)
    26. Me.Controls("Panel" & x).BackColor = Color.Red
    27. If x < 6 Then
    28. Me.Controls("Panel" & x).BackColor = Color.Maroon
    29. End If
    30. Next
    31. zaehler = zaehler + 1
    32. End If
    33. End Sub
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

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

    Amelie schrieb:

    VB.NET-Quellcode

    1. Array.Reverse(panels, 1, 5)
    Was ganz genau tut genau dieser Befehl?
    Setze auf die Zeile danach einen Haltepunkt und sieh Dir das Array panels 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!

    Moin moin
    Irgendwie bekomme ich das mit der Anzeige nicht hin.
    Zwar läuft es teilweise aber eben nicht richtig. lbl_led zählt richtig: Vor und Zurück
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    2. 'If abort Then Exit Sub
    3. If zaehler < panels.Length Then
    4. For i As Integer = 0 To panels.Length - 1
    5. Dim pan As Integer = panels(i)
    7. ' zählt richtig
    8. lbl_led.Text = panels(zaehler).ToString
    9. Dim x As Integer = panels(zaehler)
    10. Me.Controls("Panel" & x).BackColor = Color.Red
    11. If x > 1 Then
    12. Me.Controls("Panel" & x - 1).BackColor = Color.Maroon
    13. End If
    14. Next
    16. ElseIf zaehler = panels.Length Then
    17. Me.Controls("Panel" & zaehler).BackColor = Color.Maroon
    18. Array.Reverse(panels)
    19. For i As Integer = 0 To zaehler
    20. If zaehler < panels.Length Then
    22. ' <===== Im Einzelschritt zeigt der zaehler die richtigen Werte an.
    23. ' <===== läuft das Prog normal zeit das Label immer 0 an!
    24. lbl_zaehler.Text = CStr(zaehler)
    25. End If
    26. zaehler = zaehler - 1
    27. Next
    29. End If
    30. zaehler = zaehler + 1
    31. End Sub
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

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

    Amelie schrieb:

    VB.NET-Quellcode

    1. Array.Reverse(panels)
    Hausaufgaben gemacht? ;)

    Amelie schrieb:

    VB.NET-Quellcode

    1. zaehler = zaehler - 1
    2. Next
    3. End If
    4. zaehler = zaehler + 1
    Das dürfte beim Rückwärts zählen daneben gehen.
    Warum zählst Du nicht rückwärts, indem Du den Index von hinten an zählst, da musst Du das Array nicht umkehren.
    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!

    Hausaufgaben : Ja habe ich gemacht.
    Man kann hat bestimmen ob z.B. erst ab Stelle X umgedreht wird. usw...
    --
    ​Warum zählst Du nicht rückwärts, indem Du den Index von hinten an zählst, da musst Du das Array nicht umkehren.
    Wie stelle ich das an?
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    Wie stelle ich das an?

    VB.NET-Quellcode

    1. For i As Integer = 0 To panels.Length - 1
    2. Dim pan As Integer = panels(i)
    3. Dim pan2 As Integer = panels(panels.Length - 1 - i)
    4. ' ...
    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!

    Moin moin

    So habe meine Übung #2 Fertig. Erweiterung des FlipFlops.
    Ein Marquee-Lauflicht, Startbar von Links oder rechts.

    Was geht besser zu machen?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class frm_lauflicht
    2. Dim t_clock As Boolean = False
    3. Dim flipflop As Boolean = False
    4. Dim abort As Boolean
    5. Dim forward As Boolean
    6. Dim backward As Boolean
    7. Dim zaehler As Integer
    8. Dim zaehlerforward As Integer
    9. Dim start As Integer = 0
    10. Dim ende As Integer = 5
    12. Private Sub frm_lauflicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    13. settings()
    14. End Sub
    16. Private Sub Timer1_Tick(Timer As Object, e As EventArgs) Handles Timer1.Tick
    17. If abort Then Exit Sub
    18. t_clock = Not t_clock
    19. If backward = True Then
    20. If t_clock Then
    21. If zaehler = ende Then Me.Controls("Panel" & ende).BackColor = Color.Red
    22. Dim x As Integer = zaehler
    23. lbl_zaehler2.Text = "Zählerstand: " & x.ToString
    24. zaehler = zaehler - 1
    25. If x = start Then backward = False : zaehlerforward = start : forward = True
    26. Me.Controls("Panel" & x).BackColor = Color.Red
    27. If x > start And x <> 5 Then Me.Controls("Panel" & x + 1).BackColor = Color.Maroon
    28. If x = start Then Me.Controls("Panel" & start + 1).BackColor = Color.Maroon
    29. If x = start Then forward = True
    30. End If
    31. ElseIf forward = True Then
    32. If t_clock Then
    33. Dim x As Integer = zaehlerforward
    34. lbl_zaehler_forward.Text = "Zählerstand: " & x.ToString
    35. zaehlerforward = zaehlerforward + 1
    36. Me.Controls("Panel" & x).BackColor = Color.Red
    37. If x > start Then Me.Controls("Panel" & x - 1).BackColor = Color.Maroon
    38. If x = ende Then backward = True : zaehler = ende
    39. End If
    40. End If
    41. End Sub
    43. Private Sub on_off(ByVal flipflop As Boolean)
    44. If flipflop Then
    45. btn_onoff.BackColor = Color.Red
    46. abort = False
    47. If cb_l2r.Checked Then
    48. backward = True : forward = False
    49. Else
    50. forward = True : backward = False
    51. End If
    52. Timer1.Start()
    53. Else
    54. Timer1.Dispose()
    55. abort = True
    56. btn_onoff.BackColor = Color.Green
    57. settings()
    58. End If
    59. End Sub
    61. Private Sub settings()
    62. For Each PN In Me.Controls.OfType(Of Panel)()
    63. PN.BackColor = Color.Maroon
    64. Next
    65. Timer1.Interval = 50
    66. zaehler = ende
    67. zaehlerforward = start
    68. lbl_zaehler_forward.Text = "Zählerstand: " : lbl_zaehler2.Text = "Zählerstand: "
    69. End Sub
    71. Private Sub btn_onoff_Click(slastLEDr As Object, e As EventArgs) Handles btn_onoff.Click
    72. flipflop = Not flipflop
    73. on_off(flipflop)
    74. End Sub
    76. End Class

    Bilder

    • lauflicht-1.jpg

      39,68 kB, 383×139, 102 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

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

    Warum gibts da zwei Label, wo "Zählerstand" drauf steht?

    Das sollte auch im Code erkennbar sein, dass und warum da iwie zwei Zähler bespielt werden.

    Ansonsten ist der Zweck folgender Variablen nicht sofort und nicht sicher ersichtlich:

    VB.NET-Quellcode

    1. Dim t_clock As Boolean = False ' unklar
    2. Dim flipflop As Boolean = False ' unklar
    3. Dim abort As Boolean
    4. Dim forward As Boolean
    5. Dim backward As Boolean ' ist das niht einfach nur das Gegenteil von forward?
    6. Dim zaehler As Integer
    7. Dim zaehlerforward As Integer ' unklar
    8. Dim start As Integer = 0
    9. Dim ende As Integer = 5

    Warum gibts da zwei Label, wo "Zählerstand" drauf steht?

    Könnte die Labels auch komplett weglassen. ;)

    VB.NET-Quellcode

    1. Dim t_clock As Boolean = False ' unklar '<==== Der Taktgeber
    2. Dim flipflop As Boolean = False ' unklar '<==== Wie besser benennen?
    4. Dim backward As Boolean ' ist das niht einfach nur das Gegenteil von forward?
    5. 'Versteh nicht was du damit sagen willst.????
    7. Dim zaehlerforward As Integer ' unklar '<==== Warum unklar??
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Quellcode

    1. If cb_l2r.Checked Then
    2. backward = True : forward = False
    3. Else
    4. forward = True : backward = False
    5. End If

    Boolean-Vergleiche mit True sind überflüssig: gleich im ersten Post steht, warum ein solches If-Konstrukt total Banane ist.

    backward und forward sind zwei Seiten einer Medaille. Daher kann eines davon weg.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    OK
    Geändert. Brauch ja nicht 2mal

    VB.NET-Quellcode

    1. ​If cb_l2r.Checked Then backward = True


    VB.NET-Quellcode

    1. ​
    2. If abort Then Exit Sub
    3. t_clock = Not t_clock
    4. If backward Then '<===== Hier auch geändert
    5. ..
    6. .....
    7. End If
    8. Else '<====== Hier auch geändert
    9. If t_clock Then
    10. Dim x As Integer
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @RodFromGermany

    ​Dim pan2 As Integer = panels(panels.Length - 1 - i)
    Hier zu. Habe da einiges ausprobiert aber ich komme damit nicht klar.
    Im Einzelschritt wird mir zwar der letze Eintrag (Zahl) aus dem Array angezeigt aber ich hab keine Idee wie ich das umsetzen soll.

    VB.NET-Quellcode

    1. ​
    2. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    3. If zaehler < panels.Length Then
    4. For i As Integer = 0 To panels.Length - 1
    5. ' --------------> Dim pan As Integer = panels(i) <==Hat Null Auswirkung.
    6. Dim x As Integer = panels(zaehler)
    7. Me.Controls("Panel" & x).BackColor = Color.Red
    8. If x > 1 Then
    9. Me.Controls("Panel" & x - 1).BackColor = Color.Maroon
    10. End If
    11. Next
    12. End If
    13. zaehler = zaehler + 1
    14. If zaehler = panels.Length Then Timer1.Stop()
    15. End Sub
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @Amelie Meine bescheidenen Anfängerkenntnisse sind leider für Deine höheren Aufgaben nicht gut genug.
    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!