Discussion :

[yvanovitch]

Bonjour ,
Voici pour ceux que cela interresse quelques manipulations simples pour lire des fichiers son simultanément et même pour créer simplement de l'écho ou réverbération (en fonction des valeurs) .
Voir le fichier joint.
A créer dans le programme , une form , un module et sur la form mettre 3x boutons de commande.
Salutations à tous

[yvanovitch]

en fait , la boucle for next n'est pas utile

[ProgElecT]

Interessant, encore un domaine a approfondir (je parle de moi bien sûr )

[LeForestier]

Interessant, encore un domaine a approfondir (je parle de moi bien sûr )

Bonjour,
idem pour moi.
Ce serrai plus façile si tu mettais la source en Zip plutôt qu'une DOC, cela permettrait de tester directement.
A+
Edit:
Il y a probablement une librairie ou un contrôle à ajouter mais je ne parvient pas à le trouver ?
Pourrais-tu le renseigner ?

[ProgElecT]

Salut

Il y a probablement une librairie ou un contrôle à ajouter

Library DxVBLib
C:\WINDOWS\System32\dx7vb.dll
Réference de DirectX 7 for Visual Basic Type Library

Motif de l'edit
Des fois sa peut rendre service
Library DxVBLibA
C:\WINDOWS\system32\dx8vb.dll
Réference de DirectX 8 for Visual Basic Type Library
dans le module,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public DirectX As New DirectX8 'DirectX7 ' init des différents paramètres de DirectX
Public DS As DirectSound8  'DirectSound
Public monfichier As DirectSoundSecondaryBuffer8 ' DirectSoundBuffer ' et des différents fichiers wave
Public monfichierA As DirectSoundSecondaryBuffer8 'DirectSoundBuffer
Public monfichierB As DirectSoundSecondaryBuffer8  'DirectSoundBuffer
 
Sub LoadWave() ' création des différents fichiers wave
Dim bufferDesc As DSBUFFERDESC
'Dim waveFormat As WAVEFORMATEX
bufferDesc.lFlags = DSBCAPS_CTRLFREQUENCY Or DSBCAPS_CTRLPAN Or DSBCAPS_CTRLVOLUME Or DSBCAPS_STATIC
Set monfichier = DS.CreateSoundBufferFromFile("C:\ploutounette\VOICE\SONA3.WAV", bufferDesc) ', waveFormat)
Set monfichierA = DS.CreateSoundBufferFromFile("C:\ploutounette\VOICE\SONA3.WAV", bufferDesc) ', waveFormat)
Set monfichierB = DS.CreateSoundBufferFromFile("C:\ploutounette\VOICE\SONA3.WAV", bufferDesc) ', waveFormat)
End Sub

[LeForestier]

Merci ProgElect, je vais explorer pour la trouver.
Cordialement.