08. marts 2004 - 08:43Der er
6 kommentarer og 1 løsning
hvordan får jeg programmet til at afslutte helt?
Dim username, password, taelleru, taellerp, login Do taelleru = taelleru + 1 username = Inputbox("State your username!","Username") If username = "mnc" Then Do taellerp = taellerp + 1 password = inputbox("State you password!","Password") If password = "pass" Then msgbox("You have successfully logged in. Username: " & username & ", Password: " & password),,"Success" login = "OK" else msgbox("Password invalid!"),,"Error" end if loop until taellerp = 3 or login = "OK" else msgbox("Username invalid!"),,"Error" end if loop until taelleru = 3 or taellerp = 3 or login = "OK"
-------------- Here it goes:
Når jeg trykker Esc eller cancel så afslutter programmet ikke helt... det hopper bare videre til næste trin, f.eks. hvis det er anden gang den spørger efter kodeord, så spørger den bare en sidste gang når jeg trykker Esc... Jeg ville meget gerne have den til at afslutte helt, uanset hvad den nu var igang med, når jeg trykker Esc.. Håber en derude kan hjælpe mig :)
Når du bruger ANNULLER i en inputbox-kommando, afsendes en tom tekststreng.
Ved at bruge "exit do" ved en tom tekststreng i variablen "password" kan du komme ud af programmet.
........og så lige et godt råd... når du skriver programmet så forskyd linierne inde i en
do...loop og for...next og if...end if
så er programmet meget lettere at læse og fejlfinde..................
her er mit forslag til dit lille program
Dim username, password, taelleru, taellerp, login
Do taelleru = taelleru + 1 username = Inputbox("State your username!","Username") If username = "mnc" Then Do taellerp = taellerp + 1 password = inputbox("State you password!","Password") If password = "pass" Then msgbox("You have successfully logged in. Username: " & username & ", Password: " & password),,"Success" login = "OK" else if password = "" then exit do msgbox("Password invalid!"),,"Error" end if
loop until taellerp = 3 or login = "OK" if password = "" then exit do else msgbox("Username invalid!"),,"Error" end if
loop until taelleru = 3 or taellerp = 3 or login = "OK"
HMM.........SKAL MAN BRUGE SVAR ELLER KOMMENTAR.......du får begge
Når du bruger ANNULLER i en inputbox-kommando, afsendes en tom tekststreng.
Ved at bruge "exit do" ved en tom tekststreng i variablen "password" kan du komme ud af programmet.
........og så lige et godt råd... når du skriver programmet så forskyd linierne inde i en
do...loop og for...next og if...end if
så er programmet meget lettere at læse og fejlfinde..................
her er mit forslag til dit lille program
Dim username, password, taelleru, taellerp, login
Do taelleru = taelleru + 1 username = Inputbox("State your username!","Username") If username = "mnc" Then Do taellerp = taellerp + 1 password = inputbox("State you password!","Password") If password = "pass" Then msgbox("You have successfully logged in. Username: " & username & ", Password: " & password),,"Success" login = "OK" else if password = "" then exit do msgbox("Password invalid!"),,"Error" end if
loop until taellerp = 3 or login = "OK" if password = "" then exit do else msgbox("Username invalid!"),,"Error" end if
loop until taelleru = 3 or taellerp = 3 or login = "OK"
Beklager meget at der ikke rigtigt er sket så meget herinde :) Da vi i skolen kun gik kort igennem vb og hoppede hurtigt videre til access glemte jeg alt om tråden her :) Kigger lige på det når jeg kommer hjem.. kan ikke umiddelbart få mandrake til at være glad for vbscripts :)
hmm... kan umiddelbart ikke få det til at virke efter hensigten... når jeg prøver at esc ved username, så fucker den med de tre fejl :\ og har prøvet at ændre den første [ if password = "" then exit do ]
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
