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
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
- 'Unterprogramm Initialisierung
- Sub Zugangskontrolle_intialisierung()
- Dim BNL(1 To 10) As String
- Dim PWL(1 To 10) As String
- 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()
- Dim EingabeBN As String
- EingabeBN = InputBox("Name:")
- End Sub
- 'Unterprogramm Passwort eingeben
- Sub Passwort_eingabe()
- Dim EingabePW As String
- EingabePW = InputBox("Das Passwort bitte:")
- End Sub
- 'Passwortüberprüfung
- Sub Ueberpruefung(ByVal EingabePW, EingabeBN As String)
- Dim Zugang As Boolean
- Dim BNL(1 To 10) As String
- Dim PWL(1 To 10) As String
- Dim i As Byte
- 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()
- Dim Zugang As Boolean
- Anzahl_Versuche = 1
- For Anzahl_Versuche = 1 To 3
- If Zugang = True Then
- Zugang_erteilt
- Anzahl_Versuche = 4
- Else
- Anzahl_Versuche = Anzahl_Versuche + 1
- kein_Zugang
- End If
- Next Anzahl_Versuche
- End Sub
- 'Unterprogramm Zugang
- Sub Zugang_erteilt()
- MsgBox "Zugang!!"
- End Sub
- 'Unterprogramm Kein Zugang
- Sub kein_Zugang()
- MsgBox "Kein Zugang!!"
- End Sub
- 'Hauptprogramm!
- Sub Zugangskontrolle()
- Dim BNL(1 To 10) As String
- Dim PWL(1 To 10) As String
- Dim EingabeBN As String
- Dim EingabePW As String
- Zugangskontrolle_intialisierung
- Benutzernamen_eingabe
- Passwort_eingabe
- Ueberpruefung
- Entscheidung
- End Sub