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

429

Ää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. 24h Kirppis

      Olen muuttamassa paikkakunnalle ja mietin olisiko tälläiselle liikkeelle tarvetta alueella?
      Jämsä
      13
      3708

    2. Kerotakaa joensuun kontiolahden paiholan laitoksesta jotain

      Mun kaveri joutuu paiholan laitokseen nyt lähi aikoina niin voisko ihmiset kertoa minkälaista siellä on tarinoita jne ja
      Joensuu
      27
      2920

    3. Suomessa eletään liian pitkään

      "Ihmisten on kuoltava" Asiantuntija varoittaa: Suomi ei ole valmis siihen, että niin moni elää pitkään: ”Kaiken täytyy
      Maailman menoa
      271
      2728

    4. Deodoranttiteollisuus

      Annan ilmaisen vinkin. Kyseinen teollisuus voisi alkaa valmistaa kuolleen ruumiin hajua. Olisi varma hittituote, ainakin
      Jämsä
      5
      1915

    5. Trump syyttää Bideniä ja Obamaa lentoonnettomuudesta!

      Ukko on ihan seonnut.
      Maailman menoa
      219
      1428

    6. Näyttääkö kaivattusi

      Miten hyvältä ❤️
      Ikävä
      75
      1251

    7. Martinan mies on Suomessa.

      Siellä se on Martinan instassa ja täällä on jo ero tullut. Voi että kun huvittaa...
      Kotimaiset julkkisjuorut
      158
      1057

    8. Voitaisko olla kavereita?

      Haluaisin aloittaa puhtaalta pöydältä sinun kanssasi, tabula rasa. Minä lopetan sinun perääsi haikailun, ja sitten sinäk
      Tunteet
      2
      997

    9. Maistaisitko sinä näitä valmisruokia?

      Terhi Kinnari ja Kinnarin tila voitti Suomalainen menestysresepti -kisan. Makuja Kinnarin tilan kaurapohjaisissa aterioi
      Einekset
      31
      974

    10. Tuo yksi tampio vielä ilmeisesti kuvittelee

      Että joku itkee peräänsä täällä vinkuen jotain utopistista kadonnutta rakkauttaan kaksoisliekit silmissä leiskuen. Pyhä
      Ikävä
      95
      941
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt