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
446
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
Tänään pyörit ajatuksissa enemmän, kun erehdyin lukemaan palstaa
En saisi, silti toivon että sinä vielä palaat ja otetaan oikeasti selvää, hioituuko särmät ja sulaudummeko yhteen. Vuod225144- 254328
- 272461
- 342244
- 371998
- 151908
En ole koskaan kokenut
Ennen mitään tällaista rakastumista. Tiedän että kaipaan sinua varmaan loppu elämän. Toivottavasti ei tarvitsisi vain ka191587- 121521
Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...
Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons211247Kerranki asiat oikein
Ilkka ja muut pienpuolueeet...teitte hyvän työn kun valitsitte pätevän henkilön virkaan eikä kepulle passelia!! Jatkakaa101174