Vier Gewinnt

[Sassi]

Hey Hey!
Also ich brauche unbedingt Hilfe.
Wir sollen 4 Gewinnt mit Delph programmieren.
Bis jetzt bin ich so weit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
feld:array[0..6,0..5]of integer;

i,j:integer;
begin
 FOR i:=1 TO 6 DO
  FOR j:=1 TO 5 DO BEGIN
    feld[i,j]:=10;
       stringgrid1.Cells[i,j]:=INTTOSTR(10);
       END;

Das alles wird mit einem Stringgrid gemacht.
Aber leider komm ich noch nicht so weiter.
Wäre ganz nett wenn ihr mir helfen könnt =)

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

[Sassi]

Spieler 1 soll mit 1
Spieler 2 mit 2
und
wenn nichts gesetzt ist 10
Das heißt das die 10 nicht gezeigt wird sondern nur als Wert genommen wird um zu zeigen das in dem Feld nichts ist.
Wenn der Spieler 1 ein 5 gewinnt haben will muss er einen Integerwert von 4 haben beim Spieler 2 ist es 8.

[Klaus01]

Guten Morgen,


bei 4 Gewinnt ist es doch so, dass ein Spieler seinen Stein
in einen frei wählbaren Slot (Spalte Deines StringGrids) wirft.
Dann fällt der Stein bis er auf einen anderen Stein trifft oder bis zum
Boden durchgefallen ist.

Die Spieler sind immer abwechselnd an der Reihe.

Das Spiel ist aus, wenn ein Spieler gewonnen hat
oder wenn alle Felder besetzt sind.

Gewonnen hat der Spieler welcher 4 Steine seiner Farbe
waagerechet (Reihe Deines StringGrids), senkrecht (Spalte Deines StringGrids)
oder Diagonal (Reihe, Spalte) angeordnet hat.

So, das sollte so im Prinzip die Spielzüge des Spiels sein.
Umsetzen solltest Du sie.

[edit]
Ich würde für freie Felder das Leerzeichen ' ' als Kennzeichnung wählen.
Für die Spielsteine ein 'x' und 'o'.
[/edit]


Grüße
Klaus

[Sassi]

Soweit bin ich auch schon. Nur an der Umsetzung habe ich meine Probleme.
Ich komme beim Proggen nicht weiter. Kann das nicht umsetzten

[mani64]

Wie wärs mit der Erstellung eines groben Ablaufplans, den du Stück für Stück umsetzst?

Immer Wechsel zwischen Spieler1 und Spieler2 (KI kann ja später noch kommen), für jede Spalte einen Button, dann im Stringgrid das Feld entsprechend markieren, anschließend überprüfen, ob der Spieler 4 zusammen hat, wenn nicht, dann kommt der nächste Spieler dran, bis einer 4 hat bzw. alle Felder gefüllt sind. Noch Buttons für Start und Abbruch, eventuell ein Zähler für die Spiele, ein Label, welcher Spieler an der Reihe ist ...

[Klaus01]

Zitat von Sassi:

Soweit bin ich auch schon. Nur an der Umsetzung habe ich meine Probleme.
Ich komme beim Proggen nicht weiter. Kann das nicht umsetzten

Nun, das ist ja auch der Casus Knacktus.
Kannst Du es nicht umsetzen oder willst Du es nicht umsetzen?

Was hast Du denn schon fertig (ausser die Initialisierung des Stringgrids)?
Wo hapert es denn? ( jetzt nicht schreiben, an allem).

Von Euch/Dir wird wohl nichts verlangt werden was nicht zumindest
ansatzweise in der Schule angerissen wurde.

Also StringGrid 6 Zeilen 5 Spalten.
Zeile 0 -> Headerzeile (fixedRows =1)
FixedCols = 0

Im StringGrid gibt es das Event onMouseUp
Hier ist die Routine MouseToCell recht hilfreich.
Hast Du die Spalte ermittelt lässt Du einen Stein hineinfallen.
Welcher Stein hängt davon ab, welcher Spieler gerade aktiv ist.

Delphi-Quellcode:

 if spieler1 then
           token := 'x'
          else
            token := 'o':

Nach jedem Wurf solltest Du prüfen ob die Gewinnbedingung erfüllt ist.
Um es am Anfang einfach zu halten, kannst Du ein Gewinn erst einmal
auf 4 in einer Reihe oder in einer Zeile begrenzen.

Grüße
Klaus

[Sassi]

Zitat von Klaus01:

Zitat von Sassi:

Soweit bin ich auch schon. Nur an der Umsetzung habe ich meine Probleme.
Ich komme beim Proggen nicht weiter. Kann das nicht umsetzten

Nun, das ist ja auch der Casus Knacktus.
Kannst Du es nicht umsetzen oder willst Du es nicht umsetzen?

Was hast Du denn schon fertig (ausser die Initialisierung des Stringgrids)?
Wo hapert es denn? ( jetzt nicht schreiben, an allem).

Von Euch/Dir wird wohl nichts verlangt werden was nicht zumindest
ansatzweise in der Schule angerissen wurde.

Also StringGrid 6 Zeilen 5 Spalten.
Zeile 0 -> Headerzeile (fixedRows =1)
FixedCols = 0

Im StringGrid gibt es das Event onMouseUp
Hier ist die Routine MouseToCell recht hilfreich.
Hast Du die Spalte ermittelt lässt Du einen Stein hineinfallen.
Welcher Stein hängt davon ab, welcher Spieler gerade aktiv ist.

Delphi-Quellcode:

 if spieler1 then
           token := 'x'
          else
            token := 'o':

Nach jedem Wurf solltest Du prüfen ob die Gewinnbedingung erfüllt ist.
Um es am Anfang einfach zu halten, kannst Du ein Gewinn erst einmal
auf 4 in einer Reihe oder in einer Zeile begrenzen.

Grüße
Klaus

Danke Klaus.
Das hilft mir schon sehr weiter =)
Ich hoffe jetzt bekomm ich es hin!