Übungsaufgabe FlipFlop

ErfinderDesRades · 19. Februar 2022, 19:10

Amelie schrieb:

VB.NET-Quellcode

Dim t_clock As Boolean = False ' unklar '<==== Der Taktgeber

Hä?
Wie kann ein Boolean ein "Taktgeber" sein??
bzw was verstehst du unter "Taktgeber" ?

In meiner welt kann zB ein Timer ein "Taktgeber" sein, aber niemals ein Boolean

Amelie · 20. Februar 2022, 07:43

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

Public Class frm_lauflicht
Dim btn_switch As Boolean = False
Dim abort As Boolean
Dim backward As Boolean
Dim zaehler As Integer
Dim start As Integer = 0
Dim ende As Integer = 5
Private Sub frm_lauflicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
settings()
End Sub
Private Sub Timer1_Tick(Timer As Object, e As EventArgs) Handles Timer1.Tick
If abort Then Exit Sub
If backward Then
If zaehler = ende Then Me.Controls("Panel" & ende).BackColor = Color.Red
Dim x As Integer = zaehler
zaehler = zaehler - 1
If x = start Then backward = False
Me.Controls("Panel" & x).BackColor = Color.Red
If x > start And x <> ende Then Me.Controls("Panel" & x + 1).BackColor = Color.Maroon
If x = start Then Me.Controls("Panel" & start + 1).BackColor = Color.Maroon
If x = start Then backward = False : zaehler = start
Else
Dim y As Integer = zaehler
zaehler = zaehler + 1
Me.Controls("Panel" & y).BackColor = Color.Red
If y > start Then Me.Controls("Panel" & y - 1).BackColor = Color.Maroon
If y = ende Then backward = True : zaehler = ende
End If
End Sub
Private Sub on_off(ByVal switcher As Boolean)
If btn_switch Then
abort = False
btn_start.BackColor = Color.Red
'//'Checkbox deaktiviert
'If Not cb_l2r.Checked Then zaehler = start
Timer1.Start()
Else
Timer1.Dispose()
abort = True
btn_start.BackColor = Color.Green
settings()
End If
End Sub
Private Sub settings()
'Checkbox deaktiviert
cb_l2r.Enabled = False
For Each PN In Me.Controls.OfType(Of Panel)()
PN.BackColor = Color.Maroon
Next
Timer1.Interval = 200
zaehler = start '<==nur wenn CB disabled!!
End Sub
Private Sub btn_start_Click(slastLEDr As Object, e As EventArgs) Handles btn_start.Click
btn_switch = Not btn_switch
on_off(btn_switch)
End Sub
'Checkbox deaktiviert
Private Sub cb_l2r_CheckedChanged(sender As Object, e As EventArgs) Handles cb_l2r.CheckedChanged
settings() : zaehler = ende : backward = True
End Sub
End Class

VaporiZed · 20. Februar 2022, 10:18

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 …

Amelie · 20. Februar 2022, 10:32

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..

VaporiZed · 20. Februar 2022, 10:35

Damit fasst Du ja nicht die Panels zusammen, sondern quasi irgendwelche Zahlen.

Amelie · 20. Februar 2022, 16:31

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

Dim ende As Integer
Dim LED As New List(Of Panel) From {Panel1, Panel2, Panel3, Panel4, Panel5, Panel6}
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
ende = LED.Count - 1
For i As Integer = 0 To ende
i = i + 1
LED(i).Name = "Panel" & i.ToString '<==Hier flieg ich gleich raus.
LED.Item(i).BackColor = Color.Red
Next
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Timer1.Start()
End Sub

VaporiZed · 20. Februar 2022, 16:46

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.

Amelie · 20. Februar 2022, 17:07

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.

VaporiZed · 20. Februar 2022, 17:16

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

