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
3
483
Vastaukset
- dlp
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- ripsikampa
.. 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...?
- TSwiGH
ripsikampa kirjoitti:
.. 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
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Tukalaa kuumuutta
Tietäisitpä vaan kuinka kuumana olen käynyt viime päivät. Eikä johdu helteestä, vaan sinusta. Mitäköhän taikoja olet teh433007Ensi kesänä
Näin kesän viimeisenä minuutteina ajattelen sinua. Olisiko seuraava kesä "meidän" kesä? Tänä vuonna ei onnistuttu, mutta612961- 422367
- 311863
Okei, myönnetään,
Oisit sä saanut ottaa ne housutkin pois, mutta ehkä joskus jossain toisaalla. 😘251719Anne Kukkohovin karmeat velat ovat Suomessa.
Lähtikö se siksi pois Suomesta ? Et on noin kar? mean suuret velat naisella olemassa721674- 481586
Mihin hävisi
Mihin hävisi asiallinen keskustelu tositapahtumista, vai pitikö jonkin Hannulle kateellisen näyttää typeryytensä771275- 371247
- 791070