Delphi-PRAXiS
Seite 1 von 3  1 23   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)
-   -   Vier-in-einer-Reihe (https://www.delphipraxis.net/180056-vier-einer-reihe.html)

Roland Chastain 19. Apr 2014 10:56


Vier-in-einer-Reihe
 
Liste der Anhänge anzeigen (Anzahl: 2)
Hallo! Da ist mein Vier-in-einer-Reihe für Delphi.

CocoPops 19. Apr 2014 14:11

AW: Vier-in-einer-Reihe
 
Sehr interessant.
Ich habe mir jetzt nur die ausführbare Datei angesehen und nicht den Quelltext.
Aber mir ist aufgefallen, dass wenn weiß und schwarz automatisch gesetzt werden, das SPiel immer mit weiß bei D beginnt und weiß immer gewinnt (das Spiel verläuft immer gleich).

Roland Chastain 19. Apr 2014 15:11

AW: Vier-in-einer-Reihe
 
Zitat:

Zitat von CocoPops (Beitrag 1256240)
Sehr interessant.

Danke!

Zitat:

Zitat von CocoPops (Beitrag 1256240)
Aber mir ist aufgefallen, dass wenn weiß und schwarz automatisch gesetzt werden, das Spiel immer mit weiß bei D beginnt und weiß immer gewinnt (das Spiel verläuft immer gleich).

Ja, das ist richtig. Es gibt kein Zufall in Computerzügen.

himitsu 19. Apr 2014 15:22

AW: Vier-in-einer-Reihe
 
Ich glaub bei mir gewann vorhin immer Schwarz.
Und wenn man bei der Automatik ganz oft auf einen Knopf drückt, dann schafft man es die Automatik zu steuern.
Wobei die Automatik irgendwie nie "selbstständig" auf G setzt.


Aber ansonsten würde es nicht schaden, wenn noch ein paar Worte zu dem Programm gesagt würden.

Roland Chastain 19. Apr 2014 16:04

AW: Vier-in-einer-Reihe
 
Zitat:

Zitat von himitsu (Beitrag 1256244)
Aber ansonsten würde es nicht schaden, wenn noch ein paar Worte zu dem Programm gesagt würden.

Danke für deine Antwort! Ich möchte mehr sagen, aber es ist mir schwer deutsch zu sprechen. Entschuldigung!

Und es gibt nicht viele Sachen zu sagen. Der Titel sagt alles. :)

Der Motor (oder der Computergegner) ist ein DLL. Siehe .\Sources\Moteur.dpr.

Ich habe vergessen, den Text zu übersetzen. :oops:

Code:
  EnCours := 'Spiel läuft.';
  BlancGagne := 'Weiß gewinnt.';
  NoirGagne := 'Schwarz gewinnt.';
  GrillePleine := 'Remis.';
 
  CheckBox1.caption := 'Weiß automatisch';
  CheckBox2.caption := 'Schwarz automatisch';
Frohe Ostern!

Roland Chastain 17. Apr 2015 19:00

AW: Vier-in-einer-Reihe
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo! Da ist eine neue Version meines Programms. Nun es verwendet Velena als Spiel-Engine. Bitte siehe README.txt für mehr Detail.

Roland Chastain 6. Apr 2017 21:14

AW: Vier-in-einer-Reihe
 
Hallo! Ich habe mein Programm wieder bearbeitet. Bitte sehen Sie die erste Beitrag.

Roland Chastain 7. Apr 2017 12:04

AW: Vier-in-einer-Reihe
 
Bitte austauschen Sie

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  if gEtatDuJeu <= gsBlackToMove then
    JouerCoup((Sender as TButton).Tag);
end;
gegen

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  x: integer;
begin
  if gEtatDuJeu <= gsBlackToMove then
  begin
    x := (Sender as TButton).Tag;
    if gGrille[x, 6] = NEANT then
      JouerCoup(x);
  end;
end;

Roland Chastain 11. Apr 2017 08:05

AW: Vier-in-einer-Reihe
 
Hier ist eine neue Version. Jetzt können Sie sehen die Stücke fallen. :)
Bitte beachten Sie den ersten Beitrag.

Michael II 16. Apr 2017 18:02

AW: Vier-in-einer-Reihe
 
Hallo ins Forum

"Vier gewinnt" ist leider kein spannendes Spiel in Sachen Spieltheorie. Das Spiel ist - wie zum Beispiel auch Mühle - gelöst.

http://www.informatik.uni-trier.de/~...iergewinnt.pdf

Es gibt aber zahlreiche Probleme in der Mathematik, welche noch auf eine Lösung warten. Vielleicht könnte man sich hier im Forum ja mal auf eins einigen und das Ding dann mit viel Grips und Delphi lösen :-D.


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:55 Uhr.
Seite 1 von 3  1 23   

Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf