XProfan

Titre de la fenêtre "Tippgenerator (eingestellt pour D: 6 aus 49)"
var anzahl&=6
var gesamt&=49
'  qui 'ca. 1000ste' Tippgenerator pour Zahlenlotto
'  2012 Freeware P.Specht
'  Nutzung sur alleinige péril des/qui Anwender!
'  aucun Gewähr! qui Rechtsweg ist ausgeschlossen!
'
'  Hinweis: Lt. Wikipedia existierten (Feb. 2012)
'  folgende länderspezifisch verschiedenen Systeme:
'  belgique 	6 aus 45 (jusqu'à septembre 2011: 6 aus 42)
'  Bulgarien 	6 aus 49, 6 aus 42, 5 aus 35
'  Dänemark 	7 aus 36, 6 aus 48
'  l'allemagne 	6 aus 49 plus 1 aus 10
'  la france 	5 aus 49 plus 1 aus 10
'  Griechenland 	6 aus 49
'  italie 	6 aus 90
'  Liechtenstein (jusqu'à 05.08.2011) [5] 	6 aus 49
'  Litauen 	6 aus 30
'  Niederlande 	6 aus 45 plus 1 aus 6
'  Österreich 	6 aus 45
'  5 aus 90 (Zahlenlotto 1–90)
'  Polen 	6 aus 49, 5 aus 42
'  Québec/Canada 	6 aus 49
'  suède 	7 aus 35
'  suisse 	6 aus 45 (Lotto)
'  6 aus 45 plus 1 aus 3 (Lotto plus)
'  espagne 	6 aus 49
'  USA 	5 aus 59 plus 1 aus 39 (Powerball)
'  5 aus 56 plus 1 aus 46 (Mega Millions)
'  UK (Vereinigtes Königreich) 	6 aus 49
RANDOMIZE' <<< SEHR WICHTIG !
Déclarer r&,n&,z%[6],erro%,i%,j%,z%,t%
Font 2
Cls rnd(8^8)

Whilenot %clé=2

    n&=0

    Repeat

        r&=rnd(Gesamt&)+1
        erro%=0

        WhileLoop n&

            si r&=z%[&Boucle]

                erro%=1
                pause

            endif

        Endwhile

        cas erro%=1:continue
        n&=n&+1
        z%[n&]=r&

    Until n&=Anzahl&

    WhileLoop Anzahl&:i%=&Boucle

        WhileLoop Anzahl&:j%=&Boucle

            si z%[j%] > z%[i%]

                z%=z%[j%]:z%[j%]=z%[i%]:z%[i%]=z%

            endif

        Endwhile

    Endwhile

    WhileLoop Anzahl&

        locate %csrlin,%pos+5
        imprimer " ";
        cas z%[&Boucle]<10:imprimer " ";
        imprimer z%[&Boucle],

    Endwhile

    Imprimer:imprimer

    si (z%[6]>Gesamt&) or (z%[1]<1):beep:imprimer:Imprimer "GRENZWERT-ERROR!": WaitInput:endif

        si %csrlin>22:WaitInput:cls rnd(8^8):endif

        Endwhile

        Fin