FSR - QBasic Seite 38

AG Informatik

Zur Ausgabe von Tönen über den eingebauten PC-Lautsprecher dient z.B. der SOUND-Befehl. Dieser Befehl erwartet zwei Parameter: die Frequenz des Tones und seine Dauer.

Gib die folgenden Programme ein und starte sie.

       REM Sound1
       CLS
       PRINT "Ein springender Ball ..."
       ton1 = 246
       ton2 = 32767
       FOR zaehler = 60 TO 1 STEP -2
         SOUND ton1 - zaehler / 2, zaehler / 20
         SOUND ton2, zaehler / 15
       NEXT zaehler

       REM Sound2
       CLS
       PRINT "Etwas fällt ..."
       ton1 = 2000
       ton2 = 550
       pause = 500
       FOR zaehler = ton1 TO ton2 STEP -10
         SOUND zaehler, pause / zaehler
       NEXT zaehler

       REM Sound3
       CLS
       PRINT "Alarm ..."
       ton1 = 987
       ton2 = 329
       FOR zaehler = 1 TO 20
         SOUND ton1, 5
         SOUND ton2, 5
       NEXT zaehler

       REM Sound4
       CLS
       PRINT "Sirene ..."
       ton = 780
       bereich = 650
       FOR zaehler1 = 1 TO 6
         FOR zaehler2 = bereich TO -bereich STEP -4
           SOUND ton - ABS(zaehler2), .3
           zaehler2 = zaehler2 - 2 / bereich
         NEXT zaehler2
       NEXT zaehler1

       REM Sound5
       CLS
       PRINT "Noch ein Beispiel ..."
       FOR zaehler = 440 TO 1000 STEP 5
         SOUND zaehler, zaehler / 1000
       NEXT zaehler

Versuche, mit dem SOUND-Befehl eigene Geräusche zu erzeugen. Beachte, daß die Frequenz zwischen 37 und 32767 liegen muß und die Tondauer zwischen 0 und 65535.