Rofls parkhauprogramm = war "Label in HH:mm:ss"

  • VB.NET

Es gibt 38 Antworten in diesem Thema. Der letzte Beitrag () ist von Rofl.

    Danke für das Lob, ich hatte mal mit 5 Jahren an meinem 286er etwas Basic programmiert, da ich aber damals keine anwendung dafür hatte ist es irgendwann mal untergegangen. Und nun werde ich in der Hochschule damit konfrontiert. Ich hatte jetzt ca 15Std reinen Unterricht in VB08. Da sind wir aber nicht über einfach Schleifen, Labels, datentypen und Subs über hinnausgekommen. Das meiste restliche wissen habe ich mir bei Galileo-Openbooks dazugelesen. Aber mitlerweile bin ich an einem Punkt angekommen wo es nicht mehr so wirklich weiter geht. Ich habe vorhin mal ein paar stunden versucht das problem zu lösen, bin aber nicht weitergekommen. Ich denke ich werde es heute nachmittag nochmal probieren.

    Falls jemand noch einen Link zum Thema von Mono hat wäre ich sehr glücklich drüber.

    Danke nochmal an alle die mir geholfen haben bis hierhin.

    hi,

    also dein Programm ist wirklich gut, ich will hoffen du hast das nicht mal eben so dahingeschrieben. Das würde mich in eine sehr tiefe Depresion stürzen. Ich habe an meien Projekt bisher ca 100 Std. gesessen. Danke das du es mir zur verfügung gestellt hast.

    Dein Programm hat sehr viele Befehle die ich noch nie im Leben gesehen habe. Aber bisher ist mir der grundaufbau halbwegs klar.

    Aber erste fragen tuen sich auf. Was hat es mit den "Class" aufsich? Ist das so etwas wie eine Sub? Oder brauch man das nur für das Menü?

    Und was ich schon öfteres versucht habe herrauszufinden ist der Unterschied zwischen Puplic und Privat. Aber eine verständliche erklärung habe ich bisher nicht gefunden.

    Public (globale deklaration) - Variable gültigkeit Projektweit d.h in Formkode, Mudule und Klassen.
    Private (globale deklaration) - Variable gültigkeit nur innerhalb Modul, Form oder Klasse

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

    Ich kann gerne versuchen, dir die Begriffe zu erklären. Also: Public bedeutet, dass du auf darauf (z.B. auf die Variable oder die Klasse) von überall aus deinem Projekt zugreifen kannst, und wenn du innerhalb einer Klasse eine Variable als Private deklarierst, bedeutet das, dass nur diese Klasse darauf zugreifen kann. Class steht für eine Klasse, da kannst du dich aber besser im Openbook informieren: Kapitel 5.2 findest du alles. was du brauchst.

    Guten Abend,

    über die Feiertage kam hier alles ins stocken. Heute aber versuche ich mich weiter an dem Programm. wenn ich es richtig verstanden habe kann man Variablen durch Arrays ersetzten. Jetzt bin ich aber hier schon stundenlang dran aber sehe kaum einen Vorteil ausser das ich am anfang alle Variablen auf einmal beschreiben kann statt einzelnd. Mein bisheriger Tageserfolg ist

    VB.NET-Quellcode

    1. DIM VAR_Box(24)
    Um ein Array mit 25 plätzen zu deklarieren.

    Und ich habe die Variablen gegen einen Array ersetzt

    VB.NET-Quellcode

    1. VAR_BOX(1) = "0"


    Fragen:

    wie kann ich das Array komplett beschreiben?
    z.B.

    VB.NET-Quellcode

    1. VAR_Box(0 to 24) = "0"


    Kann ich mit den Arrays auch so eine alt Stappelverfahren machen? Ich hatte dabei an die erneuerung der zeit gedacht die zur zeit immernoch mein hauptproblem ist.

    @Kouki : An deinem beispielprogramm bin ich noch bei, aber ich muss so gut wie alles einzelnd nachschaun. Und dadurch komme ich so gut wie gar nicht vorran.

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

    Irgendwie hat es mich nicht in ruhe gelassen, also habe ich mich gerade nochmal dran gesetzt. Ich habe die Einparkzeit mit CStr konvertiert und dann in die Array geschrieben. Und dann das für das Zeit Label geschrieben

    VB.NET-Quellcode

    1. Dim VAR_Aktuellezeit As String
    3. If VAR_Box(0) = "1" Then
    4. VAR_Aktuellezeit = CStr(DateAndTime.Timer)
    5. '
    6. LB_A1_Parkdauer.Text = CStr(Math.Floor(VAR_Aktuellezeit - VAR_Stopuhr(0)) \ 3600) + ":" + CStr(Math.Floor(VAR_Aktuellezeit - VAR_Stopuhr(0)) \ 60) + ":" + CStr(Math.Floor(VAR_Aktuellezeit - VAR_Stopuhr(0)))
    8. ElseIf LB_A1_Parkdauer.Text = "00:00:00" Then
    9. End If

    es sieht ja schon fast so aus wie ich das möchte, aber wie bekomme ich es jetzt hin das nur immer bis 60 gezählt wird?

    Hier ma ein Beispiel für eine Parklücke, damit du das Anzeigeformat hinkriegst. In diesem Beispiel von MSDN kann man sehen, dass DateTime.Substract(Timespan) ein DateTime-Format zurückgibt und DateTime.Substract(DateTime) eine Timespan. DateTime verfügt u.a. über die Methode ToLongTimeString, die dir eine komfortable Formatanpassung erlauben.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. 'Eine Form mit
    2. '3 Labels (lbStart, lbNow, lbSpan),
    3. '2 Button (BtnEinparken, PtnAusparken) und
    4. 'einem Forms.Timer (Timer1) anlegen
    6. Option Strict On
    8. Public Class Test
    9. Dim Startzeit As DateTime
    10. Dim _start As TimeSpan
    11. Dim besetzt As Boolean
    13. Private Sub Test_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    14. 'Timer für Aktualisierung initialisieren
    15. Timer1.Interval = 500
    16. Timer1.Start()
    17. End Sub
    19. Private Sub Btn_Einparken_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Einparken.Click
    20. 'Einparken
    21. Startzeit = Now 'Startzeit setzen
    22. LbStart.Text = Startzeit.ToLongTimeString 'Label für Startzeit schreiben
    23. _start = TimeSpan.Parse(Startzeit.ToLongTimeString) 'Startzeit für Berechnung in Timaspan wandeln
    24. besetzt = True 'Parklücke besetzt melden
    25. End Sub
    27. Private Sub Btn_Ausparken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Ausparken.Click
    28. besetzt = False 'Parklücke frei melden
    29. End Sub
    31. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    32. LbNow.Text = Now.ToLongTimeString 'Aktualle Zeit anzeigen
    33. If besetzt Then 'Wenn Parklücke besetzt dann
    34. 'Parkzeit aktualisieren und anzeigen
    35. LbSpan.Text = "besetzt seit: " & Now.Subtract(_start).ToShortTimeString 'ToLongTimeString
    36. Else
    37. 'sonst Parkplatz als frei anzeigen
    38. LbSpan.Text = "Parkplatz frei"
    39. LbStart.Text = LbNow.Text
    40. End If
    41. End Sub
    42. End Class

    Kannst ja mal hiermit rumexperimentieren.
    Die nächste "Ausbaustufe" wäre dann eine Klasse "Parkluecke" und deren hinzufügen zu einer List(Of Parkluecke). Die Liste kannst du dann sowohl index-basiert als auch mit ForEach alles auf einmal abfragen.
    :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup:

    Guten Abend,

    ich habe freudige Nachrichten zu verkündigen. Meine Parkdaueranzeige läuft endlich.

    Nun bin ich gerade an einem problem mit dem Split Befehl. Wie ist der zusatzbefehl um nach dem ersten Zeichen zu Splitten. Das ganze spielt sich in einer Extra Form ab.

    VB.NET-Quellcode

    1. Dim Ausparken_Eingabe As String
    2. Dim Ausparken_Etage As String
    3. Dim Ausparken_Platz As String
    4. If TB_Ausparken.Text = "A1" Or "a1" Or "A2" Or "a2" Or "A3" Or "a3" Or "A4" Or "a4" Or "A5" Or "a5" Or "B1" Or "b1" Or "B2" Or "b2" Or "B3" Or "b3" Or "B4" Or "b4" Or "B5" Or "b5" Or "C1" Or "c1" Or "C2" Or "c2" Or "C3" Or "c3" Or "C4" Or "c4" Or "C5" Or "c5" Or "D1" Or "d1" Or "D2" Or "d2" Or "D3" Or "d3" Or "D4" Or "d4" Or "D5" Or "d5" Or "E1" Or "e1" Or "E2" Or "e2" Or "E3" Or "e3" Or "E4" Or "e4" Or "E5" Or "e5" Then
    5. Ausparken_Etage = Ausparken_Eingabe.Split(0)
    6. Ausparken_Platz = Ausparken_Eingabe.Split(1)
    7. ElseIf MsgBox("Ihre Eingabe ist ungütig") Then
    8. End If
    10. Stefa_Park.Ausparken(Ausparken_Etage, Ausparken_Platz)
    11. me.close


    Danke

    Sieh dir ma die String.Substring-Methode an.

    Aber deine If-Abfrage wird so nicht funktionieren. Du mußt:

    VB.NET-Quellcode

    1. If TB_Ausparken.Text = "A1" Or TB_Ausparken.Text = "a1" 'usw...

    da gibs aber noch einfachere Möchlichkeiten... Hab nur grad ne Blockade... ;(
    Werd aba nochma drüber nachdenken ;)

    Edit Habs...
    Alle Etagen in einen String packen: Dim Etage as String="abcdefg"
    Dann aus der Eingabe mit Substring das 1. Zeichen filtern, mit Tolower in Kleinbuchstaben umwandeln und mit String.Contains überprüfen, ob der Buchstabe im Etagenstring enthalten ist.
    Im Textchanged-Event der Textbox kannst du die Textlänge mit .Lenght prüfen und ggf. reagieren (Messagebox.Show("Blub",...).
    :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup:

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

    Da bin ich mal wieder, ich der zwischenzeit habe ich wieder ein bischen was geschaft. Aber da ich auch noch anderes zu lernen habe ist es immer etwas schwer zeitlich.

    So mein neues Problem. Da ich nicht einen Berg if bedingungen machen möchte wollte ich etwas an eine variable anfürgen.

    So etwa

    VB.NET-Quellcode

    1. Dim VAR_Ausparkzeit as string
    2. Dim VAR_Stopuhr_A1 as DateTime
    3. Dim VAR_Stopuhr_A2 as DateTime
    4. .... usw.
    6. 'Die Variable wird eigendlich durch eine Eingabe beschrieben
    7. Dim VAR_Eingabe as integer = A1
    9. VAR_Ausparkzeit = Now.Subtract(VAR_Stopuhr_ + VAR_Ausparkenbox_Eingabe).ToString


    jemand eine Idee?

    Danke

    Rofl schrieb:

    Da ich nicht einen Berg if bedingungen machen möchte

    Insgesamt scheinst du auf dem Holzweg zu sein ...
    Objektorientiert denken! Ist einfacher als man glaubt, weil es eigentlich "intuitiver" ist.

    Mach es so, dass jede "Parkbox" eine in sich geschlossene KLASSE ist. Diese Objekte kannst du dann zb über ihren NAMEN ansprechen (oder Index, oder was immer du willst)

    Als Beispiel:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Enum Boxstatus
    2. frei
    3. belegt
    4. egal
    5. End Enum
    7. Public Enum Belegzeiten
    8. aktuell
    9. total
    10. End Enum
    12. Public Class Parkbox
    13. Private _Status As Boxstatus
    14. Private _Einfahrzeit As DateTime
    15. Private _BelegzeitTotal As New TimeSpan(0)
    16. Public Sub New()
    17. _Status = Boxstatus.frei
    18. End Sub
    19. Public ReadOnly Property Status As Boxstatus
    20. Get
    21. Return _Status
    22. End Get
    23. End Property
    24. Public Function Einfahren() As Boolean
    25. If _Status = Boxstatus.belegt Then Return False
    26. _Status = Boxstatus.belegt
    27. _Einfahrzeit = Now
    28. Return True
    29. End Function
    30. Public Sub Ausfahren()
    31. _BelegzeitTotal.Add(Belegzeit(Belegzeiten.aktuell))
    32. _Status = Boxstatus.frei
    33. End Sub
    34. Public ReadOnly Property Einfahrzeit As DateTime
    35. Get
    36. If _Status <> Boxstatus.belegt Then Return Nothing
    37. Return _Einfahrzeit
    38. End Get
    39. End Property
    40. Public ReadOnly Property Belegzeit(ByVal Zeittyp As Belegzeiten) As TimeSpan
    41. Get
    42. If Zeittyp = Belegzeiten.aktuell Then
    43. If _Status = Boxstatus.belegt Then
    44. Return New TimeSpan(Now.Ticks - _Einfahrzeit.Ticks)
    45. Else
    46. Return New TimeSpan(0)
    47. End If
    48. Else
    49. Return _BelegzeitTotal
    50. End If
    51. End Get
    52. End Property
    53. End Class
    55. Public Class Parkdeck
    56. Public Sub New()
    57. _Boxen = New List(Of Parkbox)
    58. End Sub
    59. Public Property Boxen As List(Of Parkbox)
    60. Public ReadOnly Property Plaetze(ByVal Status As Boxstatus) As Integer
    61. Get
    62. Return (From b As Parkbox In Boxen Where b.Status = Status Or Status = Boxstatus.egal Select b).Count
    63. End Get
    64. End Property
    65. Public Function IstBelegt() As Boolean
    66. Return Plaetze(Boxstatus.frei) = 0
    67. End Function
    68. End Class
    70. Public Class Parkhaus
    71. Public Sub New()
    72. _Decks = New List(Of Parkdeck)
    73. End Sub
    74. Public Property Decks As List(Of Parkdeck)
    75. Public ReadOnly Property Plaetze(ByVal Status As Boxstatus) As Integer
    76. Get
    77. Return (From p As Parkdeck In _Decks Select p.Plaetze(Boxstatus.frei)).Sum
    78. End Get
    79. End Property
    80. Public Function IstBelegt() As Boolean
    81. Return Plaetze(Boxstatus.frei) = 0
    82. End Function
    83. Public Function GetFreeBox() As Parkbox
    84. If IstBelegt() Then Return Nothing
    85. Return (From d As Parkdeck In Decks
    86. From b As Parkbox In d.Boxen
    87. Where b.Status = Boxstatus.frei
    88. Select b Take 1)(0)
    89. End Function
    90. End Class

    Die Klasse "Parkdeck" könnte man theoretisch weglassen - aber es ist halt "offener" (Schranken für einzelne Decks etc)

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

    Guten Morgen,

    von Klassen und ähnlichen habe ich keine ahnung. Meine Programmierfähigkeiten sind mehr als leihenhaft wie ihr gleich sehen werdet.

    Also, der Benutzer gibt später seinen Parkplatz per Hand ein. Die eingane wird dann in Großschrift konvertiert. Dann wird mit dieser eingabe das fahrzeug ausgeparkt. Sobald das Fahrzeug dann in der Ausparkbox ist soll in einer MSGbox die Parkdauer und die Parkgebühr angezeigt werden. Ich habe für jede Parkbox eine eigende Stopuhr (VAR_Stopuhr_A1, VAR_Stopuhr_A2 usw.) Nun möchte ich die Box boxbezeichnung (A1 A2 A3 usw.) was der Benutzer eingibt an die VAR_Stopuhr_ anhängen.

    Hier nochmal mein bisheriger Code für diese Sub



    VB.NET-Quellcode

    1. Public Sub Ausparken_Box()
    3. Dim VAR_Ausparkpreis As Integer
    4. Dim VAR_Ausparkzeit As DateTime
    5. Dim VAR_Ausparktext As Integer
    7. '
    8. Call Ausgangsstellung()
    10. 'Text wird in Großschrift konvertiert
    11. Ausparken_Fenster.TB_Ausparken.Text = Ausparken_Fenster.TB_Ausparken.Text.ToUpper
    12. 'Texteingabe wird mit den möglichen eingaben verglichen
    13. If Ausparken_Fenster.TB_Ausparken.Text = "A1" And VAR_Box(0) = "1" Or Ausparken_Fenster.TB_Ausparken.Text = "A2" Or Ausparken_Fenster.TB_Ausparken.Text = "A3" Or Ausparken_Fenster.TB_Ausparken.Text = "A4" Or Ausparken_Fenster.TB_Ausparken.Text = "A5" Or Ausparken_Fenster.TB_Ausparken.Text = "B1" Or Ausparken_Fenster.TB_Ausparken.Text = "B2" Or Ausparken_Fenster.TB_Ausparken.Text = "B3" Or Ausparken_Fenster.TB_Ausparken.Text = "B4" Or Ausparken_Fenster.TB_Ausparken.Text = "B5" Or Ausparken_Fenster.TB_Ausparken.Text = "C1" Or Ausparken_Fenster.TB_Ausparken.Text = "C2" Or Ausparken_Fenster.TB_Ausparken.Text = "C3" Or Ausparken_Fenster.TB_Ausparken.Text = "C4" Or Ausparken_Fenster.TB_Ausparken.Text = "C5" Or Ausparken_Fenster.TB_Ausparken.Text = "D1" Or Ausparken_Fenster.TB_Ausparken.Text = "D2" Or Ausparken_Fenster.TB_Ausparken.Text = "D3" Or Ausparken_Fenster.TB_Ausparken.Text = "D4" Or Ausparken_Fenster.TB_Ausparken.Text = "D5" Or Ausparken_Fenster.TB_Ausparken.Text = "E1" Or Ausparken_Fenster.TB_Ausparken.Text = "E2" Or Ausparken_Fenster.TB_Ausparken.Text = "E3" Or Ausparken_Fenster.TB_Ausparken.Text = "E4" Or Ausparken_Fenster.TB_Ausparken.Text = "E5" Then
    15. 'Eingabe wird in die Variable geladen
    16. VAR_Ausparkenbox_Eingabe = Ausparken_Fenster.TB_Ausparken.Text
    17. 'Eingabe wird zusätzlich angezeit im fenster
    18. Ausparken_Fenster.LB_Ausparkbox_Eingabe_Anzeige.Text = VAR_Ausparkenbox_Eingabe
    20. 'Die Eingabe wird geteilt und getrennt angezeigt
    21. VAR_Ausparkenbox_Etage = Microsoft.VisualBasic.Left(VAR_Ausparkenbox_Eingabe, 1)
    22. VAR_Ausparkenbox_Platz = Microsoft.VisualBasic.Right(VAR_Ausparkenbox_Eingabe, 1)
    23. Ausparken_Fenster.LB_Ausparkbox_Etage_Anzeige.Text = VAR_Ausparken_Etage
    24. Ausparken_Fenster.LB_Ausparkbox_Platz_eingabe.Text = VAR_Ausparken_Platz
    26. 'Fenster wird Aktuallisiert
    27. Ausparken_Fenster.Refresh()
    28. Call Zeitschleife(1, "Aufzug in Bewegung")
    29. Ausparken_Fenster.Close()
    30. 'Konvertierung damit es zur Ausparkfunktion past
    31. Select Case VAR_Ausparkenbox_Etage
    33. Case "A"
    34. VAR_Ausparkenbox_Etage = "B"
    36. Case "B"
    37. VAR_Ausparkenbox_Etage = "C"
    39. Case "C"
    40. VAR_Ausparkenbox_Etage = "D"
    42. Case "D"
    43. VAR_Ausparkenbox_Etage = "E"
    45. Case "E"
    46. VAR_Ausparkenbox_Etage = "A"
    47. End Select
    49. 'Es wird der Einparkwert so angepast das der Aufzug in die richtige Etage fährt
    51. Select Case VAR_Ausparkenbox_Platz
    52. Case "1"
    53. VAR_Ausparkenbox_Platz = "2"
    54. Case "2"
    55. VAR_Ausparkenbox_Platz = "3"
    56. Case "3"
    57. VAR_Ausparkenbox_Platz = "4"
    58. Case "4"
    59. VAR_Ausparkenbox_Platz = "5"
    60. Case "5"
    61. VAR_Ausparkenbox_Platz = "1"
    62. End Select
    64. Call Einparken_bewegung(VAR_Ausparkenbox_Etage, VAR_Ausparkenbox_Platz)
    66. 'Wartezeit für das aufnehmen der Box
    67. Call Zeitschleife(5, "Aufzug nimmt Box auf")
    69. 'Die Box die Gerade geleert wurde wird wieder frei gegeben für das nächste Auto
    70. If VAR_Ausparkenbox_Eingabe = "A1" Then
    71. VAR_Box(0) = "0"
    72. End If
    73. If VAR_Ausparkenbox_Eingabe = "A2" Then
    74. VAR_Box(1) = "0"
    75. End If
    76. If VAR_Ausparkenbox_Eingabe = "A3" Then
    77. VAR_Box(2) = "0"
    78. End If
    79. If VAR_Ausparkenbox_Eingabe = "A4" Then
    80. VAR_Box(3) = "0"
    81. End If
    82. If VAR_Ausparkenbox_Eingabe = "A5" Then
    83. VAR_Box(4) = "0"
    84. End If
    85. If VAR_Ausparkenbox_Eingabe = "B1" Then
    86. VAR_Box(5) = "0"
    87. End If
    88. If VAR_Ausparkenbox_Eingabe = "B2" Then
    89. VAR_Box(6) = "0"
    90. End If
    91. If VAR_Ausparkenbox_Eingabe = "B3" Then
    92. VAR_Box(7) = "0"
    93. End If
    94. If VAR_Ausparkenbox_Eingabe = "B4" Then
    95. VAR_Box(8) = "0"
    96. End If
    97. If VAR_Ausparkenbox_Eingabe = "B5" Then
    98. VAR_Box(9) = "0"
    99. End If
    100. If VAR_Ausparkenbox_Eingabe = "C1" Then
    101. VAR_Box(10) = "0"
    102. End If
    103. If VAR_Ausparkenbox_Eingabe = "C2" Then
    104. VAR_Box(11) = "0"
    105. End If
    106. If VAR_Ausparkenbox_Eingabe = "C3" Then
    107. VAR_Box(12) = "0"
    108. End If
    109. If VAR_Ausparkenbox_Eingabe = "C4" Then
    110. VAR_Box(13) = "0"
    111. End If
    112. If VAR_Ausparkenbox_Eingabe = "C5" Then
    113. VAR_Box(14) = "0"
    114. End If
    115. If VAR_Ausparkenbox_Eingabe = "D1" Then
    116. VAR_Box(15) = "0"
    117. End If
    118. If VAR_Ausparkenbox_Eingabe = "D2" Then
    119. VAR_Box(16) = "0"
    120. End If
    121. If VAR_Ausparkenbox_Eingabe = "D3" Then
    122. VAR_Box(17) = "0"
    123. End If
    124. If VAR_Ausparkenbox_Eingabe = "D4" Then
    125. VAR_Box(18) = "0"
    126. End If
    127. If VAR_Ausparkenbox_Eingabe = "D5" Then
    128. VAR_Box(19) = "0"
    129. End If
    130. If VAR_Ausparkenbox_Eingabe = "E1" Then
    131. VAR_Box(20) = "0"
    132. End If
    133. If VAR_Ausparkenbox_Eingabe = "E2" Then
    134. VAR_Box(21) = "0"
    135. End If
    136. If VAR_Ausparkenbox_Eingabe = "E3" Then
    137. VAR_Box(22) = "0"
    138. End If
    139. If VAR_Ausparkenbox_Eingabe = "E4" Then
    140. VAR_Box(23) = "0"
    141. End If
    142. If VAR_Ausparkenbox_Eingabe = "E5" Then
    143. VAR_Box(24) = "0"
    144. End If
    146. Call Ausgangsstellung()
    147. Call Zeitschleife(1, "Aufzug in Bewegung")
    148. Call White()
    149. LB_Ausparkbox.BackColor = Color.Green
    150. Call Zeitschleife(1, "Aufzug stellt Box zum Ausparken bereit")
    152. VAR_Ausparkzeit = Now.Subtract(VAR_Stopuhr_ + VAR_Ausparkenbox_Eingabe).ToString
    153. VAR_Ausparkzeit = VAR_Ausparkzeit.ToLongTimeString
    155. VAR_Ausparktext = "Ihre Parkdauer beträgt" + VAR_Ausparkzeit + ". Bitte werfen sie " + +" ein. Danke"
    157. MsgBox(VAR_Ausparktext)
    160. Call Zeitschleife(1, "Aufzug in Bewegung")
    161. Call White()
    162. LB_A1_Kennzeichen.BackColor = Color.Green
    166. ElseIf MsgBox("Ihre Eingabe ist ungütig oder die Box ist leer.") Then
    167. End If
    170. End Sub

    Rofl schrieb:

    von Klassen und ähnlichen habe ich keine ahnung

    Sie machen das Leben einfacher.
    Sie "gruppieren" nämlich zb informationen, die "zusammengehören".

    Du solltest aber dann wenigestens mal nachschauen, was "Dictionary" kann! Die brauchst du nämlich für "Schlüssel/Wertpaare". Und in deinem Fall hast du ja zb die Nummer der Box als Schlüssel.

    also zb

    VB.NET-Quellcode

    1. Dim Belegt As New Dictionary(Of String, Boolean)
    2. Belegt.Add("A5", False)
    3. Belegt("A5") = True


    aber wie gesagt: .Net ist eine OBJEKTORIENTIERTE Sprache. Deswegen sollte man Objekte (also Klassen etc) tunlichst auch verwenden. Ansonsten kannst du deinen Kram besser in Modula etc schreiben ;)

    wie kann ich das erledigt wieder löschen?

    Also dieses Dctionary ist jetzt zuviel für mich, dafür habe ich keine zeit. Laut meines Profs. hätte ich die ganze aufgabe mit den einfach schleifen lösen können.

    Danke für eure Hilfe aber wenn es keine einfache lösung gibt bin ich wohl leider dazu gezwungen doch die if bedingungen zu nehmen. Ich bekomme es sonst leider zeitlich nicht anderes hin mit den anderen Modulen die ich zu lernen habe.

    Danke

    Rofl schrieb:

    Laut meines Profs. hätte ich die ganze aufgabe mit den einfach schleifen lösen können.

    Vermutlich wäre es clever gewesen, uns die AUFGABENSTELLUNG genau zu beschreiben. Du hast bislang nach "Lösungen" gefragt, die aber darauf beruhen, was DU als korrekten LösungsANSATZ betrachtest. Das muss aber nicht zwangsläufig korrekt sein und vlt führt ja schon dein Ansatz in eine Sackgasse?

    Hi,
    hier mal die Aufgabenstellung vom Prof. . Diese ist sehr Allgemein gehalten. Leider kann ich aus zeitlichen Gründen nicht mehr das evtl am effektivsten geschriebenden Programm erstellen. Mittlerweile wäre ich froh wenn ich ein funktionierendes Programm habe. Bisher sitze ich an an dem Programm seit über 1 Monat und durchschnittlioch 3-4 Std am Tag. Ich denke ich werde für das Lasten und Pflichtenheft wohl auch nochmal einige Tage brauchen. Abgeben muss ich das ganze auch noch am Montag. Vielleicht versteht ihr so das ich leider keine zeit habe für schöne lösungen.

    Allgemeine Beschreibung
    Die nachfolgenden Parameter sind Bestandteile zur Entwicklung einer Steuersoftware für das automatisierte Parksystem.
    Folgende Parameter kommen zur Anwendung:
    Projektname: StefaPark
    Etagen: 5
    Etagenstellplätze: 5
    Regalanzahl: 1
    Parksystem: Regalsystem

    Aufgabenstellung:
    Neben dem in VB 2008 erstellten Programm sollen als Dokumentation der Aufgaben folgende Informationen in der Ausarbeitung zu finden sein:
    1) Erstellen Sie ein Lastenheft und Pflichtenheft mit nachfolgenden Diagrammen:
    A) Aktivitätendiagramm
    B) Komponentendiagramm.
    C) Zustandsdiagramme
    D) Entscheidungsbaum
    und für die Programmentwicklung notwendigen Struktogramme.
    2) Programmentwicklung
    Entwickeln Sie ein Steuerungsprogramm mit folgenden Merkmalen:
    A) Fahrzeugannahme.
    B) Transport der Parkpalette zu einem freien Regalplatz. C) Ermittlung der Parkdauer und Anzeige.
    D) Rücktransport der Parkpalette und Übergabe des Fahrzeugs.
    Alle systemrelevanten Daten sollen während des Programmlaufs im Programmfenster angezeigt werden.
    gruß Rolf

Facebook
Telefonspende