Keskustelu: Ohjelmointikysymykset: Sanojen hakeminen (QB)

Olen tekemässä pikkuohjelmaa, joka antaa aina käynnistyessään valinnan mukaan joko vitsin tai ajatelman. Olisiko jotain yksinkertaista konstia hakea eri lausahdus joka kerta?

Tallennat vitsit ja ajatelmat ensin taulukkoon ja sitten arvot 1-100 (jos ajatelmia ja vitsejä on 100) ja sitten, jos tulee vaikka 15, niin tulostat taulukon 15. muuttujan tekstin ruudulle :). Kestäähän tuo kauan, mutta ainakin tuo toimii ja hyvin.

Tai sitten:

Vitsi = Int(Rnd * 100) + 1           'arvotaan vitsin numero
OPEN "tiedosto.txt" FOR INPUT As #1    'avataan tiedosto

FOR a = 1 To Vitsi       'toistetaan silmukkaa niin monta kertaa, kuin kuinka mones vitsi on kyseessä

INPUT #1, a$       'ladataan aina seuraava vitsi, kunnes silmukka loppuu oikean vitsin kohdalla

NEXT a

CLOSE #1        'suljetaan tiedosto

PRINT a$      'näytetään vitsi

Tekaisin tuon ihan lonkalta kokeilematta, mutta pitäisi kyllä toimia. Vaihdat tuon "tiedosto.txt":n tietysti siksi tiedostonimeksi, mistä luet sanonnat.

Hunajavohveli: Qb... :)

Minä tekisin niinkuin näin en tiedä onko paras vaihto ehto

vitsi = int(rnd * 3)
for q = 1 to vitsi
read a$
next
print a$
data jee, jaa, juu

remontti-reiska kirjoitti:

Hunajavohveli: Qb... :)

Meninpä sitten taas sekoilemaan... :-) No nyt homma on kunnossa.
Edit: Typo

Kiitoksia taas kerran.