Lottozahlengenerator

[Boubekeur Boumediene]

Hallo liebe Delphi-Programmierer

Habe einen kleinen Lottozahlengenerator "6 aus 49" pogrammiert.
Hier werden durch einen KLick auf dem "Zahlen ziehen" Button 6 Zahlen gezogen,
die dann in der Listbox eingetragen werden.
Allerdings wird keine Zahl doppelt vorkommen.

Viel Spaß beim Ausprobieren :wink:

Coded by Boubekeur Boumediene

[alzaimar]

Wieso verschlüsselst Du die ZIP-Datei? :gruebel:

[Boubekeur Boumediene]

Sry hab das total vergessen :wall: :wall: :wall:
So Sie müsste jetzt unverschlüsselt sein :mrgreen:

[DP-Maintenance]

Dieses Thema wurde von "alzaimar" von "Programmieren allgemein" nach "Freeware" verschoben.
Das ist ein fertiges Programm

[lbccaleb]

Bei allen Versuchen die ich gemacht habe (dürften so an die 100 gewesen sein) hab ich außer in der letzten Zeile keine Zahlen gahabt die kleiner als 10 waren, und in den ersten Reihen kommt man gerade mal auf den 20iger Bereich...
Ich glaube du musst noch Randomize; mit einbauen.. Hab mir dein Code aber noch nicht angesehen (kein Delphi hier)..

Edit:
Auch das ist Open-Source

[Noedel]

doch im code steht ein Randomize. Zwar im Button.Click Event, aber es steht drin.
@TE: Schreibe doch das "randomize" lieber in die

Delphi-Quellcode:

initialization

oder in das Form.Create

Zum eigentlichen Projekt:
Ich kann dazu nur sagen, dass solche Programme wohl von jedem mal geschrieben wurden. Es muss also nicht sein, dass du soetwas "simples" hier postest, denn es hat wohl kaum einen Sinn: Anfänger müssten/müssen so etwas selber schaffen und Fortgeschrittene im Programmieren schmunzeln darüber. Also eigetlich nur Platzverschwendung.

[Dipl Phys Ernst Winter]

"Noedel" hat geschrieben:

Zitat:

Ich kann dazu nur sagen, dass solche Programme wohl von jedem mal geschrieben wurden. Es muss also nicht sein, dass du soetwas "simples" hier postest, denn es hat wohl kaum einen Sinn: Anfänger müssten/müssen so etwas selber schaffen und Fortgeschrittene im Programmieren schmunzeln darüber. Also eigetlich nur Platzverschwendung.

Das "Simple" hört sofort auf, wenn man nachweisen will, das die gezogenen Zahlen wirklich zufällig sind!

[Dipl Phys Ernst Winter]

"lbccaleb" hat die Statistk getestet

Zitat:

Bei allen Versuchen die ich gemacht habe (dürften so an die 100 gewesen sein) hab ich außer in der letzten Zeile keine Zahlen gahabt die kleiner als 10 waren, und in den ersten Reihen kommt man gerade mal auf den 20iger Bereich...
Ich glaube du musst noch Randomize; mit einbauen.

.
Randomize wird die fasche Statistk nicht korregieren, es muss ein Fehler in Algorithmus vorliegen, so "simpel" scheints nicht zu sein.

[Cyf]

Zitat:

Zitat von Dipl Phys Ernst Winter

"Noedel" hat geschrieben:

Zitat:

Ich kann dazu nur sagen, dass solche Programme wohl von jedem mal geschrieben wurden. Es muss also nicht sein, dass du soetwas "simples" hier postest, denn es hat wohl kaum einen Sinn: Anfänger müssten/müssen so etwas selber schaffen und Fortgeschrittene im Programmieren schmunzeln darüber. Also eigetlich nur Platzverschwendung.

Das "Simple" hört sofort auf, wenn man nachweisen will, das die gezogenen Zahlen wirklich zufällig sind!

[OT]Was schwer werden könnte, da Delphi Pseudozufallszahlen, für so etwas nicht ausgelegt sind und wenn ich mich recht erinnere ab ca. einer Folge von 8 Zahlen vorraussagbar...
Außer dass das weder vom TE noch sonst jemanden gefordert wurde und hier daher irrelevant ist.

[Meflin]

Zitat:

Zitat von Cyf

und wenn ich mich recht erinnere ab ca. einer Folge von 8 Zahlen vorraussagbar...

Wo haste denn das her :gruebel: Wieso sollten die einen derart schrottigen PRNG implementieren?