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

487

    Vastaukset 4

    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 et halua kaivattusi

      kanssa suhteeseen? Onko jokin syy vaikka rakastat häntä?
      Ikävä
      111
      1030
    2. 62
      949
    3. Carunan hinnat

      Yks proffa vauuttaa, ettei Caruna voi noin vain nostaa hintoja koska suomen laki kieltää, toinen proffa sanoo että Carun
      Maailman menoa
      91
      746
    4. Koetko vielä et

      Olen elämäsi rakkaus?
      Ikävä
      77
      723
    5. Joko uskallat.

      Huomenna nähdään.
      Ikävä
      41
      665
    6. Kunnan päätie ja sen lähialueet

      Arvon hyrynsalmelaiset. Tätä palstaa on näin Ukkohallan mökkiläisena ihan viihteellistä lukea. Milloin teitä ahdistaa la
      Hyrynsalmi
      34
      627
    7. Oletko tullut siihen

      Tulokseen ettet saa minua
      Ikävä
      62
      570
    8. Mikä sun kaivatussa on se miksi ihastuit

      ja ikävöit? Eli se jokin asia, mikä aiheutti tunteen, että tuossa on sitä jotain? Meinasitko tehdä asialle jotain vai ka
      Ikävä
      22
      562
    9. Toimittajat ulkomailta saapuivat eilen vaskiviikoille

      Toimittajat lähtivät tutustumaan Lieksan yöelämään ja kultturitarjontaan. Kaikki yllättyivät kuinka aktiivista ja innoka
      Lieksa
      27
      559
    10. Mitä luulet

      Mitä luulet kaivattusi ajattelevan sonusta? Onko jotain mitä haluaisit oikaista hänelle?
      Ikävä
      37
      488
    Aihe