Lotto ohjelman silmukka

Voit pyytää apua ohjelmointiongelmiin täältä.
Post Reply
Purity
Newcomer
Posts: 4
Joined: Tue Mar 24, 2009 8:51 pm

Lotto ohjelman silmukka

Post by Purity » Tue Mar 24, 2009 8:57 pm

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?

mza
Newcomer
Posts: 20
Joined: Mon Aug 27, 2007 11:34 pm

Re: Lotto ohjelman silmukka

Post by mza » Tue Mar 24, 2009 9:10 pm

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()

Awaclus
Forum Veteran
Posts: 2939
Joined: Tue Aug 28, 2007 2:50 pm

Re: Lotto ohjelman silmukka

Post by Awaclus » Tue Mar 24, 2009 9:13 pm

Randomize Timer() kun kirjoitat ohjelman alkuun, tulee joka kerta eri random seed.

User avatar
otto90x
Advanced Member
Posts: 349
Joined: Mon Aug 27, 2007 9:00 pm
Location: Lapinjärvi, Finland
Contact:

Re: Lotto ohjelman silmukka

Post by otto90x » Wed Mar 25, 2009 12:20 pm

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.
Otto Martikainen a.k.a. MetalRain, otto90x, kAATOSade.
Runoblogi, vuodatusta ja sekoiluja.

User avatar
koodaaja
Moderator
Moderator
Posts: 1583
Joined: Mon Aug 27, 2007 11:24 pm
Location: Otaniemi - Mikkeli -pendelöinti

Re: Lotto ohjelman silmukka

Post by koodaaja » Wed Mar 25, 2009 5:56 pm

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.

Post Reply