Keskustelu: Ohjelmointikysymykset: QB, VB6: randoize?

Eli, miten QB ohjelman saisi arpomaan kaksia lukua väliltä 1 - 22?
Onnistuuko se jotenkin Randomizella tai jollakin semmosella komennolla?

RANDOMIZE TIMER
PRINT RND * 21 +1

Tämä oli ihan heitto, en ole pitkään aikaan QBasicilla koodaillut.

Vb:n "perinteinen" randomi on

Int(Rnd * n)

n = suurin arvottava luku

Tosin tästä ei ole sinulle varmaan mitään hyötyä... :$

Näin voit arpoa luvun väliltä 1 - 22:

RANDOMIZE TIMER
luku% = INT(RND * 22) + 1

Ja muistathan sitten, että tuota Randomize Timeria kutsutaan vain kerran koko ohjelman suorituksen aikana. Eli ei

FOR i = 0 TO 255
  RANDOMIZE TIMER
  luku% = INT(RND * 22) + 1
NEXT i

vaan

RANDOMIZE TIMER
FOR i = 0 TO 255
  luku% = INT(RND * 22) + 1
NEXT i

kiitti.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.