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

legend
Beograd

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

Sajt: www.icb.rs

+1 Profil

^{26.11.2004. u 23:16 - pre 236 meseci}

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

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12849

+4784 Profil

Re: vb - random jedinstveni broj, kako?

^{27.11.2004. u 18:40 - pre 236 meseci}

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

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

legend
Beograd

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

Sajt: www.icb.rs

+1 Profil

Re: vb - random jedinstveni broj, kako?

^{27.11.2004. u 19:11 - pre 236 meseci}

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

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

Odgovor na temu

degojs

Član broj: 4716
Poruke: 5096

+51 Profil

Re: vb - random jedinstveni broj, kako?

^{27.11.2004. u 19:17 - pre 236 meseci}

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

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12849

+4784 Profil

Re: vb - random jedinstveni broj, kako?

^{28.11.2004. u 14:33 - pre 236 meseci}

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.

Odgovor na temu

degojs

Član broj: 4716
Poruke: 5096

+51 Profil

Re: vb - random jedinstveni broj, kako?

^{28.11.2004. u 15:49 - pre 236 meseci}

Proveri za i i j :)

Commercial-Free !!!

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12849

+4784 Profil

Re: vb - random jedinstveni broj, kako?

^{28.11.2004. u 16:24 - pre 236 meseci}

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?

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: vb - random jedinstveni broj, kako?

^{28.11.2004. u 16:24 - pre 236 meseci}

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!

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12849

+4784 Profil

Re: vb - random jedinstveni broj, kako?

^{28.11.2004. u 16:53 - pre 236 meseci}

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

Odgovor na temu

degojs

Član broj: 4716
Poruke: 5096

+51 Profil

Re: vb - random jedinstveni broj, kako?

^{28.11.2004. u 17:06 - pre 236 meseci}

Š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 !!!

Odgovor na temu