Kurs:FreeBASIC/Projekte/FBT3/0001

Community

• FB-Portal

Forum

• Allgemein
• Graphik

Lerngruppen

• Testlauf
• Files-Group

Material

• Referenz

---

• Datentypen
• Farben
• ASCII

---

• FAQ

---

• Weblinks

Projekte

Support

• Open problems
• Fehler

---

• FAQ

Version 0001 ist fertig. Möglicherweise bin ich schneller fertig, wenn ich schreibe, was funktioniert. --Michael Reschke 18:27, 18. Jul. 2008 (CEST)

Quellcode

Der Quellcode lautet:

' - - - - Meine Variablen und meine Unterprogramme  - - - - - -
DIM AS Integer Eingabe, x, Spieler
Spieler = 1 'Verwaltet die Spieler-Züge (1 und 2)

' - - - - Zeichne das Spielfeld - - - - - - - - - - - - - - - -
PRINT "Ein Spiel"
PRINT "fuer 2 Spieler"
PRINT
PRINT "    1   2   3"
PRINT 
PRINT "1   . | . | ."
PRINT "    - + - + -"
PRINT "2   . | . | ."
PRINT "    - + - + -"
PRINT "3   . | . | ." : PRINT 

' - - - - Die Programmschleife  - - - - - - - - - - - - - - - -
For x = 1 to 9
    
    Locate 12,68
    PRINT "      "
    
    Locate 12,1
    INPUT "Bitte geben Sie abwechselnd eine Koordinate (z. B. 11 oder 31) ein: ", Eingabe

SELECT CASE Eingabe
    CASE 11
    
      Locate 6,5
      If Spieler = 1 Then
          Print "X"
      Else
          Print "0"
      End If
      
    CASE 12
        
      Locate 8,5
      If Spieler = 1 Then
          Print "X"
      Else
          Print "0"
      End If
      
    CASE 13
        
      Locate 10,5
      If Spieler = 1 Then
          Print "X"
      Else
          Print "0"
      End If
      
    CASE 21
        
      Locate 6,9
      If Spieler = 1 Then
          Print "X"
      Else
          Print "0"
      End If

    CASE 22
        
      Locate 8,9
      If Spieler = 1 Then
          Print "X"
      Else
          Print "0"
      End If

    CASE 23
        
      Locate 10,9
      If Spieler = 1 Then
          Print "X"
      Else
          Print "0"
      End If
        
    CASE 31
        
      Locate 6,13
      If Spieler = 1 Then
          Print "X"
      Else
          Print "0"
      End If
      
    CASE 32
        
      Locate 8,13
      If Spieler = 1 Then
          Print "X"
      Else
          Print "0"
      End If
      
    CASE 33
        
      Locate 10,13
      If Spieler = 1 Then
          Print "X"
      Else
          Print "0"
      End If
      
    CASE ELSE
      
      Locate 12,1
      PRINT "Die Eingabe war ungueltig. Bitte geben Sie erneut eine Koordinate ein.    "
      Sleep

END SELECT

'Verwaltet die Spieler
If Spieler = 1 Then
    Spieler = 2
Else
    Spieler = 1
End If

Next x
' - - - - Das Ergebnis - - - -  - - - - - - - - - - - - - - - -

Locate 14,1
Print "Moeglicherweise hat ein Spieler gewonnen."
Print "Bei diesem Spiel weiss man das nie so genau."
Print "Zum Beenden des Programms eine Taste druecken."

' - - - - Programmende - - - -  - - - - - - - - - - - - - - - -
Sleep

Bugs

Bug notieren und bitte einen Eintrag mit --~~~~ abschließen (signieren).

• Das Programm funktioniert praktisch nur bei intelligentem User bzw. wohlwollender und vorausschauender Bedienung. --Michael Reschke 18:27, 18. Jul. 2008 (CEST)
• Es ist noch möglich ein gesetztes Kreuz durch einen Kreis (und umgekehrt) zu überschreiben. --Michael Reschke 18:27, 18. Jul. 2008 (CEST)
• Das Programm kann nicht vorzeitig abgebrochen werden. --Michael Reschke 18:27, 18. Jul. 2008 (CEST)

Nächste Version (vorgesehene Features)

Folgende Sachen sollen überarbeitet werden:

• Die If-Anweisung (1 bis 9) soll durch eine Do-Loop-Schleife ersetzt werden.
• Es soll ein Überschreiben von gesetzten Symbolen unterbunden werden.
• Es soll abgefragt werden, wer gewonnen hat.

Feedback

Bitte hierfür die Diskussionsseite nutzen. Vielen Dank!

Kommentar(e)

• Das Programm hat jetzt bereits 137 Programmzeilen, was mich zu der Frage führt, ob ich denn da auch alles richtig gemacht haben kann... --Michael Reschke 18:27, 18. Jul. 2008 (CEST)