DIRECTX TUTO 5 : GÉRER LE SON

Tous d abord se le format WAV (Waveform Audio Vector) à était créé par Microsoft. 8, 16 ou 32 bits avec des fréquences de 11 à 44 KHz (en général) et mono ou stéréo, c'est ce que nous allons gérer.

Pour pouvoir utiliser les fichiers au format wav il faut utiliser DirectSound, donc initialiser celui-ci en premier :

Public DS               As DirectSound               ' Explicite non ?

Ensuite il faut donner les informations nécessaires à directsound pour qu'il sache lire notre format wav :

Set DS = DX.DirectSoundCreate("")                      'Pas de problème, création de ' l'objet DirectSound

    DS.SetCooperativeLevel Form1.hWnd, DSSCL_PRIORITY   'C'est la form 1 qui 
'gère les sorties du son et que c'est notre application qui a les priorités sur les 
'autres (au niveau du son)

    If Err.Number <> 0 Then          'Dans le cas d'une erreur
                 MsgBox ("Impossible de démarrer DirectSound. Vérifiez que votre carte son est bien installée.")
                 End                          ' On arrete l'application
    End If
    
    
Dim bufferDesc As DSBUFFERDESC          'Cette variable accueille les caractéristiques 'nécessaires à la lecture.

bufferDesc.lFlags = DSBCAPS_CTRLFREQUENCY Or DSBCAPS_CTRLPAN Or DSBCAPS_CTRLVOLUME Or DSBCAPS_STATIC
'Les modes du format, la fréquence, le pan, le volume et on charge tout le fichier 
'son en mémoire avec DSBCAPS_STATIC

    Dim waveFormat As WAVEFORMATEX                      'Définition du format wav 
'dans cette variable
waveFormat.nFormatTag = WAVE_FORMAT_PCM     'PCM = Pulse Code Modulation
waveFormat.nChannels = 2                                  'Rappeler vous les vieux nous
waveFormat.lSamplesPerSec = 22050                    'devions spécifier tout cela ...
waveFormat.nBitsPerSample = 16
waveFormat.nBlockAlign = waveFormat.nBitsPerSample / 8 * waveFormat.nChannels
    
waveFormat.lAvgBytesPerSec = waveFormat.lSamplesPerSec * waveFormat.nBlockAlign

Et voilà maintenant on est prés à mettre en mémoire un fichier wav pour le jouer.

C est presque comme pour DirectDraw :

Dim MonWAV As DirectSoundBuffer        'Création d'une mémoire accueillant le 'fichier son

Set MonWAV = DS.CreateSoundBufferFromFile(App.Path & "\MonWAV", bufferDesc, waveFormat)     'On donne le path du fichier


Et voila notre fichier son est en mémoire.

Pour le jouer rien de plus simple :

MonWAV.Play DSBPLAY_DEFAULT     'Play = jouer (lol)

Et voila pas plus pour un fichier son.