|
Gestion de la carte son |
|
Inscrit: 18/12/2003 13:14
Post(s): 212
|
Voila une question trouvée sur la partie article du site, dire que sa place est dans les forums ici. Citation : Qui pourrait m'aider sur windev 8 ? :
Pour enregistrer un son venant du microphone je dois :
- sélectionner le microphone comme source d'enregistrement, - mettre le volume de l'enregistrement micro à fond.
Pour le lire je dois sur le séquenceur :
- enlevé le mute (s'il exite) sur le volume général et le wave - mettre le mute sur line in et micro (pour éviter le bruit parasite) - mettre le volume du wave et le volume général à fond
à la fin (si c'est possible) :
- repositionner les réglages tel qu'il était. Ce qui suppose de les enregistrés avant.
J'espère qu'une âme charitable viendra à mon secour.
Contribution le : 29/07/2004 12:32
|
|
|
Re: Gestion de la carte son |
|
Animateur WDF
Inscrit: 02/03/2003 04:07
De Noisy le grand(93)
Post(s): 2745
|
Salut, Voir du coté du DirectSound directx exemple de code en vb
Public DirectX As New DirectX7
Public DS As DirectSound
Public DSBuffer As DirectSoundBuffer
Private Sub Form_Load()
Set DS = DirectX.DirectSoundCreate("")
DS.SetCooperativeLevel Form1.hWnd, DSSCL_PRIORITY
End Sub
Sub LoadWave(File As String)
Dim bufferDesc As DSBUFFERDESC
Dim waveFormat As WAVEFORMATEX
bufferDesc.lFlags = DSBCAPS_CTRLFREQUENCY Or DSBCAPS_CTRLPAN Or DSBCAPS_CTRLVOLUME Or DSBCAPS_STATIC
waveFormat.nFormatTag = WAVE_FORMAT_PCM
waveFormat.nChannels = 2
waveFormat.lSamplesPerSec = 22050
waveFormat.nBitsPerSample = 16
waveFormat.nBlockAlign = waveFormat.nBitsPerSample / 8 * waveFormat.nChannels
waveFormat.lAvgBytesPerSec = waveFormat.lSamplesPerSec * waveFormat.nBlockAlign
Set DSBuffer = DS.CreateSoundBufferFromFile(File, bufferDesc, waveFormat)
End Sub
Sub DSStop ()
DSBuffer.Stop
End Sub
Sub DSPlay ()
DSBuffer.Play DSBPLAY_DEFAULT
End Sub
Function Volume(vol As Long)
If vol > 0 Then vol = 0
If vol < -5000 Then vol = -5000
DSBuffer.SetVolume vol
End Function
. pour gerer le son
Function Volume(vol As Long)
If vol > 0 Then vol = 0
If vol < -5000 Then vol = -5000
DSBuffer.SetVolume vol
End Function
.
Ces codes sont issues du site Visual Basic codes sources auteur : DxuTAleX
Contribution le : 29/07/2004 14:02
|
|
Vous ne pouvez pas débuter de nouveaux sujets.
Vous pouvez voir les sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.