Private backward As Boolean
Private zaehler As Integer
Private Panels As List(Of Panel) = Nothing
Private Sub frm_lauflicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
PrepareLeds()
ResetLedLights()
End Sub
Private Sub PrepareLeds()
Panels = New List(Of Panel) From {Panel0, Panel1, Panel2, Panel3, Panel4, Panel5}
End Sub
Private Sub ResetLedLights()
Panels.ForEach(Sub(x) x.BackColor = Color.Maroon)
zaehler = 0
End Sub
Private Sub TmrLedBlinking_Tick(Timer As Object, e As EventArgs) Handles TmrLedBlinking.Tick
Panels.ForEach(Sub(x) x.BackColor = Color.Maroon)
Panels(zaehler).BackColor = Color.Red
'entweder
If backward Then
zaehler -= 1
Else
zaehler += 1
End If
'oder: zaehler += If(backward, -1, 1)
If zaehler = 0 OrElse zaehler = Panels.Count - 1 Then backward = Not backward
End Sub
Private Sub btn_start_Click(sender As Object, e As EventArgs) Handles btn_start.Click
If Not TmrLedBlinking.Enabled Then
btn_start.BackColor = Color.Red
TmrLedBlinking.Start()
Else
btn_start.BackColor = Color.Green
TmrLedBlinking.Stop()
ResetLedLights()
End If
End Sub
Private Sub ChbStartBackwards_CheckedChanged(sender As Object, e As EventArgs) Handles ChbStartBackwards.CheckedChanged
ResetLedLights()
SetLedStartDirection()
End Sub
Private Sub SetLedStartDirection()
backward = ChbStartBackwards.Checked
'entweder
If ChbStartBackwards.Checked Then
zaehler = Panels.Count - 1
Else
zaehler = 0
End If
'oder: zaehler = If(ChbStartBackwards.Checked, Panels.Count - 1, 0)
End Sub

Amelie · 20. Februar 2022, 18:45

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

Panels.ForEach(Sub(x) x.BackColor = Color.Maroon)
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

VaporiZed · 21. Februar 2022, 10:32

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

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.

Amelie · 21. Februar 2022, 11:02

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

Private Sub Timer1_Tick(Timer As Object, e As EventArgs) Handles Timer1.Tick
If abort Then Exit Sub
Dim x As Integer = zaehler
If backward Then
zaehler = zaehler - 1
LEDsoff()
Me.Controls("Panel" & x).BackColor = Color.Red
If x = start Then backward = False : zaehler = start
Else
zaehler = zaehler + 1
LEDsoff()
Me.Controls("Panel" & x).BackColor = Color.Red
If x = ende Then backward = True : zaehler = ende
End If
End Sub

Edit 11:20

Also wäre das:

VB.NET-Quellcode

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

quasi die kurze Version von dem:

VB.NET-Quellcode

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

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

Amelie · 21. Februar 2022, 16:22

So habe noch etwas gelernt und neues umgesetzt.

Spoiler anzeigen

VB.NET-Quellcode

