VB . NET apua kaivataan

aloittelija5

Yritän tehdä yksinkertaista ohjelmaa, joka kyselee kysymyksiä inputboxeilla. Miten saisin kysymykset tulemaan satunnaisessa järjestyksessä ja niin, että kirjoittaisin esimerkiksi 20 kysymystä, mutta ohjelma kysyisi niistä vain 5 satunnaisesti? olen laittanut kysymysten tarkistukset if -lausekkeilla.

4

363

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ripsu

      nuin niinku näin äkkiseltään..keinoja kyllä on niin paljon ku on naisiakin...
      laita ne kyssärit vaikks taulukoihin..
      dim taulu(19)
      dim rnd as new random
      dim jotain as boolean = false
      dim laskuri as int32 = 1

      taulu(0) = kysymys1
      ...
      do until jotain = true
      laskuri = 1
      luku = rnd.next(0,21)
      tämäonkysymys=taulu(luku)
      if laskuri = 5 then
      jotain = true
      else
      ..
      loop

      • muista

        Muista myös estää jotenkin saman kysymyksen palautuminen kahteen kertaan.


      • pohdintaa...
        muista kirjoitti:

        Muista myös estää jotenkin saman kysymyksen palautuminen kahteen kertaan.

        Ehkäpä esitettyjen kysymysten numerot voisi tallentaa toiseen tauluun, ja taulun kokoa voitaisiin pitää silmällä laskurilla...

        Taulua vain selattaisiin laskurin ilmoittamaan määrään asti... Ja aina verrattaisiin, että onko arvottu luku sama kuin taulun arvo X. Jos on, niin arvotaan uusi luku, jos ei jatketaan ohjelman ajoa.

        Vai onko tämä ihan typerä ajatus...


      • ....
        pohdintaa... kirjoitti:

        Ehkäpä esitettyjen kysymysten numerot voisi tallentaa toiseen tauluun, ja taulun kokoa voitaisiin pitää silmällä laskurilla...

        Taulua vain selattaisiin laskurin ilmoittamaan määrään asti... Ja aina verrattaisiin, että onko arvottu luku sama kuin taulun arvo X. Jos on, niin arvotaan uusi luku, jos ei jatketaan ohjelman ajoa.

        Vai onko tämä ihan typerä ajatus...

        Ohjelmointi on nimenomaisesti ongelmanratkaisemista. Väärää ratkaisua ei olekaan, mutta mieti asiaa helpoimman toteuttamistavan kannalta.

        Ehdottamallasi ajatuksella joudut rakentamaan silmukan sisään silmukan jota suoritetaan kunnes arvottu lukua ei löydy aputaulukosta. Ei ehkä kovin hankalaa.

        Entäs jos haluatkin kysyä vaikkapa 20 kysymystä kaikista 20:stä. Tällöinhän tietokone saa arpoa kysymyksiä kysymystaulukosta monta kertaa ennen kuin osuu viimeisin aputaulukkoon kirjaamattoman numeron kohdalle.

        Toinen vaihtoehtoehto voisi vaikkapa olla kysymystailun sekoittaminen. Käy for -loopilla taulukkosi läpi ja arvo jokaiselle kysymykselle minkä taulukkopaikan kanssa kysymys vaihdetaan.

        Arvonnan voit myös suorittaa kysymyksen esittämisen yhteydessä: kysymys[i][0]:n uusi paikka arvotaan aina kysymysten_maara -i vaihtoehdosta, jolloin arvonta ei koskaan osu vaihtamaan kysyttäväksi jo kysyttyä taulukkopaikkaa.


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Miksi jollain jää "talvi päälle"

      Huvittaa kastoa ullkona jotain vahempaa äijää joka pukeutuu edelleen kun olisi +5 astetta lämmittä vaikka on helle keli
      Maailman menoa
      243
      2233
    2. Mitä et hyväksy miehessä/naisessa josta olet kiinnostunut?

      Itse en halua, että miehellä olisi lapsia!
      Ikävä
      161
      1458
    3. Se katse silloin

      Oli hetki, jolloin katseemme kohtasivat. Oli talvi vielä. Kerta toisensa jälkeen palaan tuohon jaettuun katseeseen. Tunt
      Ikävä
      53
      1310
    4. Kaipaaville

      Kerro sun tunteesi ja ajatukset tähän jos et uskalla irl!
      Ikävä
      74
      1075
    5. Tiesitkö? Farmi Suomi Kirsikka Simberg on tämän julkkisnaisen tytär - Katso tyrmäävät mallikuvat!

      Oho, aikamoinen ylläri. Tiesitkö?! Kirsikka Simberg on yksi tämän kauden Farmi Suomi -kisaajista. Hänellä ei ole tuttu t
      Suomalaiset julkkikset
      3
      1029
    6. Miten haluaisit

      Että reagoisin jos näkisin sinut nyt?
      Ikävä
      78
      950
    7. Tuhdit oluet kauppoihin. Miksi vastustaa?

      8% oluet kauppoihin mutta mikä siinä on että osa politikoista vstustaa ? Kauppa kuitenkin hinnoittelee vahvan oluen ni
      Maailman menoa
      211
      933
    8. Sinua tulen kyllä ikävöimään pitkään nainen

      mutta oli pakko tehdä päätös oman mielenrauhan vuoksi. Toivottavasti saat elämältä kaiken mitä haluat.
      Ikävä
      45
      845
    9. Kohta me ei enää nähdä :(

      En pääse enää uppoutumaan silmiisi enkä kuunnella ihanaa ääntäsi. Elämä on pstä.
      Ikävä
      39
      669
    10. Kärsämäki rosvojen ja tuhopolttajien kylä?

      Poliisi ampui uhkaava miestä Kärsämäellä. Ja vasta joku poltti rivitalon. Mikä riivaa Kärsämäkisiä? Joko tuulimyllyjen
      Kärsämäki
      15
      660
    Aihe