Keskustelu: Ohjelmointikysymykset: VB6: Random?

Miten saan silleen et esim text1.text:tiin tulee arvottu teksti?

En tunne VB:tä, mutta kaiken järjen mukaan arvot vain tekstin ja sijoitat sen sitten johonkin muuttujaan, jota sitten voit käyttää. Mutta en siis osaa VB:tä oikeastaan yhtään, joten korjatkaa, jos olen väärässä. Koska melkein luulen, että olen.

siis en osaa sitä komentoa.

Tämä arpoo yhden tekstin tietyistä vaihtoehdoista:

Randomize Timer

luku = Int(Rnd * 5) + 1

If luku = 1 Then Text1.Text = "Teksti numero 1"
If luku = 2 Then Text1.Text = "Teksti numero 2"
If luku = 3 Then Text1.Text = "Teksti numero 3"
If luku = 4 Then Text1.Text = "Teksti numero 4"
If luku = 5 Then Text1.Text = "Teksti numero 5"

Kannattaa opetella satunnaislukugeneraattorin käyttö.

Rnd-funkkarilla saadaan kokonaislukuja väliltä x-y seuraavasti:

Randomize 'Alustaa satunnaislukugeneraattorin (oi mikä sanahirviö :D)
luku = Int((yläraja - alaraja + 1) * Rnd + alaraja)

Tämä taas arpoo peräkkäin satunnaisia kirjaimia:

Randomize Timer
For a = 1 To 10
Text1.Text = Text1.Text + Chr$(97 + Int(Rnd * 26))
Next a

hmm, onko yksinikertaisemmin silleen niin et ku painan nappia se arpoo numeron?

Huomaa hunajavohveli, että vb:ssä riittää pelkkä Randomize, ei mitään timereitä :)

lainaus:

hmm, onko yksinikertaisemmin silleen niin et ku painan nappia se arpoo numeron?

Laita tuo minun ylempi koodini siihen napin painamistapahtumaan ja lisää siihen ylä- ja alarajat.

Private Sub Command1_Click()

Randomize

Text1.Text = Int(Rnd * 100) + 1 'numero 1-100

End Sub

Joo VB:ssä taitaa olla Timer vakioparametrinä Randomize komennossa.