Entwickler-Ecke
Freeware Projekte - TicTacToe
Leuchtturm - Sa 20.05.06 16:06
Titel: TicTacToe
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):
http://www.orell.de/dateien/tictactoe.zip
Download Installer(1,13MB):
http://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
Marco D. - Sa 20.05.06 16:08
Sieht doch ganz nett aus ;)
Leuchtturm - Sa 20.05.06 16:10
Ich weiß.
Hast du irgendwelche Verbesserungsvorschläge?
Marco D. - 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
Regan - Sa 20.05.06 16:21
ich finds auch cool. 8) 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 :!:
Marco D. - Sa 20.05.06 16:29
1. Die Sockets sind dafür auch geeignet. Ich würde sie nehmen, weil sie in meinen Augen leichter zu handhaben sind
Leuchtturm - 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?
Regan - Sa 20.05.06 16:45
diese Stellungen hab ich erreicht. änder einfach noch mal den quellcode , dass sder fehler nich mehr passiert
Leuchtturm - Sa 20.05.06 17:09
@
Regan: mach ich wahrscheinlich nicht mehr heute
passiert das immer
@
Marco D.: wie kann ich es dann machen
Leuchtturm - Sa 20.05.06 17:42
@ Regan: Fehler behoben
chriss1988 - Mi 24.05.06 11:04
| 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
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);
edit1.text:=(Spieler1);
form2.panel1.caption:=(Spieler1);
end; |
Leuchtturm - Mi 24.05.06 15:24
Erst mal danke.
Ich mache es so:
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?
MrSaint - 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:
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:
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; |
Leuchtturm - Mi 24.05.06 15:42
Bei mir funktioniert das nicht.
Muss ich in Unit2 auch etwas reinschreiben?
MrSaint - Mi 24.05.06 15:45
*schnarch* ich sollte auch genau hinschauen, was ich da poste :oops: Sorry... Ich galub so ist das besser ;)
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);
frmHilfe.panel1.caption:=(Spieler1);
frmHilfe.ShowModal();
finally
FreeAndNil(frmHilfe);
end;
end; |
Leuchtturm - Mi 24.05.06 18:50
Das Tutorial von
GTA-Place habe ich jetzt gemacht und versuche es jetzt auf TicTacToe anzuwenden.
@
chriss1988: :!: Trotzdem Danke :!:
Christian S. - Mi 24.05.06 18:55
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:
http://www.delphi-forum.de/viewtopic.php?t=60530 Ich hoffe, dass ich die Postings korrekt zugeordnet habe und die Threads beide noch lesbar sind.
Leuchtturm - 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:
http://www.delphi-forum.de/topic_TicTacToe+mit+Netzwerkfunktion_60530.html
Ich würde mich trotzdem über weitere Kritik freuen.
Leuchtturm
Leuchtturm - So 28.05.06 11:20
Jetzt muss man beide Edits gefüllt haben und zwei unterschiedliche Namen eingeben haben.
Leuchtturm
Blackheart666 - So 28.05.06 18:24
Hab mir mal dein TicTacToe angeschaut, falls Ich Namen eingebe Startet das Prog nicht.
Ansonsten gefällt es Mir gut auch das Design.
Leuchtturm - Mo 29.05.06 15:17
| Zitat: |
| ...falls Ich Namen eingebe Startet das Prog nicht. |
Gibts eine Fehlermeldung :?:
Leuchtturm - Mo 29.05.06 15:49
Das mit dem OK-Button ab ich beseitigt
chriss1988 - Di 30.05.06 09:57
hi
hab da noch ne kleine verbesserung für dein echt tolles spiel.
Vielleicht kannst du noch einen Punkte Zähler einbauen, wo die gewonnenen punkte addiert werden und wenn ein spieler X Punktte hat kommt eine shoemessage oder was anderes wo dann steht Spieler X hat mit X Punkten gewonnen und evt. noch ne kleine melodie im hintergrund.
Falls du hilfe mit den punkten addieren brauchst hab da en paar vorlagen.
Ps: sollte zuschaffen sein ist kein großes ding
gruß
chriss
Leuchtturm - Di 30.05.06 14:23
Ok mach ich noch
Leuchtturm - Do 08.06.06 17:22
| Marco D. hat folgendes geschrieben: |
...
- Hintergrundmusik
.. |
Ich habe jetzt die Hintergrundmusik mit dem Programm zusammen in eine RarDatei gepackt
Downloadlink ist im ersten Link. Das Netzwerk dauert noch ne weile
das müsste mir hier noch jemand helfen: [url]
http://www.delphi-forum.de/...kfunktion_60530.html [/url]
Bitte weiter testen
Leuchtturm - Di 25.07.06 11:45
Titel: Re: TicTacToe
Jetz auch mit Installer
Leuchtturm - Sa 29.07.06 14:38
Jetzt habe ich noch mal Fehler entfernt. Außer dem gibt es jetzt ein Popup-Menü und ein Info-Fenster.
Leuchtturm
Housten - Sa 29.07.06 14:46
sieht ganz gut aus solltest nur auch ein computer mit einbauen !
Leuchtturm - Sa 29.07.06 14:49
| Housten hat folgendes geschrieben: |
| sieht ganz gut aus solltest nur auch ein computer mit einbauen ! |
Danke
Der ist in planung genauso wie das Netzwerk. ich habe aber Sommerferien und das Wetter ist(bzw. war) so schön das ich nicht mehr viel lust hatte. Wenn das Wetter wieder schlechter wird fange ich mit der KI bzw dem Netzwerk an.
Leuchtturm - Di 15.08.06 15:49
Von
bokaj(Danke) habe ich den Tip(Tipp oder Tip :?: ) bekommen in dem Namensauswahlfenster bei dem OK-Button
default := true; und auf dem Abbrechen-Button
cancel := true; zusetzen. Man kann jetzt also mit Enter bestätigen und mit ESC abbrechen
Leuchtturm
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!