Spielerwechsel

[Fedebolix]

wenn nach einer bestimmten Bedingung oder durch buttonclick das editfeld gewechselt werden soll, indem das programm weiterrechnen soll...
also es geht dabei (immernoch) um das Würfelspiel. Und wenn ich "spieler wechseln" KLicke, sollen die gewürfelten zahlen in einem anderen feld, nenn es mal spieler2, zusammengezählt werden...
wie mach ich das?

[Michael Leyhe]

HI

Eine Möglichkeit wie du dieses Problem lösen kannst ist folgende:

Du nimmst eine Integervariable und gibst dieser immer den Wert des Spielers

Delphi-Quellcode:

var welcher_spieler :integer

welcher_spieler := 1; // Spieler 1 ist nun an der Reihe

Wenn jetzt spieler 2 an der reihe ist gibst du der Variable den wert 2.

Wenn du nun auf den Button klickst kannst du z.b. durch eine if-Abfrage den Spieler wählen der an der Reihe ist

Delphi-Quellcode:

if welcher_spieler = 1 then edit1.text := strtoint (zahl)
  else
  if welcher_spieler = 2 then edit2.text := strtoint (zahl)
...

Dies ist eine Möglichkeit dieses Problem zu lösen.

[lkz633]

Hi,

eine noch schönere Methode fürs Wechseln des Spielers ist:

Delphi-Quellcode:

spieler := 3 - spieler

Gruss lkz633

[Fedebolix]

könnt ihr mir das genauer erklären? :oops:

[Fedebolix]

Zitat:

Wenn jetzt spieler 2 an der reihe ist gibst du der Variable den wert 2.

Wenn du nun auf den Button klickst kannst du z.b. durch eine if-Abfrage den Spieler wählen der an der Reihe ist

eigentlich brauch ich nur das wissen, den rest hab ich jetzt...

[Fedebolix]

bitte, ich weiß nicht wie... ist dringend :!:

[delphi_newbie_123]

hi also spielerwechsel


am anfang bei

Delphi-Quellcode:

var
x:integer;

on button klick

Delphi-Quellcode:

x:=x+1
if x=3 //bei 3 spielern 3
then begin
x:=0;
end;

if x=1
then
edit //... dein text halt zur berechnung
end;
if x=2
then
edit //... dein text halt zur berechnung
end;
if x=3
then
edit //... dein text halt zur berechnung
end;

sollte klappen ;)

[delphi_newbie_123]

oder x:=1 statt x:=0 ;)

[Fedebolix]

erstmal danke... probiers mal aus, aber gibt es nicht ne möglichkeit mit dem Button "spieler wechseln" das zu machen? oder muss ich dann einfach nicht mehr die rechnung hinter schreiben sonder das ergebnis? Ja, waghrscheinlcih:)

[Fedebolix]

ich bekommes nicht in :(
wenn ich die

Delphi-Quellcode:

end;

nicht setzte dann klappt es nicht, aber dafür sind keine fehlermeldungen!

[delphi_newbie_123]

danns etzt doch end kan sein dass ich eins vergessen hab hab den code net probiert aber auf jedenfall gehts so ;)

[H4ndy]

Entweder:

Delphi-Quellcode:

if bla = bla then
  befehl; // <--- Semikolon nicht vergessen!

...

if if bla = bla then
  befehl // hier KEIN Semikolon und nur einen befehl rein ansonsten die begin-variante benutzen!
else
  befehl; // hier es nicht vergessen

oder

Delphi-Quellcode:

if bla = bla then BEGIN
  befehl1; // immer ein Semikolon setzen
  befehl2;
  befehl3;
end;

...

if bla = bla then BEGIN
  befehl1; // immer ein Semikolon setzen
  befehl2;
  befehl3;
end else begin
  befehl1; // immer ein Semikolon setzen
  befehl2;
  befehl3;
end;

...

if bla = bla then BEGIN
  befehl1; // immer ein Semikolon setzen
  befehl2;
  befehl3;
end else
  befehl // hier KEIN Semikolon und nur einen befehl rein ansonsten die begin-variante benutzen!

Ich hoffe das gibt dir einen Einblick in die if-Variationen :)

Edit: Muss dann so aussehen:

Delphi-Quellcode:

if x=1 then 
edit; //... dein text halt zur berechnung

oder

Delphi-Quellcode:

if x=1 then begin
edit; //... dein text halt zur berechnung (auch Mehrzeilig!)
end;

[Fedebolix]

ja, recht schönen dank...

habs aber jetzt dich noch hinbekommen, auf Michael Leyhes art und weise..
also danke schön, ich dank, damit wär meine frage beantwortet :) :dancer2: