Projektbeurteilung Ampelsteuerung

Amelie · 26. Februar 2022, 09:15

Moin moin zusammen

Ich tue mich leider immer schwer mit der Namensvergabe, mir fehlt wohl einfach die Übung..??
-----
Mache nun noch letzte kleine Änderungen (Namensvergaben etc..) und "Testdurchläufe" an meinem Übungsprojekt und dann zippe ich die Solution mal.
Wäre dann über jeden weiteren Tip dankbar.

So hier nun das fertige Übungs/Aufgaben Project
-----------------
Vorgabe:
Haupt und Nebenstraße mit je einer Ampel pro Fahrtrichtung. Die Ampelanlage soll eine umschaltbare Nachtschaltung, welche zeitlich änderbar ist, sowie einstellbare Grünphasen besitzen.
Zudem soll die Ampelsteuerung eine s.g. Räumphase nach jeder Rotphase erhalten. In fast allen Beispielen werden diese Räumphasen nicht berücksichtigt.
Die jeweiligen Zustände / Anzeigen sollen in einem Peudo-Display angezeigt werden.

Habe versucht das ganze so gut wie möglich in OOP zu machen und war auch bei der Namensvergabe hoffentlich etwas besser.

Beiträge zusammengefügt. ~Thunderbolt
ausgelagert aus Übungsaufgabe FlipFlop ~VaporiZed

VaporiZed · 26. Februar 2022, 18:25

Amelie schrieb:

Habe versucht das ganze so gut wie möglich in OOP zu machen

OOP bedeutet aber objektorientierte Programmierung. Neben der Formklasse hast Du keine einzige eigene. Ob man das als OOP bezeichnen kann? Nuja. Zumindest eine Ampelklasse wäre sinnvoll. Und ggf. eine Kreuzung-Klasse. Aber das jetzt zu machen, ohne den Nutzen zu kennen oder zu sehen, wäre sinnfrei.

Amelie schrieb:

und war auch bei der Namensvergabe hoffentlich etwas besser

Es ist etwas besser. Aber versuch es mal so: probier mal für jede Sub außer EventHandler einen Namen zu finden, der einen Imperativ bildet und den Zweck der Methode abbildet. Und bei Funktions sollte immer auch über den Namen klarwerden, was die Functions inhaltlich zurückgeben.

Amelie · 26. Februar 2022, 19:51

Aber das jetzt zu machen, ohne den Nutzen zu kennen oder zu sehen

Naja der Nutzen ist für mich das lernen.

und den Zweck der

dachte das hätte ich..

Ich dachte die ListOf usw wären auch OOP.

Wie sähe denn so eine Ampelklasse / Kreuzungsklasse aus?

EDIT: 20:10Uhr

Meinst Du so etwar ???

VB.NET-Quellcode

Public Class frm_main
Private Sub frm_main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
'Neue Klassen
Class Ampel
Public _LedFarbe As Color
Public _Status As Boolean
Public _Standort As String
End Class
Class Kreuzung
Public _Haupstrasse As String
Public _Nebenstrasse As String
End Class
End Class

VaporiZed · 27. Februar 2022, 00:40

