Bisher sahen die Beispielprogramme langweilig, weil farblos, aus. In diesem Kapitel möchte ich versuchen dies zu ändern. Versuchen Sie sich doch gleich einmal an folgendem Programm:
REM-------------------------------------------------------------- REM Titel: COLOR01.BAS REM Autor: Marty Winkler REM Datum: 27.12.2001 REM-------------------------------------------------------------- DEFINT A-Z SCREEN 0 CLS FOR Farbe = 0 TO 15 COLOR Farbe PRINT "Farbnummer:"; Farbe NEXT COLOR 7 |
Und hier eine Erklärung zum Beispielprogramm:
| DEFINT A-Z | Alle Variablen sind vom Typ INTEGER |
| SCREEN 0 | Mit dem Befehl SCREEN 0 wird der Textmodus
aktiviert. |
| CLS | Bildschirm reinigen |
| FOR Farbe = 0 TO 15 | "Für Farbe = 0 bis Farbe = 15 tue:" |
| COLOR Farbe | In dieser Befehlszeile wird die Schriftfarbe festgelegt. Eine Auflistung der Farben
finden Sie unter dieser Tabelle. |
| PRINT "Farbnummer:"; Farbe | Anzeigen der Farbnummer |
| NEXT | Hier wird die Schleife geschlossen |
| COLOR 7 | Standardfarbe wiederherstellen (Schriftfarbe auf hellgrau setzen) |
Und hier sind wie versprochen die Farbnummern für den Textmodus:
0 Schwarz 8 Dunkelgrau 1 Blau 9 Hellblau 2 Grün 10 Hellgrün 3 Zyan 11 Hellzyan 4 Rot 12 Hellrot 5 Magenta 13 Hellviolett 6 Braun 14 Gelb 7 Hellgrau 15 Weiß
Es gibt auch die Möglichkeit, den Text zum Blinken zu bringen. Und zwar addiert man einfach 16 zu der entsprechenden Farbnummer hinzu. Die blinkenden Versionen der jeweiligen Farben erhalten Sie, wenn Sie die folgende Befehlszeile
FOR Farbe = 0 TO 15
durch diese ersetzen:
FOR Farbe = 16 TO 31