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
364
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
Vuonna 2026 jää entistä vähemmän rahaa käteen palkansaajille
Työttömyysvakuutusmaksu nousee 0,3 prosenttia. Työeläkemaksu nousee 7,15 prosentista 7,3 prosenttiin. Työmarkkinajärjest1217246Suomen kansa puhunut: Purra huonoimpia ministereitä
Kouluarvosanalla 6–, eli samaa tasoa mitä Purran oikeakin koulutodistus. Epäpätevyys on tullut huomattua Suomen talouden4965388Mitä aiot tehdä uudenvuoden aattona
Mitä olet suunnitellut tekeväsi uudenvuoden aattona ja aiotko ensi vuonna tehdä jotain muutoksia tai uudenvuoden lupauks1503323Joulun ruokajonoissa entistä enemmän avuntarvitsijoita - Mitä ajatuksia tämä herättää?
Räppärit Mikael Gabriel, VilleGalle ja Jare Brand jakoivat ruokaa ja pehmeitäkin paketteja vähävaraisille jouluaattoa ed2162641Marin sitä, Marin tätä, yhyy yhyy, persut jaksaa vollottaa
On nuo persut kyllä surkeaa porukkaa. Edelleen itkevät jonkun Marinin perään, vaikka itse ovat tuhonneet Suomen kansan t432338Pituuden mittaaminen
Ihmisen pituuden mittaaminen ja puolikkaat senttimetrit. Kuuluuko ne puolikkaatkin sentit tai millit teistä ilmoittaa m431282Varsinainen vetonaula tämä Pyhäjärven keskustelupalsta
Lisää kummasti muuttohaluja, kun lukee tätä foorumia. Tosin väärään suuntaan. Marraskuuhun mennessä tämä vähäinenkin vä681278En tiedä enää
Pitäiskö mun koittaa vältellä sua vai mitä? Oon välillä ollut hieman mustasukkainen, myönnän. En ymmärrä miksi en saa su771252Muistattekos kuinka persujen Salainen Akentti kävi Putinin leirillä
Hakemassa jamesbondimaista vakoiluoppia paikan päällä Venäjällä? Siitä ei edes Suomea suojeleva viranomainen saanut puhu111169- 1111143