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
......
edelleen satunnaisluvuista
Rnd
2
354
Vastaukset
- 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
IL - PerSut tykittää - Vaaralliset tappajat vankilaan jopa loppuelämäksi!!
Entistä rajumpi elinkautinen tulee – Vaaralliset tappajat vankilaan jopa loppuelämäksi Henkirikosten uusijat voidaan ja16922185Some kuhisee Sanna Marinista: "Wau"
Sanna Marinia hehkutetaan. Muun muassa Jodelissa kommentoidaan The Sunday Timesin julkaisemaa kuvaa Marinista. Hän ant669317Sannalla tänään vuorossa The Daily Show
Eli nyt mennään jo satiirin puolelle. Tuohan on vähän kuten Lindströmin ohjelma Suomessa.217059Äärioikeistopurran nukke Petteri Lapanen paniikissa
Kun Suomen historian paras pääministeri antoi vankan lausunnon, kuinka "keskustelu politiikassa on käpertynyt lähinnä va656232SIELTÄ SE TULI: Kepu-Kurvinen: "Emme enää lähde punavihreään hallitukseen"
Nyt muuten nauretaan loppuviikko, että tähänkö kaatui Lindtmanin pääministerihaaveet. "Antti Kurvisen mukaan puolue ei1795846Onko rajojen kiinnipitäminen ihmisoikeuksien vastaista?
Maahanmuutosta puhutaan usein niin kuin kyse olisi vain numeroista ja rajoista. Kyse on kumminkin ihmisistä, jotka halua3215350Täysi ryöpytys Sanna Marinille ulkomailla.
https://www.iltalehti.fi/ulkomaat/a/f699d84f-fa53-4dba-8718-2c395017fc55 Sanna Marinin kirja saa todella tylyn vastaanot294871HS - Sanna Marinin kirja on priimaluokan vedätys!
Kirja-arvio|Toivo on tekoja tulisi ensisijaisesti nähdä maineen rahallisen hyödyntämisen voimaannuttavana merkkipaaluna.854500Minja Koskelan "istumista" kertovassa uutisessa ei sanottu persuista mitään
eli jälleen kerran äärivasemmistolainen valehtelee, hän kun väittää että juuri persut ovat lähetelleet Koskelalle vähemm894281"Rauhanomainen" miekkari hesassa: "Eläköön aseellinen vastarinta" - lakana
Kyseessä on Suomen Palestiinalaisten yhdistyksen viime perjantaina järjestämä ”Hiljainen kynttiläkulkue Palestiinalaiste1153770