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

438

    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. Tänään pyörit ajatuksissa enemmän, kun erehdyin lukemaan palstaa

      En saisi, silti toivon että sinä vielä palaat ja otetaan oikeasti selvää, hioituuko särmät ja sulaudummeko yhteen. Vuod
      Ikävä
      22
      5134
    2. Huomenta ihana

      Kauniskasvoinen ihanuus 😘 saan sut vielä
      Ikävä
      25
      4308
    3. Hei rakas...

      Miten on työpäivä sujunut? Rakastan sinua 💗
      Ikävä
      27
      2461
    4. Edelleen sitä on vaikea uskoa

      Että olisit oikeasti rakastunut muhun
      Ikävä
      34
      2234
    5. Toiveikas vai toivoton

      torstai? Ajatuksia?
      Ikävä
      37
      1998
    6. Vitsi mihin menit. Heti takasin.

      Mä näin sut tuu takasin! Oli kiire, niin en ehtiny sin perään!
      Ikävä
      15
      1908
    7. En ole koskaan kokenut

      Ennen mitään tällaista rakastumista. Tiedän että kaipaan sinua varmaan loppu elämän. Toivottavasti ei tarvitsisi vain ka
      Ikävä
      19
      1587
    8. Mukavaa päivää

      Mun rakkauden kohteelle ❤️ toivottavasti olet onnellinen
      Ikävä
      12
      1521
    9. Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...

      Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons
      Suomalaiset julkkikset
      21
      1247
    10. Kerranki asiat oikein

      Ilkka ja muut pienpuolueeet...teitte hyvän työn kun valitsitte pätevän henkilön virkaan eikä kepulle passelia!! Jatkakaa
      Haapavesi
      10
      1164
    Aihe