wie funktioniert Boolean

[harryi]

Hallo,

ich bin gerade dabei ein Tic Tac Toe Spiel zu programmieren, habe erst seit 5h Informatik.

Dennoch klappte alles bis jetzt.

Gewinnbedingung ohne Probleme.
Button Können nur einmal angeklickt werden.

_____

Wie schaffe ich aber Unentschieden zu definieren?

[Neutral General]

Du hast eine äußerst abstrakte if-Abfrage o.O

Die Syntax lautet:

Delphi-Quellcode:

if (Bedingung1) or/and/xor (Bedingung2) ... or/and/xor (BedingungN) then
begin
  // Block der ausgeführt werden soll
end;

PS: Man schreibt Boolean mit zwei o :stupid:

[Macci]

Hi,

ersetze

Delphi-Quellcode:

if 

1.Button1.caption='0';   // hier liegt das Problem <--- angeblich nicht bolean 
2.Button2.caption='0'; 
3.Button3.caption='0'; 

then 

Form2.Show; 
Panel2.Caption:='gewonnen';

durch:

Delphi-Quellcode:

if (Button1.caption='0') and (Button2.caption='0') and (Button3.caption='0') then begin
Form2.Show; 
Panel2.Caption:='gewonnen'
end;

Viele Grüsse,
Macci

[harryi]

dann kommt irgendwie die Gewinnerbenachrichtigung schon wenn nur

(Button1.caption='0')

vorliegt



, muss ich irgendwas mit false und true noch machen?

[Klaus01]

Hallo harryi,

wenn du diesen Code benutzt:

Delphi-Quellcode:

if (Button1.caption='0') and (Button2.caption='0') and (Button3.caption='0') then begin 
  Form2.Show; 
  Panel2.Caption:='gewonnen' 
end;

sollte das nicht passieren.

Zeige doch mal Deinen Code.

Grüße
Klaus

[IceBube]

Delphi-Quellcode:

procedure...();
var s : string;
begin
s := Button1.Caption+Button2.Caption+Button3.Caption;
//
if (s = '000') then
begin
  //Gewonnen
  Form2.Show;
  Panel2.Caption:='gewonnen' 
end else
begin
  //Verloren
  Form2.Show;
  Panel2.Caption:='verloren' 
end;
end;
//
end;

;

[roga]

Hallo,

Du verwendest unter Declarationen

Delphi-Quellcode:

  private 
    procedure Gewinner; 
  ...

und als Variable

Delphi-Quellcode:

var 
  Form1: TForm1; 
  ...
  Gewinner:Boolean;

den gleichen Bezeichner "Gewinner", was zu Problemen führen kann. Hier würde ich unterschiedliche Namen benutzen.

Gruß RoGa

[harryi]

hier ist mal mein unfertigen Tic Tac Toe.

Bitte nur Tipps^^

[Klaus01]

Delphi-Quellcode:

if (Button1.caption='0') and (Button2.caption='0') and (Button3.caption='0') then
  begin
    Panel1.caption:='Hallo Alex';
    Form2.Show;
  end;
end;

..aber solltest Du nicht viel eher prüfen, ob in einer Reihe oder Spalte
oder auch diagonal drei Zeichen gleich sind?

Grüße
Klaus

[harryi]

hallo,

ok ich habe einen Fehler bei mir entdeckt.
Jetzt geht das Tic Tac Toe Spiel^^
habe gerade 200 Zeilen geschrieben ' ok copy paste xD
Mein Spiel zeigt nun an , wenn ein Spieler gewonnen hat.



Frage 1:

Wie kann ich es so machen, dass ein Button nur einmal anklickbar ist?


Frage 2:

Wie kann ich einen Button, dass auf Form2 ( also Blatt 2) so definieren, dass es einen Button auf Form1 (also Blatt 1) startet?

Form1 = Spiel
Form2 = Gewinnbenachrichtigung

[TonyR]

Das ist vllt unhöflich, aber für deine letzten zwei Fragen würde ich dir die Anfänger tutorials auf www.dsdt.info vorschlagen, dauert höchstens einen tag alle durchzuarbeiten.
Du kannst nicht jede Kleinigkeit hier abfragen, so ist es nicht gedacht!

[harryi]

ok^^

ich bin schüler, naja und schon 4 Unterrichtsstunden vorraus.

ich schaue mal ob sich die Fragen klären lassen.

Trotzdem danke.

[BullsEye]

Zitat:

Zitat von harryi

Frage 1:

Wie kann ich es so machen, dass ein Button nur einmal anklickbar ist?

Du könntest ihn ggf nach jedem Klick Enablen:

Delphi-Quellcode:

..Button1.click..

Button1.Enabled := false;

...

[Florian H]

Zitat:

Zitat von BullsEye

Du könntest ihn ggf nach jedem Klick Enablen:

Delphi-Quellcode:

..Button1.click..

Button1.Enabled := false;

...

"Disablen" eher .. nur um noch mehr Verwirrung bei harry oder englischsprachigen Usern zu vermeiden...

[harryi]

So ... ich habe jetzt alles definiert.

z.B.

Delphi-Quellcode:

// [Player Win 2.8] 3-5-7
if (Button3.caption='X') and (Button5.caption='X') and (Button7.caption='X') then
Form3.Show;
if (Button3.caption='X') and (Button5.caption='X') and (Button7.caption='X') then
Panel2.Caption:='gewonnen'

Mein Spiel klappt :bounce1:


Frage:

Wie kann ich Unentschieden definieren?