edelleen satunnaisluvuista

Rnd

Ohjelmassa on useampi satunnaisluku, jotka lomakkeen latauksessa laskevat satunnaisluvun oikein. Siihen asti pelaa hyvin.
Mutta jos lähden muuttamaan (hakemaan ) uutta satunnaslukuarvoa, antaa se aina caption arvoksi 0:n
eli jos painan uudestaan Command1-nappulaa antaa se aina arvoksi 0
Kuinka voin sijoittaa satunnaislukutuloksen, a (= command1.captio-arvo)
laskentakaavaan tai muuttujaan siten, että Rnd funktio toimisi edelleen eli stunnaislukua voisi muutella lomakkeen ollessa auki?

Private Sub Command1_click()
a= Int(Rnd*10)
Command1.caption = a
summa1= a text1.text
'Seuraava Command1-painallus antaa arvon 0
a=0
Command1.caption=0
......

2

387

    Vastaukset 2

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • jees

      Mitä oikein ajat takaa? Sinulla on joku globaali muuttuja summa1, minkä arvoon haluat lisätä text1-komponentin arvon ja satunnais luvun? Mietipä uudelleen?

      1. a= Int(Rnd*10)
      2. Command1.caption = a
      3. summa1= a text1.text
      4. a=0
      5. Command1.caption=0


      Onko tämä mitä haluat?

      1. a= Int(Rnd*10)
      2. Command1.caption = a

      Vai

      1. a= Int(Rnd*10)
      2. Command1.caption = a
      3. summa1 = a text1.text
      4. Command1.caption = summa1

      Vai jotain muuta hämärää. Kannattaa kirjoittaa paperille jokainen muuttuja ja miettiä askel askeleelta kuinka niitä täytyy muuttaa oikeaan lopputulokseen. Kyllä se siitä...

      • rnd

        esimerkki oli huolimattomasti kirjoitettu.
        (tarkoitin jälkimmäistä jees:n vaihtoehdoista)
        Rnd toimii eka kerralla, mutta sen jälkeen se antaa aina arvoksi 0.
        ko Ohjelmassa on useampia objekteja rivissä. Objektien arvoa muutetaan painamalla ko. objektia (esim 0:sta 9:ään) ja kaikien objektien click-ohjelma on määritelty staticiksi.
        Samaan riviin on otettu myös muutamia objekteja, joiden arvo määrittyy satunnaisluvun mukaan. Koko rivin objektien arvoista suoritetaan laskutoimitus esim rivin summa.

        Eka kerralla kaikki on ihan ok. Mutta yrittäessäni uusia kertoja vaihtaa satunnaislukua clickkaamalla sitä, tulee ko objektin satunnaisluvun arvoksi aina 0 vaikka clikkaisi sitä kuinkamonta kertaa tahansa.
        ???


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Miksi et halua kaivattusi

      kanssa suhteeseen? Onko jokin syy vaikka rakastat häntä?
      Ikävä
      125
      1198
    2. 72
      1163
    3. Carunan hinnat

      Yks proffa vauuttaa, ettei Caruna voi noin vain nostaa hintoja koska suomen laki kieltää, toinen proffa sanoo että Carun
      Maailman menoa
      96
      905
    4. Koetko vielä et

      Olen elämäsi rakkaus?
      Ikävä
      78
      792
    5. Joko uskallat.

      Huomenna nähdään.
      Ikävä
      45
      771
    6. 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 la
      Hyrynsalmi
      39
      733
    7. 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 ka
      Ikävä
      34
      727
    8. Oletko tullut siihen

      Tulokseen ettet saa minua
      Ikävä
      67
      653
    9. Olen tumma ja tulinen

      Ja vielä suora - en ollut sinua varten. n to m
      Ikävä
      111
      561
    10. Mitä luulet

      Mitä luulet kaivattusi ajattelevan sonusta? Onko jotain mitä haluaisit oikaista hänelle?
      Ikävä
      39
      536
    Aihe