Kurs:FreeBASIC/Projekte/FBT3/Portal 1.0/Source (neu)

Folgender Quellcode wurde freundlicherweise von Sebastian Steiner unter der Wikiversity-Lizenz (CC-BY-SA 2.5) zur Verfügung gestellt.

Quellcode

Zum Bearbeiten des Quellcodes hier klicken.

FUNCTION SpielerSymbol (ByVal Spieler As Byte) AS STRING
    IF Spieler = 1 THEN
        RETURN "X"
    ELSE
        RETURN "O"
    END IF
END FUNCTION

SUB Sieg (ByVal Spieler As Byte)
    LOCATE 14,1: PRINT "Spieler " & Spieler & " hat gewonnen."
    BEEP: SLEEP: END
END SUB

Dim As Byte Spieler, Feld(1 to 3, 1 to 3), k, x, y, i
CLS
PRINT "Setzspiel"
PRINT "fuer 2 Spieler"
PRINT
PRINT "    1   2   3"
PRINT 
PRINT "1   . | . | ."
PRINT "    - + - + -"
PRINT "2   . | . | ."
PRINT "    - + - + -"
PRINT "3   . | . | ." 
PRINT
Spieler=1
DO
    FOR i = 12 TO 14
        LOCATE i,1: PRINT STRING(79,32)
    NEXT i
    LOCATE 12,1: PRINT "Am Zug: Spieler " & Spieler & " (" & SpielerSymbol(Spieler) & ")"
    LOCATE 13,1: INPUT "An welche Koordinate (XY, z.B. 12 / 0 = Ende) setzen? ", k
    IF k = 0 THEN
        END
    ELSEIF (k < 0) OR ((k > 0 ) AND (k < 11)) OR (k > 33) THEN
        BEEP
    ELSE
        x = VAL(LEFT(STR(k),1))
        y = VAL(RIGHT(STR(k),1))
        IF feld(x,y) > 0 THEN
            LOCATE 14,1: PRINT "Feld ist schon besetzt. Beliebige Taste druecken, um noch mal zu setzen."
            SLEEP
        ELSE
            feld(x,y) = Spieler
            LOCATE 6+((y-1)*2),5+((x-1)*4): PRINT SpielerSymbol(Spieler)
            FOR i = 1 to 3
                IF Feld(i,1) > 0 THEN
                    IF Feld(i,1)=Feld(i,2) AND Feld(i,2)=Feld(i,3) THEN Sieg (Feld(i,1))
                END IF
            NEXT i
            FOR i = 1 to 3
                IF Feld(1,i) > 0 THEN
                    IF Feld(1,i) = Feld(2,i) AND Feld(2,i) = Feld(3,i) THEN Sieg (Feld(1,i))
                END IF
            NEXT i
            IF (Feld(1,1)=Feld(2,2) AND Feld(2,2)=Feld(3,3)) AND (Feld(1,1)>0) THEN Sieg(Feld(1,1))
            IF (Feld(3,1)=Feld(2,2) AND Feld(2,2)=Feld(1,3)) AND (Feld(3,1)>0) THEN Sieg(Feld(3,1))
            Spieler = 3-Spieler
        END IF
    END IF
LOOP
END

Siehe auch

Quelltext