Übungsaufgabe FlipFlop

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

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

    EDIT:
    Den ganzen Code nochmals überarbeitet.     Bezeichnungen geändert, Zähler geändert usw.. Bin offen für weitere Verbesserungen.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class frm_lauflicht
    2. Dim btn_switch As Boolean = False
    3. Dim abort As Boolean
    4. Dim backward As Boolean
    5. Dim zaehler As Integer
    6. Dim start As Integer = 0
    7. Dim ende As Integer = 5
    9. Private Sub frm_lauflicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    10. settings()
    11. End Sub
    13. Private Sub Timer1_Tick(Timer As Object, e As EventArgs) Handles Timer1.Tick
    14. If abort Then Exit Sub
    15. If backward Then
    16. If zaehler = ende Then Me.Controls("Panel" & ende).BackColor = Color.Red
    17. Dim x As Integer = zaehler
    18. zaehler = zaehler - 1
    19. If x = start Then backward = False
    20. Me.Controls("Panel" & x).BackColor = Color.Red
    21. If x > start And x <> ende Then Me.Controls("Panel" & x + 1).BackColor = Color.Maroon
    22. If x = start Then Me.Controls("Panel" & start + 1).BackColor = Color.Maroon
    23. If x = start Then backward = False : zaehler = start
    24. Else
    25. Dim y As Integer = zaehler
    26. zaehler = zaehler + 1
    27. Me.Controls("Panel" & y).BackColor = Color.Red
    28. If y > start Then Me.Controls("Panel" & y - 1).BackColor = Color.Maroon
    29. If y = ende Then backward = True : zaehler = ende
    30. End If
    31. End Sub
    33. Private Sub on_off(ByVal switcher As Boolean)
    34. If btn_switch Then
    35. abort = False
    36. btn_start.BackColor = Color.Red
    37. '//'Checkbox deaktiviert
    38. 'If Not cb_l2r.Checked Then zaehler = start
    39. Timer1.Start()
    40. Else
    41. Timer1.Dispose()
    42. abort = True
    43. btn_start.BackColor = Color.Green
    44. settings()
    45. End If
    46. End Sub
    48. Private Sub settings()
    49. 'Checkbox deaktiviert
    50. cb_l2r.Enabled = False
    51. For Each PN In Me.Controls.OfType(Of Panel)()
    52. PN.BackColor = Color.Maroon
    53. Next
    54. Timer1.Interval = 200
    55. zaehler = start '<==nur wenn CB disabled!!
    56. End Sub
    58. Private Sub btn_start_Click(slastLEDr As Object, e As EventArgs) Handles btn_start.Click
    59. btn_switch = Not btn_switch
    60. on_off(btn_switch)
    61. End Sub
    62. 'Checkbox deaktiviert
    63. Private Sub cb_l2r_CheckedChanged(sender As Object, e As EventArgs) Handles cb_l2r.CheckedChanged
    64. settings() : zaehler = ende : backward = True
    65. End Sub
    66. End Class

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

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

    Da fehlt Dir m.E. noch dezent das Feingefühl.
    • eine Sub-Methode soll etwas machen, daher sollte ihr Name einen Befehl darstellen, also ReaktiviereStartButton, BeendeProgramm, LadeDateiRunter. Aber settings und on_off sind … komisch unkonkret
    • der Parameter bei on_off namens switcher wird überhaupt nicht verwendet, also hinfort damit
    • btn_switch ist ein Boolean mit komischem Namen, da dieser Name nicht erkennen lässt, wofür diese Variable sein soll
    • Die wiederkehrenden Controlzugriffe über den Controlnamen ist auf Dauer gefährlich, weil Du Deinen Code an Namen bindest, die man aber ändern können muss. Fasse die Panels in einer List(Of Panel) zusammen und Du kannst sie sogar per Index ansprechen.
    • Timer1.Dispose()? Was soll das bewirken? Dispose ist grundsätzlich ein diese-Komponente-wird-nun-entsorgt-Befehl!
    Vielleicht hab ich die Muße, mal eine Alternative zu coden …
    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.

    Fasse die Panels in einer List(Of Panel) zusammen und Du kannst sie sogar per Index ansprechen.
    Das versuche ich gerade.
    Hatte das ja erst so: ​Dim panels() As Integer = New Integer() {1, 2, 3, 4, 5, 6} begonnen. Brachte mir kein erfolg. Jetzt lese ich gerade über ListOf..
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Damit fasst Du ja nicht die Panels zusammen, sondern quasi irgendwelche Zahlen.
    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.

    So habe nun den Nachmittag damit verbracht etwas im Web über ListOf zu finden. Überall wird entweder nur mit Strings gearbeitet oder es wird gezeigt wie ich Labels / Textboxen erstellen kann. Ich habe nicht gefunden was ich brauche um die Liste auszulesen usw... Ich glaube ich bin zu blöd um richtig zu suchern ;(
    Habe dann erstmal alles unnütze aus dem Code raus.
    Mein Ergebnis bis jetzt. Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
    Im Einzelschritt ist i 1

    VB.NET-Quellcode

    1. ​
    2. Dim ende As Integer
    3. Dim LED As New List(Of Panel) From {Panel1, Panel2, Panel3, Panel4, Panel5, Panel6}
    5. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    6. ende = LED.Count - 1
    8. For i As Integer = 0 To ende
    9. i = i + 1
    10. LED(i).Name = "Panel" & i.ToString '<==Hier flieg ich gleich raus.
    11. LED.Item(i).BackColor = Color.Red
    12. Next
    13. End Sub
    14. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    15. Timer1.Start()
    16. End Sub
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Na der Anfang ist doch gar nicht mal so schlecht. Nur Zeile#10 kannste Dir schenken. Es geht eben darum, dass Du nix mit den Namen machen sollst. Aber hier benennst Du die Panels um. Willste nicht, brauchste nicht.
    Und: die For-Schleife ändert doch selber schon i. Warum mit i = i + 1 da noch nachtreten und Dich selber ins Verderben stürzen? Hinfort damit.
    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.

    Hi
    Das i = i + 1 deshalb, weil das erste i aus der schleife ja 0 ist und das erste Panel ja Panel1

    Denke ich wieder falsch?
    Wie mache ich denn nun weiter? Hab nichts gefunden wie ich nun anders als ich angefangen habe die Panels halt zu ändern.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Mit i = i + 1 erhöhst Du aber mit jedem Schleifendurchgang i. Erster Durchgang: i = 1, 2. Durchgang i = 3, dann i = 5, i = 7, …
    Wenn Du mit 1 anfangen willst, dann schreib das doch auch: For i As Integer = 1 To ende

    ##########

    @Amelie (hier hab ich die Anredefunktion verwendet, damit Du informiert wirst, dass ich den Post noch nachbearbeitet habe):
    hier meine Version:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private backward As Boolean
    2. Private zaehler As Integer
    3. Private Panels As List(Of Panel) = Nothing
    5. Private Sub frm_lauflicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    6. PrepareLeds()
    7. ResetLedLights()
    8. End Sub
    10. Private Sub PrepareLeds()
    11. Panels = New List(Of Panel) From {Panel0, Panel1, Panel2, Panel3, Panel4, Panel5}
    12. End Sub
    14. Private Sub ResetLedLights()
    15. Panels.ForEach(Sub(x) x.BackColor = Color.Maroon)
    16. zaehler = 0
    17. End Sub
    19. Private Sub TmrLedBlinking_Tick(Timer As Object, e As EventArgs) Handles TmrLedBlinking.Tick
    20. Panels.ForEach(Sub(x) x.BackColor = Color.Maroon)
    21. Panels(zaehler).BackColor = Color.Red
    23. 'entweder
    24. If backward Then
    25. zaehler -= 1
    26. Else
    27. zaehler += 1
    28. End If
    29. 'oder: zaehler += If(backward, -1, 1)
    31. If zaehler = 0 OrElse zaehler = Panels.Count - 1 Then backward = Not backward
    32. End Sub
    34. Private Sub btn_start_Click(sender As Object, e As EventArgs) Handles btn_start.Click
    35. If Not TmrLedBlinking.Enabled Then
    36. btn_start.BackColor = Color.Red
    37. TmrLedBlinking.Start()
    38. Else
    39. btn_start.BackColor = Color.Green
    40. TmrLedBlinking.Stop()
    41. ResetLedLights()
    42. End If
    43. End Sub
    45. Private Sub ChbStartBackwards_CheckedChanged(sender As Object, e As EventArgs) Handles ChbStartBackwards.CheckedChanged
    46. ResetLedLights()
    47. SetLedStartDirection()
    48. End Sub
    50. Private Sub SetLedStartDirection()
    51. backward = ChbStartBackwards.Checked
    53. 'entweder
    54. If ChbStartBackwards.Checked Then
    55. zaehler = Panels.Count - 1
    56. Else
    57. zaehler = 0
    58. End If
    59. 'oder: zaehler = If(ChbStartBackwards.Checked, Panels.Count - 1, 0)
    60. End Sub


    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.

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

    OK, das schaut ja ganz anders aus.
    Werde ich mal studieren. ;)

    @VaporiZed
    Edit:

    Also habe mir deinen Code jetzt mal genauer angesehen.
    Einige Fragen:
    1.) Siehe Bild; woher kommt diese Zahl? Weiter ==> Frage 4

    2.) 'oder: zaehler += If(backward, -1, 1) Das verstehe ich nicht.

    3.) Panels.ForEach(Sub(x) x. Die (Sub(x) .. ist die ListOf???

    4.) Woher wies der Code nun welches LED wieder von Rot auf Maroon gesetzt werden muss?

    VB.NET-Quellcode

    1. Panels.ForEach(Sub(x) x.BackColor = Color.Maroon)
    2. Panels(zaehler).BackColor = Color.Red


    Finde es aber trotzdem so erstaunlich das, obgleich dein Code so anders als meiner ist, beide das gleiche machen und wenn ich mal gugge, habe ich nicht viel mehr code gebraucht.
    Aber ich sehe das mein Code viel zu unübersichtlich und die ganzen IF abfragen verwirrend sind.


    EDIT 08:34

    Es werden quasi immer alle erst wieder ausgeschaltet? Trotzdem verwirrt mich diese Zahl

    EDIT 09:50
    Habe meinen Code etwas angepasst was das ein und ausschalten der LEDs betrifft. Nur um zu sehen ob das so klappt ;)
    Frage mich jetzt warum ich da nicht drauf gekommen bin und es mir soooo schwer mit den ganzen ​IF Abfragen gemacht habe?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(Timer As Object, e As EventArgs) Handles Timer1.Tick
    2. If abort Then Exit Sub
    3. If backward Then
    4. Dim x As Integer = zaehler
    5. zaehler = zaehler - 1
    6. If x = start Then backward = False
    7. LEDsoff()
    8. Me.Controls("Panel" & x).BackColor = Color.Red
    9. If x = start Then backward = False : zaehler = start
    10. Else
    11. Dim y As Integer = zaehler
    12. zaehler = zaehler + 1
    13. LEDsoff()
    14. Me.Controls("Panel" & y).BackColor = Color.Red
    15. If y = ende Then backward = True : zaehler = ende
    16. End If
    17. End Sub
    19. Private Sub LEDsoff()
    20. For Each PN In Me.Controls.OfType(Of Panel)()
    21. PN.BackColor = Color.Maroon
    22. Next
    23. End Sub
    24. ​
    Bilder

    • lauflicht-1.jpg

      215,56 kB, 699×300, 55 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

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

    Diese Zahl 804 ist verwirrend, korrekt. Würdest Du schreiben: Panels.ForEach(Sub(Halleluja) Halleluja.BackColor = Color.Maroon), würde keine 804 angezeigt werden, sondern gar nix. Wie Du die Variable nennst, ist egal.
    • Panels.ForEach(Sub(x) x.BackColor = Color.Maroon)
    • Panels.ForEach(Sub(Panel) Panel.BackColor = Color.Maroon)
    • Panels.ForEach(Sub(Halleluja) Halleluja.BackColor = Color.Maroon)
    Alles gleich. Wichtig ist nur, dass in der Klammer bei Sub der gleiche Begriff verwendet wird wie vor .BackColor =
    Wenn man jetzt aber x schreibt (ich bevorzuge es einfach) und außerhalb dieser Zeile nen Haltepunkt setzt und versucht den Wert von x anzeigen zu lassen, indem man mit der Maus draufgeht, versucht der Compiler das x zu interpretieren und einen Wert anzuzeigen, was aber total Blödsinn ist, weil das eigentliche x da gar nicht mehr existiert. Aber der Compiler findet ein x. Nämlich welches? Das Form hat eine X-Variable: den linken Fensterabstand zum Bildschirmrand. Der beträgt bei Dir 804 Pixel. Das hat aber inhaltlich überhaupt nix mit der genannten Zeile zu tun. Daher zurecht für Dich verwirrend.
    Zur Zeile selbst: Das Such-Stichwort für Dich heißt LINQ. Das geht so:

    VB.NET-Quellcode

    1. Panels.ForEach(Sub(x) x.BackColor = Color.Maroon)
    Bedeutet: »Compiler, nimm die Variable Panels her, die eine Gruppe von Panels ist, und führe diesen ForEach-Kram durch. Das heißt: Führe für jedes Element in dieser Panelmenge eine bestimmte Sache aus, nämlich das, was nach ForEach in Klammern steht.« Damit man nun sagen kann, was genau mit jedem Panel geschehen soll, gibt es diese Variable x oder Panel oder Halleluja oder wie Du sie nennen willst. Mit der greifst Du auf das Einzelpanel zu und kannst sagen, was damit geschehen soll, hier also: Setzen der BackColor. Wie kannst Du unterscheiden, um welches Panel es geht: Gar nicht. Darum geht es ja auch. Der Compiler soll es ja mit allen Panels in der Gruppe tun. Daher ist eine Unterscheidung gar nicht notwendig. Es soll einfach im gesamten heißen: Compiler, führe für jedes Element in der Gruppe Panels eine Aktion aus, nämlich: setze "für jedes einzelne" (ForEach) die BackColor.

    Antwort auf Frage 2: Man kann meinen Code an der Stelle entweder ausführlich schreiben (das ist der "entweder"-Teil) oder kurz (der "oder"-Teil). Wenn Dich letzterer verwirrt, ignoriere ihn. Er besagt folgendes:
    zaehler += If(backward, -1, 1): »Addiere zu dem Wert von zaehler etwas, nämlich: Wenn (If) backward True ist (Vergleiche von Booleans mit True sind redundant, von daher brauch ich sogar nur backward an der Stelle zu schreiben), Dann addiere -1, Sonst addiere 1.«
    Ein anderes, fiktives Beispiel:
    Dim MeinPlanFürHeute = If(TemperaturInGradCelsius > 25, BadenGehen, BuchLesen)
    "Wenn es wärmer als 25 °C ist, Dann baden gehen, Sonst Buch lesen"
    oder allgemein: Ergebnis = If(Bedingung, ErgebniswertWennBedingungWahrIst, ErgebniswertWennBedingungFalschIst)

    Frage 3 ist m.E. beantwortet

    zu Frage 4: Ich setze alle LEDs/Panels zuerst auf Maroon und gleich danach das Panel, welches durch zaehler-Index momentan "dran ist" auf Red. Ich mach es mir also leicht und versuche nicht zu ermitteln, welches Panel vorher Red war, damit ich es auf Maroon setzen kann, ich setz einfach alle auf Maroon.

    Edit 8:34: Ja und siehe oben

    Edit 9:50: Du arbeitest ja immer noch mit Control-Namen. Ich nicht. Ich nehm einfach die Panels-Gruppe und zaehler. Mehr braucht es nicht. Und ich kann die Panels umbenennen wie ich will. Das kannst Du nicht, weil Du mit Me.Controls("Panel" & y) immer an die Namen "appellierst". Benennst Du ein Panel um, crasht Dein Code an solch einer Stelle.
    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.

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

    OK
    Einiges ist mir jetzt klarer geworden. Bissel sacken lassen. ;)

    Vorallem das: Panels.ForEach(Sub(x) x.BackColor = Color.Maroon)

    Bzgl. Meines Codes. Ja ich möchte den so nach und nach umbauen. Dann verstehe ich alles besser.
    Habe jetzt z.B. nochmal den Abschnitt im TimerTick ändern und drastisch ( unsinnigen ) Code reduzieren können.

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(Timer As Object, e As EventArgs) Handles Timer1.Tick
    2. If abort Then Exit Sub
    3. Dim x As Integer = zaehler
    4. If backward Then
    5. zaehler = zaehler - 1
    6. LEDsoff()
    7. Me.Controls("Panel" & x).BackColor = Color.Red
    8. If x = start Then backward = False : zaehler = start
    9. Else
    10. zaehler = zaehler + 1
    11. LEDsoff()
    12. Me.Controls("Panel" & x).BackColor = Color.Red
    13. If x = ende Then backward = True : zaehler = ende
    14. End If
    15. End Sub



    Edit 11:20

    Also wäre das:

    VB.NET-Quellcode

    1. Panels.ForEach(Sub(x) x.BackColor = Color.Maroon)

    quasi die kurze Version von dem:

    VB.NET-Quellcode

    1. Private Sub LEDs_off()
    2. For Each PN In Me.Controls.OfType(Of Panel)()
    3. PN.BackColor = Color.Maroon
    4. Next
    5. End Sub

    Mit dem Unterschied, das bei meiner Version alle auf dem Form befindlichen Panels neu eingefärbt würden.

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

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

    So habe noch etwas gelernt und neues umgesetzt.


    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Public Class frm_lauflicht
    3. Dim abort As Boolean
    4. Dim backward As Boolean
    5. Dim zaehler As Integer
    6. Dim newCol As Integer
    7. Dim start As Integer = 0
    8. Dim LED_Leiste As List(Of Panel) = Nothing
    9. Dim LED_Colors As List(Of Color) = Nothing
    10. Private Sub ListofLEDs()
    11. LED_Leiste = New List(Of Panel) From {Panel0, Panel1, Panel2, Panel3, Panel4, Panel5, Panel6}
    12. End Sub
    13. Private Sub ListofColors()
    14. LED_Colors = New List(Of Color) From {Color.Red, Color.Lime, Color.DodgerBlue, Color.Magenta, Color.Orange, Color.SpringGreen, Color.Yellow}
    15. End Sub
    16. Private Sub createRandomColor()
    17. Dim Random As New Random
    18. newCol = Random.Next(0, LED_Colors.Count)
    19. End Sub
    20. Private Sub reset_leds()
    21. LED_Leiste.ForEach(Sub(led) led.BackColor = Color.DimGray)
    22. LED_Leiste.ForEach(Sub(led) led.BorderStyle = BorderStyle.None)
    23. End Sub
    24. Private Sub frm_lauflicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    25. cb_Start_Direction.Enabled = False 'Checkbox deaktiviert
    26. ListofLEDs() : ListofColors() : reset_leds()
    27. End Sub
    28. Private Sub Timer1_Tick(Timer As Object, e As EventArgs) Handles Timer1.Tick
    29. If abort Then Exit Sub
    30. Dim ledNr As Integer = zaehler ' für mich besser als nur ein x oder f oder whatever
    31. reset_leds()
    32. 'createRandomColor() 'Jedes LED einzeln neu färben
    33. LED_Leiste(ledNr).BackColor = LED_Colors(newCol)
    34. If backward Then
    35. zaehler = zaehler - 1
    36. If ledNr = start Then backward = False : zaehler = start : createRandomColor()
    37. Else
    38. zaehler = zaehler + 1
    39. If ledNr = LED_Leiste.Count - 1 Then backward = True : zaehler = LED_Leiste.Count - 1 : createRandomColor()
    40. End If
    41. End Sub
    42. Private Sub btn_start_Click(slastLEDr As Object, e As EventArgs) Handles btn_start.Click
    43. If Not Timer1.Enabled Then
    44. abort = False
    45. btn_start.BackColor = Color.Red
    46. Timer1.Start()
    47. Else
    48. abort = True
    49. Timer1.Stop()
    50. btn_start.BackColor = Color.Green
    51. reset_leds()
    52. End If
    53. End Sub
    54. Private Sub cb_Start_Direction_CheckedChanged(sender As Object, e As EventArgs) Handles cb_Start_Direction.CheckedChanged
    55. ListofLEDs() : ListofColors() '<= Hier nötig wenn die CB im Designer schon Checked auf True gesetzt ist
    56. If Not cb_Start_Direction.Checked Then
    57. zaehler = start
    58. backward = True
    59. Else
    60. zaehler = LED_Leiste.Count - 1
    61. End If
    62. End Sub
    63. Private Sub Num_Interval_ValueChanged(sender As Object, e As EventArgs) Handles Num_Interval.ValueChanged
    64. Timer1.Interval = CInt(Num_Interval.Value) 'Während der Laufzeit einstellbar
    65. End Sub
    66. End Class

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

    moin moin

    Danke @ErfinderDesRades ; mir wäre es lieber das ich erstmal selber etwas code was dann ggf von dir oder anderen verbessert wird.
    Ich baue dann auf dem letzen code auf.
    Bzgl. zip/rar ich benutze 7Zip oder wenns ;) ganz schnall gehen soll einfach das Wineigene zip.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    naja - ich zumindest werde deine Async-Versuche nicht verbessern.
    Dieses Problem mit Async zu lösen ist absolut verblüffend einfach. Ich kann mir nicht vorstellen, dass du da drauf kommst, ohne dass man es dir zeigt.
    Du kannst also jetzt noch ein paar Tage in wahrscheinlich vergeblicher Eigenarbeit zubringen, und mich dann machen lassen, oder du lässt mich gleich machen.
    Du kannst natürlich dein projekt auch garnet uppen, dann mach ich auch nix.

    Jetzt arbeitest Du ja gar nicht mehr mit einem System.Windows.Forms.Timer (den man im Designer auf's Form zieht), sondern mit einem System.Timers.Timer. Nuja.
    Der NumericUpDown-Wert wird gar nicht verwendet, das Timer-Intervall bleibt immer bei 90 ms.
    Zu jedem AddHandler muss es auch ein RemoveHandler geben. Bevor Du also den Timer disposed, schreibe: RemoveHandler LEDTimer.Elapsed, AddressOf LEDTimer_Tick
    In der LEDTimer_Tick-Methode führst Du die Variable ledNr ein, die exakt das gleiche wie zaehler ist. Entsorgst das lokale ledNr und benutzt entweder nur zaehler oder benenne in der ganzen Klasse zaehler in ledNr um.
    zaehler = zaehler - 1 -> zaehler -= 1
    zaehler = zaehler + 1 -> zaehler += 1
    Falls Du vorhast, start bei 0 zu belassen, entsorge start.

    Das hier geht zwar:

    VB.NET-Quellcode

    1. LED_Leiste.ForEach(Sub(led) led.BackColor = Color.DimGray)
    2. LED_Leiste.ForEach(Sub(led) led.BorderStyle = BorderStyle.None)
    das geht aber auch z.B. so, falls gewollt:

    VB.NET-Quellcode

    1. LED_Leiste.ForEach(Sub(led)
    2. led.BackColor = Color.DimGray
    3. led.BorderStyle = BorderStyle.None
    4. End Sub)
    oder:

    VB.NET-Quellcode

    1. Private Sub reset_leds()
    2. LED_Leiste.ForEach(Sub(led) PreparePanel(led))
    3. End Sub
    5. Private Sub PreparePanel(led As Panel)
    6. led.BackColor = Color.DimGray
    7. led.BorderStyle = BorderStyle.None
    8. End Sub


    createRandomColor() und reset_leds() sind passende Sub-Namen, da sie konkrete Anweisungen nennen. ListofLEDs() und ListofColors() erfüllen dieses Kriterium nicht.
    Du solltest die Zeile Dim Random As New Random aus createRandomColor() rausholen, ansonsten wird überflüssigerweise bei jeder neuen Farbgebung ein neuer Zufallsgenerator erzeugt.

    Stoppt man den Verlauf bei der 1. "Hinrunde", wird beim Fortsetzen immer die gleiche Farbe wiederverwendet. Stoppt man den Verlauf bei der "Rückrunde", wird beim Fortsetzen das erste Panel mit der alten Farbe gezeigt, dann dessen Farbe gewechselt und erst dann läuft das Lichtspiel weiter.
    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.

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