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

1183

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

    Luetuimmat keskustelut

    1. Mihin Ilkka Kanerva kuoli?

      Kun näin jokin aika sitten kuvan riutuneen näköisestä Kanervasta, sanoin vaimolle että haimasyövältä vaikuttaa. Vaimon isä oli kuollut kyseiseen tauti
      Maailman menoa
      403
      30728
    2. Martinan lapset JÄLLEEN valjastettu valkopesureiksi

      Ei tuo nainen todellakaan täysillä käy. Vauvakin tajuaa että kysymykset ja vastaukset ovat Martinan itsensä tekemiä, lapset vastaa mitä on käsketty. J
      Kotimaiset julkkisjuorut
      476
      4141
    3. Sofia Belorf ja Sonja Aiello

      Viihtyvät yhdessä dinnerillä. Pienet piirit. Mitä ajatuksia herättää ?
      Kotimaiset julkkisjuorut
      97
      2714
    4. Stefu LOISTAVAA!

      Ilmeisesti joku vedonlyönti tms, selvinpäin-elämästä👍👍👍 ilmankos ei ole Sofiaa näkynyt. Miten tän parin nyt käy, kun viimi ei maksettuna enää virta
      Kotimaiset julkkisjuorut
      132
      1879
    5. Teille, Venäjällä pelottelijat

      Oletatteko ja väitättekö te, että Venäjä pystyisi tuosta vain miehittämään Suomen?
      Maailman menoa
      590
      1654
    6. Ilkka Kanerva on kuollut

      74-vuotiaana.
      Maailman menoa
      86
      1584
    7. Kakista se ulos nainen vihdoin viimein

      Että haluat, kummatkin halutaan. Otan sinut kuumaan syleilyyn sitten.
      Ikävä
      75
      1561
    8. Ujostuttaa eräs aikuinen mies...

      Mitä se tämmönen on... tuo mies aiheuttaa minulle ylimääräsiä tykytyksiä... Rohkeampana pyytäsin häntä ulos mut jospa hän... Miten mun vaistot ilmoit
      Ikävä
      59
      1488
    9. Jos me käytäs nainen

      Ulkona niin mitkä olisi ne kolme asiaa joita tahtoisit kysyä tai kertoa minulle?
      Ikävä
      72
      1238
    Aihe