TicTacToe

Leuchtturm · Verfasst: Sa 20.05.06 16:06

Hi,
ich habe mein TicTacToe jetzt fertiggestellt. Es gibt noch keine KI also kann man bisher nur zu zweit spielen. :bawling:

Eine KI ist aber geplant(dauert noch ne weile).
Wie TicTacToe funktionier weiß wohl jeder, oder? :?:

Kritik ist erwünscht.

Download Zip Datei(1,3MB):www.orell.de/dateien/tictactoe.zip
Download Installer(1,13MB):www.orell.de/dateien/tictactoe_setup.exe
Leuchtturm

Edit: Ich habe jetzt die Hintergrundmusik und die Namensabfrage eingebaut.
Edit1:Ich habe noch einen Fehler beseitigt
Edit2:Jetzt kann man auch mit Enter die Namen bestätigen und mit ESC abrechen

Einloggen, um Attachments anzusehen!

_________________
Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.

Marco D. · Verfasst: Sa 20.05.06 16:08

Sieht doch ganz nett aus

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

Leuchtturm · Verfasst: Sa 20.05.06 16:10

Ich weiß.
Hast du irgendwelche Verbesserungsvorschläge?

_________________
Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.

Marco D. · Verfasst: Sa 20.05.06 16:13

- Eine Netzwerkfunktion (zu zweit an einem Rechner ist langweilig)
- Mache aus 9 Feldern 16 oder 25 (dann ist es zwar kein TTT mehr, aber egal)
- Hintergrundmusik
- Statistiken

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

Regan · Verfasst: Sa 20.05.06 16:21

ich finds auch cool.

wie kann man eigentlich die spieler umbennen? ich finde x und o irgendwie langweilig. man könnte das zeichen in klammern schreiben. oder du machst die spielername farbig, so wie die zeichen :!:

Leuchtturm · Verfasst: Sa 20.05.06 16:21

1.:Hatte noch nichts mit Indy zutun. Welche Komponente(n) braucht man dafür? Wo gibts für die Kompo Tuts?
2.:Vielleicht
3.:Hie muss mir jemand helfen www.delphi-forum.de/...einbinden_60099.html
4.:Wie macht man das?

Ich weiß: Fragen über Fragen
liegt daran das ich Anfänger bin.

_________________
Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.

Marco D. · Verfasst: Sa 20.05.06 16:29

Leuchtturm hat folgendes geschrieben:

1.:Hatte noch nichts mit Indy zutun. Welche Komponente(n) braucht man dafür? Wo gibts für die Kompo Tuts?
2.:Vielleicht
3.:Hie muss mir jemand helfen www.delphi-forum.de/...einbinden_60099.html
4.:Wie macht man das?

Ich weiß: Fragen über Fragen
liegt daran das ich Anfänger bin.

1. Die Sockets sind dafür auch geeignet. Ich würde sie nehmen, weil sie in meinen Augen leichter zu handhaben sind

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

Leuchtturm · Verfasst: Sa 20.05.06 16:34

@Regan: stimmt ich versuchs mal mit Spieler namen
wie kann man aus einer Form einen Namen in eine andere Form übergeben?

_________________
Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.

Regan · Verfasst: Sa 20.05.06 16:45

diese Stellungen hab ich erreicht. änder einfach noch mal den quellcode , dass sder fehler nich mehr passiert

Einloggen, um Attachments anzusehen!

Leuchtturm · Verfasst: Sa 20.05.06 17:09

@

Regan: mach ich wahrscheinlich nicht mehr heute
passiert das immer
@ user profile icon

Marco D.: wie kann ich es dann machen

_________________
Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.

Leuchtturm · Verfasst: Sa 20.05.06 17:42

@ Regan: Fehler behoben

_________________
Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.

chriss1988 · Beiträge: 389 windows xp prof,home,windows98 delphi5

Leuchtturm hat folgendes geschrieben:

wie kann man aus einer Form einen Namen in eine andere Form übergeben?

du hast z.B auf form1 ein edit

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure Tform1.BitBtn1Click(Sender: TObject);
var
Spieler1:string;
begin
Spieler1:=(edit1.text);//eins kann man glaub ich weglassen

edit1.text:=(Spieler1);


//schreibt den namen in panel auf neue seite
form2.panel1.caption:=(Spieler1);


end;

Leuchtturm · Verfasst: Mi 24.05.06 15:24

