Eli miten saa arvottua 8 lukua yhteen labeliin? Saan vaan yhden luvun arvottua randomize -komennolla. Vai pystyykö sitä edes arpoon montaa lukua yhteen ja samaan labeliin?
8 luvun arpominen labeliin
ripsikampa
3534
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 3
Vanhimmat
Private Sub Command1_Click()
txt = ""
For t = 1 To 8
txt = txt Str(Rnd(10)) Chr(13) Chr(10)
Next
Label1.Caption = txt
End Sub
.. En saanu sitä kyllä toimiin tolla koodilla. EN tiedän onko vika minussa vai koodissa. ELi onkos muuta tapaa millä sen voi saada arpomaan ne 8 eri lukua samaan labeliin...?
sulla on siinä dlg:ssä Command1 niminen nappi???
ja Label1 niminen tekstilaatikkovaimikäsenytsittenon
Lainaten edellistä...
miks ei muka toimi???
mitä valittaa virheiksi???
Private Sub Command1_Click()
txt = ""
randomize 'lisäsin tuon
For t = 1 To 8
txt = txt Str(Rnd(10)) Chr(13) Chr(10)
Next
Label1.Caption = txt
End Sub