FSR - QBasic Seite 22

AG Informatik

Die Kombination der bisher vorgestellten Zeichenkettenfunktionen stellt ein mächtiges Werkzeug dar. Damit lassen sich nahezu alle Veränderungen einer beliebigen Zeichenkette vornehmen.

Das folgende Programm erwartet die Eingabe eines Vokals. In der Zeichenkette x$ werden dann alle anderen Vokale durch den ausgewählten ersetzt. Der Variablen r$ wird das Zeichen 13 (r$=CHR$(13)) zugeordnet. Dieses Zeichen bewirkt in einer Zeichenkette, daß bei ihrer Darstellung auf dem Bildschirm eine neue Zeile angefangen wird.

       REM Strings12
       CLS
       PRINT "Drei Chinesen"
       PRINT "-------------"
       INPUT "Vokal:", y$
       r$ = CHR$(13)
       x$ = "Drei Chinesen mit dem Kontrabaß" + r$
       x$ = x$ + "saßen auf der Straße und erzählten sich was" + r$
       x$ = x$ + "da kam die Polizei, ja was ist denn das" + r$
       x$ = x$ + "Drei Chinesen mit dem Kontrabaß."
       PRINT x$
       PRINT
       PRINT "Mit dem Vokal "; y$; ":"
       FOR n = 1 TO LEN(x$)
         b$ = MID$(x$, n, 1)
         c = INSTR("aeiouäöü", b$)
         IF c > 0 THEN MID$(x$, n, 1) = LCASE$(y$)
         b$ = MID$(x$, n, 1)
         c = INSTR("AEIOUÄÖÜ", b$)
         IF c > 0 THEN MID$(x$, n, 1) = UCASE$(y$)
       NEXT n
       PRINT x$

Sehr wichtig ist auch die Abfrage der Tastatur, um festzustellen, welche Taste der Anwender gedrückt hat.

       REM Tastaturabfrage
       CLS
       PRINT "Drücke verschiedene Tasten auf der Tastatur."
       PRINT "Das Programm wird beendet durch ESC."
       PRINT STRING$(79, "-")
       PRINT
       DO
         t$ = INKEY$
         IF t$ <> "" THEN
           PRINT t$; ", Länge der Zeichenkette: "; LEN(t$);
           PRINT ", Codes: ";
           FOR n = 1 TO LEN(t$)
             PRINT ASC(MID$(t$, n, 1)); " ";
           NEXT n
           PRINT
         END IF
       LOOP UNTIL t$ = CHR$(27)