FSR - QBasic Seite 39

AG Informatik

Auch mit dem PLAY-Befehl können in QBasic Töne erzeugt werden. Die Anwendung dieses Befehles ist jedoch ungleich komplizierter. Als Parameter erwartet der PLAY-Befehl eine Zeichenkette wie z.B. "AFG".

Gib das folgende Programm ein und starte es.
```
       REM Play1
       tonlaenge = "L2"
       oktave$ = "O1"
       noten$ = "CDEFGAB"
       PLAY tonlaenge$
       PLAY oktave$
       PLAY noten$
```
Die Tonlänge kann im Bereich von L1 bis L64 variiert werden. L1 bedeutet ganze Noten, L2 halbe Noten, L4 viertel Noten, usw.
Die Oktave wird mitt O0 bis O6 gewählt. Mit dem Größer-Zeichen (>) kann die Oktave erhöht werden, mit dem Kleiner-Zeichen (<) wird sie erniedrigt.
Als Noten pro Oktave sind erlaubt: C, D, E, F, G, A, B.
Teste auch die folgenden Programme.
```
       REM Play2
       lvb$ = "O2 P2 P8 L8 GGG L2 E- P24 P8 L8 FFF L2 D"
       PLAY lvb$
```
Pausen können mit dem Buchstaben P eingeleitet werden. Mögliche Werte sind P1 bis P64.
Soll eine Note um einen Halbtonschritt erhöht oder erniedrigt werden, hängt man an den Buchstaben der Note ein Pluszeichen (+) oder ein Minuszeichen (-) an. Anstelle des Pluszeichens kann auch das Doppelkreuz (#) verwendet werden.
```
       REM Play3
       lied$ = "O1 L4 CD L8 ED L4 CCD L8 ED L4 CEF L2 G L4 EF L2 G"
       PLAY lied$
```

Zum Abschluß noch ein etwas umfangreicheres Musikbeispiel.

       REM Play4
       n$ = ""
       n$ = n$ + "o2 t80 l4 > C L8 C L16 < B > C < D >"
       n$ = n$ + "C < BA L8 > C L16 C < A L4 > C L8 C L16 < B> C"
       n$ = n$ + "< AGEF L2 G L16 GFEDEFGA L4 G"
       n$ = n$ + "G L16 GABAGFEDED L8 C L16 CD L8 EF"
       n$ = n$ + "L4 D L2 G L8 P8 L4 > D L8 DC L16 < BAB > CD"
       n$ = n$ + "C L8 < B L16 B > C < BA > C < BAF L8 F L16 FF L8 FA"
       n$ = n$ + "L16 > C < ABG L8 F L16 FF L8 FA L16 BG"
       n$ = n$ + "AF L8 D L16 DC L4 D L8 D L16 DD L8 DF"
       n$ = n$ + "L16 AFGE L8 D L16 DC L4 D L8 D"
       n$ = n$ + "L16 DC L8 D L16 EF L2 G L16 GFED L3 C"
       PLAY n$

Der Tempo-Befehl in Zeile 3 (T80) legt fest, wie schnell das Stück gespielt wird. Versuche auch andere Werte (T32 bis T255).