VBScript - problem sa do while

VBScript - problem sa do while 18.01.2007. u 22:26 · pre 240 meseci #1

Code:
Dim pass
pass = InputBox("Unesi sifru: ")
Do Until pass = "vlada"
MsgBox "Sifra je pogresna! Probajte opet"
pass = InputBox("Unesi sifru: ")
Loop

Kako da odradim ovo >> U ovaj kod hteo bih da stavim varijablu tipa do while ali ne znam kako, cilj je da posle 3 pogresne sifre bude onemoguceno ponovno kucanje?

Re: VBScript - problem sa do while 18.01.2007. u 22:36 · pre 240 meseci #2

Code:

Dim pass
Dim AnswerCount

pass = InputBox("Unesi sifru: ")
AnswerCount = 1

Do Until (pass = "vlada" OR AnswerCount = 3)

    MsgBox "Sifra je pogresna! Probajte opet"
    pass = InputBox("Unesi sifru: ")
    AnswerCount = AnswerCount + 1

Loop

Valjda si na ovo mislio.

Re: VBScript - problem sa do while 18.01.2007. u 23:38 · pre 240 meseci #3

da, rako nesto. Da li bi mogao samo ukratko da mi opises sta si uradio sa ta 3 koraka?
hvala

Re: VBScript - problem sa do while 19.01.2007. u 00:16 · pre 240 meseci #4

Gorane, hajd' razmisli sta ce biti sa tim kada unese pogresnu sifru cetvrti put :D
Tj. moze i tako uz dodatnu proveru posle svega sa if AnswerCount = 3 then WrongPass()

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Re: VBScript - problem sa do while 19.01.2007. u 00:39 · pre 240 meseci #5

Citat:

Shadowed: Gorane, hajd' razmisli sta ce biti sa tim kada unese pogresnu sifru cetvrti put :D
Tj. moze i tako uz dodatnu proveru posle svega sa if AnswerCount = 3 then WrongPass()

OK, ja bas nisam nesto ulazio u smisao svega toga (ovo sto sam napisao nisam ni probao), nije bilo pitanje sta kad je vise od 3 pogresna upisa, tj. evo sta je decko trazio:

Citat:

Valerij Zajcev:Kako da odradim ovo >> U ovaj kod hteo bih da stavim varijablu tipa do while ali ne znam kako, cilj je da posle 3 pogresne sifre bude onemoguceno ponovno kucanje?

a mislim da moj kod zadovoljava gore postavljeni uslov - ili se varam? Sto se tice smislenosti, naravno da bi u nastavku cele price trebalo nesto slicno onome sto si napisao.

Pozdrav!

Re: VBScript - problem sa do while 19.01.2007. u 00:55 · pre 240 meseci #6

Citat:

Valerij Zajcev: da, rako nesto. Da li bi mogao samo ukratko da mi opises sta si uradio sa ta 3 koraka?
hvala

Sad tek videh ;) Nadam se da se salis, posto ono sto je dodato ne predstavlja nista revolucionarno u odnosu na ono sto je vec bilo. Ali hajde: promenljiva AnswerCount predstavlja brojac koliko puta prikazujes inputbox (njeno uvecavanje uvek prati inputbox() funkciju) Kljucno je to sto je u petlji pored uslova "Radi dok nije upisana lozinka vlada" dodato i "... ili dok broj pokusaja nije 3" tj. petlja se prekida ako se upise "vlada" ili ako se 3 puta upise pogresna lozinka. Sta ces posle da radis, samo ti znas.

Ajd zdravo!

Re: VBScript - problem sa do while 19.01.2007. u 01:42 · pre 240 meseci #7

Ma, sala mala. Stvar je u tome da ti je uslov za ispunjenje i za tri greske bio isti pa mi je bilo malo smesno :).
nhf :)

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Re: VBScript - problem sa do while 19.01.2007. u 01:57 · pre 240 meseci #8

Citat:

Shadowed:
nhf

Naravno

Re: VBScript - problem sa do while 19.01.2007. u 20:21 · pre 240 meseci #9

Nisam hteo da nacinjem novu temu evo jos jedan problem sa korenom...

Code:
' %Ovde pocinju specijalne operacije "kvadratne jednacine"%
    Sub kvj
    f = 4
    t = 2
    a = InputBox("Unesi a: ")
    b = InputBox("Unesi b: ")
    c = InputBox("Unesi c: ")
    z = b * b - f * a * c
    s = Sqr (z)

    MsgBox "Prvo resenje jednacine je:  " & s
End sub

probao sam i z da stavim u zagradu i sqr ispred njega, ali nece javlja ovu gresku:

C:\Documents and Settings\Administrator\Desktop\vladaradi.vbs(103, 2) Microsoft VBScript runtime error: Invalid procedure call or argument: 'Sqr'

***** script completed *****

Re: VBScript - problem sa do while 19.01.2007. u 21:36 · pre 240 meseci #10

Argument Sqr() funkcije ne sme biti negativan broj, verovatno je to, proveri prvo da li je z promenljiva negativan broj!!!

Re: VBScript - problem sa do while 19.01.2007. u 21:47 · pre 240 meseci #11

jeste negativan je pa sta da radim, mora da mi izbaci resenje :)??

PS
zasto * / - radi a + ne recimo
unesi a
unesi b
c = a + b
c = ab

tipa
4+5 = 45
zasto?

Re: VBScript - problem sa do while 19.01.2007. u 22:39 · pre 240 meseci #12

Citat:

Valerij Zajcev: jeste negativan je pa sta da radim, mora da mi izbaci resenje :)??

Sta si ti imao iz matematike, nadam se da se samo salis (valjda je smilie zbog toga tu?).

Citat:

Valerij Zajcev:
zasto * / - radi a + ne recimo
unesi a
unesi b
c = a + b
c = ab

tipa
4+5 = 45
zasto?

Zato sto je Return Value od InputBox() tipa String, a u VB-u operator + ima visestruku primenu u zavisnosti od tipa podataka; ako sabiras brojeve dobices broj, ako sabiras stringove dobices string koji nastaje spajanjem sabiraka.

Ako hoces da ti ono gore radi onda...

Code:

unesi a
unesi b
c = CDbl(a) + CDbl(b)

...ce ti dati dobar rezultat.

Prouci malo osnove, sve lepo pise samo treba da se procita.

Forum kao aplikacija na telefonu

Srodne teme