vb - random jedinstveni broj, kako?

[ legend @ 26.11.2004. 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...

[ Shadowed @ 27.11.2004. 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

[ legend @ 27.11.2004. 19:11 ] @

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

[ degojs @ 27.11.2004. 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 :)

[ Shadowed @ 28.11.2004. 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.

[ degojs @ 28.11.2004. 15:49 ] @

Proveri za i i j :)

[ Shadowed @ 28.11.2004. 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?

[ Aleksandar Ružičić @ 28.11.2004. 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!

[ Shadowed @ 28.11.2004. 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...

[ degojs @ 28.11.2004. 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 :)