Page 1 of 1
Lotto ohjelman silmukka
Posted: Tue Mar 24, 2009 7:57 pm
by Purity
Code: Select all
Const numeromäärä=6
Dim numeroarvo(numeromäärä,6)
Repeat
If KeyHit (28) Then
ClearText
For a = 0 To numeromäärä
numeroarvo(a,0)= Rand(1,49)
AddText "Lotto: " + numeroarvo(a,0)
Next a
EndIf
DrawScreen
Until EscapeKey()
Miten saan koodin generoimaan luvut niin, ettei lotto luvuissa tulisi samoja arvoja?
Re: Lotto ohjelman silmukka
Posted: Tue Mar 24, 2009 8:10 pm
by mza
Tossa se tarkistaa kaikki edelliset numerot. Ja jos löytyy sama numero, se arpoo uudestaan.
Code: Select all
Const numeromäärä=6
Dim numeroarvo(numeromäärä,6)
Repeat
If KeyHit (28) Then
ClearText
For a = 0 To numeromäärä
Repeat
loytyiSamoja=0
numeroarvo(a,0)= Rand(1,49)
For b=0 To a-1
If numeroarvo(a,0)=numeroarvo(b,0) And a<>b Then loytyiSamoja=1
Next b
Until loytyiSamoja=0
AddText "Lotto: " + numeroarvo(a,0)
Next a
EndIf
DrawScreen
Until EscapeKey()
Re: Lotto ohjelman silmukka
Posted: Tue Mar 24, 2009 8:13 pm
by Awaclus
Randomize Timer() kun kirjoitat ohjelman alkuun, tulee joka kerta eri random seed.
Re: Lotto ohjelman silmukka
Posted: Wed Mar 25, 2009 11:20 am
by otto90x
Chaosworm wrote:Randomize Timer() kun kirjoitat ohjelman alkuun, tulee joka kerta eri random seed.
No siemenluku on kyllä eri, mutta tulos voi silti olla sama. Eihän lotossa voi saada samaa numeroa kahdesti.
Re: Lotto ohjelman silmukka
Posted: Wed Mar 25, 2009 4:56 pm
by koodaaja
Chaosworm wrote:Randomize Timer() kun kirjoitat ohjelman alkuun, tulee joka kerta eri random seed.
Tämä ei ole pakollista, Beta#10:ssä se tehdään automaagisesti.