AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Unentschieden ! Wie definiere ich es

Ein Thema von harryi · begonnen am 5. Okt 2008 · letzter Beitrag vom 8. Okt 2008
 
alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#4

Re: Unentschieden ! Wie definiere ich es

  Alt 6. Okt 2008, 06:13
Kurze Einführung in gute Programmierung:
[einführung]
1. Trenne Funktion und Darstellung
[/einführung]
Hier solltest Du dir überlegen, wie Du dein Spielfeld darstellst (Buttons wäre eine Idee) und wie Du die Funktion abbildest (wie wäre es mit einem Array).

In einen Array [0..2,0..2] Of Spielstein könntest Du viel einfacher prüfen, ob irgendwo eine Dreierreihe ist.

Ein weiterer Vorteil ist, das Du die Darstellung später austauschen kannst (da gibt es tolle Komponenten, z.B. ein TDrawGrid), ohne an der 'KI' an sich etwas zu verändern...

Wenn der Anwender bzw. der Computer einen Zug mmacht, dann steht das ja in dem Array. Nach jeden Zug stellst Du also den Inhalt des Arrays neu dar, indem Du z.B. die Buttons füllst oder im TDrawGrid für jedes Feld ein entsprechendes Bild (Leer, Kreuz, Kringel) hinmalst.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:36 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz