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

[ScrollbarKopf]

weiß nicht was ich falsch gemacht habe mit den formulariteten bin in 10 minuten zurück schriebe was ich falsch gemacht ahbe bitte danke berhnahar greyer

[mkinzler]

'Brauche Hilfe' (in verschiedenene varianten) scheint dein Standard-Threadtitel zu sein.

[Lun]

Hi Scroll,

Zitat:

Zitat:

weiß nicht was ich falsch gemacht habe mit den formulariteten

und hier noch mal für dich der Verhaltenskodex

die Dinge die Dich betreffen und was mit Formalitäten gemeint war:

2.3.2.2 - Bitte nutze eine klare Ausdrucksweise und ganze Sätze

Bitte formuliere Deine Beiträge klar und verständlich in ganzen Sätzen. Ob Du nun eine Frage stellst oder eine Antwort geben möchtest, kannst Du durch die Wahl einer klaren Formulierung aktiv dazu beitragen, dass keine unnötigen Rückfragen entstehen, wie Dein Beitrag eigentlich gemeint war.

Dies gilt insbesondere auch für die Titel Deiner Beiträge. Aus Titeln wie "Hilfe" oder "Ich kapier's nicht" kann niemand herauslesen, worum es bei Deinem Anliegen geht. Aber genau das ist unbedingt notwendig.

3.1 - Quellcode im Beitrag? So geht's

Möchtest Du in einem Beitrag Quellcode hinterlegen, so nutze bitte unseren automatischen Highlighter, indem Du Deinen Code mit den Tags

Delphi-Quellcode:

 ...

umschließt. Gleiches gilt für SQL-Satements, welche Du mit den Tags

SQL-Code:

 ...

umschließen solltest.
Manchmal ist es einfach nötig, auch längere Code-Beispiele zu veröffentlichen. In so einem Fall hänge diese bitte als Attachment an Deinen Beitrag an, anstatt diese im Beitrag selbst zu veröffentlichen. Dein Beitrag würde sonst eindeutig zu lang und zu unübersichtlich.

greetz Lun

[ScrollbarKopf]

Ok danke wärde mich daran halten

[Nuclear-Ping]

Nö, machst du nur halb ... :mrgreen: ... -> http://www.delphipraxis.net/internal...=820900#820900 (10:21 Uhr <> 10:45 Uhr) (jaja ich weiß, ich hab heute wieder den Erbsenzähler zu besuch ^^)

Quellcode -> [.delphi]begin ... end;[./delphi] (ohne die Punkte) ... ->

Delphi-Quellcode:

begin ... end;

... Alles chlor? ;)

[vlees91]

Delphi-Quellcode:

function zufallsZahlen():Array[0..5] of Integer;
var
  numbers: array[0..5] of integer;
  tempNumber, lastNumber: Integer;
begin
  for lastNumber := 0 to 5 do
  begin
    numbers[lastNumber] := 0;
  end;

  lastNumber := -1;

  while numbers[5] = 0 do
  begin
    tempNumber := random(45) + 1;
    if tempNumber not in numbers then
    begin
      numbers[lastNumber + 1] := tempNumber;
      inc(lastNumber);
    end;
  end;
  result := numbers;
end;

Sowas?

[Jelly]

Zitat:

Zitat von ScrollbarKopf

weiß nicht was ich falsch gemacht habe mit den formulariteten bin in 10 minuten zurück schriebe was ich falsch gemacht ahbe bitte danke berhnahar greyer

und

Zitat:

Zitat von ScrollbarKopf

:bouncing4: :cheers: :cheers: :cheers: :firejump: :firejump: :firejump: :firejump:

und die permanent fehlenden DELPHI Tags lassen meinen Puls zu hoch schnellen, zumal du jetzt schon alleine in diesem Thread mehrfach darauf hingewiesen worden bist.

Also gib dir bischen Mühe, denn wir haben hier keine Lust, dich fortwährend auf die Forenregeln hinzuweisen, und du ignorierst sie einfach. Ich würde meinen, beim nächsten Mal ignorieren wir deine salop formulierten Fragen und lassen den Thread in der Versinkung verschwinden.

Also nochmal klar und deutlich zum Mitschreiben:

• Schreib in klaren Sätzen. Es gibt Satzzeichen im Deutschen, und sowas wie GROSS- und klein-Schreibung solltest Du auch beherzigen. Wir sind hier nicht im Chat, und alle wollen sowohl die Frage als auch die Antworten klar verstehen können.
• Setze die DELPHI Tags. Und wenn Dich jemand bittet, dies nachträglich zu machen (man kanns immer mal vergessen), dann editiere deinen Beitrag nachträglich. Dafür ist die Funktion da.

Nimm die Worte bitte ernst, ok? Denn nochmals werde ich dich nicht darauf hinweisen.

[Muetze1]

Andere Frage: Soll es wirklich ein 6-aus-45 werden? Das normale Lotto sind 6-aus-49. Nur mal so eine Frage...

[Florian H]

Zitat:

Zitat von Muetze1

Andere Frage: Soll es wirklich ein 6-aus-45 werden? Das normale Lotto sind 6-aus-49. Nur mal so eine Frage...

Großer Trick! Die Schulaufgabe lautet 6 aus 45, damit man nicht einfach einen Quellcode aus dem Netz kopieren kann, ohne ihn wenigstens einmal anzusehen :)

[idontwantaname]

Zitat:

Zitat von Muetze1

Andere Frage: Soll es wirklich ein 6-aus-45 werden? Das normale Lotto sind 6-aus-49. Nur mal so eine Frage...

Also in Österreich ist es 6 aus 45 ;)

[vlees91]

http://de.wikipedia.org/wiki/Lotto#A...-Kombinationen

6 aus 90 ist doch mal fair. Ich glaub ich mach mein eigenes Lotto auf xD