vb - random jedinstveni broj, kako?

vb - random jedinstveni broj, kako? 27.11.2004. u 00:16 · pre 266 meseci #1

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

Potpis

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

Re: vb - random jedinstveni broj, kako? 27.11.2004. u 19:40 · pre 266 meseci #2

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

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: vb - random jedinstveni broj, kako? 27.11.2004. u 20:11 · pre 266 meseci #3

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

Potpis

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

Re: vb - random jedinstveni broj, kako? 27.11.2004. u 20:17 · pre 266 meseci #4

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

Potpis

Commercial-Free !!!

Re: vb - random jedinstveni broj, kako? 28.11.2004. u 15:33 · pre 266 meseci #5

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.

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: vb - random jedinstveni broj, kako? 28.11.2004. u 16:49 · pre 266 meseci #6

Proveri za i i j :)

Potpis

Commercial-Free !!!

Re: vb - random jedinstveni broj, kako? 28.11.2004. u 17:24 · pre 266 meseci #7

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?

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: vb - random jedinstveni broj, kako? 28.11.2004. u 17:24 · pre 266 meseci #8

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!

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Re: vb - random jedinstveni broj, kako? 28.11.2004. u 17:53 · pre 266 meseci #9

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

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: vb - random jedinstveni broj, kako? 28.11.2004. u 18:06 · pre 266 meseci #10

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

Potpis

Commercial-Free !!!

Forum kao aplikacija na telefonu

Srodne teme