Delphi-PRAXiS :: Das Forum für Fragen zu Delphi
Das Experten Forum für Delphi Programmierer
Hilfe für CodeGear Delphi gibts es hier im Forum
Delphi Quelltexte und Source Codes
 
Delphi-PRAXiS :: Foren-ÜbersichtForen-Übersicht Delphi-PRAXiS Modul-ÜbersichtSite-Map Delphi-PRAXiS durchsuchenSuchen Delphi-PRAXiS Code-LibraryCode-Library Jetzt registrieren!Registrieren Login  
   
 
0
 
Vier Gewinnt ohne KI
Ein Thema von Luckie.

Vorheriges Thema anzeigen  |  Nächstes Thema anzeigen
Neuen Beitrag schreiben Auf Beitrag antworten
als PDF-Datei herunterladenThema ausdrucken
 
Delphi-PRAXiS Forum - Übersicht -> Open-Source
Seite 1 von 2   [ 22 Beiträge ]  Gehe zu Seite 1, 2  Weiter
 
 Autor 
 Nachricht 
 
Luckie #1|Beitrag #196655Verfasst am: 29.06.2004, 13:50      Titel: Vier Gewinnt ohne KI Antworten mit Zitat
Moderator
Status: offline
Beiträge: 27.903
angemeldet: 29.05.2002
Delphi 2006 Professional

So, hier ist es nun also mein "Vier Gewinnt". Ohne KI aber mit einer Gewinnprüfung von w3seek. War für mich nur eine kleine Übung das ganze mal OOP mäßig in eine Klasse zupacken. Die Grafik ist dem entsprechen einfach, weil es mir auch nur erstmal auf die Klasse ankam. Man sagt ja Anfängern immer ein "Vier Gewinnt" wäre ideal zum anfangen. Nun ja. Die Gewinnprüfung empfand ich nicht gerade als trivial. Der Rest, das Zeichnen und das Setzten der Steine sollte eigentlich auch für Anfänger kein Problem darstellen. Und zum Entwickeln eines Klassen-Konzeptes bestimmt eine gute Übung.

Bei der Gewinnprüfung musste mir dann allerdings w3seek etwas unter die Arme greifen. Desweitern war am, Code, was das Zeichen des Spielfeldes betrifft, noch tommie-lie beteiligt.

Wie immer bei mir wieder alles mit Soße, zum ankucken und lernen und verbessern. Wer will kann sich die Klasse nehmen und eine KI dazuprogrammieren. Viel Spass. Wink

Download: Vier Gewinnt [20 KBytes]

"Virtual" means never knowing where your next byte is coming from.
"It's 5:50 a.m., Do you know where your stack pointer is?"

 Zuletzt bearbeitet von Luckie am 17.01.2008, 12:36, insgesamt 3-mal bearbeitet.
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
tommie-lie #2|Beitrag #196889Verfasst am: 29.06.2004, 20:11      Titel: Re: Vier Gewinnt ohne KI Antworten mit Zitat
ehem. Benutzer


Luckie hat folgendes geschrieben:
Desweitern war am, Code, was das Zeichen des Spielfeldes betrifft, noch tommie-lie beteiligt.
Naja, minimal, ich hab' dafür gesorgt, daß es gerade aussieht und das Zeichnen elegant geschieht, nicht der Rede wert... Wink
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
Nicodius #3|Beitrag #197050Verfasst am: 30.06.2004, 06:13      Titel: Re: Vier Gewinnt ohne KI Antworten mit Zitat
Mitglied
Alter: 20
Status: offline
Beiträge: 2.134
angemeldet: 25.04.2003
Wohnort: Graz
Delphi 2006 Architect

wenn man gewonnen hat kann man trotzdem noch "reinwerfen" Wink
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
Nicodius #4|Beitrag #197051Verfasst am: 30.06.2004, 06:14      Titel: Re: Vier Gewinnt ohne KI Antworten mit Zitat
Mitglied
Alter: 20
Status: offline
Beiträge: 2.134
angemeldet: 25.04.2003
Wohnort: Graz
Delphi 2006 Architect

...und dann kann man nochml gewinnen Rolling Eyes


anhang : o wie schön Wink

[ An diesen Beitrag wurden eine oder mehrere Dateien angehängt. Zum Herunterladen bitte anmelden. ]

 Zuletzt bearbeitet von Nicodius am 30.06.2004, 06:15, insgesamt 1-mal bearbeitet.
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
Nicodius #5|Beitrag #197054Verfasst am: 30.06.2004, 06:17      Titel: Re: Vier Gewinnt ohne KI Antworten mit Zitat
Mitglied
Alter: 20
Status: offline
Beiträge: 2.134
angemeldet: 25.04.2003
Wohnort: Graz
Delphi 2006 Architect

