Das deutsche QBasic- und FreeBASIC-Forum

[volta]

Hi,
ich hab ja schon eine Weile mit Direktsound experimentiert und da sich keine Bugs bisher zeigten, habe ich ein kleines Tutorial dazu geschrieben und eine Zip mit Beispielen auf meiner HP eingerichtet.

Was kann man mit der V_Dsound.inc anfangen?
Damit kann man einen Teil der Möglichkeiten, den Directsound unter Windows bietet, in FreeBASIC - Programmen nutzen.
Sicher kann man schon mit den MCI-Funktionen WAV, MID und MP3 Sounddateien abspielen aber wer das schon als Geräuschkulisse in schnelleren Spielen versuchte bemerkt schnell unsynchrone Effekte.
D.h. optisch erscheint z.B. eine Explosion auf dem Bildschirm und der Knall wird verzögert aus dem Lautsprecher erschallen.
Oder schnell aufeinander folgende Geräusche werden nicht richtig wiedergegeben da nur ein Sound nach dem anderen abgespielt wird.
Das verbessert sich bei Directsound erheblich. Weiter ist es möglich die Lautstärke, die Balance und die Frequenz der wiedergegebenen WAV-Datei zu ändern.
Damit ist es möglich kleine akustische Effekt zu programmieren wie ich es bei dem Spiel Breakout versuchte.
z.B. wenn der Ball am linken Fensterrand anschlägt den Sound nur im linken Kanal auszugeben, entsprechend am rechte Fensterrand nur im rechten Kanal.

Wann setzt man Directsound am besten ein?
WAV-Dateien sind gegenüber MID und MP3 sehr große Dateien, daher ist es ratsam nur recht kurze Effekte damit zu realisieren.
Das PCM-Format der WAV's hat den Vorteil, dass es sofort, ohne Decodierung oder Wandlung, von der Soundkarte ausgegeben werden kann.
Für ein langes Hintergrundträllern eignen sich MID oder MP3, über die MCI-Funktionen abgespielt, wesentlich besser.

Was muss man in den eigenen Quelltext schreiben um die V_Dsound.inc zu nutzen?
Zunächst muss die V_Dsound.inc in das eigene Programm eingebunden werden, mit:

#Include once "V_Dsound.inc"
Ein extra includen der windows.bi kann man sich ersparen, dies wird schon in der V_Dsound.inc gemacht.

Um die Directsound Funktionen einzurichten bedarf es eines Windowhandls.
Für ein mit fbgfx (Screen, Screenres) erstelltes Fenster ist das kein Problem, mit:
Sceen 18,32
Dim As String title = "Volta's DSound"
Windowtitle title
Dim As HWND V_hwnd
v_hwnd = FindWindow(0, title) 'HWND des fbgfx-Window
ist das erledigt.

Mit diesem Handle wird der Directsound initialisiert. Schlägt bei der Initialisierung etwas fehl, wird das ganze Programm beenden.
If V_DSinit(V_hwnd) <> 0 then end
Ich habe die Initialisierung mit etlichen Fehlerabfragen bestückt, im Fehlerfall werden vor dem Programmabbruch extra Fehlerhinweise gegeben.

Danach kann man schon zwei WAV's laden, weil mit der Initialisierung zwei Soundbuffer (0 und 1) eingerichtet wurden.
V_DSLoadSound (0, "sonar.wav")
V_DSLoadSound (1, "pong.wav")
Wie weitere Soundbuffer für mehr WAV's eingerichtet werden folgt später.
Befinden sich die WAV's nicht im selben Verzeichnis muss natürlich der Pfad mit angegeben werden.

Das Abspielen der WAV's geht mit V_DStart(BufferNr) also:
V_DStart(0) 'hier wird sonar.wav abgespielt
Sleep 1000,1 '1 s warten bis abgespielt
V_DStart(1) 'hier wird pong.wav abgespielt
Ohne Sleep dazwischen würden beide WAV's (fast) gleichzeitig abgespielt.

Vor dem beenden des Programms müssen die Soundbuffer ordnungsgemäß entsorgt werden. Dies wird mit:
V_DSExit
End
automatisch für alle erstellten Soundbuffer erledigt.

Zusammengefasst als Beispielprogramm Test_VDSound_1.BAS:

[ytwinky]

Hi volta,
nachdem ich das Tutorial nochmal durchgesehen habe, bin ich immer
noch nicht auf meinen Fehler gekommen..
Gib mir bitte einen Schubs in die richtige Richtung
Daß die 'großen' Dateien nicht abgespielt werden, liegt mglw. an ihrer Größe,
dies trifft auf Anyway.Wav(Nein, die ist nicht extra für Dusky_Joe) aber nicht zu
Im Zip-File sind Source & Inc & die Sounddateien..
Für den schnellen Überblick ist dieser

[volta]

Hi,
ja da fehlt noch etwas in der Beschreibung
Deine Waves haben nicht das Standardformat (22kHz, 16bit, stereo) sondern 11.25kHz, 8bit und mono.
Wie man das umstellt kommt in Kürze.

Ha, achtet da doch einer auf Schleichwerbung?
Irgenwie muss ich mich ja finanzieren!
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater.

[volta]

ooooh,
man kann derzeit alte Beiträge nicht editieren und muss seeeeehr viiiiel Gedult haben.
Mit
V_DSWAVEFORMAT (v_Channels , v_SamplesPerSec , v_BitsPerSample)
also

[ytwinky]

Dankeschön, volta
Anyway.Wav habe ich aus dem Netz irgendwoher, eine Sprachausgabe von leo.org?
Ich habe sie auch nicht bearbeitet..

[Caran]

Die Frage kommt zwar etwas spät, aber wie kann ich die Länge eines Sounds ermitteln?

MfG Caran

[volta]

Hi,
eine Längenangabe habe ich in der VDSound nicht vorgesehen, ist auch meines Wissens nicht in DirectSound enthalten.

Eine überschlägige Berechnung kann man nach folgendem Schema machen:
Abspielzeit = Länge_der_WAV / Abtastrate / (mono=1 ; stereo=2) / (8bit=1 ; 16bit=2)

Also eine 25MB - Wav in 22KHz/s, 16Bit, Stereo
s= 25600 / 22 / 2 /2 ~ 290sek = 4'50Minuten
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater.

[Caran]

Hi Volta,
danke für die schnelle Antwort.
MfG Caran