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?
Vastaukset 3
- 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
- 1231128
- 651023
Carunan hinnat
Yks proffa vauuttaa, ettei Caruna voi noin vain nostaa hintoja koska suomen laki kieltää, toinen proffa sanoo että Carun93803- 77753
- 44699
Kunnan päätie ja sen lähialueet
Arvon hyrynsalmelaiset. Tätä palstaa on näin Ukkohallan mökkiläisena ihan viihteellistä lukea. Milloin teitä ahdistaa la37675- 67614
Mikä sun kaivatussa on se miksi ihastuit
ja ikävöit? Eli se jokin asia, mikä aiheutti tunteen, että tuossa on sitä jotain? Meinasitko tehdä asialle jotain vai ka22582Mitä luulet
Mitä luulet kaivattusi ajattelevan sonusta? Onko jotain mitä haluaisit oikaista hänelle?37498Luule ja ajattele minusta
mitä tykkäät nainen, olet ajat sitten antanut itsestäsi ihan omanlaisen kuvan.. 😅44467