[es] - vb - random jedinstveni broj, kako?

legend
Beograd

Član broj: 4393
Poruke: 463
*.yubc.net.

ICQ: 343447922
Sajt: www.icb.rs

Profil

^{26.11.2004. u 23:16}

nasao sam neke primere na netu ali iskljucivo bez jedinstvenih random brojeva....

treba da generisem 30 puta broj koji se nalazi u opsegu izmedju 1 i 100 a da se izabrani brojevi ne ponavljaju.....moze neka pomoc...hvala...

...da bi ponovo dosli, morate prvo da odete...
http://www.icb.rs

^{26.11.2004. u 23:16}

Shadowed
.NET developer

SuperModerator
Član broj: 649
Poruke: 8843
*.etf.bg.ac.yu.

Sajt: www.diskusije.net

Profil

Re: vb - random jedinstveni broj, kako?

^{27.11.2004. u 18:40}

Mozda ovako nesto:

Code:
    Dim i, j, Br(30) As Byte
    Randomize
    For i = 1 To 30
x:      Br(i) = Int(Rnd * 100) + 1
        For j = 1 To i - 1
            If Br(i) = Br(j) Then GoTo x
        Next j
    Next i

Download from Youtube

Otkrivena nova tehnika kloniranja

FBzP

^{27.11.2004. u 18:40}

legend
Beograd

Član broj: 4393
Poruke: 463
*.yubc.net.

ICQ: 343447922
Sajt: www.icb.rs

Profil

Re: vb - random jedinstveni broj, kako?

^{27.11.2004. u 19:11}

hvala....mada sam vec neko solomonsko resenje nasao....svejedno jos jednom hvala...

...da bi ponovo dosli, morate prvo da odete...
http://www.icb.rs

^{27.11.2004. u 19:11}

degojs

Član broj: 4716
Poruke: 5050
*.cpe.net.cable.rogers.com.

Sajt: www.novetehnologije.com

Profil

Re: vb - random jedinstveni broj, kako?

^{27.11.2004. u 19:17}

Citat:

Dim i, j, Br(30) As Byte

Nikako preporučen način deklaracije u VB. Kog tipa su i i j?

Takođe, upotreba GoTo je.. diskutabilna :)

Commercial-Free !!!

^{27.11.2004. u 19:17}

Shadowed
.NET developer

SuperModerator
Član broj: 649
Poruke: 8843
*.etf.bg.ac.yu.

Sajt: www.diskusije.net

Profil

Re: vb - random jedinstveni broj, kako?

^{28.11.2004. u 14:33}

Cek, pa i 'i' i 'j' su Byte. Ili sta? Da li ja to o necemu nisam obavesten?

GoTo... Ma hajde, sta mu fali u ovako maloj stvari, ne preskace tamo-vamo po 3 strane koda, ceo GoTo je zatvoren u toj petlji - lokalna stvar.

Download from Youtube

Otkrivena nova tehnika kloniranja

FBzP

^{28.11.2004. u 14:33}

degojs

Član broj: 4716
Poruke: 5050
*.cpe.net.cable.rogers.com.

Sajt: www.novetehnologije.com

Profil

Re: vb - random jedinstveni broj, kako?

^{28.11.2004. u 15:49}

Proveri za i i j :)

Commercial-Free !!!

^{28.11.2004. u 15:49}

Shadowed
.NET developer

SuperModerator
Član broj: 649
Poruke: 8843
*.etf.bg.ac.yu.

Sajt: www.diskusije.net

Profil

Re: vb - random jedinstveni broj, kako?

^{28.11.2004. u 16:24}

Heeee... vidi stvarno. Len(i) = 0. Znaci ispada da je Varijant (kao da nisam naveo tip). Pretpostavio sam da bi to moglo biti kad si pomenuo. Da li ovo vazi i za VB.NET, mozda?

Download from Youtube

Otkrivena nova tehnika kloniranja

FBzP

^{28.11.2004. u 16:24}

Aleksandar Ružičić
Aleksandar Ružičić
Senior Developer, Haragei d.o.o
Beograd - Čačak

Moderator
Član broj: 26939
Poruke: 2114
195.252.103.*

Jabber: krcko@haragei.com
Sajt: krcko.haragei.org

Profil

Re: vb - random jedinstveni broj, kako?

^{28.11.2004. u 16:24}

Citat:

Shadowed: Cek, pa i 'i' i 'j' su Byte. Ili sta? Da li ja to o necemu nisam obavesten?

Pa i ja sam bio ubedjen u isto dok nisam na netu nasao objasnjenje.
primer:

Code:

Dim a, b As Integer

normalno u integer tip je moguce staviti samo brojeve (u nekom opsegu od -16000 do + 16000, cini mi se) ali ne i neki string (alpha chars...), ako bi stavio npr. ovo:

Code:

b = "some string..."

dobices "Type mismatch..." ali ako stavis:

Code:

a = "some string"

sve ce biti uredu, jer ako ne deklarises tip varijable vb ce misliti da je to Variant tip...
Ne znam da li sam to bas najbolje objasnio, ali nadam se da je pomoglo.

Pozdrav Svima!

jQuery addict!

_{Fact: Chuck Norris hates layout tables!}

^{28.11.2004. u 16:24}

Shadowed
.NET developer

SuperModerator
Član broj: 649
Poruke: 8843
*.etf.bg.ac.yu.

Sajt: www.diskusije.net

Profil

Re: vb - random jedinstveni broj, kako?

^{28.11.2004. u 16:53}

Razumem ja sta se desava ali je nelogicno sto je tako jer kad napises
Dim a, b as Ineteger
logicno je da time kazes "Hocu da koristim promenljive a i b i one su Ineteger" ali ga ovi napravise mnogo blesavo.
BTW, zasto mi je Len vracao 0 kad je Varian 16B?
Covek svaki dan nauci po nesto novo...

Download from Youtube

Otkrivena nova tehnika kloniranja

FBzP

^{28.11.2004. u 16:53}

degojs

Član broj: 4716
Poruke: 5050
*.cpe.net.cable.rogers.com.

Sajt: www.novetehnologije.com

Profil

Re: vb - random jedinstveni broj, kako?

^{28.11.2004. u 17:06}

Što se VB.NET-a tiče, nema problema sa takvom deklaracijom. Ovo jeste loše odrađeno u VB, zato sam i hteo da skrenem pažnju.

Len funkcija ti vraća 0 zato što nema ništa upisano u promenjivu. Kad joj dodeliš neku vrednost, onda će i automatski da joj se promeni "dužina" u zavisnosti koji tip joj je pridružen, što se opet uradi automatski.

Probaj da koristiš TypeName funkciju sa promenjivom koja je ovako deklarisana.

Dim a,b As Integer

debug.? typename(a)
a=5
debug.? typename(a)
a=11.67
debug.? typename(a)

Pozdrav :)

Commercial-Free !!!

^{28.11.2004. u 17:06}