Was ich mit Nutzen meinte, ist: Wenn Du nicht weißt, was Dir die Benutzung/Einführung von Klassen für Codeveränderungen, -vor- und -nachteile bringt, weißt Du ja auch gar nicht, wozu Du damit überhaupt anfangen solltest.
List(Of hat mit OOP nur bedingt was zu tun. Klar, Du nutzt eine Klasseninstanz. Aber es geht bei OOP m.E. um den OOP-Aufbau des eigenen Projektes.
Dein Edit von 20:10 zeigt einen rudimentären Anfang von OOP, der allerdings schon etwas falsch abbiegt. Die beiden Klassen dürfen nicht innerhalb der Form-Klasse sein. Sie sind ja nicht Bestandteil eines Formulars, sondern Ampel- und Kreuzungs-Baupläne sind ja formularunabhängig.*
Meine (!) Vorstellung für ein OOP-Konzept:
Das Form kennt eine Kreuzungskontrollinstanz.**
Eine Kreuzungskontrollklasse kennt x Ampel-Instanzen und einen Taktgeber.
Eine Ampelklasse kennt nix von ihrer Umgebung.

Das Prinzip sollte sein: Der User teilt über Eingaben (Button-Clicks, CheckBoxen) und somit über das Form der Kreuzungskontrolle mit, welchen Zustand diese hat (Nachtbetrieb, eingeschaltet, im Betrieb). Die Kreuzung schaltet entsprechend ihren Taktgeber (ein) und durch seine Takte teilt die Kreuzungskontrolle den Ampeln ihre Farben mit. Die Ampeln reagieren nur darauf, können sonst aber nix.

Würdest Du diesem Vorschlag zustimmen oder sagst Du: Nein, an dieser oder jener Stelle ist die Realität anders. Oder gar: der vorgeschlagene Aufbau ist komplett an der Wahrheit im Straßenleben vorbeigedacht.

* ok, in Deutschland vielleicht nicht

(Bürokratiewitz)
** bei genauer Überlegung ist nicht Class Kreuzung, sondern Class Kreuzungskontrolle oder Class Kreuzungssteuerung besser.

Amelie · 27. Februar 2022, 10:50

Moin moin

Also ich habe nun eine Klasse erstellt und diese kann ich ansprechen.
Der Code funktioniert soweit.

Jetzt meine Frage:
Wie bekomme ich das mit der ListOf hin, damit das

VB.NET-Quellcode

LEDSt.LEDName = PB_AnlageLED
St.LED_onof(LEDSt.LEDName, True)

einfacher wird? Ist ja auch später für die Ampel wichtig.
Da bekomme ich in der ListOf den Fehler:
Fehler 1 Der Wert vom Typ "System.Windows.Forms.PictureBox" kann nicht in "AmpelOOP.SteuerLED" konvertiert werden.

Spoiler anzeigen

VB.NET-Quellcode

Public Class SteuerLED
Private LEDFarbe As Color
Private Status As Boolean
Public LEDName As PictureBox
Public Sub LED_onof(ByVal Name As PictureBox, Status As Boolean)
If Status Then
LEDFarbe = Color.Lime
LEDName.BackColor = LEDFarbe
Else
LEDFarbe = Color.Green
LEDName.BackColor = LEDFarbe
End If
End Sub
End Class

VB.NET-Quellcode

Public Class frm_main
Dim HSAmpel As New Ampeln
Dim Strasse As New Kreuzungsteuerung
Dim Anlage_ein As Boolean
Dim Betrieb_ein As Boolean
Private LEDSt As New SteuerLED
'Private LEDSt As List(Of SteuerLED) = Nothing
'Private Sub PrepareSteuerLeds()
' LEDSt = New List(Of SteuerLED) From {PB_Anlage, PB_Betrieb, PB_Nacht, PB_Takt}
'End Sub
Private Sub frm_main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
#Region "Steuerelemente"
Private Sub btn_anlageonoff_Click(sender As Object, e As EventArgs) Handles btn_anlageonoff.Click
If Not TimerTaktgeber.Enabled Then
Anlageausgeschaltet()
Else
Anlageeingeschaltet()
End If
End Sub
#End Region
Private Sub Anlageausgeschaltet()
btn_anlageonoff.Text = "Anlage aus"
lbl_uhrzeit.ForeColor = Color.Lime
lbl_beschriftung.ForeColor = Color.Lime
Betrieb_ein = True
LEDSt.LEDName = PB_Anlage
LEDSt.LED_onof(LEDSt.LEDName, True)
TimerTaktgeber.Start()
End Sub
Private Sub Anlageeingeschaltet()
btn_anlageonoff.Text = "Anlage ein"
lbl_uhrzeit.ForeColor = Color.Green
lbl_beschriftung.ForeColor = Color.Green
lbl_uhrzeit.Text = "00:00:00"
Betrieb_ein = False
LEDSt.LEDName = PB_Anlage
LEDSt.LED_onof(LEDSt.LEDName, False)
TimerTaktgeber.Stop()
End Sub
#Region "Taktung"
Private Sub TimerTaktgeber_Tick(sender As Object, e As EventArgs) Handles TimerTaktgeber.Tick
lbl_uhrzeit.Text = DateTime.Now.ToLongTimeString
End Sub
#End Region
End Class
Public Class Ampeln
Private _LEDFarbe As Color
Private _Status As Boolean
Private _Standort As String
Private _Anzahl As Integer '<====Unsicher ob gebraucht wird
End Class

VaporiZed · 27. Februar 2022, 11:04

LEDSt = New List(Of SteuerLED) From {PB_Anlage, PB_Betrieb, PB_Nacht, PB_Takt} erzeugt eine SteuerLED-Liste aus einem PicBoxArray. Das geht offensichtlich nicht. Eine Gruppe von PicBoxen ist nunmal keine Gruppe von SteuerLEDs.
Du willst ja eine Gruppe von SteuerLEDs erzeugen, bei denen dann jeweils eine PicBox ein Bestandteil einer SteuerLED ist.
Das geht z.B. so:

VB.NET-Quellcode

Private LEDSt As List(Of SteuerLED) = Nothing
Private Sub PrepareSteuerLeds()
For Each PicBox in LEDSt = {PB_Anlage, PB_Betrieb, PB_Nacht, PB_Takt} 'nimm je eine PicBox pro Schleifendurchgang aus dem PicBox-Array …
Dim NeueSteuerLED = New SteuerLED With {.LEDname = PicBox} '…und erstelle mithilfe der Schleifendurchgangs-PicBox eine neue SteuerLED-Instanz …
LEDSt.Add(NeueSteuerLED) '…und füge der Liste diese neue SteuerLED-Instanz hinzu
Next
End Sub

Deine Zeile#7 muss natürlich entfernt werden, sonst gibt's ne Doppelbedeutung von LEDSt.

Und wieder Namen: Wenn die Abkürzungen für Dich in Deinem Arbeitsumfeld gängige Abkürzungen sind, ist es ok. Ich aber hätte Probleme mit LEDSt und HSAmpel. Warum der Geiz? Benenn das Zeug ruhig ausführlich. Und wenn die Namen 30 Zeichen lang sind. Hauptsache, Du weißt ohne groß nachzudenken, wofür eine Variable ist. Wenn Dir später ein kürzerer oder passenderer Name einfällt, lässt sich solch ein Name einfach ändern. Aber kurze Abkürzungen zu haben, nur weil sie kurz sind, bringen Dir keinen Mehrwert.
Und LEDname? Was hat ne PicBox mit einem Namen zu tun

Amelie · 27. Februar 2022, 11:47

Fehler in Zeile 4 von Deinem Code-Ausschnitt.
Fehler 1 Der =-Operator ist für die Typen "System.Collections.Generic.List(Of AmpelOOP.SteuerLED)" und "1-dimensionales Array von System.Windows.Forms.PictureBox" nicht definiert.

Und LEDname? Was hat ne PicBox mit einem Namen zu tun Verstehe diese Frage nicht.
Für die Sub in der Klasse muss ich doch irgendwie einen Namen übergeben?? Und das ist doch der : PB_Anlage
OK die Namen überarbeite ich nochmal.

Deine Zeile#7 muss natürlich entfernt Ja das war mir Bewusst

VaporiZed · 27. Februar 2022, 11:51

Bezüglich Zeile#4: korrekt wäre dann wohl For Each PicBox in {PB_Anlage, PB_Betrieb, PB_Nacht, PB_Takt} :rolleyes:

Amelie schrieb:

Verstehe diese Frage nicht.

Die Variable heißt LEDname und ist vom Typ PictureBox. Warum heißt die Variable LEDname, wenn in ihr kein Name, sondern eine PictureBox steckt? Ich hätte bei der Benennung erwartet, dass die Variable vom Typ String ist und da z.B. drinsteht: "Ampel auf der Hauptstraße, stadteinwärts" oder "Ampel Nr. 3". Dass da aber kein String, sondern eine PicBox drinsteckt, kommt für mich überraschend. Wenn es für Dich aber sonnenklar ist, dass da ne PicBox drinsteckt, dann belass es dabei.

Amelie · 27. Februar 2022, 13:16

Überarbeitung.
Bei der Ampel-Klasse überlege ich noch wie genau ich die ausführen muss.
Standort: Haup / Neben Strasse ... Status: für jede Farbe ein Status?

Spoiler anzeigen

VB.NET-Quellcode

Public Class SteuerLED
Public LEDPicBox As PictureBox
Private Farbe As Color
Private Status As Boolean
Public Sub LED_onof(ByVal PicBox As PictureBox, Status As Boolean)
If Status Then
Farbe = Color.Lime
LEDPicBox.BackColor = Farbe
Else
Farbe = Color.DarkGreen
LEDPicBox.BackColor = Farbe
End If
End Sub
End Class

VB.NET-Quellcode

Public Class frm_main
Dim Ampel As New Ampeln
Dim Strasse As New Kreuzungsteuerung
Dim Anlage_ein As Boolean
Dim Betrieb_ein As Boolean
Dim SteuerLED As New SteuerLED
Private LEDAnzeigen As List(Of SteuerLED) = Nothing
Private Sub PrepareSteuerLeds()
For Each PicBox In {PB_Anlage, PB_Betrieb, PB_Nacht, PB_Takt}
Dim NeueSteuerLED = New SteuerLED With {.LEDPicBox = PicBox}
LEDAnzeigen.Add(NeueSteuerLED)
Next
End Sub
Private Sub btn_betriebonof_Click(sender As Object, e As EventArgs) Handles btn_betriebonof.Click
If Not Betrieb_ein Then
Betrieb_ein = True
SteuerLED.LEDPicBox = PB_Betrieb
SteuerLED.LED_onof(PB_Betrieb, True)
Else
Betrieb_ein = False
SteuerLED.LEDPicBox = PB_Betrieb
SteuerLED.LED_onof(PB_Betrieb, False)
End If
End Sub
End Class

VB.NET-Quellcode

Public Class Ampeln
Public LEDPicBox As PictureBox
Private Farbe As Color
Private Status As Boolean
Private Standort As String
Public Sub Ampelstatus(ByVal PicBox As PictureBox)
'ToDo ÜBERLEGEN ....
End Sub
End Class

VaporiZed · 27. Februar 2022, 13:40

Na mal langsam. Eine Klasse sollte im Singular benannt werden, wenn sie genau ein Objekt modellieren soll. Daher sollte die zuletzt genannte Klasse Ampel heißen, nicht Ampeln. Die Klasse soll ja eine Ampel darstellen, nicht alle. Korrekt?
Meines Erachtens sollte die Ampel gar keine PicBoxen enthalten. Die Darstellung von Irgendwas sollte normalerweise im Form stattfinden. Stell Dir vor, dass Du keine PicBoxen mehr zur Anzeige verwenden willst, sondern direkt auf's Form zeichnen willst. Dann hast Du PicBoxen in Deinen Klassen am Hals, die Dich jetzt behindern. Die Klassen außer frm_main sollten daher keine Controls wie PicBoxen enthalten. Sondern nur die relevanten Eigenschaften einer echten Ampel/"Lichtsignalanlage". Und keine mir bekannte Ampel hat sowas wie ne PicBox. Was Du natürlich machen kannst, ist, dass die Ampel Objektinstanzen der noch nicht vorhandenen Klasse LED enthält. Dann kannst Du auch später Fußgängerampeln, Links- und Rechtsabbiegerpfeilampel etc. modellieren.
Public Sub Ampelstatus -> Benennungsregel einer Sub :rolleyes:

.

VaporiZed schrieb:

probier mal für jede Sub außer EventHandler einen Namen zu finden, der einen Imperativ bildet und den Zweck der Methode abbildet.

Eben weil Du die Sub nicht gut benannt hast, weißt Du natürlich auch selber nicht, was sie tun soll. Und damit, was in die Sub rein soll.

VB.NET-Quellcode

Public Sub LED_onof(ByVal PicBox As PictureBox, Status As Boolean)
If Status Then

hier sogar 2 Probleme: Sub-Name und Variable Status. If Status Then ist für den Leser erstmal nicht erklärbar. Er muss den Aufruf und den weiteren Code anschauen, um zu erkennen, welche Aufgabe die Variable Status hat.

##########

Wie es weitergeht, ist schwierig. Du kannst weiter an dem Projekt basteln und posten und wir versuchen es zu formen. Das kann dauern. Oder jemand setzt einen Gegenvorschlag auf und Du versuchst ihn nachzuvollziehen. Was aber auch nicht zwangsläufig hilfreich ist, wenn Du den Weg der Erstellung des Gegenvorschlags nicht Schritt-für-Schritt nachvollziehen kannst. Vielleicht hat ein anderer Leser noch einen Vorschlag.
Mach auf jeden Fall erstmal ein Backup der Post#1-Solution. Das funktioniert ja schon mal.

Amelie · 27. Februar 2022, 14:04

Besser so?

VB.NET-Quellcode

Public Sub LED_Einschalten(ByVal PicBox As PictureBox, LED_EinAus As Boolean)
If LED_EinAus Then

Klasse Ampel / Ampeln: Du meinst für jede Ampel ( Lichterkasten mit 3 Lampen ) eine eigene Klasse?

Meines Erachtens sollte die Ampel gar keine PicBoxen enthalten. ... Sondern nur die relevanten Eigenschaften einer echten Ampel/"Lichtsignalanlage".

Das habe ich nicht verstanden was du meinst.

Wie es weitergeht

Naja ich habe z.B. auf YT etliche solcher Steuerungen gesehen. Leider alle sehr sehr simpel, und fern ab von reellen Ampelanlagen.

VaporiZed · 27. Februar 2022, 14:14

Amelie schrieb:

Du meinst für jede Ampel ( Lichterkasten mit 3 Lampen ) eine eigene Klasse

Nein. Eine Klasse für alle Ampeln. Und ob da 1 oder 2 oder 3 Lichterkästen sind, könntest Du innerhalb der Ampelklasse selber festlegen:

zum Beispiel:

VB.NET-Quellcode

Friend Class Ampel
ReadOnly Property Lichterkästen As New List(Of Lichterkasten)
Friend Sub New(AnzahlDerLichterkästen As Integer)
For i = 0 To AnzahlDerLichterkästen - 1
Lichterkästen.Add(New Lichterkasten)
Next
End Sub
'…
End Class
Friend Class Licherkasten
Property Farbe As Color
End Class

Ich habe gemeint: Pack in die Ampelklasse alle Eigenschaften einer echten Straßenampel, die Du für Dein Programm brauchst. Eine reale Ampel hat viele Eigenschaften, zum Beispiel: Anzahl der Lichterkästen, Größe, durchschnittlicher Stromverbrauch, Standortname, Hersteller, Baujahr, nächster Wartungstermin, …
Wenn Du davon aber nur für Dein Programm Anzahl der Lichterkästen und Standortname brauchst, dann pack auch nur diese Daten als Variablen in Deine Ampelklasse. Aber eben keine Controls (Labels, TextBoxen, PictureBoxen).

Amelie · 27. Februar 2022, 15:58

Muss das mal sacken lassen und das Beispiel versuchen nach zu vollziehen.
Ich brauch eigentlich nur: Standort also je Strasse ( Haupt & NebenStr. ) 2 Lichterkästen mit je 3 Lichtern
Erweitern kann man das ja noch immer.

Muss ich denn das ( die Anzeigen siehe Bild ) dann auch anders machen oder ??

VB.NET-Quellcode

Public Class SteuerLED
Public LEDPicBox As PictureBox
Private Farbe As Color
Private LED_EinAus As Boolean
Public Sub LED_Einschalten(ByVal PicBox As PictureBox, LED_EinAus As Boolean)
If LED_EinAus Then
Farbe = Color.Lime
LEDPicBox.BackColor = Farbe
Else
Farbe = Color.DarkGreen
LEDPicBox.BackColor = Farbe
End If
End Sub
Public Sub LED_Taktung(ByVal PicBox As PictureBox, LED_EinAus As Boolean)
If LED_EinAus Then
Farbe = Color.Yellow
LEDPicBox.BackColor = Farbe
Else
Farbe = Color.SaddleBrown
LEDPicBox.BackColor = Farbe
End If
End Sub
End Class

VaporiZed · 27. Februar 2022, 18:57

Amelie schrieb:

Erweitern kann man das ja noch immer.

Und mit guter OOP ist das später ziemlich leicht.

Amelie schrieb:

Muss ich denn das […] dann auch anders machen

Nun, das Form sollte sich die Zustände der Einzel-LEDs von der Kreuzungssteuerung holen können, damit es die PicBoxen entsprechend färben kann.
Benennung: LED_EinAus As Boolean ist minimal besser. Aber wenn Du LED_EinAus = True hast, ist die LED dann an oder aus? Benennungs-Gegenvorschlag: LedIstEingeschaltet. Dann weiß man sofort, was da True und False bedeutet.
Deine beiden zuletzt genannten Subs machen effektiv das gleiche. Man kann sie also zusammenfassen. Die erste Sub ist gut benannt. Aber noch nicht perfekt. Wenn der Parameter LED_EinAus auf False ist, wird dann die LED ausgeschaltet oder einfach nur nicht eingeschaltet? Ich kann es dem Code entnehmen. Aber das sollte nicht nötig sein, um es zu wissen. Bei der zweiten Sub fehlt das Verb. Wie wäre es mit LedUmschalten? Du hast bei beiden Subs einen Parameter LED_EinAus drin. Zum Namen hab ich grad was gesagt. Aber welche Bedeutung hat eigentlich das Feld (die Klassenvariable) LED_EinAus, wenn Du sie weder ausliest noch einen Wert setzt?
Die PicBox gehört wieder nicht in die Klasse SteuerLED. Das Form kann sich von der SteuerLED-Instanz die Farbe holen und die entsprechende PicBox selber einfärben.

Amelie · 27. Februar 2022, 20:48

Teils verstanden, Teils völlig durcheinander.
Wie komme ich denn nun wieder an die Farbe?

Habe nun noch etliche Tutorials angesehen (alle reden immer von Autos.. Copy&Paste bei YT

) aber hilfreich ist das nicht wirklich.

VB.NET-Quellcode

Public Class SteuerLED
Public LEDPicBox As PictureBox
Private Farbe As Color
Private LED_eingeschaltet As Boolean
Public Sub LED_Einschalten(ByVal LED_eingeschaltet As Boolean)
If LED_eingeschaltet Then
Farbe = Color.Lime
Else
Farbe = Color.DarkGreen
End If
End Sub
End Class
Class Form
Private Sub btn_anlageonoff_Click(sender As Object, e As EventArgs) Handles btn_anlageonoff.Click
If Not Anlage_ein Then
Anlage_ein = True
PB_Anlage.BackColor = ???????? ' Hier muss ich doch der Klasse Mitteilen das LED Eingeschaltet (True)??
Anlageeingeschaltet()
Else
Anlage_ein = False
PB_Anlage.BackColor = ????????
Anlageausgeschaltet()
End If
End Sub
End Class

VaporiZed · 27. Februar 2022, 22:27

Amelie schrieb:

Hier muss ich doch der Klasse Mitteilen das LED Eingeschaltet

Nuja, der einfache Weg:

VB.NET-Quellcode

Public Class SteuerLED
'Public LEDPicBox As PictureBox
Property Farbe As Color 'dann kann man von außen darauf zugreifen
'Private LED_eingeschaltet As Boolean
Public Sub LED_Einschalten(ByVal LED_eingeschaltet As Boolean)
If LED_eingeschaltet Then
Farbe = Color.Lime
Else
Farbe = Color.DarkGreen
End If
End Sub
End Class
Class Form
Private EineSteuerLED As New SteuerLED
Private Sub From_Load(sender As Object, e As EventArgs) Handles Me.Load
EineSteuerLED.LED_Einschalten(True) 'oder auch False zum Testen
End Sub
Private Sub btn_anlageonoff_Click(sender As Object, e As EventArgs) Handles btn_anlageonoff.Click
If Not Anlage_ein Then
Anlage_ein = True
PB_Anlage.BackColor = EineSteuerLED.Farbe 'Form holt sich die Farbe von der SteuerLED
Anlageeingeschaltet()
Else
Anlage_ein = False
PB_Anlage.BackColor = EineSteuerLED.Farbe 'Form holt sich die Farbe von der SteuerLED
Anlageausgeschaltet()
End If
End Sub
End Class

Jetzt siehst Du, dass in beiden Teilen der If-Abfrage für die PB-BackColor der gleiche Code steht. Und daher ist es für die PB-BackColor an dieser Stelle egal, wie der Anlagenzustand ist. Denn die Logik dafür ist nicht mehr im Form-Klassencode, sondern im Code der SteuerLED. Und da ist er besser aufgehoben als im Form-Code. Denn das Verhalten einer Klasse sollte in der Klasse stattfinden, nicht außerhalb. Im Formcode muss für die PB-BackColor nicht mehr geschaut werden, wie der Anlagenzustand ist. Das weiß die Anlage/SteuerLED ja selbst. Das Form holt sich einfach die aktuell aktive Farbe aus der SteuerLED-Klasse. So sollte es auch mit Anlage_ein sein. Nicht in der Formklasse soll entschieden werden, ob das Ding eingeschaltet ist, sondern der Benutzer teilt es der Anlage mit*, indem er einen Button klickt und das Form diese Benutzereingabe an die Anlage weiterreicht. Und die Anlage kümmert sich um die Details. Also z.B.:

VB.NET-Quellcode

Public Class SteuerLED
Property Farbe As Color = Color.DarkGreen
Private IstEingeschaltet As Boolean = False 'das ist also der Startzustand: eingeschaltet = False
Friend Sub SchalteUm()
IstEingeschaltet = Not IstEingeschaltet
'entweder
If IstEingeschaltet Then
Farbe = Color.Lime
Else
Farbe = Color.DarkGreen
End If
'oder in Kurz:
'Farbe = If(IstEingeschaltet, Color.Lime, Color.DarkGreen)
End Sub
…
End Class
Public Class frm_main
Private ReadOnly Anlage As New Anlage 'ich vermute mal, dass SteuerLED und Anlage das gleiche sind
Private Sub btn_AnlageUmschalten_Click(sender As Object, e As EventArgs) Handles btn_AnlageUmschalten.Click 'ACHTUNG: ich hab den Button umbenannt
Anlage.SchalteUm()
PB_Anlage.BackColor = Anlage.Farbe
End Sub
'…
End Class

* ist die Anlage eigentlich die SteuerLED? Ich geh mal davon aus, dass es so ist, ansonsten solltest Du eine zusätzliche Anlage-Klasse anlegen.

Amelie · 28. Februar 2022, 08:02

Moin moin

Soweit so gut.

VB.NET-Quellcode

PB_Anlage.BackColor = EineSteuerLED.Farbe 'Form holt sich die Farbe von der SteuerLED

Das hatte ich so auch schon aber ich bekam ein Fehler, das Farbe nicht zugänglich sei.
Weil das wohl auf Private stand.

VB.NET-Quellcode

Private Farbe As Color

Werde nun noch etwas mit dem Code "spielen" um alles zu verstehen.

EDIT 16:45
@VaporiZed

Kann es sein das ein OOP-Code wesentlich umfangreicher wird?
Habe das Steuerteil der Anlage nun fertig und es erscheint mir soooooooviel Code

VaporiZed · 28. Februar 2022, 22:26

Amelie schrieb:

Kann es sein das ein OOP-Code wesentlich umfangreicher wird?

Mein Diagramm im Anhang zeigt Dir, was Du erwarten kannst, wenn Du ohne OOP arbeitest und wie mit guter OOP. Wenn Du Dein Projekt aus Post#1 mit bisherigen Methoden erweitern willst und Fußgängerampeln, Sonderfälle, mehrere Straßen etc. hinzufügen willst, wirst Du m.E. bei der roten Linie enden. Das kenn ich zumindest aus eigenen Projekten. Hunderte von Codezeilen und immer weniger Durchblick. Die grüne Kurve im im Optimalfall zu erwarten, wenn Du gute OOP anwendest. Ja, zum Anfang ist es mehr Aufwand und auch Codezeilen. Aber der Aufwand rentiert sich, je größer das Projekt wird. Wie schon geschrieben: Wenn der Post#1-Projektumfang alles ist und nichts mehr dazukommen soll, belass es dabei. Aber wenn Du OOP lernen willst und das Projekt noch nicht fertig ist, lohnt es sich, tiefer in den Kaninchenbau vorzudringen, wie man so sagt. Also den OOP-Weg weiterzugehen.

Aber Moment!

Amelie schrieb:

Habe das Steuerteil der Anlage nun fertig und es erscheint mir soooooooviel Code

Vielleicht solltest Du mal das bisherige posten. Vielleicht ist da nochmal aufräumen angesagt.

Amelie · 1. März 2022, 07:52

Moin moin
Klar möchte ich das OOP lernen, mir kam nur die Frage während des coden auf, das es soviel mehr Codezeilen sind. Vielleicht habe ich aber auch einfach noch zu wenig Erfahrung und vieles unnütze zusammengeschrieben.
Ich schreibe den Code so wie ich mit " meiner Logik denke ".

Spoiler anzeigen

Die Klasse:

VB.NET-Quellcode

Public Class clAnlage
'Jedes Objekt hat einen Zustand.
'Jedes Objekt zeigt ein Verhalten.
'Jedes Objekt hat eine Identität.
Property Farbe2 As Color = Color.SaddleBrown
Property Farbe As Color = Color.DarkGreen
Property Beschriftungen As String
Private IstEingeschaltet As Boolean = False
Private IstNachtbetrieb As Boolean = False
Private IstBetrieb As Boolean = False
Private IstBlinker As Boolean = False
Friend Sub SchalteEinAus()
IstEingeschaltet = Not IstEingeschaltet
Farbe = If(IstEingeschaltet, Color.Lime, Color.DarkGreen)
Beschriftungen = If(IstEingeschaltet, "Anlage Aus", "Anlage Ein")
End Sub
Friend Sub BetriebEinAus()
IstBetrieb = Not IstBetrieb
Farbe = If(IstBetrieb, Color.Lime, Color.DarkGreen)
Beschriftungen = If(IstBetrieb, "Betrieb Aus", "Betrieb Ein")
End Sub
Friend Sub NachtbetriebEinAus()
IstNachtbetrieb = Not IstNachtbetrieb
Farbe = If(IstNachtbetrieb, Color.Lime, Color.DarkGreen)
End Sub
Friend Sub TaktEinAus()
IstBlinker = Not IstBlinker
Farbe = If(IstBlinker, Color.Yellow, Color.SaddleBrown)
End Sub
End Class

Das Form:

VB.NET-Quellcode

Public Class frm_anlage
#Region "Einstellungen"
Private ReadOnly Anlage As New clAnlage
Dim AnlageEin As Boolean = False
Dim Nachtbetrieb As Boolean = False
Dim Betrieb As Boolean = False
Private LEDsAnlage As List(Of PictureBox) = Nothing
Private Sub PrepareLedsAnlage()
LEDsAnlage = New List(Of PictureBox) From {PB_Anlage, PB_Betrieb, PB_Nacht, PB_Takt}
End Sub
Private Sub Combosfuellen()
For I = 0 To 23
Dim Zeiten = Date.Today.AddHours(I).ToString("HH:mm")
CmB_Starttime.Items.Add(Zeiten)
Cmb_Endtime.Items.Add(Zeiten)
Next
CmB_Starttime.SelectedItem = "22:00"
CmB_Endtime.SelectedItem = "06:00"
ChB_Nachtbetrieb.Checked = False
ChB_Nachtbetrieb.Enabled = False
End Sub
#End Region
Private Sub frm_anlage_Load(sender As Object, e As EventArgs) Handles MyBase.Load
PrepareLedsAnlage() : Combosfuellen()
End Sub
#Region "Taktung"
Private Sub TimerTaktgeber_Tick(sender As Object, e As EventArgs) Handles TimerTaktgeber.Tick
Uhrzeit_Takt()
'ToDo für Lichterkästen
End Sub
#End Region
#Region "Anzeige Lichterkästen"
'ToDo für Lichterkästen
#End Region
#Region "Anzeigen Anlage"
Private Sub LED_PanelEinAus()
For Each lbl As Label In PN_LED_Anzeigen.Controls.OfType(Of Label)()
lbl.ForeColor = Anlage.Farbe
Next
lbl_Uhrzeit.Text = "00:00:00"
LEDsAnlage.Item(3).BackColor = Anlage.Farbe2
LEDsAnlage.Item(2).BackColor = Anlage.Farbe
End Sub
Private Sub Uhrzeit_Takt()
lbl_Uhrzeit.Text = DateTime.Now.ToString '.ToLongTimeString
Anlage.TaktEinAus()
LEDsAnlage.Item(3).BackColor = Anlage.Farbe
End Sub
Private Sub Nachtmodus()
If Not Nachtbetrieb Then
Anlage.NachtbetriebEinAus()
LEDsAnlage.Item(2).BackColor = Anlage.Farbe
Nachtanzeigen()
Else
Anlage.NachtbetriebEinAus()
LEDsAnlage.Item(2).BackColor = Anlage.Farbe
Nachtanzeigen()
End If
End Sub
Private Sub Nachtanzeigen()
If Not Nachtbetrieb Then
lbl_nachtdauer.Text = "24 Std. Betrieb "
Else
lbl_nachtdauer.Text = "Nachtbetrieb: " & CmB_Starttime.SelectedItem.ToString & " -- " & CmB_Endtime.SelectedItem.ToString & " Uhr"
End If
End Sub
#End Region
#Region "Steuerung"
Private Sub ChB_Nachtbetrieb_CheckedChanged(sender As Object, e As EventArgs) Handles ChB_Nachtbetrieb.CheckedChanged
Nachtbetrieb = Not Nachtbetrieb : Nachtmodus() : Nachtanzeigen()
End Sub
Private Sub btn_AnlageEinAus_Click(sender As Object, e As EventArgs) Handles btn_AnlageEinAus.Click
If Not TimerTaktgeber.Enabled Then
Anlage.SchalteEinAus()
btn_AnlageEinAus.Text = Anlage.Beschriftungen
Anlageeingeschaltet(False)
Else
Anlage.SchalteEinAus()
btn_AnlageEinAus.Text = Anlage.Beschriftungen
Anlageeingeschaltet(True)
End If
End Sub
Private Sub btn_BetriebEinAus_Click(sender As Object, e As EventArgs) Handles btn_BetriebEinAus.Click
If Not Betrieb Then
Anlage.BetriebEinAus()
LEDsAnlage.Item(1).BackColor = Anlage.Farbe
btn_BetriebEinAus.Text = Anlage.Beschriftungen
Betrieb = True
CmB_Endtime.Enabled = False
CmB_Starttime.Enabled = False
Nachtanzeigen()
'ToDo für Lichterkästen
Else
Anlage.BetriebEinAus()
LEDsAnlage.Item(1).BackColor = Anlage.Farbe
btn_BetriebEinAus.Text = Anlage.Beschriftungen
Betrieb = False
CmB_Endtime.Enabled = True
CmB_Starttime.Enabled = True
Nachtanzeigen()
'ToDo für Lichterkästen
End If
End Sub
Private Sub Anlageeingeschaltet(ByVal AnlageEin As Boolean)
If Not AnlageEin Then
TimerTaktgeber.Start()
LED_PanelEinAus()
btn_BetriebEinAus.Enabled = True
LEDsAnlage.Item(0).BackColor = Anlage.Farbe
ChB_Nachtbetrieb.Enabled = True
ChB_Nachtbetrieb.Checked = True
Else
TimerTaktgeber.Stop()
LED_PanelEinAus()
btn_BetriebEinAus.Enabled = False
LEDsAnlage.Item(0).BackColor = Anlage.Farbe
ChB_Nachtbetrieb.Enabled = False
End If
End Sub
#End Region
End Class

Schmittmuthelm · 1. März 2022, 08:33

Amelie schrieb:

VB.NET-Quellcode

Private Sub Nachtmodus()

If Not Nachtbetrieb Then

Anlage.NachtbetriebEinAus()

LEDsAnlage.Item(2).BackColor = Anlage.Farbe

Nachtanzeigen()

Else

Anlage.NachtbetriebEinAus()

LEDsAnlage.Item(2).BackColor = Anlage.Farbe

Nachtanzeigen()

End If

End Sub

Die If-Abfrage ist an der Stelle unnötig, weil du in beiden Fällen das selbe machst.

Amelie schrieb:

VB.NET-Quellcode

Private Sub btn_AnlageEinAus_Click(sender As Object, e As EventArgs) Handles btn_AnlageEinAus.Click

If Not TimerTaktgeber.Enabled Then

Anlage.SchalteEinAus()

btn_AnlageEinAus.Text = Anlage.Beschriftungen

Anlageeingeschaltet(False)

Else

Anlage.SchalteEinAus()

btn_AnlageEinAus.Text = Anlage.Beschriftungen

Anlageeingeschaltet(True)

End If

End Sub

Auch hier kannst du dir die Abfrage sparen, da wieder das selbe gemacht wird, außer bei Anlageeingeschaltet(True bzw. False)
Hier könntest du sowas machen

VB.NET-Quellcode

Private Sub btn_AnlageEinAus_Click(sender As Object, e As EventArgs) Handles btn_AnlageEinAus.Click
Anlage.SchalteEinAus()
btn_AnlageEinAus.Text = Anlage.Beschriftungen
Anlageeingeschaltet(TimerTaktgeber.Enabled)
End Sub

Das selbe Prinzip kannst du auch bei den beiden Subs anwenden

Spoiler anzeigen

VB.NET-Quellcode

Private Sub btn_BetriebEinAus_Click(sender As Object, e As EventArgs) Handles btn_BetriebEinAus.Click
If Not Betrieb Then
Anlage.BetriebEinAus()
LEDsAnlage.Item(1).BackColor = Anlage.Farbe
btn_BetriebEinAus.Text = Anlage.Beschriftungen
Betrieb = True
CmB_Endtime.Enabled = False
CmB_Starttime.Enabled = False
Nachtanzeigen()
'ToDo für Lichterkästen
Else
Anlage.BetriebEinAus()
LEDsAnlage.Item(1).BackColor = Anlage.Farbe
btn_BetriebEinAus.Text = Anlage.Beschriftungen
Betrieb = False
CmB_Endtime.Enabled = True
CmB_Starttime.Enabled = True
Nachtanzeigen()
'ToDo für Lichterkästen
End If
End Sub
Private Sub Anlageeingeschaltet(ByVal AnlageEin As Boolean)
If Not AnlageEin Then
TimerTaktgeber.Start()
LED_PanelEinAus()
btn_BetriebEinAus.Enabled = True
LEDsAnlage.Item(0).BackColor = Anlage.Farbe
ChB_Nachtbetrieb.Enabled = True
ChB_Nachtbetrieb.Checked = True
Else
TimerTaktgeber.Stop()
LED_PanelEinAus()
btn_BetriebEinAus.Enabled = False
LEDsAnlage.Item(0).BackColor = Anlage.Farbe
ChB_Nachtbetrieb.Enabled = False
End If
End Sub

Ich habe dein Ampelprojekt nicht wirklich verfolgt, aber das ist mir jetzt auf die schnelle ins Auge gefallen.

Projektbeurteilung Ampelsteuerung

Projektbeurteilung Ampelsteuerung

Amelie schrieb:

Amelie schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Amelie schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VaporiZed schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Amelie schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Amelie schrieb:

Amelie schrieb:

VB.NET-Quellcode

Amelie schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Amelie schrieb:

Amelie schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Amelie schrieb:

VB.NET-Quellcode

Amelie schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

6 Benutzer haben hier geschrieben