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
1192
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
Ja taas ammuttu kokkolassa
Kokkolaisilta pitäisi kerätä pois kaikki ampumaset, keittiöveitset ja kaikki mikä vähänkään paukku ja on terävä.303481Kukka ampu taas Kokkolassa?
T. olisi hetkeä aiemmin lähtenyt johonkin. Naapuri kai tekijä J.K., ei paljasjalkainen Kokkolalainen, vaan n. 100km pääs91538Kuinka kauan
Olet ollut kaivattuusi ihastunut/rakastunut? Tajusitko tunteesi heti, vai syventyivätkö ne hitaasti?1131473Milli-helenalla ongelmia
Suomen virkavallan kanssa. Eipä ole ihme kun on etsintäkuullutettu jenkkilässäkin. Vähiin käy oleskelupaikat virottarell2241255Kun näen sinut
tulen iloiseksi. Tuskin uskallan katsoa sinua, herätät minussa niin paljon tunteita. En tunne sinua hyvin, mutta jotain34893Purra saksii taas. Hän on mielipuuhassaan.
Nyt hän leikkaa hyvinvointialueiltamme kymmeniä miljoonia. Sotea romutetaan tylysti. Terveydenhoitoamme kurjistetaan. ht242883- 60869
Helena Koivu on äiti
Mitä hyötyä on Mikko Koivulla kohdella LASTENSA äitiä huonosti . Vie lapset tutuista ympyröistä pois . Lasten kodista.130858Ja taas kerran hallinto-oikeus että pieleen meni
Hallinto-oikeus kumosi kunnanhallituksen päätöksen vuokratalojen pääomituksesta. https://sysmad10.oncloudos.com/cgi/DREQ66844Löydänköhän koskaan
Sunlaista herkkää tunteellista joka jumaloi mua. Tuskin. Siksi harmittaa että asiat meni näin 🥲97808