Schulprojekt hängt bei der Variablenübergabe ??

  • Excel

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Me_Hide.

    Schulprojekt hängt bei der Variablenübergabe ??

    Hallo ihr Meister des VBA.

    Bitte dreht euch nicht gleich um, wenn ichr das schlampig programmierte im Anhang seht, aber ein echter Newbie hat einige Probleme.

    Wir sollen für ein Projekt eine Zugangskontrolle für 10 Teilnehmer realisieren. Dabei soll alles in einem jeweiligen Unterprogramm ablaufen. d.h. die Benutzer- und Passwortliste in einem initialisiert, die Eingaben auch in einem, die Verarbeitung auch in einem und die Ausgabe jeweils auch.
    Dabei hängt er bei der Überprüfung, ich glaube es bekommt das PW und den Beutzer nicht durchgereicht.
    Das ist so ein augenscheinlicher Fehler, ihr findet sicher 10000 mehr.

    Bitte gebt mir einen Hinweis, ich sitze da schon einige Tage dran............
    (wer sich sowas ausgedacht hat, gehört ......)

    Danke



    Visual Basic-Quellcode

    1. 'Unterprogramm Initialisierung
    3. Sub Zugangskontrolle_intialisierung()
    5. Dim BNL(1 To 10) As String
    6. Dim PWL(1 To 10) As String
    8. BNL(1) = "Peter"
    9. BNL(2) = "Paul"
    10. BNL(3) = "Pia"
    11. BNL(4) = "Petra"
    12. BNL(5) = "Hans"
    13. BNL(6) = "Klaus"
    14. BNL(7) = "Erna"
    15. BNL(8) = "Lothar"
    16. BNL(9) = "Udo"
    17. BNL(10) = "Xantippe"
    18. PWL(1) = "PW1"
    19. PWL(2) = "PW2"
    20. PWL(3) = "PW3"
    21. PWL(4) = "PW4"
    22. PWL(5) = "PW5"
    23. PWL(6) = "PW6"
    24. PWL(7) = "PW7"
    25. PWL(8) = "PW8"
    26. PWL(9) = "PW9"
    27. PWL(10) = "PW10"
    29. End Sub
    31. 'Unterprogramm Benutzernamen eingeben
    33. Sub Benutzernamen_eingabe()
    35. Dim EingabeBN As String
    37. EingabeBN = InputBox("Name:")
    39. End Sub
    41. 'Unterprogramm Passwort eingeben
    43. Sub Passwort_eingabe()
    45. Dim EingabePW As String
    47. EingabePW = InputBox("Das Passwort bitte:")
    49. End Sub
    51. 'Passwortüberprüfung
    53. Sub Ueberpruefung(ByVal EingabePW, EingabeBN As String)
    55. Dim Zugang As Boolean
    56. Dim BNL(1 To 10) As String
    57. Dim PWL(1 To 10) As String
    58. Dim i As Byte
    60. i = 1
    61. For i = 1 To 10
    63. If PWL(i) = EingabePW And BNL(i) = EingabeBN Then
    64. Zugang = True
    65. i = 11
    66. Else
    67. MsgBox "Test"
    69. End If
    71. Next i
    75. End Sub
    77. Sub Entscheidung()
    79. Dim Zugang As Boolean
    81. Anzahl_Versuche = 1
    82. For Anzahl_Versuche = 1 To 3
    84. If Zugang = True Then
    85. Zugang_erteilt
    86. Anzahl_Versuche = 4
    87. Else
    88. Anzahl_Versuche = Anzahl_Versuche + 1
    89. kein_Zugang
    90. End If
    92. Next Anzahl_Versuche
    94. End Sub
    98. 'Unterprogramm Zugang
    100. Sub Zugang_erteilt()
    102. MsgBox "Zugang!!"
    104. End Sub
    106. 'Unterprogramm Kein Zugang
    108. Sub kein_Zugang()
    110. MsgBox "Kein Zugang!!"
    112. End Sub
    114. 'Hauptprogramm!
    116. Sub Zugangskontrolle()
    118. Dim BNL(1 To 10) As String
    119. Dim PWL(1 To 10) As String
    120. Dim EingabeBN As String
    121. Dim EingabePW As String
    124. Zugangskontrolle_intialisierung
    125. Benutzernamen_eingabe
    126. Passwort_eingabe
    127. Ueberpruefung
    128. Entscheidung
    130. End Sub

    Wenn du innerhalb einer Routine (eines sub) die Variablen mit DIM initialisierst, stehen diese VAriablen nur innerhalb der Routine zur Verfügung.

    Da du die Variablen aber in verschiedenen Subs benötigst, musst du sie anstatt mit Dim mit

    Visual Basic-Quellcode

    1. Public BWL(10) as String


    deklarieren.

    Diese Zeilen müssen VOR der ersten Zeile stehen.

    Visual Basic-Quellcode

    1. ' Zum Definieren eines Arrays gibt man in Klammern die Größe des Arrays an. Somit wird aus
    2. Public BWL(1 to 10) as String
    3. ' ganz schnell diese kürzere Schreibweise
    4. Public BWL(10) as String


    mfg



    Me_Hide

    Eine etwas genauere Beschreibung als "stockt irgendwie" wäre hilfreich.

    Du musst JEDE Variable als public defnieren. Das ist zwar kein guter Stil, aber dafür kannst du erst einmal nichts falsch machen.

    Okay, nach etwas genauerer Betrachtung:

    Zeile 85, 89, 124 - 128 fehlt das Call vor den Routinenamen

    Zeile 81 gehört in die Initialisierung.

    In Zeile 53 können die Klammern samt Inhalt weg.

    Wenn dann immer noch Fehler sind, lass das Programm Zeilenweise mit F8 debuggen.

    mfg



    Me.Hide

    Danke me_hide,

    habe alles geändert, d.h alle Variablen als public deklariert, dementsprechend die Dim aus den Prozeduren entfernt.
    Des weiteren im Hauptprogramm alles mit call aufgerufen und die zu übergebenen Werte dahinter in Klammern gesetzt. Bei Versuch das Programm schrittweise mit F8 laufen zu lassen, stoppt er bereits bei der Variablen deklaration mit der Meldung: "Mehrdeutiger Name: Zugang".
    Ich habe diesen Wert als boolean gesetzt, da er ja nur 0 oder 1 haben soll und später bei der Entscheidung die dementsprechende Msgbox steuern soll.
    Anbei findest du den geänderten Code.......

    Danke nochmal für deine Hilfe

    'Unterprogramm Initialisierung

    Public BNL(10), PWL(10) As String
    Public EingabeBN As String
    Public Zugang As Boolean
    Public i As Byte
    Public EingabePW As String
    Public Zugang As Boolean


    Sub Zugangskontrolle_intialisierung()



    BNL(1) = "Peter"
    BNL(2) = "Paul"
    BNL(3) = "Pia"
    BNL(4) = "Petra"
    BNL(5) = "Hans"
    BNL(6) = "Klaus"
    BNL(7) = "Erna"
    BNL(8) = "Lothar"
    BNL(9) = "Udo"
    BNL(10) = "Xantippe"
    PWL(1) = "PW1"
    PWL(2) = "PW2"
    PWL(3) = "PW3"
    PWL(4) = "PW4"
    PWL(5) = "PW5"
    PWL(6) = "PW6"
    PWL(7) = "PW7"
    PWL(8) = "PW8"
    PWL(9) = "PW9"
    PWL(10) = "PW10"

    End Sub

    'Unterprogramm Benutzernamen eingeben

    Sub Benutzernamen_eingabe()

    EingabeBN = InputBox("Name:")

    End Sub

    'Unterprogramm Passwort eingeben

    Sub Passwort_eingabe()



    EingabePW = InputBox("Das Passwort bitte:")

    End Sub

    'Passwortüberprüfung

    Sub Ueberpruefung()



    i = 1
    For i = 1 To 10

    If PWL(i) = EingabePW And BNL(i) = EingabeBN Then
    Zugang = True
    i = 11
    Else
    MsgBox "Test"

    End If

    Next i



    End Sub

    Sub Entscheidung()



    Anzahl_Versuche = 1
    For Anzahl_Versuche = 1 To 3

    If Zugang = True Then
    Call Zugang_erteilt
    Anzahl_Versuche = 4
    Else
    Anzahl_Versuche = Anzahl_Versuche + 1
    Call kein_Zugang

    End If

    Next Anzahl_Versuche

    End Sub


    'Unterprogramm Zugang

    Sub Zugang_erteilt()

    MsgBox "Rein gehts!!"

    End Sub

    'Unterprogramm Kein Zugang

    Sub kein_Zugang()

    MsgBox "Kein Rein!!"

    End Sub

    'Hauptprogramm!

    Sub Zugangskontrolle()

    Call Zugangskontrolle_intialisierung
    Call Benutzernamen_eingabe(EingabeBN)
    Call Passwort_eingabe(EingabePW)
    Call Ueberpruefung(Zugang)
    Call Entscheidung

    End Sub

    Hallo,



    Der Fehler tritt auf, weil du die Variable Zugang zwei mal initialisierst. Da musst du nur die letzte Deklaration Public Zugang as Boolean löschen.

    In den Call-Aufrufen im Sub Zugangskontrolle müssen die Klammern samt Inhalt hinter den Routinenamen verschwinden.

    Und in der letzten Zeile wäre ein End Sub nicht schlecht.

    mfg

    Me.Hide

Facebook
Telefonspende