noch was :


wenn jetzt wie hier alle felder besetz sind und ich einen ungültigen zug mache .. kommt gleich danach wieder "spieler1" hat gewonnen (bzw spieler2)

also 2 fliegen mit einer klatsche (du weißt ja wie man ein spielen nicht mehr zuläst denke ich hehehe Mr. Green )
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
Luckie #6|Beitrag #197150Verfasst am: 30.06.2004, 12:17      Titel: Re: Vier Gewinnt ohne KI Antworten mit Zitat
Moderator
Status: offline
Beiträge: 27.903
angemeldet: 29.05.2002
Delphi 2006 Professional

Nicodius hat folgendes geschrieben:
wenn man gewonnen hat kann man trotzdem noch "reinwerfen" Wink

Kann man beim echten "Vier gewinnt" doch auch noch. Ich wollte es eben so realistisch, wie möglich machen. Zwinkern

"Virtual" means never knowing where your next byte is coming from.
"It's 5:50 a.m., Do you know where your stack pointer is?"
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
ibp #7|Beitrag #197162Verfasst am: 30.06.2004, 12:47      Titel: Re: Vier Gewinnt ohne KI Antworten mit Zitat
Mitglied
Alter: 37
Status: offline
Beiträge: 1.147
angemeldet: 31.03.2004
Wohnort: Frankfurt am Main
Delphi 7 Architect

hab mal gespielt und gewonnen ohne 4 steine !!! siehe bild !

[ An diesen Beitrag wurden eine oder mehrere Dateien angehängt. Zum Herunterladen bitte anmelden. ]

nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
Nicodius #8|Beitrag #197193Verfasst am: 30.06.2004, 14:03      Titel: Re: Vier Gewinnt ohne KI Antworten mit Zitat
Mitglied
Alter: 20
Status: offline
Beiträge: 2.134
angemeldet: 25.04.2003
Wohnort: Graz
Delphi 2006 Architect

haha hehe luckie Wink


ok "verziehn" Stupid Wink
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
Luckie #9|Beitrag #197196Verfasst am: 30.06.2004, 14:05      Titel: Re: Vier Gewinnt ohne KI Antworten mit Zitat
Moderator
Status: offline
Beiträge: 27.903
angemeldet: 29.05.2002
Delphi 2006 Professional

ibp hat folgendes geschrieben:
hab mal gespielt und gewonnen ohne 4 steine !!! siehe bild !

Siehst du? Gut dass man weiterspielen kann. Wink

"Virtual" means never knowing where your next byte is coming from.
"It's 5:50 a.m., Do you know where your stack pointer is?"
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
Matze #10|Beitrag #197416Verfasst am: 30.06.2004, 18:34      Titel: Re: Vier Gewinnt ohne KI Antworten mit Zitat
Moderator
Alter: 24
Status: offline
Beiträge: 12.068
angemeldet: 07.07.2003
Wohnort: Hochdorf (BaWü)
Turbo Delphi für Win32

Ähm, Luckie?
Mir kommt es so vor, als ob du an Kritik gar nicht interessiert bist. Wink
Du siehst alle Kritikpunkte als so selbstverständlich an. Wink

Naja, vielleicht kommt's mir echt nur so vor. Rolling Eyes


Edit: Hab's fast vergessen: Weitere "Mängel" sind mir nicht aufgefallen. Bei mir hat das mit dem Gewinnen immer richtig geklappt. Smile

Grüße, Matze

Meine Heli-Flugkünste (29.06.09). *g*

 Zuletzt bearbeitet von Matze am 30.06.2004, 18:37, insgesamt 1-mal bearbeitet.
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
Nicolai1605 #11|Beitrag #197428Verfasst am: 30.06.2004, 18:50      Titel: Re: Vier Gewinnt ohne KI Antworten mit Zitat
Mitglied
Alter: 20
Status: offline
Beiträge: 945
angemeldet: 21.02.2004
Wohnort: Berlin
Turbo Delphi für Win32

Matze hat folgendes geschrieben:
Ähm, Luckie?
Mir kommt es so vor, als ob du an Kritik gar nicht interessiert bist. Wink
Du siehst alle Kritikpunkte als so selbstverständlich an. Wink

Naja, vielleicht kommt's mir echt nur so vor. Rolling Eyes


Edit: Hab's fast vergessen: Weitere "Mängel" sind mir nicht aufgefallen. Bei mir hat das mit dem Gewinnen immer richtig geklappt. Smile

