Krach, Geräusche, Töne und Musik

Deklaration und Aufruf | Beispiele: Systemtöne | Beispiel: .wav-Dateien abspielen
Beispiel: Töne

Ältere Basic-Versionen erlaubten es teilweise, Töne zu programmieren. Das kann Visual Basic (theoretisch und beinahe) auch. Es gibt nämlich den Uralt-Befehl "Beep", der ein Tönchen erzeugen soll. Allerdings hat man mit ihm wenig Freude. Er ist nämlich auf modernen Rechnern so kurz, daß man ihn nicht mehr hören kann. Wiederholt man ihn immer wieder, dann reicht es bestenfalls zu einem Knattern des im Rechner eingebauten Lautsprechers (Falls der noch da ist!).
Musik oder Sprachdateien können ebenfalls mit Visual Basic allein nicht abgespielt werden. Hier muß weiter ausgeholt werden.
Die API von Windows, das "Application Programming Interface", steht ähnlich wie die GDI für den Nutzer zur Verfügung. Es enthält viele nützliche Routinen, mit deren Hilfe man alle die Dinge realisieren kann, die in Visual Basic selbst nicht vorgesehen sind. Wie bei GDI-Aufrufen muss eine Reihe von Vorkehrungen getroffen werden. Etwa 1500 API-Funktionen sind verfügbar. Nicht alle sind in Visual Basic verwendbar. Der Grund ist, daß für die API-Aufrufe meist bestimmte Variable erforderlich sind. Visual Basic enthält nicht alle dabei vorkommenden Datentypen. Für Zwecke der Tonerzeugung allgemein (Ansprechen des eingebauten Lautsprechers oder der Soundkarte) stehen die Funktionen sndPlaySound, PlaySound, Beep, MessageBeep u. A. zu Verfügung. Unten sind die zugehörigen Aufrufe gezeigt.

Deklaration und Aufruf

Das Programmprojekt muß einen " Modul " erhalten, der, wenn noch nicht vorhanden über "Projekt" / "Modul hinzufügen" geladen wird. Module sind für Deklarationen bestimmt, wie die der Windows API oder der GDI, für die Deklaration von Variablen, die im ganzen Projekt gelten sollen, für Sub's und Funktionen, die von unterschiedlichen Formularen eines Projektes aufgerufen werden sollen. Wenn ein Modul eingefügt worden ist, sollte der Programmstart über dieses Modul erfolgen. Dazu dient ein Sub Main, das sich auf dem Modul befindet und beispielsweise die Werte wichtiger Parameter setzt und das Startformular aufruft.
Die Deklaration einer Windows-Funktion muß den Namen und die Aufrufparameter enthalten. Man kann sie, wenn bekannt, im Deklarationsteil des Moduls eintragen, bequemer ist jedoch die Nutzung eines einzubindenden Katalogs: Unter "Add-Inns" wird mit dem "Add-Inn-Manager" der "VB API-Viewer" geladen.
Dieser Vorgang führt dazu, daß am Ende des "Add-Inn"-Menüs dieser "API-Viewer" ( = API-Angucker) angeboten wird. Öffnen dieses Viewers ergibt ein zunächst leeres Fenster. Unter "Öffnen" wähle man "Textdatei laden", im Ordner "VB5" / "Winapi" / "Win32Api.txt". Dazu die Option "Deklarationen". Es erscheinen einige hundert Windows-Funktionen, unter denen man die gesuchte auswählt. Mit "Kopieren" wird die Deklaration in die Zwischenablage übernommen. Man fügt nach Schließen des API-Viewers in den Deklarationsteil des Moduls ein und hat damit die Windowsroutine zur Verfügung.
Der Aufruf kann in zwei Formen erfolgen: 1 . mit einer Hilfsvariablen, die nach dem Aufruf meist eine Erfolgskennung (=1) oder Meldung eines Fehlers (=0) enthält. Es folgt die zuweisende Funktion mit den Aufrufparametern. Beipiel: HilfsVar = API_Funktion(Par1,Par2, ...) oder b. mit Call API_Funktion(Par1,Par2, ...)

Beispiele: Systemtöne

Bei Windows lassen sich "akustische Signale" über Fehlbedienungen, Programmaufrufe etc. in der Systemsteuerung wählen. Man kann, wenn man ihre Nummer kennt, solche Signale auch vom vb-Programm auslösen lassen. Um das zu zeigen, muß zunächst, wie oben erläutert, in einem Modul die Funktion "MessageBeep" deklariert werden.

Declare Function MessageBeep Lib "user32" Alias "MessageBeep" (ByVal wType As Long) As Long

Im Programm bringe man dann zum Probieren dies unter:

Dim i As Long for i = 0 to 250

MessageBeep(i)

next

Beim Durchlaufen dieses Codes hört man alle eingestellten akustischen Signale nacheinander. (Wieviele Nummern zulässig sind, weiß ich nicht!). Gleich nach längeren Experimenten weiß man, welche Systemtöne zu welchen Nummern gehören. Daß ein zweiter Programmnutzer auf seinem Rechner die gleichen Signaltöne eingestellt hat, ist nicht wahrscheinlich. Was er bei Nutzung dieser Funktion hört und ob er überhaupt etwas hört, ist nicht vorherzusehen.

Beispiel: .wav-Dateien abspielen

Zum Abspielen einer .wav-Datei, die Sprache, Musik oder Geräusche enthalten kann, ist wieder die Deklaration, diesmal von "sndPlaySound" erforderlich.

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
oder
Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Im Programm steht an gewünschter Stelle der eigentliche Aufruf:

Call sndPlaySound("pfad/dateiname.wav",0)
oder
Call PlaySound("pfad/dateiname.wav",0,0)
oder alternativ, mit der Hilfsvariablen, hier "Klang" genannt:
Dim Klang As Long Klang = sndPlaySound("pfad/dateiname.wav",0)
oder
Klang = PlaySound("pfad/dateiname.wav",0,0)

Die Bedeutung der Konstanten, die ich hier einfach auf Null setze, ist mir nicht bekannt, es klappt aber so.

Beispiel: Töne

Eine der API-Deklarationen sieht sehr hübsch aus:

Public Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Man könnte glauben, dies sei die Funktion zum Produzieren von Tönen, deren Frequenz und Dauer anzugeben ist. Unter Windows 95 und 98 funktioniert sie nicht. Wie ich erfuhr, funktioniert sie aber unter Windows NT und Windows 2000. Es bedeuten dwFreq die Frequenz, zulässig ist der Bereich von 37 bis 32,767 (Hz), dwDuration steht für die Dauer in ms.