FSR - QBasic Seite 27

AG Informatik

Der Bildschirm ist standardmäßig in verschiedene Tabulatorspalten eingeteilt. Um Texte in einer Zeile genauer per Tabulator ausrichten zu können, benutzt man die TAB-Funktion (nicht zu verwechseln mit der TAB-Taste!).

Das folgende Programm verwendet die voreingestellten Tabulatorspalten des PRINT-Befehls (beachte das Komma am Ende des PRINT-Befehls).
```
       REM Textmodus6
       CLS
       FOR i=1 TO 10
         PRINT i*5,
       NEXT i
```

Im folgenden Programm wird das kleine Einmaleins dargestellt (10 Zeilen und 10 Spalten). Bei einer Bildschirmbreite von 80 Spalten muß also in jeder 8. Spalte ein Tabulator gesetzt werden.

       REM Textmodus7
       CLS
       PRINT "Das kleine Einmaleins"
       PRINT "---------------------"
       PRINT
       FOR i=1 TO 10
         FOR j=1 TO 10
          PRINT TAB(j*8-7); i*j;
         NEXT j
         PRINT
       NEXT i

Das folgende Programm ist eine kleine Spielerei mit der TAB-Funktion. Die Geschwindigkeit der Bildschirmanzeige läßt sich mit der FOR.NEXT-Schleife in Zeile 15 (Wert 1000) regulieren. Beendet wird das Programm durch einen beliebigen Tastendruck.

       REM Textmodus8
       CLS
       LET spalte=1
       LET farbe=1
       LET zuwachs=1
       DO
         a$=INKEY$
         COLOR farbe
         PRINT TAB(spalte);"Informatik-AG";
         LET farbe=farbe+1
         IF farbe>15 THEN LET farbe=1
         LET spalte=spalte+zuwachs
         IF spalte>66 THEN LET zuwachs=-1
         IF spalte<2 THEN LET zuwachs=1
         FOR pause=1 TO 1000
         NEXT pause
       LOOP UNTIL a$<>""