tic tac toe.... mal wieder:) versteh aufgabestellung nicht ganz

[biby90]

Hallo Leute,
heute habe ich dir Aufgabe ein Tic Tac Toe spiel zu programmieren.
ist ja auch alles schön und gut nur versteh ich etwas bei der aufgabestellung nicht.

Beschreibung:
9 labels auf der form und einem array als datenstruktur. /wie macht man das?
bei jedem klick auf ein label sollen 2 funktionen aufgerufen werden (IsFieldEmpty(var AIndex): boolean, CheckFor Win) / das ist doch aber nur eine funktion.... oder wie bekomme ich daraus eine zweite?



würde ja meinen ausbilder fragen wenn er da wäre....





ach ja und das ganze ohne KI

[Luckie]

1. Funktion: IsFieldEmpty
2. Funktion CheckForWin

[biby90]

aahhhhhhh.... ok danke bin halt noch seeeeehhhhrrr anfängerisch^^

[mleyen]

Zitat von biby90:

Beschreibung:
9 labels auf der form und einem array als datenstruktur. /wie macht man das?

9 farbige Labels für die Spielerzüge, welche nach den Klicks der Spieler hier rein gespeichert werden:

Delphi-Quellcode:

type
  TTicTacToeSlot = (tttsFree, tttsPlayer1, tttsPlayer2);
var
  TicTacToeSlots: array[0..2] of array[0..2] of TTicTacToeSlot;

[DeddyH]

Obwohl ich auch ein 2-dimensionales Array verwenden würde glaube ich nicht, dass das hier gefordert ist. In dem Fall wäre es nämlich auch geschickter, den Funktionskopf

Zitat:

IsFieldEmpty(var AIndex): boolean

anders zu deklarieren:
IsFieldEmpty(XPos, YPos): boolean Damit entfällt dann ein lästiges Umrechnen.

[biby90]

oha so viele möglichkeiten... dann versuch ichs mal

[biby90]

wofür soll den das array gut sein.... nur damit ich das verstehe was ich hier mache. bringt ja nichts wenn ich ein array irgendwo einbaue aber nicht weiß wieso

[DeddyH]

3 Zeilen, 3 Spalten -> array[1..3, 1..3]

[biby90]

Zitat:

type
TTicTacToeSlot = (tttsFree, tttsPlayer1, tttsPlayer2);

ist das für den 2 spieler modus?

[DeddyH]

Das Spiel macht mit nur einem Spieler ja keinen Sinn. Ob der nun menschlich oder eine KI ist, spielt dabei ja keine Rolle. Sofern es Dir eher behagt, kannst Du den Typ ja ein wenig anders deklarieren:

Delphi-Quellcode:

type
  TTicTacToeSlot = (tttsFree, //Feld ist frei
                    tttsX, //Feld ist mit "X" belegt
                    tttsO  //Feld ist mit "O" belegt
                   );