enregistrement a partir du microphone sur vb express 2005

Question

Bonjour,
je travaille sur Visual Basic Express 2005 et je cherche à ce que le programme que je suis en train de dévelloper puisse enregistrer du son à partir du micro du PC.
J'arrive à le faire lire sans probleme un fichier wav mais des qu'il s'agit de capter et d'enregistrer du son, je cale.
Quelqu'un peut-il m'aider ?
merci beaucoup d'avance

ShareVB · Answer

salut,

il n'y a effectivement pas grand chose sur google :
http://www.vbfrance.com/infomsg_ENREGISTRER-MICROPHONE_838092.aspx
http://www.codeproject.com/cs/media/nbass.asp

ShareVB

pape0 · Answer

Essai cela.
Public

Class Form1 

Private
Declare
Function mciSendString 
Lib
"winmm.dll"
Alias
"mciSendStringA" (
ByVal lpstrCommand 
As
String, 
ByVal lpstrReturnString 
As
String, 
ByVal uReturnLength 
As
Integer, 
ByVal hwndCallback 
As
Integer) 
As
Integer

Private
Sub Button1_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Button1.Click

' record from microphonemciSendString(

"open new Type waveaudio Alias recsound", vbNullString, 0, 0)mciSendString(

"record recsound", vbNullString, 0, 0)

End
Sub

Private
Sub Button2_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Button2.Click

' stop and save mciSendString(

"save recsound c:\record.wav", vbNullString, 0, 0)mciSendString(

"close recsound", vbNullString, 0, 0)

End
Sub

Private
Sub Button3_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Button3.Click

' play audio

My.Computer.Audio.Play(
"c:\record.wav", AudioPlayMode.WaitToComplete)

End
SubEnd

Class

<hr />
Aller voir ces sites 
http://www.pape-bleu.net
  ou http://www.papebleu.net.

Enregistrement a partir du microphone sur vb express 2005

2 réponses

Votre réponse

Discussions similaires