FahrscheinAutomaten Quellcode Beschrifttung

  • VB6

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von ValvePro.

    FahrscheinAutomaten Quellcode Beschrifttung

    Hi, wollte mal fragen ob ich, in euren Augen alles Richtig beschriftet habe..

    Sry das ich immer noch diesen Code poste..!
    Aber ich will ihn Perfect und lernreich haben, Angebot steht immer noch wer verbesserungen weiss, wie man ihn verkürzen kann..einfach sagen gucke dann obs mir gefällt

    Visual Basic-Quellcode

    1. Option Explicit
    5. Private Sub Form_Load()
    7. einfach.Value = True 'Setzt den ein Punkt bei Tarif Einfach
    8. rückgeld = "0€" 'Schreibt im Label "rückgeld" beim Programmstart eine "0€"
    9. anleitung.Caption = "F A H R S C H E I N E" & vbCrLf & vbCrLf & "1.Jede Person soll ein Billet haben!" & vbCrLf & "2.Kinder, Hühner, Hunde und Beamte brauchen kein Billet!" & vbCrLf & "3.Sonntags braucht niemand ein Billet!" & vbCrLf & vbCrLf & "Ministerium" & vbCrLf & "für Aufstellung,Betrieb und" & vbCrLf & "Wartung von öffentlichen" & vbCrLf & "Fahrscheinautomaten"
    10. 'Schreibt den Text der nach dem "=" kommt in das Label "anleitung"
    12. End Sub
    14. Private Sub cancel_Click()
    15. Dim guthaben As Single 'Deklariert die Variable "guthaben" als Single (Kommazahlen)
    17. If einfach.Value = True Then 'Wenn der Tarif "Einfach" gewählt wird ist die Variable,
    18. guthaben = 0.2 'guthaben = 0,2
    19. ElseIf hr.Value Then 'Wenn der Tarif "Hin-Rück" gewählt wird ist die Variable,
    20. guthaben = 0.5 'guthaben = 0,5
    21. ElseIf tourist.Value Then 'Wenn der Tarif "Tourist" gewählt wird ist die variable,
    22. guthaben = 4 'guthaben = 4
    23. End If
    25. ggezahlt.Caption = guthaben & "€" 'Schreibt den Wert der Variable "guthaben" ins Label "ggezahlt"
    26. rückgeld = "0€"
    28. End Sub
    30. Private Sub einfach_Click()
    32. tarif.Caption = "Einfach, das kostet Sie 0,20 €" 'Schreibt, wenn der Tarif "Einfach" gewählt wurde im Label "tarif": "Einfach, das kostet Sie 0,20 €"
    33. ggezahlt.Caption = 0.2 & "€" 'Schreibt, wenn der Tarif "Einfach" gewählt wurde im Label "ggezahlt" 0.2€
    35. End Sub
    37. Private Sub hr_Click()
    39. tarif = "Hin-Rück, das kostet Sie 0,50 €" 'Schreibt, wenn der Tarif "Hin-Rück" gewählt wurde im Label "hr": "Hin-Rück, das kostet Sie 0,50 €"
    40. ggezahlt.Caption = 0.5 & "€" 'Schreibt, wenn der Tarif "Hin-Rück" gewählt wurde im Label "ggezahlt" 0.5€
    42. End Sub
    44. Private Sub tourist_Click()
    46. tarif.Caption = "Tourist, das kostet Sie 4 €" 'Schreibt, wenn der Tarif "Tourist" gewählt wurde im Label "tourist": "Tourist, das kostet Sie 4 €"
    47. ggezahlt.Caption = 4 & "€" 'Schreibt, wenn der Tarif "Tourist" gewählt wurde im Label "ggezahlt" 4€
    49. End Sub

    Visual Basic-Quellcode

    1. Private Sub Muenze(Wert As String) 'Muenze(Wert As String) Deklariert Muenze als String (Text- oder Zahlenreihe)
    2. Dim guthaben As Single 'Deklariert die Variable guthaben als Single (Komma-Zahlen)
    4. ggezahlt.Caption = ggezahlt.Caption - Wert & "€" 'Schreibt im Label "ggezahlt" den Wert von "ggezahlt" - "Wert"
    6. If ggezahlt.Caption < guthaben Then 'Wenn "ggezahlt" kleiner als "guthaben" ist,
    7. rückgeld.Caption = guthaben - ggezahlt.Caption & "€" 'berechnet er das Rückgeld "guthaben" - "ggezahlt"
    8. End If 'und schreibt es im Label "rückgeld"
    10. End Sub
    12. Private Sub zehncent_Click() 'Wenn der Button "zehncent" angeklickt wird, passiert das, was im Sub steht
    14. Muenze 0.1 'Führt die Befehle die im Private Sub Muenze(Wert As String)aus,
    15. 'setzt für "Wert" 0.1 ein und deklariert sie als String (Text- oder Zahlenreihe)
    16. End Sub
    18. Private Sub zwanzigcent_Click() 'Wenn der Button "zwanzigcent" angeklickt wird, passiert das, was im Sub steht
    20. Muenze 0.2 'Führt die Befehle die im Private Sub Muenze(Wert As String)aus,
    21. 'setzt für "Wert" 0.2 ein und deklariert sie als String (Text- oder Zahlenreihe)
    22. End Sub
    24. Private Sub fünfzigcent_Click() 'Wenn der Button "fünfzigcent" angeklickt wird, passiert das, was im Sub steht
    26. Muenze 0.5 'Führt die Befehle die im Private Sub Muenze(Wert As String)aus,
    27. 'setzt für "Wert" 0.5 ein und deklariert sie als String (Text- oder Zahlenreihe)
    28. End Sub
    31. Private Sub eineuro_Click() 'Wenn der Button "eineuro" angeklickt wird, passiert das, was im Sub steht
    33. Muenze 1 'Führt die Befehle die im Private Sub Muenze(Wert As String)aus,
    34. 'setzt für "Wert" 1 ein und deklariert sie als String (Text- oder Zahlenreihe)
    35. End Sub
    37. Private Sub zweieuro_Click() 'Wenn der Button "zweieuro" angeklickt wird, passiert das, was im Sub steht
    39. Muenze 2 'Führt die Befehle die im Private Sub Muenze(Wert As String)aus,
    40. 'setzt für "Wert" 2 ein und deklariert sie als String (Text- oder Zahlenreihe)
    41. End Sub
    43. Private Sub ende_Click()
    45. End 'Beenden des Programmes beim Klicken von den Button "ende"
    47. End Sub
    49. Private Sub zeit_Timer()
    51. uhr.Caption = Now 'Erstellt eine Zeigt das Datum und die Uhrzeit im Label an (Wenn nur Uhrzeit gewünscht ist, schreibt man statt "Now", "Time"
    53. End Sub
    55. Private Sub control_Timer()
    57. If ggezahlt.Caption <= 0 Then
    58. zehncent.Enabled = False '{
    59. zwanzigcent.Enabled = False '
    60. fünfzigcent.Enabled = False '
    61. eineuro.Enabled = False '
    62. zweieuro.Enabled = False 'Deaktiviert bestimmte felder, buttons,labels...etc. damit man sie nicht mehr anklicken kann
    63. cancel.Enabled = False '
    64. einfach.Enabled = False '
    65. hr.Enabled = False '
    66. tourist.Enabled = False '}
    67. wg.Visible = True 'Macht das Label "wg" Sichtbar
    68. Timer1.Enabled = True 'Aktiviert den "Timer1"
    69. End If
    70. End Sub
    72. Private Sub Timer1_Timer()
    73. zehncent.Enabled = True '{
    74. zwanzigcent.Enabled = True '
    75. fünfzigcent.Enabled = True '
    76. eineuro.Enabled = True '
    77. zweieuro.Enabled = True 'Aktiviert bestimmte Felder, Buttons,Labels...etc. damit sie wieder anklickbar sind
    78. cancel.Enabled = True '
    79. einfach.Enabled = True '
    80. hr.Enabled = True '
    81. tourist.Enabled = True '
    82. cancel.Value = True '}
    83. wg.Visible = False 'Macht das Label "wg" unsichtbar
    84. Timer1.Enabled = False 'Deaktiviert den "Timer1", damit er das nicht alle 10 Sec wieder macht! (Timer Interval auf "10000" gesetzt)
    85. End Sub

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

    Ich würde auf einige Timer verzichten und diese Subs dann von dem Münze Sub aus aufrufen. Du sparst ne Menge Code, wenn du die Münze Buttons in ein Array stopfst und die Münze dann nach dem Index ausrechnest.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    müsste zum beispiel funktionieren, auch wenn du bei der Begrenzung im Normalfall das "1 to" weglassen kann, die Standartuntergrenze ist 0. Das "i" bei next kannste auch weglassen, aber das dient auch der Übersicht

    Alles kla, aber ich weiss immer noch nicht wie ich das hier damit machen soll...


    Visual Basic-Quellcode

    1. Private Sub zehncent_Click() 'Wenn der Button "zehncent" angeklickt wird, passiert das, was im Sub steht
    3. Muenze 0.1 'Führt die Befehle die im Private Sub Muenze(Wert As String)aus,
    4. 'setzt für "Wert" 0.1 ein und deklariert sie als String (Text- oder Zahlenreihe)
    5. End Sub
    7. Private Sub zwanzigcent_Click() 'Wenn der Button "zwanzigcent" angeklickt wird, passiert das, was im Sub steht
    9. Muenze 0.2 'Führt die Befehle die im Private Sub Muenze(Wert As String)aus,
    10. 'setzt für "Wert" 0.2 ein und deklariert sie als String (Text- oder Zahlenreihe)
    11. End Sub
    13. Private Sub fünfzigcent_Click() 'Wenn der Button "fünfzigcent" angeklickt wird, passiert das, was im Sub steht
    15. Muenze 0.5 'Führt die Befehle die im Private Sub Muenze(Wert As String)aus,
    16. 'setzt für "Wert" 0.5 ein und deklariert sie als String (Text- oder Zahlenreihe)
    17. End Sub
    20. Private Sub eineuro_Click() 'Wenn der Button "eineuro" angeklickt wird, passiert das, was im Sub steht
    22. Muenze 1 'Führt die Befehle die im Private Sub Muenze(Wert As String)aus,
    23. 'setzt für "Wert" 1 ein und deklariert sie als String (Text- oder Zahlenreihe)
    24. End Sub
    26. Private Sub zweieuro_Click() 'Wenn der Button "zweieuro" angeklickt wird, passiert das, was im Sub steht
    28. Muenze 2 'Führt die Befehle die im Private Sub Muenze(Wert As String)aus,
    29. 'setzt für "Wert" 2 ein und deklariert sie als String (Text- oder Zahlenreihe)
    30. End Sub

Facebook
Telefonspende