Keskustelu: Ohjelmointikysymykset: QB, VB.NET, VB6: Randomize (vb6)

Elikkäs ongelma on:
Yritän saada rnd komennolla ohjelman arpomaan luvun 1 ja 10 väliltä.Tähän mennessä olen saanut vb.netin pohjalta tällästä aikaan:

Private Sub Form_Load()

Dim luku As Integer

randomize

luku = Rnd + 1 & " "

End Sub

Varmaan huomaattekin jo että en ole onnistunut määärittelemään aluetta josta luku arvotaan...

Dim luku As Integer

Randomize

luku = Int(Rnd * 10) + 1

Tuo ainakin toimii... mielestäni :D
En tosin tiedä, että mitä pitää tehdä, että se arpoisi vain lukuja 1:n ja 10:n välillä, mutta omalla 20:n testin sarjalla ei kertaakaan tosin tullut 1:stä pienempää lukua, mutta kaipa sen voisi hoitaa jotenkin iffejä käyttämällä, että jos tulee luku, joka on alle 1 niin arvotaan luku uudelleen.

En oo vb:tä paljoa käytellyt, mutta Qbasicissa tekisin tollasen funktion, mikä arpoo luvun väliltä a - b.

FUNCTION Rand (a, b)
IF a > b THEN
        High = a + 1
        Low = b
       ELSE
        High = b + 1
        Low = a
END IF
Dif = High - Low
Rand = INT(RND * Dif) + Low
END FUNCTION

Juhaz, outoa arpoo joka kerta tuolla sinun koodillasi luvun 0/ei mitään lukua

Pitäisiköhän kirjoittaa randomize timer? :)

Juhazin koodi toimii ihan hyvin. Ja VB:ssä parametritön Randomize on sama kuin Randomize Timer.

No niin sainkin tuon juhazin koodin toimimaan.Kiitokset kaikille auttaneille.