Modell für ein Parkhaus

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

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

    Modell für ein Parkhaus

    Nachdem ich nun wieder einige gelernt habe, bin ich an eine neue Aufgabe gegangen.
    Beschreibung:
    Ein kleines privates Parkhaus mit einer Einfahrt und Ausfahrt verfügt über X Stellplätze. An der Einfahrt und Ausfahrt sind Schranken montiert. Ein und ausfahrende Autos werden gezählt. Zusätzlich befindet sich an der Einfahrt eine Ampel. Die grüne Leuchte signalisiert freie Einfahrt, die rote Leuchte ein volles Parkhaus. Zudem zeigt eine Anzeige den Autofahrern wie viele Plätze frei sind.Sofern freie Plätze vorhanden sind, soll ein Freigabe-Signal ( per Butten simulierter Magnetstreifen ) an die selbst gesteuerte Einfahrtschranke ausgegeben werden.Für die Überwachung der freien Plätze wird ein Zähler angewendet. Jedes einfahrende Auto verursacht somit eine Verringerung der Anzahl der freien Plätze. Jedes herausfahrende Auto die Erhöhung der Anzahl der freien Plätze im Parkhaus. Mit überqueren des Magnetstreifen soll die Schranke ( Ein und Ausfahrt ) nach einer vorgegebenen Zeit öffnen und wieder schließen.

    Was ich bemerkte ist, das wenn man zu schnell auf die Buttons klickt der Timer manchmal hängt...

    Hier der Code den ich nun erstellt habe: " Option Explicit / Opton Strict /Option Infer " alle auf ON :)
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Public Class frm_main
    3. Dim Parkhaus As New Gebäude
    4. Public btn_E_1EinfahrtAlreadyClicked As Boolean
    5. Public btn_A_1AusfahrtAlreadyClicked As Boolean
    7. Private Sub frn_main_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
    8. Einstellungen()
    9. End Sub
    10. Private Sub Einstellungen()
    11. Timer1.Stop()
    12. btn_A_1Ausfahrt.Enabled = False
    13. Parkhaus._Stellplätze = 5
    14. lb_freiStellplatz.Text = "Freie Stellplätze: " & Parkhaus._Stellplätze
    15. lb_Gesamtautos.Text = "Anzahl gesammt: " & Parkhaus._Zählerausfahrt
    16. 'Anzahl der Stellplätze ( Erweiterung )
    17. 'cmb_stellplätze.DataSource = "2 5 10 15 20".Split
    18. End Sub
    19. Friend Sub Schrankenzeiten()
    20. Select Case True
    21. Case btn_E_1EinfahrtAlreadyClicked = True
    22. Dim _Ort As String = CStr(Gebäude.Standort.Einfahrt)
    23. Parkhaus._Zeit = (Parkhaus._Zeit + 1) Mod 2
    24. Parkhaus._neuStatus = CType(Parkhaus._Zeit, Gebäude.Schrankenstatus)
    25. Timer1.Interval = Parkhaus._Schrankenphasen(Parkhaus._Zeit)
    26. Parkhaus.Schrankensteuerung(CType(_Ort, Gebäude.Standort), Parkhaus._neuStatus)
    28. Case btn_A_1AusfahrtAlreadyClicked = True
    29. Dim _Ort As String = CStr(Gebäude.Standort.Ausfahrt)
    30. Parkhaus._Zeit = (Parkhaus._Zeit + 1) Mod 2
    31. Parkhaus._neuStatus = CType(Parkhaus._Zeit, Gebäude.Schrankenstatus)
    32. Timer1.Interval = Parkhaus._Schrankenphasen(Parkhaus._Zeit)
    33. Parkhaus.Schrankensteuerung(CType(_Ort, Gebäude.Standort), Parkhaus._neuStatus)
    34. End Select
    35. End Sub
    36. Friend Sub Steurungsignalgeber()
    37. If Parkhaus._Stellplätze = 0 Then : btn_E_1Einfahrt.Enabled = False : Else : btn_E_1Einfahrt.Enabled = True : End If
    39. If Parkhaus._Stellplätze = 5 Then : btn_A_1Ausfahrt.Enabled = False : ElseIf Parkhaus._Stellplätze < 4 Then
    40. : btn_A_1Ausfahrt.Enabled = True : Else : btn_A_1Ausfahrt.Enabled = True : End If
    41. End Sub
    42. Friend Sub Anzeigen(ByVal AnzeigeAmpel As Gebäude.Ampelsignal)
    43. Select Case AnzeigeAmpel
    44. Case Gebäude.Ampelsignal.Grün
    45. 'Anzeige ein Bild oder ....
    46. Case Gebäude.Ampelsignal.Rot
    47. 'Anzeige ein Bild oder ....
    48. End Select
    49. End Sub
    50. Friend Sub AnzeigeZähler()
    51. lb_freiStellplatz.Text = "Freie Stellplätze: " & Parkhaus._Stellplätze
    52. lb_Gesamtautos.Text = " Anzahl gesammt: " & Parkhaus._Zählerausfahrt
    53. End Sub
    54. Private Sub btn_E_1Einfahrt_Click(sender As Object, e As EventArgs) Handles btn_E_1Einfahrt.Click
    55. btn_A_1AusfahrtAlreadyClicked = False
    56. btn_E_1EinfahrtAlreadyClicked = True
    57. Timer1.Start()
    58. Parkhaus._anzahl = "E_1"
    59. Parkhaus.Stellplatzzähler(Parkhaus._anzahl)
    60. End Sub
    61. Private Sub btn_A_1Ausfahrt_Click(sender As Object, e As EventArgs) Handles btn_A_1Ausfahrt.Click
    62. btn_A_1AusfahrtAlreadyClicked = True
    63. btn_E_1EinfahrtAlreadyClicked = False
    64. Timer1.Start()
    65. Parkhaus._anzahl = "A_1"
    66. Parkhaus.Stellplatzzähler(Parkhaus._anzahl)
    67. End Sub
    69. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    70. Schrankenzeiten()
    71. End Sub
    72. End Class
    74. Public Class Gebäude
    76. Public Enum Ampelsignal : Rot : Grün : End Enum
    77. Public Enum Standort : Einfahrt : Ausfahrt : End Enum
    78. Public Enum Schrankenstatus : geschlossen : offen : End Enum
    79. Public _neuOrt As Standort = Standort.Einfahrt
    80. Public _neuStatus As Schrankenstatus = Schrankenstatus.offen
    81. Public _Ort As String
    82. Public _Zeit As Integer = 0
    83. Public _Schrankenphasen() As Integer = {3000, 2000}
    84. Public _Zählerausfahrt As Integer = 0
    85. Public _Stellplätze As Integer
    86. 'Public varStellPlatz As Integer
    87. 'Public varStellPlatz2 As Integer
    88. Public _anzahl As String
    90. Public Sub Gesamtanzahl()
    91. _Zählerausfahrt = _Zählerausfahrt + 1
    92. End Sub
    93. Public Sub Stellplatzzähler(ByVal _anzahl As String)
    94. Select Case _anzahl
    95. Case "E_1"
    96. _Stellplätze = _Stellplätze - 1
    97. frm_main.AnzeigeZähler()
    98. If _Stellplätze = 0 Then : frm_main.Anzeigen(Ampelsignal.Rot) : Else : frm_main.Anzeigen(Ampelsignal.Grün) : End If
    99. Case "A_1"
    100. _Stellplätze = _Stellplätze + 1
    101. Gesamtanzahl()
    102. frm_main.AnzeigeZähler()
    103. End Select
    104. frm_main.Steurungsignalgeber()
    105. End Sub
    107. Public Sub Schrankensteuerung(ByVal ort As Standort, status As Schrankenstatus)
    108. Select Case ort
    109. Case Standort.Einfahrt
    110. Select Case status
    111. Case Schrankenstatus.offen
    112. 'tue etwas
    113. Case Schrankenstatus.geschlossen
    114. 'tue etwas
    115. End Select
    116. Case Standort.Ausfahrt
    117. Select Case status
    118. Case Schrankenstatus.offen
    119. 'tue etwas
    120. Case Schrankenstatus.geschlossen
    121. 'tue etwas
    122. End Select
    123. Case Else
    124. 'Für Ausnahmezustände
    125. End Select
    126. End Sub
    127. End Class

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

    @Amelie Wenn Du solch Probleme hast, sollte Dein Code compilieren.
    Deiner compiliert nicht, weil zu viel fehlt.
    Häng doch gleich das bereinigte Projekt an.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany
    Ich habe bereinigt und auf Neu erstellen geklickt. ( oder was meinst du?? )
    Ansonsten läuft der Code ja nur das der Timer manchmal hängt.
    Dateien
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    und auf Neu erstellen
    Genau dabei werden die vielen Dateien generiert, die wir auif dem Forums-Server weder brauchen noch haben wollen.
    ====
    OK, alles in Ordnung. Die Verzeichnisse obj, bin, vs waren nicht dabei.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @Amelie Sieh Dir mal genau die Unterschiede an,
    dafür gibt es dieses Tool:
    winmerge.org/downloads/?lang=de
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class frm_main
    2. Dim Parkhaus As New Gebäude
    3. Public btn_E_1EinfahrtAlreadyClicked As Boolean
    4. Public btn_A_1AusfahrtAlreadyClicked As Boolean
    6. Private Sub frn_main_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
    7. Einstellungen()
    8. End Sub
    9. Private Sub Einstellungen()
    10. Timer1.Stop()
    11. btn_A_1Ausfahrt.Enabled = False
    12. Parkhaus._Stellplätze = 5
    13. lb_freiStellplatz.Text = "Freie Stellplätze: " & Parkhaus._Stellplätze
    14. lb_Gesamtautos.Text = "Anzahl gesammt: " & Parkhaus._Zählerausfahrt
    15. 'Anzahl der Stellplätze ( Erweiterung )
    16. 'cmb_stellplätze.DataSource = "2 5 10 15 20".Split
    17. End Sub
    18. Friend Sub Schrankenzeiten()
    19. Select Case True
    20. Case btn_E_1EinfahrtAlreadyClicked
    21. Dim _Ort = Gebäude.Standort.Einfahrt
    22. Parkhaus.Index = 1 - Parkhaus.Index
    23. Parkhaus._neuStatus = CType(Parkhaus.Index, Gebäude.Schrankenstatus)
    24. Timer1.Interval = Parkhaus._Schrankenphasen(Parkhaus.Index)
    25. Parkhaus.Schrankensteuerung(_Ort, Parkhaus._neuStatus)
    26. btn_E_1EinfahrtAlreadyClicked = False
    27. Case btn_A_1AusfahrtAlreadyClicked
    28. Dim _Ort = Gebäude.Standort.Ausfahrt
    29. Parkhaus.Index = 1 - Parkhaus.Index
    30. Parkhaus._neuStatus = CType(Parkhaus.Index, Gebäude.Schrankenstatus)
    31. Timer1.Interval = Parkhaus._Schrankenphasen(Parkhaus.Index)
    32. Parkhaus.Schrankensteuerung(_Ort, Parkhaus._neuStatus)
    33. btn_A_1AusfahrtAlreadyClicked = False
    34. End Select
    35. End Sub
    36. Friend Sub Steurungsignalgeber()
    37. btn_E_1Einfahrt.Enabled = Parkhaus._Stellplätze > 0
    39. If Parkhaus._Stellplätze = 5 Then
    40. btn_A_1Ausfahrt.Enabled = False
    41. ElseIf Parkhaus._Stellplätze < 4 Then
    42. btn_A_1Ausfahrt.Enabled = True
    43. Else
    44. btn_A_1Ausfahrt.Enabled = True
    45. End If
    46. End Sub
    47. Friend Sub Anzeigen(ByVal AnzeigeAmpel As Gebäude.Ampelsignal)
    48. Select Case AnzeigeAmpel
    49. Case Gebäude.Ampelsignal.Grün
    50. 'Anzeige ein Bild oder ....
    51. Case Gebäude.Ampelsignal.Rot
    52. 'Anzeige ein Bild oder ....
    53. End Select
    54. End Sub
    55. Friend Sub AnzeigeZähler()
    56. lb_freiStellplatz.Text = "Freie Stellplätze: " & Parkhaus._Stellplätze
    57. lb_Gesamtautos.Text = " Anzahl gesammt: " & Parkhaus._Zählerausfahrt
    58. End Sub
    59. Private Sub btn_E_1Einfahrt_Click(sender As Object, e As EventArgs) Handles btn_E_1Einfahrt.Click
    60. btn_A_1AusfahrtAlreadyClicked = False
    61. btn_E_1EinfahrtAlreadyClicked = True
    62. Timer1.Start()
    63. Parkhaus.Stellplatzzähler(-1)
    64. End Sub
    65. Private Sub btn_A_1Ausfahrt_Click(sender As Object, e As EventArgs) Handles btn_A_1Ausfahrt.Click
    66. btn_A_1AusfahrtAlreadyClicked = True
    67. btn_E_1EinfahrtAlreadyClicked = False
    68. Timer1.Start()
    69. Parkhaus.Stellplatzzähler(1)
    70. End Sub
    72. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    73. Schrankenzeiten()
    74. End Sub
    75. End Class
    77. Public Class Gebäude
    79. Public Enum Ampelsignal : Rot : Grün : End Enum
    80. Public Enum Standort : Einfahrt : Ausfahrt : End Enum
    81. Public Enum Schrankenstatus : geschlossen : offen : End Enum
    82. Public _neuOrt As Standort = Standort.Einfahrt
    83. Public _neuStatus As Schrankenstatus = Schrankenstatus.offen
    84. Public _Ort As String
    85. Public Index As Integer = 0
    86. Public _Schrankenphasen() As Integer = {3000, 2000}
    87. Public _Zählerausfahrt As Integer = 0
    88. Public _Stellplätze As Integer
    89. 'Public varStellPlatz As Integer
    90. 'Public varStellPlatz2 As Integer
    91. 'Public _anzahl As String
    93. Public Sub Stellplatzzähler(ByVal difference As Integer)
    94. _Stellplätze += difference
    95. Select Case difference
    96. Case < 0
    97. If _Stellplätze = 0 Then
    98. frm_main.Anzeigen(Ampelsignal.Rot)
    99. Else
    100. frm_main.Anzeigen(Ampelsignal.Grün)
    101. End If
    102. Case > 0
    103. _Zählerausfahrt += difference
    104. End Select
    105. frm_main.AnzeigeZähler()
    106. frm_main.Steurungsignalgeber()
    107. End Sub
    109. Public Sub Schrankensteuerung(ByVal ort As Standort, status As Schrankenstatus)
    110. Select Case ort
    111. Case Standort.Einfahrt
    112. Select Case status
    113. Case Schrankenstatus.offen
    114. 'tue etwas
    115. Case Schrankenstatus.geschlossen
    116. 'tue etwas
    117. End Select
    118. Case Standort.Ausfahrt
    119. Select Case status
    120. Case Schrankenstatus.offen
    121. 'tue etwas
    122. Case Schrankenstatus.geschlossen
    123. 'tue etwas
    124. End Select
    125. Case Else
    126. 'Für Ausnahmezustände
    127. End Select
    128. End Sub
    129. End Class
    Und:
    Benenn bitte diesen Deinen Thread um, z.B. in Modell für ein Parkhaus
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Amelie schrieb:

    Dim Parkhaus As New Gebäude
    Ehm … naja. Unglückliche Bezeichnung der Klasse. Weil: Ein Einfamilienhaus ist auch ein Gebäude, kann aber nicht sinnvoll ein Objekt Deiner Gebäudeklasse sein, weil es keine Schranken, Lichtanlagen oder Stellplätze hat. Letzteres zumindest nicht immer. Daher wäre eine bessere Benennung (meines Erachtens): Public Class Parkhaus und Dim ParkhausInDerSchlossAlleeInBerlin As New Parkhaus.

    VB.NET-Quellcode

    1. If Parkhaus._Stellplätze = 5 Then
    2. btn_A_1Ausfahrt.Enabled = False
    3. ElseIf Parkhaus._Stellplätze < 4 Then
    4. btn_A_1Ausfahrt.Enabled = True
    5. Else
    6. btn_A_1Ausfahrt.Enabled = True
    7. End If
    Wofür ist der Else-Fall? Doch nur, wenn Parkhaus._Stellplätze > 5 ist oder wenn Parkhaus._Stellplätze = 4. Ergibt das Sinn?

    ByVal brauchst Du nicht.

    ByVal difference As Integer - Alles auf deutsch, nur nicht dieser Parameter …

    _Zählerausfahrt = _Zählerausfahrt + 1 -> _Zählerausfahrt += 1

    Und: Arbeite an der Benennung Deiner Subs: Schrankenzeiten ?( Ein Sub-Name sollte zeigen, was die Sub macht. Ein Function-Name sollte zeigen, was die Function zurückliefert
    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“ ()

    Hatte ich ganz vergessen.
    Hier meine fertige Parkhaussimulation. :)

    Anhang mit ausführbaren Dateien sind außerhalb des Showrooms nicht zulässig - alternativ einfach das Projekt anhängen ~VaporiZed
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

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

Facebook
Telefonspende