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