Public Class frm_lauflicht
Dim abort As Boolean
Dim backward As Boolean
Dim zaehler As Integer
Dim newCol As Integer
Dim start As Integer = 0
Dim LED_Leiste As List(Of Panel) = Nothing
Dim LED_Colors As List(Of Color) = Nothing
Private Sub ListofLEDs()
LED_Leiste = New List(Of Panel) From {Panel0, Panel1, Panel2, Panel3, Panel4, Panel5, Panel6}
End Sub
Private Sub ListofColors()
LED_Colors = New List(Of Color) From {Color.Red, Color.Lime, Color.DodgerBlue, Color.Magenta, Color.Orange, Color.SpringGreen, Color.Yellow}
End Sub
Private Sub createRandomColor()
Dim Random As New Random
newCol = Random.Next(0, LED_Colors.Count)
End Sub
Private Sub reset_leds()
LED_Leiste.ForEach(Sub(led) led.BackColor = Color.DimGray)
LED_Leiste.ForEach(Sub(led) led.BorderStyle = BorderStyle.None)
End Sub
Private Sub frm_lauflicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
cb_Start_Direction.Enabled = False 'Checkbox deaktiviert
ListofLEDs() : ListofColors() : reset_leds()
End Sub
Private Sub Timer1_Tick(Timer As Object, e As EventArgs) Handles Timer1.Tick
If abort Then Exit Sub
Dim ledNr As Integer = zaehler ' für mich besser als nur ein x oder f oder whatever
reset_leds()
'createRandomColor() 'Jedes LED einzeln neu färben
LED_Leiste(ledNr).BackColor = LED_Colors(newCol)
If backward Then
zaehler = zaehler - 1
If ledNr = start Then backward = False : zaehler = start : createRandomColor()
Else
zaehler = zaehler + 1
If ledNr = LED_Leiste.Count - 1 Then backward = True : zaehler = LED_Leiste.Count - 1 : createRandomColor()
End If
End Sub
Private Sub btn_start_Click(slastLEDr As Object, e As EventArgs) Handles btn_start.Click
If Not Timer1.Enabled Then
abort = False
btn_start.BackColor = Color.Red
Timer1.Start()
Else
abort = True
Timer1.Stop()
btn_start.BackColor = Color.Green
reset_leds()
End If
End Sub
Private Sub cb_Start_Direction_CheckedChanged(sender As Object, e As EventArgs) Handles cb_Start_Direction.CheckedChanged
ListofLEDs() : ListofColors() '<= Hier nötig wenn die CB im Designer schon Checked auf True gesetzt ist
If Not cb_Start_Direction.Checked Then
zaehler = start
backward = True
Else
zaehler = LED_Leiste.Count - 1
End If
End Sub
Private Sub Num_Interval_ValueChanged(sender As Object, e As EventArgs) Handles Num_Interval.ValueChanged
Timer1.Interval = CInt(Num_Interval.Value) 'Während der Laufzeit einstellbar
End Sub
End Class

ErfinderDesRades · 21. Februar 2022, 17:45

mir siehts so aus, als könne die Variable abort auch verschwinden.
Stattdessen kannste einfach Not Timer1.Enabled nehmen - erbringt zu jedem Zeitpunkt denselben Wert wie das abort es jetzt tut.

Amelie · 21. Februar 2022, 20:07

Eigentlich hast du recht aber ich brauche die evtl noch für was anderes.
Weil ich hier noch mit Async was machen will.

ErfinderDesRades · 21. Februar 2022, 21:47

für die async-variante brauchste keine Klassenvariable.
Ich kann dir die async-Variante coden - du müsstest aber deine Solution - so wie sie jetzt funktioniert zippen und anhängen.
Aber Obacht! mit zippen meine ich zippen - weil ich habe kein WinRar.

Amelie · 22. Februar 2022, 06:22

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.

ErfinderDesRades · 22. Februar 2022, 08:17

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.

Amelie · 22. Februar 2022, 08:33

OK, habe mein "Versuch" mal angehangen.

VaporiZed · 22. Februar 2022, 09:53

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

LED_Leiste.ForEach(Sub(led) led.BackColor = Color.DimGray)
LED_Leiste.ForEach(Sub(led) led.BorderStyle = BorderStyle.None)

das geht aber auch z.B. so, falls gewollt:

VB.NET-Quellcode

LED_Leiste.ForEach(Sub(led)
led.BackColor = Color.DimGray
led.BorderStyle = BorderStyle.None
End Sub)

oder:

VB.NET-Quellcode

Private Sub reset_leds()
LED_Leiste.ForEach(Sub(led) PreparePanel(led))
End Sub
Private Sub PreparePanel(led As Panel)
led.BackColor = Color.DimGray
led.BorderStyle = BorderStyle.None
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.

Übungsaufgabe FlipFlop

Amelie schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

7 Benutzer haben hier geschrieben