Projektbeurteilung Ampelsteuerung

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

Es gibt 109 Antworten in diesem Thema. Der letzte Beitrag () ist von Amelie.

    Moin moin

    So habe das mit dem Button und der Ampelphase durchschalten mal gemacht. ;)
    Button Klick und Anzeige passen.
    Spoiler anzeigen
    ​
    Im Form

    VB.NET-Quellcode

    1. ​
    2. Private Sub frm_main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    3. btn_stoerung_ein_aus.Enabled = False : cbx_wechsel_24_nacht.Enabled = False
    4. TextAnzeigeBetriebsmodus()
    5. StartAmpelphasen()
    6. End Sub
    7. Private Sub StartAmpelphasen()
    8. Steuerung.getAmpelphase(Steuerung.Zähler)
    9. lbl_aktlAmpelphase.Text = Steuerung.AktuelleAmpelPhase.ToString
    10. Button1.Text = CStr(Steuerung.Zähler)
    11. End Sub
    12. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    13. StartAmpelphasen()
    14. Steuerung.Zähler = Steuerung.Zähler + 1
    15. Steuerung.getAmpelphase(Steuerung.Zähler)
    16. End Sub

    In Klasse

    VB.NET-Quellcode

    1. ​
    2. Public Class Kreuzung
    3. Friend Zähler As Integer
    4. Friend AktuelleAmpelPhase As Ampelphase_Auto = Ampelphase_Auto.HsRotGelb_NsRot
    5. Dim AmpelphaseCount As Integer = [Enum].GetNames(GetType(Ampelphase_Auto)).Length
    6. .....
    7. ...
    8. Friend Sub getAmpelphase(ByVal num As Integer)
    9. If num = AmpelphaseCount Then Zähler = -1
    10. Select Case num
    11. Case 0
    12. AktuelleAmpelPhase = Ampelphase_Auto.HsRotGelb_NsRot
    13. Case 1
    14. AktuelleAmpelPhase = Ampelphase_Auto.HsGrün_NsRot
    15. Case 2
    16. AktuelleAmpelPhase = Ampelphase_Auto.HsGelb_NsRot
    17. Case 3
    18. AktuelleAmpelPhase = Ampelphase_Auto.NsRot_HsRot
    19. Case 4
    20. AktuelleAmpelPhase = Ampelphase_Auto.NsRotGelb_HsRot
    21. Case 5
    22. AktuelleAmpelPhase = Ampelphase_Auto.NsGrün_HsRot
    23. Case 6
    24. AktuelleAmpelPhase = Ampelphase_Auto.NsGelb_HsRot
    25. Case 7
    26. AktuelleAmpelPhase = Ampelphase_Auto.HsRot_NsRot
    27. End Select
    28. End Sub

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

    VB.NET-Quellcode

    1. Steuerung.Zähler = Steuerung.Zähler + 1
    Da grapscht die Formklasse aber wieder in die Daten der Kreuzungsklasse rein. Das soll schön die Kreuzungsklasse machen. Mach mal aus Friend Zaehler ein Private Zaehler, dann wird dem ein Riegel vorgeschoben.
    Wenn Du schon advanced mit [Enum].GetNames(GetType(Ampelphase_Auto)).Length hantierst, dann findest Du auch einen Weg, den Zaehler in den Enumwert umzuwandeln, ganz ohne Select Case
    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.

    Habe das nun so geändert. Ist der Weg denn falsch?
    Eins kann ich mir grade nicht erklären.
    Starte das Programm, das Label zeigt die StartAmpelphase richtig an. Jetzt klick auf den Button, passiert nichts, ERST nach dem 2ten klick springt es weiter aber dann auch richtig.

    Spoiler anzeigen

    Das Form

    VB.NET-Quellcode

    1. Private Sub StartAmpelphasen()
    2. lbl_aktlAmpelphase.Text = Steuerung.AktuelleAmpelPhase.ToString
    3. End Sub
    4. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    5. StartAmpelphasen()
    6. Steuerung.getAmpelphase()
    7. End Sub

    Die Klasse

    VB.NET-Quellcode

    1. Public Class Kreuzung
    2. Private Zähler As Integer
    3. Friend AktuelleAmpelPhase As Ampelphase_Auto = Ampelphase_Auto.HsRotGelb_NsRot
    4. Dim AmpelphaseCount As Integer = [Enum].GetNames(GetType(Ampelphase_Auto)).Length
    5. 'Dim Ampelphase() As String = [Enum].GetNames(GetType(Ampelphase_Auto))
    6. Dim AmpelIndex() As Integer = CType([Enum].GetValues(GetType(Ampelphase_Auto)), Integer())
    7. ......
    8. ...
    9. Friend Sub getAmpelphase()
    10. Zähler = Zähler + 1
    11. If Zähler = AmpelphaseCount Then Zähler = 0
    12. AktuelleAmpelPhase = CType(AmpelIndex(Zähler), Ampelphase_Auto)
    13. End Sub

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

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

    Uiuiui. Da musst Du Dich aber wirklich um die Namensgebung kümmern.
    StartAmpelphasen - da wird doch gar nix gestartet. Da wird was angezeigt.
    getAmpelphase - get solltest Du für Functions verwenden, da diese was zurückgeben. Aber Du nutzt es hier für eine Umschalt-Sub. Sub-Namensregel: beginnend mit einem Verb im Imperativ: ErstelleKreuzung, SchalteKreuzungEin, ErzeugeStörung, …
    Das Problem ist vermutlich (der Code ist ja unvollständig), dass Du eine Anzeige aktualisierst und dann erst die Phase umschaltest. Tausch die beiden Befehle, nachdem Du alles richtig benannt hast. Dann ist es viel besser erkennbar, was in der Button1_Click-Sub passiert. Und Button1_Click - den Button benennst Du am besten auch so um, das man erkennt, was der Button macht. Auch wenn er nicht lange im Projekt existiert.
    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.

    Hier nochmal alles was bis jetzt an Code da ist. Das Problem ist auch gelöst. :)

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Public Class frm_main
    3. ReadOnly Steuerung As New Kreuzung
    5. Private Sub btn_anlage_ein_aus_Click(sender As Object, e As EventArgs) Handles btn_anlage_ein_aus.Click
    6. btn_anlage_ein_aus.Text = Steuerung.getBtnBeschriftung()
    7. Steuerung.SchalteKreuzungEin()
    8. TextAnzeigeBetriebsmodus()
    9. btn_Störung_ein_aus()
    10. cbx_wechsel_ein_aus()
    11. End Sub
    13. Private Sub btn_stoerung_ein_aus_Click(sender As Object, e As EventArgs) Handles btn_stoerung_ein_aus.Click
    14. Steuerung.SimuliereStörung()
    15. TextAnzeigeBetriebsmodus()
    16. btn_stoerung_ein_aus.Enabled = False
    17. End Sub
    19. Private Sub btn_Störung_ein_aus()
    20. If Not Steuerung.AktuellerBetriebsmodus = Betriebsmodus.Aus Then btn_stoerung_ein_aus.Enabled = True Else btn_stoerung_ein_aus.Enabled = False
    21. End Sub
    23. Private Sub cbx_wechsel_ein_aus()
    24. If Not Steuerung.AktuellerBetriebsmodus = Betriebsmodus.Aus Then cbx_wechsel_24_nacht.Enabled = True Else cbx_wechsel_24_nacht.Enabled = False
    25. End Sub
    26. Private Sub cbx_wechsel_24_nacht_CheckedChanged(sender As Object, e As EventArgs) Handles cbx_wechsel_24_nacht.CheckedChanged
    27. Steuerung.Wechsel24_NachtModus()
    28. TextAnzeigeBetriebsmodus()
    29. End Sub
    31. Private Sub TextAnzeigeBetriebsmodus()
    32. lbl_bertiebsmodus.Text = Steuerung.getAnlagenmodus()
    33. cbx_wechsel_24_nacht.Text = Steuerung.getCbxBeschriftung
    34. End Sub
    35. Private Sub frm_main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    36. btn_stoerung_ein_aus.Enabled = False : cbx_wechsel_24_nacht.Enabled = False
    37. TextAnzeigeBetriebsmodus()
    38. TextAmpelphasen()
    39. Steuerung.SchalteAmpelphase()
    40. End Sub
    42. Private Sub TextAmpelphasen()
    43. lbl_aktlAmpelphase.Text = Steuerung.AktuelleAmpelPhase.ToString
    44. End Sub
    45. Private Sub btn_testampelphasen_Click(sender As Object, e As EventArgs) Handles btn_testampelphasen.Click
    46. TextAmpelphasen()
    47. Steuerung.SchalteAmpelphase()
    48. End Sub
    49. End Class

    VB.NET-Quellcode

    1. ​
    2. #Region "Hauptklasse"
    3. Public Class Kreuzung
    4. Private Zähler As Integer
    5. Friend AktuelleAmpelPhase As Ampelphase_Auto = Ampelphase_Auto.HsRotGelb_NsRot
    6. Dim AmpelphaseCount As Integer = [Enum].GetNames(GetType(Ampelphase_Auto)).Length
    7. 'Dim Ampelphase() As String = [Enum].GetNames(GetType(Ampelphase_Auto))
    8. Dim AmpelIndex() As Integer = CType([Enum].GetValues(GetType(Ampelphase_Auto)), Integer())
    9. Dim Beschriftung As String
    10. Friend AktuellerBetriebsmodus As Betriebsmodus = Betriebsmodus.Aus
    11. Private ReadOnly Straßen As New List(Of Straße)
    12. Friend Sub ErstelleKreuzung()
    13. Straßen.Add(New Straße With {.TatsächlicherStraßentyp = Straßentyp.Hauptstraße})
    14. Straßen.Add(New Straße With {.TatsächlicherStraßentyp = Straßentyp.Nebenstraße})
    15. End Sub
    17. Friend Sub SchalteKreuzungEin()
    18. If AktuellerBetriebsmodus = Betriebsmodus.Aus Then
    19. AnlageUmschalten(Betriebsmodus.Normalbetrieb)
    20. Else
    21. AnlageUmschalten(Betriebsmodus.Aus)
    22. End If
    23. End Sub
    24. Friend Sub SimuliereStörung()
    25. If AktuellerBetriebsmodus = Betriebsmodus.Normalbetrieb OrElse AktuellerBetriebsmodus = Betriebsmodus.Nachtbetrieb Then
    26. AnlageUmschalten(Betriebsmodus.Störung)
    27. End If
    28. End Sub
    30. Friend Sub AnlageUmschalten(ByVal Betrieb As Betriebsmodus)
    31. AktuellerBetriebsmodus = Betrieb
    32. End Sub
    34. Friend Function getAnlagenmodus() As String
    35. Select Case AktuellerBetriebsmodus
    36. Case Betriebsmodus.Aus
    37. Beschriftung = "Anlage ausgeschaltet"
    38. Case Betriebsmodus.Normalbetrieb
    39. Beschriftung = "Normalbetrieb"
    40. Case Betriebsmodus.Nachtbetrieb
    41. Beschriftung = "Nachtbetrieb"
    42. Case Betriebsmodus.Störung
    43. Beschriftung = "Störung"
    44. End Select
    45. Return Beschriftung
    46. End Function
    48. Friend Sub Wechsel24_NachtModus()
    49. If AktuellerBetriebsmodus = Betriebsmodus.Normalbetrieb Then AnlageUmschalten(Betriebsmodus.Nachtbetrieb) Else AnlageUmschalten(Betriebsmodus.Normalbetrieb)
    50. End Sub
    52. Friend Function getCbxBeschriftung() As String
    53. If AktuellerBetriebsmodus = Betriebsmodus.Normalbetrieb Then Beschriftung = "24-Std Modus" Else Beschriftung = "Nacht Modus"
    54. Return Beschriftung
    55. End Function
    57. Friend Function getBtnBeschriftung() As String
    58. If AktuellerBetriebsmodus = Betriebsmodus.Aus Then Beschriftung = "Anlage ausschalten" Else Beschriftung = "Anlage einschalten"
    59. Return Beschriftung
    60. End Function
    62. Friend Sub SchalteAmpelphase()
    63. Zähler = Zähler + 1
    64. If Zähler = AmpelphaseCount Then Zähler = 0
    65. AktuelleAmpelPhase = CType(AmpelIndex(Zähler), Ampelphase_Auto)
    66. End Sub
    68. End Class
    69. #End Region
    71. #Region "Klasse Straße"
    72. Friend Class Straße
    73. Public TatsächlicherStraßentyp As Straßentyp
    74. Private ReadOnly Ampeln As New List(Of Ampel)
    75. Friend Sub New() 'Standardkonstruktor ohne Parameter
    76. Ampeln.Add(New Ampel)
    77. Ampeln.Add(New Ampel)
    78. End Sub
    79. Friend Sub New(SollStraßentyp As Straßentyp) 'zusätzlicher Konstruktor mit einem Parameter
    80. Me.TatsächlicherStraßentyp = SollStraßentyp
    81. Ampeln.Add(New Ampel)
    82. Ampeln.Add(New Ampel)
    83. End Sub
    84. End Class
    85. #End Region
    87. #Region "Klasse Ampel"
    88. Friend Class Ampel
    89. Private AnzahlLampen As Integer
    90. Private Farbe As List(Of Color) = Nothing
    91. Private Sub Signalfarben()
    92. Farbe = New List(Of Color) From {Color.Red, Color.Yellow, Color.Lime}
    93. End Sub
    94. End Class
    95. #End Region
    97. #Region "Enums"
    98. 'Außerhalb aller Classes
    99. Friend Enum Straßentyp
    100. Hauptstraße
    101. Nebenstraße
    102. End Enum
    104. Friend Enum Betriebsmodus
    105. Aus
    106. Normalbetrieb
    107. Nachtbetrieb
    108. Störung
    109. End Enum
    111. Friend Enum Ampelphase_Auto
    112. HsRotGelb_NsRot
    113. HsGrün_NsRot
    114. HsGelb_NsRot
    115. HsRot_NsRot
    116. NsRotGelb_HsRot
    117. NsGrün_HsRot
    118. NsGelb_HsRot
    119. NsRot_HsRot
    120. End Enum
    121. #End Region

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

    Ok, ich hab das jetzt mal nachgebaut. Folgende Punkte:
    Wenn man die Störung aktiviert, kommt man da nicht mehr raus.
    Die folgenden Codes kommen momentan vereinfacht werden:

    VB.NET-Quellcode

    1. Private Sub btn_Störung_ein_aus()
    2. If Not Steuerung.AktuellerBetriebsmodus = Betriebsmodus.Aus Then btn_stoerung_ein_aus.Enabled = True Else btn_stoerung_ein_aus.Enabled = False
    3. End Sub
    4. Private Sub cbx_wechsel_ein_aus()
    5. If Not Steuerung.AktuellerBetriebsmodus = Betriebsmodus.Aus Then cbx_wechsel_24_nacht.Enabled = True Else cbx_wechsel_24_nacht.Enabled = False
    6. End Sub

    zu

    VB.NET-Quellcode

    1. Private Sub btn_Störung_ein_aus()
    2. btn_stoerung_ein_aus.Enabled = (Steuerung.AktuellerBetriebsmodus <> Betriebsmodus.Aus) 'Klammern nicht nötig, nur zur besseren Übersicht
    3. End Sub
    4. Private Sub cbx_wechsel_ein_aus()
    5. cbx_wechsel_24_nacht.Enabled = (Steuerung.AktuellerBetriebsmodus <> Betriebsmodus.Aus) 'Klammern nicht nötig, nur zur besseren Übersicht
    6. End Sub


    Dim solltest Du nur innerhalb einer Methode verwenden. Werde außerhalb konkret, indem Du Private, Friend, Public nutzt, damit Du immer weißt, wer darauf Zugriff hat. Je restriktiver das Wort, desto besser.
    Beschriftung brauchst Du gar nicht. Überall, wo Du innerhalb der Methode Beschriftung = stehen hast, kannst Du Return schreiben. Und somit kommt Return Beschriftung auch weg. Bei getAnlagenmodus wird am Ende zwar gemeckert, aber da schreib am Ende der Methode einfach Return String.Empty.

    Bei dem Enum Ampelphase_Auto wechselst Du bei den Namen. Zuerst hast Du Hauptstraße vorn und Nebenstraße hinten, später umgedreht. Das solltest Du einheitlich machen, aber das bleibt Dir überlassen.

    getCbxBeschriftung und getBtnBeschriftung: Die Namen geben einen klaren Hinweis, wo der entsprechende Text im Form später auftaucht. Wenn Du aber später die Anzeigen woanders im Form anzeigen lässt, müsstest Du die Namen dieser Methoden ändern, damit es weiter Sinn ergibt. Die Kreuzungsklasse soll aber effektiv nix vom Form wissen. Benenn die Methoden daher so um, dass klar ist, was sie zurückgeben, nicht wohin die Reise geht.
    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.

    Moin moin

    Benenn die Methoden daher so um, dass klar ist, was sie zurückgeben, nicht wohin die Reise geht.
    Verstehe ich grad nicht ....

    Beim Enum muss ich den letzten Eintrag so belassen, weil er sonst 2Mal auftritt. Deswegen war ich her gegangen und hatte das Enum so aufgebaut das der Wechsel zuwischen HS und NS ersichtlich war. Im Moment brauche ich den Eintag aber bzgl der "Räumungsphase".

    VB.NET-Quellcode

    1. Friend Enum Ampelphase_Auto
    2. HsRotGelb_NsRot
    3. HsGrün_NsRot
    4. HsGelb_NsRot
    5. HsRot_NsRot '<======Hier...
    6. HsRot_NsRotGelb
    7. HsRot_NsGrün
    8. HsRot_NsGelb
    9. NsRot_HsRot '<==== Hier wäre es doppelt
    10. End Enum


    Den Rest habe ich entsprechend geändert.
    EDIT: Störung
    Ja das habe ich so gemacht das man Erst Ausschalten muss um die Störung zu beseitigen, Quasi ein Reset. :-)
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

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

    Amelie schrieb:

    Benenn die Methoden daher so um, dass klar ist, was sie zurückgeben, nicht wohin die Reise geht - Verstehe ich grad nicht ....
    Nun, Du benennst das getCbxBeschriftung, also "hole die CheckBoxbeschriftung". Eine Kreuzung kennt aber keine CheckBox, daher ist klar, dass eine CheckBox des Forms gemeint ist. Aber das soll die Kreuzung gar nicht interessieren, in der Kreuzung soll also gar nicht relevant sein, für wen die Beschriftung ist. Jegliche Function soll nur so benannt werden, das klar ist, was sie zurückgibt und nicht "für wen". In diesem Fall wäre mein erster Vorschlag:
    getCbxBeschriftung -> getTagesmodusBeschreibung
    getBtnBeschriftung -> getEinAusZustandsbeschreibung
    Naja, zumindest für Dein Projekt. Dieser deutsch-englisch-Mix ist eh nix für mich. Ich nutze nur-englisch-Begriffe im Code.

    Amelie schrieb:

    das habe ich so gemacht das man Erst Ausschalten muss um die Störung zu beseitigen
    Ok, guter Grund. Akzeptiert.

    Das mit dem Enum: Tja da kommt jetzt eben der erste Engpass, weil die Phase zweier Straßen kombiniert werden. Kommt noch eine Straße dazu, wird's richtig übel. Eigentlich reicht nämlich:

    VB.NET-Quellcode

    1. Friend Enum Ampelphase_Auto
    2. Rot
    3. RotGelb
    4. Grün
    5. 'ggf. noch grüngelb, wenn es das noch gibt; in einigen Orten sicherlich noch
    6. Gelb
    7. End Enum

    Um die "Koordinierung" kümmert sich eigentlich nämlich - tja, 1x darfst Du raten: die Kreuzung!
    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.

    VB.NET-Quellcode

    1. ​
    2. Friend Enum Ampelphase_Auto
    3. Rot
    4. RotGelb
    5. Grün
    6. Gelb
    7. End Enum

    OK wenn das soweit runter reduziert wird muss ich mal nachdenken wie das dann zu steuern ist.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    Rot
    RotGelb
    Grün
    Gelb

    Mir fehlt noch
    - Alles Aus
    - gelb blinkend (Störung)

    Falls du auch noch Spezialitäten anderer Länder darstellen willst:
    - grün blinkend (Phase vor gelb in z.B. Austria und Estland)
    - GrünGelb (in manchen Ländern anstatt Gelb verwendet)
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    @ amelie: Falls Du Dir die Zähne an der Kreuzungs-Umschaltungssub ausbeißt, hier zwei
    Tipps
    • Die Kreuzung sollte den Ampeln nur die Anweisung geben, dass sie in ihre nächste Phase schalten sollen. Die Kreuzung sollte diese Phasen nicht selber festlegen. Wozu auch? Die Reihenfolge ist ja durch das Enum quasi festgelegt.
    • Schau Dir mal Dein ursprüngliches Enum aus Post#87 an, da könnte Dir auffallen, dass immer nur eine Ampel ihre Phase wechselt, während die andere bei ihrer Phase bleibt. Es muss also immer nur eine Ampel pro Schritt angewiesen werden, ihre Phase zu wechseln. Die andere bleibt in der, in der sie sich gerade befindet. Das dürfte die "Steuerung" vom Ablauf her sehr einfach machen.
    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.

    VaporiZed schrieb:

    Die Kreuzung sollte den Ampeln nur die Anweisung geben, dass sie in ihre nächste Phase schalten sollen
    Guter Ansatz.
    Ich wollte nicht zuviel Verwirrung in das Geschehen bringen.
    Mein Vorschlag wäre noch weiter gegangen:
    Die Ampeln kennen die Zustandsänderungsbefehle Stop - Go - Off - Blink
    Wie sie vom einen Zustand in den anderen kommen, müssen sie selbst wissen.
    Wenn sie grün sind und den Stop-Befehl bekommen, müssen sie 3s gelb anzeigen und danach auf rot.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

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

    @petaod
    Ich belasse es mal auf eine einfache Ampel ;)

    -----
    So das durchschalten der Phasen mittels Button klappt nun so:
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Public Class Kreuzung
    3. Private Wechsel_HSNS As Integer
    4. Friend AktuelleStrasse As Straßentyp = Straßentyp.Hauptstraße
    5. Private Zähler As Integer
    6. ....
    7. ...
    8. ..
    9. Friend Sub SchalteAmpelphase()
    10. Zähler = Zähler + 1
    11. If Wechsel_HSNS = 0 Then
    12. AktuelleStrasse = Straßentyp.Hauptstraße
    13. If Zähler = AmpelphaseCount Then Zähler = 0 : Wechsel_HSNS = 1
    14. Else
    15. AktuelleStrasse = Straßentyp.Nebenstraße
    16. If Zähler = AmpelphaseCount Then Zähler = 0 : Wechsel_HSNS = 0
    17. End If
    18. AktuelleAmpelPhase = CType(AmpelIndex(Zähler), Ampelphase_Auto)
    19. End Sub

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

    Nur um das mal in den Raum zu werfen, falls es noch nicht gemacht wurde: Bei solchen Automationen bzw. Abläufen implementiert man üblicherweise eine StateMachine. Es ist zwar immer eine StateMachine unabhängig davon wie du es programmierst, aber dazu gibt es ein paar einfache Pattern. Das Ganze hat zum Vorteil, dass du dein Datenmodell unabhängig von der Programmlogik machen kannst und es ist einfach parallelisierbar. Ich könnte ein einfaches Beispiel fertig machen und hochladen, falls Interesse besteht. Allerdings nur in C#.

    @ErfinderDesRades: Die Kreuzung kann einen Reset/Störungsbefehl an die Ampeln schicken und die Ampeln können aufgrund ihrer Art selber entscheiden, welche Phase sie in dieser Situation anzeigen. Das wird dann später bei Vererbung einfacher umsetzbar. Da seh ich nicht die Schwierigkeit.
    @Gonger96: Nur zu. Ich hoffe, das amelie damit klarkommt.
    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.

    ErfinderDesRades schrieb:

    Das verkompliziert aber die Ampeln.
    Aber es vereinfacht die Kreuzung.

    ErfinderDesRades schrieb:

    bei Störung und bei Aus gilt jeweils eine andere Phasen-Abfolge
    Das sind mehrere Status zeitversetzt nacheinander.
    Störung: Erst Stop, dann Störung
    Aus: Erst Stop, dann Störung, dann Aus
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    @Gonger96
    Gerne kann mir das ja dann mal ansehen und Fragen was ich nicht verstehe.
    @petaod & @ErfinderDesRades
    Das soll ja nur mal eine sehr einfache Ampel werden. Eine Nicht OOP Version habe ich ja schon. Das hier soll mir etwas das ganze OOP näherbringen.
    @VaporiZed
    Ist denn das mit dem Umschalten der Haupt / Nebenstr so OK?
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Hier mal ein Minimalbeispiel. Ich hab leider keine Ahnung von Ampeln, bei grün fahr ich, bei gelb fahr ich ganz schnell und bei rot halte ich. Das reicht mir ;)
    Die ganze Steuerung ist etwas ausbaufähig, aber das Prinzip sollte klar werden.
    Dateien

    @Amelie: Du schaltest zwar Ampelphasen um. Aber die Ampeln bekommen davon nix mit.
    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.

Facebook
Telefonspende