millä koodinpätkällä saa numerot arpomaan silleen että se ei arvo samoja numeroita uudestaan...
mulla tähän asti seuraavanlainen koodipätkä:
Int((100 * Rnd()) 1)
...eli se arpoo luvun väliltä 1-100, mutta miten saadaan että se ei arvo samaa numeroa toista kertaa?
NUMEROIDEN ARPOMINEN
-Zanta-
4
1231
Vastaukset
- kerran
Avainsana on Randomize.
Koodi sinällään on oikein mutta kuten niin monesti on tälläkin palstalla puhuttu, tietokoneen "satunnaisluvut" eivät ole satunnaisia ilman alustusta. - variables
Jo arvotut numerot muistiin collectioniin, muuttujiia tms. ja jos tulee sama, uusi kierros.
- jokuvaan
Randomize täytyy olla, jotta yleensä lukujen generointi tapahtuu oikein.
Mutta, miten tutkia helposti, onko luku jo arvottu.
Olen tehnyt arvottavia lukuja vastaavan muuttujan, jonka tilaksi asetetaan 'True' kun luku on arvonnasta tullut.
Dim lukux(100) As Boolean
For x = 1 To 100
lukux(x) = False
Next x
Randomize
For s = 1 To 10 'kuinka monta lukua arvotaan, tässä 10
arvonta:
luku = Int((100 - 1 1) * Rnd 1)
'tutkitaan onko luku jo ennestään arvottu
'jos oli, tehdään uusi arvonta
If lukux(luku) = True Then GoTo arvonta
'tulostetaan arvottu luku ja
'merkataan se arvotuksi
Print luku
lukux(luku) = True
Next s- Joksako
'tulostetaan arvottu luku ja
'merkataan se arvotuksi
Print luku
lukux(luku) = True
Toi Print heittää sen numeropätkän vaan pystysuorassa alaspäin. Mites sä tulostat sen lbl.captioniin vaakaan "," eroteltuna ?
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Valtion alijäämä = yritystukien määrä = 10 mrd. euroa
Mutta persut eivät vaan suostu tasapainottamaan valtion budjettia, vaikka yritystuet on tiedetty haitallisiksi. Miksi p957277Suomi käyttää sosiaalietuuksiin suhteessa eniten rahaa koko maailmassa
Suomi käyttää sosiaaliturvaetuuksiin enemmän rahaa suhteessa bruttokansantuotteeseen kuin mikään muu maa maailmassa. Su3576348Grahn-Laasonen: "Kansalainen joutuu pettymään, jos demareita äänestää"
Ministeri viittaa tuoreeseen Helsingin Sanomien juttuun, jossa demarijohtajan keinoja Suomen suunnan muuttamiseksi esite583693Vähän fiksumpi Nimi kisa ? :=)
Kirjoita teidän etunimet allekkain. Jos nimissä on joku kirjain sama, poista se. Tee sama tarkistus kaikille kirjaimill293429Mikä on suurin luonne- eroavuus sinussa
Ja kaivatussasi? Vaikuttaako se huonoon vai hyvään suuntaan siinä, että teistä voisi tulla jotain?1921931Kenen haluaisit voittavan Amazing Racen: Tuomas ja Esko, Millu ja Karoliina vai Maria ja Vilma?
Amazing Race Suomi huipentuu lauantaina finaaliin. Jäljellä on kolme paria ja tiedossa on tehtäviä, jotka järkyttävät os171628- 601363
Gallup: Katsotko Salkkareita tai oletko katsonut?
Salatut elämät on suomalaisten suosikkisarja vuosikymmenestä toiseen. Salkkareiden parissa viettää aikaa sukupolvet laps181356Elämäni biisi starttaa uudessa muodossa - Voi olla pettymys faneille!
Elämäni biisi ja juontaja Katja Ståhl ovat suomalaisten suosikkeja. Lauantai-iltaisin ohjelma on vetänyt tv-katsojat arv11260Amazing Race Tomas rehellisenä Esko-appiukon, 63, tilasta: "Sairastelut ja..."
Tomas Grekov ja Esko Rotola-Pukkila ovat mukana Amazing Race Suomi -kisassa. Ja nyt vuorossa on finaali. Hankaluuksia m11237