8 luvun arpominen labeliin

ripsikampa

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?

3

521

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Lindtman I vasemmistohallitus aloittaa viimein Suomen kuntoon laittamisen

      Tässä nyt on 3 vuotta seurattu irvokasta kärsimysnäytelmää nimeltään "valtion budjetin tasapainotus by äärioikeisto", ja
      Maailman menoa
      184
      2679

    2. Missä viipyy persujen lupaama euron bensa?

      En edes muista milloin bensapumpussa olisi ollut ykkösellä alkava litrahinta. Missä siis viipyy persujen lupaama euron b
      Maailman menoa
      148
      2407

    3. Kirje, PellePelottomalle.

      Tärkeää olisi luoda ystävyys, että se, jota rakastaa, on samalla paras ystävä ja luotettavin, jolle voi ja uskaltaa luot
      Ikävä
      106
      1122

    4. Meni kyllä aika solmuun

      Meidän tutustuminen 😐
      Ikävä
      64
      921

    5. Sinua oli kiihottavaa

      Sinua nainen oli kiihottavaa katsella.
      Ikävä
      67
      894

    6. Mistä löytyy naisseuraa sinkkumiehelle?

      Kertokaapas kokeneemmat mistä löytyis naisseuraa sinkulle. Ihan ois eukko nyt tosissaan hakusessa. Tanssipaikat kun on a
      Kuhmo
      20
      800

    7. Martinan hevoset.

      Tämä todella kaunis ja ketterä harmaa hevonen jolla monet kilpailut voitetaan ei ole Martinan.Tytär ratsastaa sillä tait
      Kotimaiset julkkisjuorut
      237
      797

    8. Persut jakavat tekoälyllä tehtyjä kuvia maahanmuuttajista somessa

      Eivät mainitse, että ovat tekoälyllä tehtyjä. Eivät näe asiassa mitään ongelmaa. Valehtelijapuolue taas vauhdissa. Unka
      Maailman menoa
      283
      767

    9. Voi teitä naisia

      Suudeltiin ja nukuttiin toisissamme kiinni mutta pillua ei tullu, ei edes aamulla. t.38vmies
      Sinkut
      88
      759

    10. Hyvä meininki

      TTP:ssa väkeä tosi runsaasti paikalla. Hyvää ruokaa jälleen ja munkit ja sima erinomaista. Kiitos yrittäjälle! Hieno Vap
      Haapavesi
      22
      708
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt