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

490

    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. Gallup: Kansalaiset eivät usko velkajarruun

      Puolet suomalaisista ei usko velkajarrun vaatimien sopeutusten toteutuvan, kertoo Iro Researchin kyselytutkimus. Kokoom
      Maailman menoa
      111
      1251
    2. Mä oon kallistumassa

      Rikosilmoitukseen!
      Suhteet
      223
      1001
    3. Ethän mies vielä

      luovu meistä? Haluaisin jo sun syliin.
      Ikävä
      67
      960
    4. Haaveilen edelleen

      Sinusta aika ajoin
      Ikävä
      58
      932
    5. Sinulle nainen

      En ehkä koskaan osannut sanoa tätä oikein. Minun vaikeuteni luottaa liittyi ennen kaikkea menettämisen pelkoon. Siihen
      Ikävä
      66
      896
    6. Martsusta tuli leuhka

      Ja ylimielinen. Hän ei nosta persettäkään ilmaseksi . Luulempa et nämä ei tee hyvää hyvinvointivalmennuksille.... Nannal
      Kotimaiset julkkisjuorut
      248
      831
    7. Kuisla Group Oy jättänyt yrityssaneeraushakemuksen

      Samalla yrityssaneeraukseen on hakeutunut Kuisla henkilökohtaisesti ja Seinäjoen Motelli Oy, joka omistaa Sorsanpesän ki
      Seinäjoki
      36
      768
    8. Hei rakkaani.

      Kohtaaminen lähestyy. Miten teemme sen? Kumpi ottaa yhteyttä vai törmäämmekö jossain sattumalta? Tuleva vaimosi
      Ikävä
      70
      765
    9. Ethän voinut nainen tietää, että rikot rikotun

      Omaa elämää taas mietin aamuyön tunteina. En vieläkään löytänyt muistin sokkeloista ainuttakaan onnen hetkeä. Kaipuu on
      Ikävä
      72
      742
    10. Tiedätkö sitä

      Että sinun äänesi on ihanan pehmeä
      Ikävä
      42
      726
    11. Uskallanko laittaa sulle viestiä?

      Se viesti on tossa valmiina ja lähettämistä vaille valmis. Kun ei kauhee sti tunneta niin eipä sillä olisi niin väliä. S
      Ikävä
      58
      670
    12. On paha olla

      Kun olen käyttäytynyt aiemmin kaivattua kohtaan kuin joku narsisti.
      Ikävä
      50
      620
    13. Kiulu myynnissä!

      Kiulu hakee taas uutta yrittäjää. https://www.yritysporssi.fi/etela-pohjanmaa-lansi-suomi-finland/myytavat/yritykset/ma
      Ähtäri
      26
      608
    14. Et pysty peittämään minulta

      Sinä olet hyvä peittämään asioita niin halutessasi. Pystyt pitkiäkin aikoja salaamaan juttuja. Juuri mietin tuossa, olet
      Ikävä
      47
      494
    15. Tulisiko naisille asettaa korkeammat eläkemaksut

      Tämä tuli mieleeni kun luin aamun lööppejä. Japanissa alkaa olla "uutta nuorisoa" ihan urakalla, ikä alkaa sadan jälkeen
      Sinkut
      176
      493
    16. Mikä tekee kaivatustasi

      Haluttavan?
      Ikävä
      18
      488
    17. Vieläkin saat

      Sydämen tykyttämään. Vaikka emme näe
      Ikävä
      24
      474
    18. Mitä oikein tapahtui? Maajussi-Jetta sai tylyt pakit - Sulhoehdokas selittää: "Ei lentänyt kipinät"

      Maajussille morsian -sarjassa etsitään rakkautta ja rinnalle kumppania. Yksi maajusseista on Jetta - liikunnallinen ja
      Maajussille morsian
      12
      467
    19. Huumekauppaako

      ”Huumekauppa johti rajuun väkivaltaan Kokkolassa – Kolme nuorta otettu kiinni, yksi epäillyistä alaikäinen”
      Kokkola
      9
      444
    20. En tahallaan sua välttele...

      Olis niin kiva nähdä jossain muualla kuin kaupassa!
      Ikävä
      39
      437
    Aihe