Brauche Hilfe bei roulettespiel, (feld-inhalt x3 + Geldfeld)

[Hansdieter]

jo klappt, danke....
jetzt will ich natürlich noch um die 40 weiteren abfragen dieser art machen, wie hänge ich die hintereinander`?

[mkinzler]

Sollen diese gleichzeitig, alternativ oder gleichzeitig gelten?

[Hansdieter]

hm es gib ja beim roulette um die 50felder, so wie ich das denke können die ruhig gleichzeitiggelten, denn ich hab für jedes feld ein eigenes geldfeld(1,2,3,4,5,6,schwarz,rot usw.), was ja wenns nicht ausgefüllt ist, nichts macht...

aber das wenn die zahl nicht getroffen wird das geld abgezogen wird muss dennoch erhalten bleiben (was nicht klappt wenn ichs einfach hintereinander kopier)

[mkinzler]

Wie würden die weiteren Abfragen aussehen?

[Hansdieter]

Delphi-Quellcode:

procedure TForm4.LOSClick(Sender: TObject);
var  y : integer;
begin
  zahl.Caption:=floatToStr(int(random*36));
  y := StrToint(zahl.Caption);
  if (y > 0) and (y < 13) then
  begin
    money.Text:=FloatToStr(StrToFloat(money.text)+((StrToFloat(first.text))*3));
    first.text:='0';
  end else
  begin
    money.Text:=FloatToStr(StrToFloat(money.text)-(StrToFloat(first.text)));
    first.text:='0';
end;
    if (y > 12) and (y < 25) then
  begin
    money.Text:=FloatToStr(StrToFloat(money.text)+((StrToFloat(second.text))*3));
    second.text:='0';
  end else
  begin
    money.Text:=FloatToStr(StrToFloat(money.text)-(StrToFloat(second.text)));
    second.text:='0';
end;
    if (y > 24) and (y < 37) then
  begin
    money.Text:=FloatToStr(StrToFloat(money.text)+((StrToFloat(third.text))*3));
    third.text:='0';
  end else
  begin
    money.Text:=FloatToStr(StrToFloat(money.text)-(StrToFloat(third.text)));
    third.text:='0';
  end;
end;

so hab ichs jetzt und das klappt auch, ich hatts nur vorhin vergurkt

[marabu]

Hallo Hansdieter,

du brauchst doch beim Roulette keine Komma-Zahlen. Außerdem schließt du die 36 aus. Zum Rechnen solltest du deine Zahlen aus Variablen holen und nicht aus Label- oder Edit-Komponenten.

 GewinnZahl := Random(37); // liefert 0..36 Und ein herzliches Willkommen in der Delphi-PRAXiS.

[mkinzler]

Du könntest die Abfrage in ein Funktion/prozedur verlagern und diese mit den Grenzen aufrufen

Delphi-Quellcode:

Procedure Form.Pruefe( y, a, b: Integer; ausgabe: TEdit);
begin
  if (y > 12) and (y < 25) then
  begin
    money.Text:=FloatToStr(StrToFloat(money.text)+((StrToFloat(ausgabe.text))*3));
    ausgabe.text:='0';
  end else
  begin
    money.Text:=FloatToStr(StrToFloat(money.text)-(StrToFloat(ausgabe.text)));
    ausgabe.text:='0';
  end; 
end;
...
Pruefe( y, 12,25, second); 

Pruefe( y, 24, 27, third);