Lotto ohjelman silmukka

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

Lotto ohjelman silmukka

Post 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?
mza
Newcomer
Posts: 20
Joined: Mon Aug 27, 2007 11:34 pm

Re: Lotto ohjelman silmukka

Post 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()
Awaclus
Forum Veteran
Posts: 2939
Joined: Tue Aug 28, 2007 2:50 pm

Re: Lotto ohjelman silmukka

Post by Awaclus »

Randomize Timer() kun kirjoitat ohjelman alkuun, tulee joka kerta eri random seed.
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 »

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.
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 »

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