WEndet euch damt nicht an Luckie, sondern an w3seek! Von dem kommt doch schließlich die Gewinnüberprüfung! ODer Luckie hat sie falsch umgesetzt!
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
Luckie #12|Beitrag #197431Verfasst am: 30.06.2004, 18:51      Titel: Re: Vier Gewinnt ohne KI Antworten mit Zitat
Moderator
Status: offline
Beiträge: 27.903
angemeldet: 29.05.2002
Delphi 2006 Professional

Ich habe blos keine Zeit sie im Moment zu beheben. Werde mich später drum lümmern. Aber es steht dir frei, sie seolbst zu beheben.

"Virtual" means never knowing where your next byte is coming from.
"It's 5:50 a.m., Do you know where your stack pointer is?"
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
w3seek #13|Beitrag #197441Verfasst am: 30.06.2004, 19:00      Titel: Re: Vier Gewinnt ohne KI Antworten mit Zitat
Mitglied
Alter: 25
Status: offline
Beiträge: 246
angemeldet: 12.04.2003
Wohnort: Wunsiedel


Nicolai1605 hat folgendes geschrieben:
WEndet euch damt nicht an Luckie, sondern an w3seek! Von dem kommt doch schließlich die Gewinnüberprüfung! ODer Luckie hat sie falsch umgesetzt!


Klar, ist berechtigt. Hab auch gedacht das koennte meine Schuld sein, hab aber das Spielfeld wie es am screenshot zu sehen ist mal uebertragen und bei mir hat weder spieler 1 noch spieler 2 gewonnen.... als anhang das projekt

[ An diesen Beitrag wurden eine oder mehrere Dateien angehängt. Zum Herunterladen bitte anmelden. ]
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
Luckie #14|Beitrag #265106Verfasst am: 11.11.2004, 07:53      Titel: Re: Vier Gewinnt ohne KI Antworten mit Zitat
Moderator
Status: offline
Beiträge: 27.903
angemeldet: 29.05.2002
Delphi 2006 Professional

Es gibt eine neue Version von "Vier Gewinnt". Dies mal ohne VCL. Weder die Unit mit der "Vier Gewintn" Klasse noch die Oberfläche benötigt jetzt die VCL. Damit konnte ich die Programmgröße auf 14 KB (UPX gepackt) von ursprünglichen 416 KB reduzieren!
Leider immer noch ohne KI.

Download: Vier Gewinnt [87 KB]
Programm Homepage: Vier Gewinnt

"Virtual" means never knowing where your next byte is coming from.
"It's 5:50 a.m., Do you know where your stack pointer is?"
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
daniel8520 #15|Beitrag #265430Verfasst am: 11.11.2004, 18:07      Titel: Re: Vier Gewinnt ohne KI Antworten mit Zitat
ehem. Benutzer


Hallo zusammen!

hiermal meine Kritik.

a) Ich finde die Grafik nicht wirklich überwältigend.
b) Ich denke, dass man heutzutage nicht dran arbeiten sollte, seine Anwendung von <500KB auf <20KB zu bringen! Ist ja toll, dass du das geschafft hast, aber ich denke es nicht so ein großes Problem!
c) Ergibt sich im Prinzip aus eine Mischung zwischen a) und b) Auf grund von b), würde ich schönere Grafiken in das Prog mit einbinden.


Bis dann!
MfG
Daniel L.
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
Anzeige-Optionen:    
 
Delphi-PRAXiS Forum - Übersicht -> Open-Source Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 2   [ 22 Beiträge ]  Gehe zu Seite 1, 2  Weiter
 
  Neuen Beitrag schreiben Auf Beitrag antworten
als PDF-Datei herunterladenThema ausdrucken
 
   
Gehe zu:  
Du darfst keine Beiträge in dieses Forum schreiben.
Du darfst auf Beiträge in diesem Forum nicht antworten.
Du darfst Deine Beiträge in diesem Forum nicht bearbeiten.
Du darfst Deine Beiträge in diesem Forum nicht löschen.
Du darfst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten.
Du kannst Dateien in diesem Forum nicht herunterladen.


Impressum / Kontakt
Allgemeine Geschäftsbedingungen
Verhaltenskodex & FAQ

Delphi-PRAXiS :: Das Forum für Delphi-Programmierer
Das Experten Forum für Delphi ProgrammiererHilfe für Borland Delphi gibts es hier im ForumDelphi Quelltexte und Source CodesDelphi-PRAXiS :: Das Forum für DelphiWindows APIInternet und NetzwerkeVCL und Datenbanken
 

Delphi-PRAXiS V.2005 III
© 2002-2009 by Daniel R. Wolf
powered by phpBB © phpBB Group

Impressum / Kontakt Allgemeine Geschäftsbedingungen