6 aus 45

[ScrollbarKopf]

Servus leute hab ein proplem hab ein programm das aus 45 zahlen 6 zufällige wählt aber es dürfen net die gleichen kommen kann mir jemande helfen hier mein code.
end;

Delphi-Quellcode:

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,e,f : integer;
begin
randomize;
a:=random(46);
b:=random(46);
c:=random(46);
d:=random(46);
e:=random(46);
f:=random(46);
edit1.text := inttostr(a);
edit2.text := inttostr(b);
edit3.text := inttostr(c);
edit4.text := inttostr(d);
edit5.text := inttostr(e);
edit6.text := inttostr(f);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

end.

[edit=sakura] Titel geändert und [delphi]-Tags Mfg, sakura[/edit]

[Bernhard Geyer]

Jemand der schon 32 Posts hat sollte doch schon wissen wie man Quellcode formatiert und das ein Titel "Brauche Hilfe" absolut unbrauchbar ist. Ich gehe davon aus das fast jeder der einen Post eröffnet Hilfe benötigt. :warn:

Korrigier erst mal diese Fehler.

[Schaedel]

Und was funktioniert daran nicht?

[ScrollbarKopf]

Sorry hab die formaliteten vergessen

Es kommen gleiche zashlen bei einer ziehung sollen aber nur einmal kommen in einer ziehung :wall: :wall: :wall: :wall: :wall: :wall: :wall:

[Schaedel]

Also wenn ich den Quelltext von oben kopiere und einfüge kommen bei mir 6 verschiedene Zahlen.

[mkinzler]

Du könntest trotzdem den titel ändern und den Quellcode in Delphi-Tags setzen.

[ScrollbarKopf]

:dance: :coder2: habs jetzt bast da schau und staune
unit Unit8;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,e,f : integer;
begin
randomize;
repeat
a:=random(46);
b:=random(46);
c:=random(46);
d:=random(46);
e:=random(46);
f:=random(46);


until (a<>b) and (a<>c)and (a<>d) and (a<>e) and (a<>f) and
(b<>a) and (b<>c) and (b<>d) and (b<>e) and (b<>f) and
(c<>a) and (c<>b) and (c<>d) and (c<>e) and (c<>f) and
(d<>a) and (d<>b) and (d<>c) and (d<>e) and (d<>f) and
(e<>a) and (e<>b) and (e<>c) and (e<>d) and (e<>f) and
(f<>a) and (f<>b) and (f<>c) and (f<>d) and (f<>e);

edit1.text := inttostr(a+1);
edit2.text := inttostr(b+1);
edit3.text := inttostr(c+1);
edit4.text := inttostr(d+1);
edit5.text := inttostr(e+1);
edit6.text := inttostr(f+1);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

end.
:bouncing4: :cheers: :cheers: :cheers: :firejump: :firejump: :firejump: :firejump:

[Bernhard Geyer]

Und was ist jetzt mit den Delphi-Tags um den Quellcode :gruebel:

Du machst dich damit unbeliebt :warn:

[Lun]

Hi,

Zitat Schaedel

Zitat:

Also wenn ich den Quelltext von oben kopiere und einfüge kommen bei mir 6 verschiedene Zahlen.

Es würde aber die Möglichkeit bestehen, das 2x die gleiche Zahl gezogen würde. Also Scroll speicher die 6 Lottozahlen
irgendwo zwischen und teste jede Variable ob diese schon mal vorgekommen ist. Wenn ja, dann führe random eben nochmal aus.

Und vergesse nicht die 0 die existiert nicht auf nem Lottoschein, die musste auch ausklammern.

greetz Lun

[ScrollbarKopf]

m kinzler

ihr könnt diesen tead jetzt schließen bin fertig