FSR - QBasic Seite 25

AG Informatik

Der Bildschirm eines PCs kann unter QBasic in verschiedenen Modi betrieben werden. Man unterscheidet den Text- und den Grafikmodus. Jeder dieser Bildschirmmodi kann mit dem entsprechenden Monitor (Hercules, Monochrom, EGA oder VGA) in verschiedenen Bildschirm-Auflösungen verwendet werden.

Im Standard-Textmodus (ist beim Aufruf von QBasic eingestellt) sind 25 Zeilen zu je 80 Zeichen darstellbar. Zur Einstellung des gewünschten Textmodus verwendet man den Befehl SCREEN und zur Einstellung der Anzahl der Zeilen und Spalten den Befehl WIDTH.

Das folgende Programm stellt den Modus 0 ein und beschreibt alle möglichen Zeilen (bis auf die letzte) mit zufälligen Zeichen. Starte das Programm mehrfach und gib für die Anzahl der Zeilen und Spalten unterschiedliche Werte ein. Beobachte die Bildschirmausgaben.

       REM Textmodus1
       SCREEN 0
       RANDOMIZE TIMER
       INPUT "Anzahl der Zeilen (25, 43 oder 50): ",zeilen
       INPUT "Anzahl der Spalten (40 oder 80): ",spalten
       WIDTH spalten,zeilen
       CLS
       FOR z=1 TO zeilen-1
         FOR s=1 TO spalten
           PRINT CHR$(65+INT(26*RND));
         NEXT s
       NEXT z

Abhängig vom verwendeten Bildschirmmodus können verschiedene Farben verwendet werden (meist 16 Farben mit den Farbnummern 0 bis 15). Der Befehl zur Einstellung der Farben (Vordergrund- und Hintergrundfarbe) heißt COLOR.

Ergänze obiges Programm wie folgt und starte das Programm mehrfach. Die Vordergrundfarben (0 bis 15) werden per Zufall gewählt, die Hintergrundfarbe (0 bis 7) kann in Zeile 10 verändert werden.

       REM Textmodus2
       SCREEN 0
       RANDOMIZE TIMER
       INPUT "Anzahl der Zeilen (25, 43 oder 50): ",zeilen
       INPUT "Anzahl der Spalten (40 oder 80): ",spalten
       WIDTH spalten,zeilen
       CLS
       FOR z=1 TO zeilen-1
         FOR s=1 TO spalten
           hintergrundfarbe=0
           vordergrundfarbe=INT(15*RND)
           COLOR vordergrundfarbe, hintergrundfarbe
           PRINT CHR$(65+INT(26*RND));
         NEXT s
       NEXT z