Erst mal danke.
Ich mache es so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
var
frmHilfe: TForm2;
Spieler1:string;
begin
frmHilfe := TForm2.Create(nil);
frmHilfe.ShowModal();
Spieler1:=(edit1.text);
edit1.text:=(Spieler1);
form2.panel1.caption:=(Spieler1);
end;

funktioniert aber nicht. Was mache ich falsch?

_________________
Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.

MrSaint · Verfasst: Mi 24.05.06 15:31

Das ShowModal blockiert. Da geht es erst weiter, wenn der User die Form wieder geschlossen hat. Sprich das sollte funktionieren:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
var
  frmHilfe: TForm2;
  Spieler1:string;
begin
  frmHilfe := TForm2.Create(nil);
  Spieler1:=(edit1.text);
  edit1.text:=(Spieler1);
  form2.panel1.caption:=(Spieler1);
  frmHilfe.ShowModal();
end;

Und gewöhn dir doch bitte gleich nen guten Stil an (z.B. nach begin einzurücken).

MrSaint

EDIT: Du solltest frmHilfe naztürlich auch noch freigeben. Also so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button1Click(Sender: TObject);
var
  frmHilfe: TForm2;
  Spieler1:string;
begin
  frmHilfe := TForm2.Create(nil);
  try
    Spieler1:=(edit1.text);
    edit1.text:=(Spieler1);
    form2.panel1.caption:=(Spieler1);
    frmHilfe.ShowModal();
  finally
    FreeAndNil(frmHilfe);
  end;
end;

_________________
"people knew how to write small, efficient programs [...], a skill that has subsequently been lost"
Andrew S. Tanenbaum - Modern Operating Systems

Leuchtturm · Verfasst: Mi 24.05.06 15:42

Bei mir funktioniert das nicht.
Muss ich in Unit2 auch etwas reinschreiben?

_________________
Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.

MrSaint · Verfasst: Mi 24.05.06 15:45

*schnarch* ich sollte auch genau hinschauen, was ich da poste :oops:

Sorry... Ich galub so ist das besser

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button1Click(Sender: TObject);
var
  frmHilfe: TForm2;
  Spieler1:string;
begin
  frmHilfe := TForm2.Create(nil);
  try
    Spieler1:=(edit1.text);
//    edit1.text:=(Spieler1);  BTW: Was soll das? das tut rein gar nichts ;) hast ja in der Zeile davor grad die Gegenrichtung gemacht..
    frmHilfe.panel1.caption:=(Spieler1);
    frmHilfe.ShowModal();
  finally
    FreeAndNil(frmHilfe);
  end;
end;

_________________
"people knew how to write small, efficient programs [...], a skill that has subsequently been lost"
Andrew S. Tanenbaum - Modern Operating Systems

Leuchtturm · Verfasst: Mi 24.05.06 18:50

Das Tutorial von user profile icon

GTA-Place habe ich jetzt gemacht und versuche es jetzt auf TicTacToe anzuwenden.
@ user profile icon

chriss1988: :!:

Trotzdem Danke :!:

_________________
Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Hallo!

Ich möchte Euch bitten, im Folgenden keine Programmierfragen mehr zu besprechen. Die gehören ins Forum in separate Threads. Hier soll es nur um das Programm gehen. Danke! :-)

Grüße
Christian

//Edit: Den Netzwerk-Kram habe ich mal hier hin abgeteilt: www.delphi-forum.de/viewtopic.php?t=60530 Ich hoffe, dass ich die Postings korrekt zugeordnet habe und die Threads beide noch lesbar sind.

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

Leuchtturm · Verfasst: Sa 27.05.06 16:34

Man kann jetzt auch den Namen auswählen.
Wenn man dann richtig im Spiel ist und das Programm beenden will :bawling:

muss man unten rechts auf ende gehen. Wenn man auf das Kreuz geht kommt wieder die Namenauswahl.
Die Netzwerkfunktion dauert noch ein Weilchen.
Hier bräuchte ich noch mal Hilfe:www.delphi-forum.de/...kfunktion_60530.html
Ich würde mich trotzdem über weitere Kritik freuen.
Leuchtturm

_________________
Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.

Leuchtturm · Verfasst: So 28.05.06 11:20

Jetzt muss man beide Edits gefüllt haben und zwei unterschiedliche Namen eingeben haben.
Leuchtturm

_________________
Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme