NUMEROIDEN ARPOMINEN

-Zanta-

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?

4

1225

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Vain vasemmistolaiset rakennemuutokset pelastavat Suomen

      Kansaa on ankeutettu viimeiset 30+ vuotta porvarillisella minäminä-talouspolitiikalla, jossa tavalliselta kansalta on ot
      Maailman menoa
      27
      3425

    2. Persut huutaa taas: "kato! muslimi!"

      Persut on lyhyessä ajassa ajaneet läpi kaksi työntekijöiden oikeuksien heikennystä, joita se on aiemmin vastustanut. Pe
      Maailman menoa
      13
      2828

    3. Menen nyt koisimaan

      Ja en ehkä palaa tänne. Asia on nyt loppuunkäsitelty ja totuus tuli ilmi
      Ikävä
      28
      2504

    4. Olisiko sinulla

      Jonossa vaihtoehtoja, ehkä
      Ikävä
      42
      1927

    5. Pieni galluppi

      Mitäs lahjaa odotat joulupukilta.
      Ikävä
      53
      1779

    6. Haluaisin rakastaa sinua

      Ja olla sinulle se oikea... Rakastan sinua 💗💗💗
      Ikävä
      15
      1760

    7. onko kaivattusi

      vaarallinen? :D
      Ikävä
      45
      1626

    8. KL: Mari Hynynen avoimena - Jouni-rakkaan ja Joel-pojan välit ovat nämä!

      Mari Hynynen (ent. Perankoski) on naimisissa Jouni Hynysen kanssa. Marilla on edellisestä liitosta yksi lapsi, Joel Vola
      Suomalaiset julkkikset
      10
      1468

    9. Oletko uhriutuja?

      vaikka itse olet rääkännyt toista ja aiheuttanut ties mitä toiselle.
      Tunteet
      54
      1444

    10. Missikohu edustaa nykyajan monimuotoisuutta

      Puolesta vai vastaan, saako esittää pilkkaavasti jonkun toisen ihmisen syntyperäisiä ominaisuuksia? Kadulla vastaan tule
      Sinkut
      264
      1164
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt