---
Sventke

Zitat:

Hallo Björn, hier findest du einen Download für die Kontrolle der Züge im Schach. Hoffe es hilft dir weiter. Viel Erfolg BAStler

---
Sventke

Live and let die

Zitat:

Wie speicherst Du denn eine Partie in Deiner Datenbank?

---
Sventke

Live and let die

Zitat:

Wenn Dein Programm nun die Partie "nachspielen" könnte und zu jedem Zug die Stellung abspeichern

---
Sventke

Gruss,

Zardoz

Zitat:

Tut mir leid. Dachte du hast dich verschrieben. Also in dem Format müssen dann alle Spielzüge vermerkt werden.

---
Sventke

Live and let die

Zitat:

Wenn dieses Format Partien speichert wird es wohl kaum in jedem Zug alle Stellungen speichern. Sondern eher welche Figur wohin gewandert ist.

---
Sventke

Zitat:

Mit Nachspielen meinte ich nicht, daß Du jede Partie nachspielen sollst, sondern Dein Programm soll das unsichtbar für den Benutzer tun.

---
Sventke

Live and let die

Zitat:

Hallo Sventke, ich schreibe gerade an einem Programm. Es "kann" schon eine unkommentierte PGN-Datei einlesen und daraus die Züge ermitteln.

---
Sventke

Live and let die

---
Sventke

Live and let die

---
Sventke

Zitat:

Hallo Björn, die PGN Notation ist nicht geeignet, um bestimmte Stellungsbilder zu suchen, Wenn Du so etwas machen möchtest, musst Du die FEN Notation nehmen,

---
Sventke

Live and let die

---
Sventke

---
Sventke

Zitat:

Hallo Björn, wie exact willst Du einen gültigen Zug ermitteln? Im Grunde musst Du zuerst prüfen, ob Du im Schach stehst. Bei der Dame reicht es eine Summe aus Läufer und Turm zu bilden Ich habe so etwas mal für EXCEL VBA angefangen. . Im Modul DI ermittle ich da die möglichen Felder.

---
Sventke

Live and let die

CLS
OPEN "c:\zuege.txt" FOR OUTPUT AS #1
zaehler = 0
FOR z1r = 1 TO 8
FOR z1s = 1 TO 8
FOR z2r = 1 TO 8
FOR z2s = 1 TO 8
GOSUB reihe1
GOSUB reihe2
z1s$ = RIGHT$(STR$(z1s), 1)
z2s$ = RIGHT$(STR$(z2s), 1)
sf$ = z1r$ + z1s$
zf$ = z2r$ + z2s$
IF sf$ <> zf$ THEN
zaehler = zaehler + 1
GOSUB Test
aus$ = z1r$ + z1s$ + "-" + z2r$ + z2s$ + " " + Figuren$
LOCATE 12, 35: PRINT zaehler, aus$
PRINT #1, aus$
END IF
NEXT z2s
NEXT z2r
NEXT z1s
NEXT z1r
CLOSE #1
SYSTEM
reihe1:
IF z1r = 1 THEN z1r$ = "a"
IF z1r = 2 THEN z1r$ = "b"
IF z1r = 3 THEN z1r$ = "c"
IF z1r = 4 THEN z1r$ = "d"
IF z1r = 5 THEN z1r$ = "e"
IF z1r = 6 THEN z1r$ = "f"
IF z1r = 7 THEN z1r$ = "g"
IF z1r = 8 THEN z1r$ = "h"
RETURN
reihe2:
IF z2r = 1 THEN z2r$ = "a"
IF z2r = 2 THEN z2r$ = "b"
IF z2r = 3 THEN z2r$ = "c"
IF z2r = 4 THEN z2r$ = "d"
IF z2r = 5 THEN z2r$ = "e"
IF z2r = 6 THEN z2r$ = "f"
IF z2r = 7 THEN z2r$ = "g"
IF z2r = 8 THEN z2r$ = "h"
RETURN
Test:
Figuren$ = ""
ab = z2r - z1r
abss = z2s - z1s
REM Bauer
IF z1s > 1 AND z1s < 8 THEN
   IF ab >= -1 AND ab <= 1 THEN
      IF abss = 1 OR abss = -1 THEN
         Figuren$ = Figuren$ + "B"
      END IF
      IF ab = 0 AND z1s = 2 AND z2s = 4 THEN
         Figuren$ = Figuren$ + "B"
      END IF
      IF ab = 0 AND z1s = 7 AND z2s = 5 THEN
         Figuren$ = Figuren$ + "B"
      END IF
   END IF
END IF
REM Turm
IF z1r = z2r THEN
   Figuren$ = Figuren$ + "T"
END IF
IF z1s = z2s THEN
   Figuren$ = Figuren$ + "T"
END IF
REM Springer
IF (ab = 2 OR ab = -2) AND (abss = 1 OR abss = -1) THEN
   Figuren$ = Figuren$ + "S"
END IF
IF (abss = 2 OR abss = -2) AND (ab = 1 OR ab = -1) THEN
   Figuren$ = Figuren$ + "S"
END IF
REM Laeufer
IF z1r <> z2r THEN
   IF ab = abss OR -ab = -abss OR ab = -abss OR -ab = abbs THEN
      Figuren$ = Figuren$ + "L"
   END IF
END IF
REM Dame
IF z1r = z2r THEN
   Figuren$ = Figuren$ + "D"
END IF
IF z1s = z2s THEN
   Figuren$ = Figuren$ + "D"
END IF
IF z1r <> z2r THEN
   IF ab = abss OR -ab = -abss OR ab = -abss OR -ab = abbs THEN
      Figuren$ = Figuren$ + "D"
   END IF
END IF
REM Koenig
IF ab >= -1 AND ab <= 1 AND abss >= -1 AND abss <= 1 THEN
   Figuren$ = Figuren$ + "K"
END IF
RETURN

a1-a2 TDK
a1-a3 TD
a1-a4 TD
a1-a5 TD
a1-a6 TD
a1-a7 TD
a1-a8 TD
a1-b1 TDK
a1-b2 LDK
a1-b3 S
a1-b4 
a1-b5 
a1-b6 
a1-b7 
a1-b8

Live and let die

Zitat:

Vielleicht kann DIr auch das weiterhelfen:   ;quot;c:\zuege.txt" FOR OUTPUT AS #1 zaehler = 0 FOR z1r = 1 TO 8 FOR z1s = 1 TO 8 ..... Das ist nur ein Ausschnitt aus der Datei die entsteht. Hinter den Zugmöglichkeiten stehen die Figuren, die diesen Zug ausführen können.

---
Sventke