visual basic et directsound

Version imprimable

23/10/2007, 12h14
yvanovitch

1 pièce(s) jointe(s)

visual basic et directsound

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
23/10/2007, 13h25
yvanovitch

en fait , la boucle for next n'est pas utile
23/10/2007, 23h07
ProgElecT

Interessant, encore un domaine a approfondir (je parle de moi bien sûr ;))
25/10/2007, 14h38
LeForestier

Citation:

Envoyé par ProgElecT

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. :P
A+
Edit:
Il y a probablement une librairie ou un contrôle à ajouter mais je ne parvient pas à le trouver ?
Pourrais-tu le renseigner ?

Salut

Citation:

Envoyé par LeForestier

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:

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

28/10/2007, 17h56
LeForestier

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