Zufallsprinzip bei einem kleinen Spiel

[xXcomputerrookieXx]

Hallo,

ich bräuchte mal eine kleine Hilfe und zwar:

Wie kann ich bei einem ''Schere-Stein-Papier''-Spiel den Gegner zufällig eines dieser drei auswählen lassen?Ich habe auf dem Formular einfach 3 Button zum auswählen von Schere,Stein und Papier und ein Label das ausgibt,was der Gegner genommen hat.Wie kann ich das machen?

MfG

[DeddyH]

Schau Dir mal Randomize und Random an.

[Elko]

Also, als erstes benutzt du randomize(); um den Zufallsgenerator zu initialisieren. Dann würde ich Random(3); nutzen um eine Zufallszahl zwischen 0 und 2 zu erzeugen. Dann per case-Abfrage mit der Zufallszahl den Inhalt des Labels ändern. Hier der Code (habb ich zwar nicht ausprobiert, aber müsste aber eigentlich funktionieren):

Code:

randomize();
case random(3) of
  0: Label1.caption := 'Schere';
  1: Label1.caption := 'Stein';
  2: Label1.caption := 'Papier';
end;

Gruß, Elko

[DeddyH]

Fast richtig . Randomize sollte einmalig aufgerufen werden. Also könnte das Ganze dann so aussehen:

Delphi-Quellcode:

procedure TDeinForm.FormCreate(Sender: TObject);
begin
  Randomize;
end;

procedure TDeinForm.btnErmittelnClick(Sender: TObject);
begin
  case Random(3) of
    0: lblZug.Caption := 'Schere';
    1: lblZug.Caption := 'Stein';
    2: lblZug.Caption := 'Papier';
  end;
end;

P.S.: Willkommen in der DP, Elko

[k4ni]

edit: bitte löschen, hat sich erleditgt

[Elko]

Zitat von DeddyH:

Randomize sollte einmalig aufgerufen werden.

Stimmt schon, dass man Randomize() nur einmal am Anfang nutzt, aber was für einen Unterschied würde es eigentlich machen, es öfters aufzurufen (würde er dann nicht jedes mal einfach neu initialisiert werden, also noch "zufälligere" Zufallszahlen?)?

Gruß, Elko

[OregonGhost]

Zitat:

aber was für einen Unterschied würde es eigentlich machen, es öfters aufzurufen (würde er dann nicht jedes mal einfach neu initialisiert werden, also noch "zufälligere" Zufallszahlen?)?

Da Randomize die Zeit für die Initialisierung des Pseudozufallszahlengenerators verwendet, wird man im schlimmsten Fall mehrmals hintereinander exakt dasselbe Ergebnis bekommen (nämlich solange, wie GetTickCount dasselbe Ergebnis zurückliefert). "Zufälliger" werden die Zahlen damit so oder so nicht.

[peschai]

In Ergänzung
Mit dem selben Startwert der Variablen "RandSeed" (Welche durch Randomize einen anderen "zufälligen" zugewiesen bekommt) wird mit jedem Aufruf von Random dieselbe Reihe "zufälliger" Zahlen erzeugt.
Das lässt sich z.b. auch bei Hobby-Verschluesselungsroutinen verwenden ...

[Elko]

Gut, wieder was dazu gelernt
Gruß, Elko

[Medium]

Zitat von peschai:

Das lässt sich z.b. auch bei Hobby-Verschluesselungsroutinen verwenden ...

Wenn man es ertragen kann, sich dafür ein paar (verbale) Ohrfeigen einzuhandeln, wenn man fremde "black boxed" RNGs benutzt, die nicht gewährleisten in jeder Version für jeden Seed die selben Werte zu erzeugen. Wie z.B. der Delphi RNG, der sich zwar bis Dato nicht im Verhalten geändert hat, aber von den Entwicklern ausdrücklich nicht ausgeschlossen wird, dass das mal der Fall sein könnte.
Bei Anwendungen die also potentiell mal irgendwann mit einem neueren Compiler übersetzt werden könnten (was im Grunde mindestens jede ist, die man irgendwo mal als Source ins Netz stellt), sollte man da tunlichst von abraten. Dann lieber einen eigenen RNG bauen, der dann sicher immer im gleichen Kontext gleich bleibt.