[es] - VBScript - problem sa do while

Valerij Zajcev

Član broj: 40886
Poruke: 1374
*.dynamic.sbb.co.yu.

+2 Profil

^{18.01.2007. u 21:26 - pre 210 meseci}

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?

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: VBScript - problem sa do while

^{18.01.2007. u 21:36 - pre 210 meseci}

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.

Odgovor na temu

Valerij Zajcev

Član broj: 40886
Poruke: 1374
*.dynamic.sbb.co.yu.

+2 Profil

Re: VBScript - problem sa do while

^{18.01.2007. u 22:38 - pre 210 meseci}

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

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851

+4784 Profil

Re: VBScript - problem sa do while

^{18.01.2007. u 23:16 - pre 210 meseci}

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()

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: VBScript - problem sa do while

^{18.01.2007. u 23:39 - pre 210 meseci}

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!

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: VBScript - problem sa do while

^{18.01.2007. u 23:55 - pre 210 meseci}

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!

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851

+4784 Profil

Re: VBScript - problem sa do while

^{19.01.2007. u 00:42 - pre 210 meseci}

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 :)

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: VBScript - problem sa do while

^{19.01.2007. u 00:57 - pre 210 meseci}

Citat:

Shadowed:
nhf

Naravno

Odgovor na temu

Valerij Zajcev

Član broj: 40886
Poruke: 1374
*.dynamic.sbb.co.yu.

+2 Profil

Re: VBScript - problem sa do while

^{19.01.2007. u 19:21 - pre 210 meseci}

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 *****

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: VBScript - problem sa do while

^{19.01.2007. u 20:36 - pre 210 meseci}

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

Odgovor na temu

Valerij Zajcev

Član broj: 40886
Poruke: 1374
*.dynamic.sbb.co.yu.

+2 Profil

Re: VBScript - problem sa do while

^{19.01.2007. u 20:47 - pre 210 meseci}

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?

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: VBScript - problem sa do while

^{19.01.2007. u 21:39 - pre 210 meseci}

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.

Odgovor na temu