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
451
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
Kumpi vetoaa enemmän sinuun
Kaivatun ulkonäkö vai persoonallisuus? Ulkonäössä kasvot vai vartalo? Mikä luonteessa viehättää eniten? Mikä ulkonäössä?881737- 851242
- 1101123
- 71937
- 102884
Okei nyt mä ymmärrän
Olet siis noin rakastunut, se selittää. Onneksesi tunne on molemminpuolinen 😘56828- 36732
- 47731
Olen huolissani
Että joku päivä ihastut/rakastut siskooni. Ja itseasiassa haluaisin, ettei hän olisi mitenkään sinun tyyppiäsi ja pitäis47671- 33663