Code-Beispiel

Wav-Dateien abspielen

Lizenz:	Erster Autor:	Letzte Bearbeitung:
k. A.	Eternal_Pain	07.04.2012

Quelle:fb@rchive
Autor:Volta

Wav-Dateien über die API-Funktion sndPlaySoundA abspielen,
auch als Hintergrundmusik oder Endlosschleife.
Viel Spass damit wünscht euch Volta

'Wav-Dateien abspielen, auch als endlos Hintergrundmusik.

'Die WAV-Dateien aus dem Listing müssen nicht im gleichen Verzeichnis auf Ihrem PC liegen

'einfach mal nach die Datei "ding.wav" suchen und den Pfad anpassen.





#include once "windows.bi"

#include once "win/mmsystem.bi"

'SND_SYNC = 0 'Programmausführung wartet bis Sound abgespielt

'SND_ASYNC = 1 'Sound wird im Hintergrund abgespielt

'SND_NODEFAULT = 2 'wird die WAV nicht gefunden kein Sound abspielen (sonst default)

'SND_LOOP = 8 'Endlosschleife bis Aufruf sndPlaySound ohne SND_LOOP (besser mit SND_ASYNC aufrufen)

'declare function sndPlaySound alias "sndPlaySoundA" (byval as LPCSTR, byval as UINT) as BOOL



'Programmausführung wartet bis Sound abgespielt

Dim Pfad as String



Pfad="C:\WINDOWS\Media\"

Do: Print "+";

sndPlaySound Pfad & "ding.wav", SND_SYNC

Loop While InKey$=""

Print

'Sound wird im Hintergrund abgespielt

sndPlaySound Pfad & "ringin.wav", SND_ASYNC Or SND_LOOP

Do: Print "-"; : Sleep 120 : Loop While InKey$=""

Print

sndPlaySound Pfad & "ringout.wav", SND_ASYNC Or SND_LOOP

Do: Print "x"; : Sleep 120 : Loop While InKey$=""

Print

'Damit die Soundausgabe endet ohne SND_LOOP aufrufen

sndPlaySound " ",SND_ASYNC

Sleep

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 13.06.2007 von Eternal_Pain angelegt.
Die aktuellste Version wurde am 07.04.2012 von Volta gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.