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
349
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
Riikka Purra haluaa muuttaa
maahanmuuttopolitiikkaa. Me suomalaiset halutaan, että Riikka Purra muuttaa pois suomesta eikä tuu ikinä takas....2309932Onnea Riikka! Työttömyys aste on nyt täysi kymppi!
🎯 💪 Kiitoksia Riikalle ansiokkaasta työstä Suomen kansantalouden tuhoamisessa. V.Putin suljetun rajan tuolla puolen534654Hyvällä tuurilla Suomen väkiluku nousee 7 miljoonaan
Vuoteen 2050 mennessä, mikäli onnistumme maahanmuuttopolitiikassa hyvin. Näin analysoi väestötieteen tohori Hiilamo. ht1374136Riikka jytkytti työttömyyden uuteen ennätykseen!
Erinomaista työtä jälleen kerran irvistelevältä saksiniekalta. ”Yhtä korkeaa työttömyysastetta ei löydy työvoimatutkimu1364055- 2143847
Päivän Riikka: Valmet Automotive aloittaa jättimäiset muutosneuvottelut
😭😭😭😭😭😭😭 Tämäkin vielä, Brutukseni. Että ei olisi Suomen historian pahimmat työttömyysluvut riittäneet, niin Riik463134Aamun Riikka: sakset tiputtavat 31 000 lasta köyhyysrajan alle
✂️ STM:n tuoreen arvion mukaan Riikan leikkaukset pudottavat peräti 31 000 lasta köyhyysrajan alle, kun aikaisempi THL222317Rakastan sua mutten uskalla jutella sulle
Kumpa sä näkisit tämän viestin❤️ Kaipaan sua vaikka oot välillä ihan lähellä mutten saa sanottua sulle enää mitään. Ujos1591693Nuoret pois politiikasta!
Näillä 30-kymppisillä ei ole juuri mitään elämänkokemusta. Ja tällaiset raakileet saavat huseerata ja pilata Suomen!101622Mihin rakastuin sinussa?
Rakastuin siihen, miten katsoit minua Rakastuin siihen, miten hymyilit minulle Rakastuin siihen, kuinka hyväksi sait its991620