Enregistrer le Microphone [Résolu]

Question

Posez votre question Signaler Répondre au sujet

Enregistrer le Microphone [Résolu]

pape0 133 Messages postés mercredi 18 février 2004Date d'inscription 1 septembre 2014 Dernière intervention - 5 sept. 2007 à 12:58 - Dernière réponse : NHenry 14138 Messages postés vendredi 14 mars 2003Date d'inscription 26 avril 2018 Dernière intervention

- 28 mai 2008 à 09:12

VB.NET Posez votre question Signaler Répondre au sujet

Je suis a la recherche d'un code qui permettrais d'enregistrer le microphone en format wav.

<hr />
Aller voir ces sites ou http://www.papebleu.net.

Afficher la suite

7 réponses

Répondre au sujet

Signaler Commenter la réponse de cs_juju12

cs_juju12 968 Messages postés samedi 3 avril 2004Date d'inscription 4 mars 2010 Dernière intervention - 5 sept. 2007 à 13:57

0

Utile

Regarde les APIs du type waveInOpen etc...

Signaler Commenter la réponse de pape0

pape0 133 Messages postés mercredi 18 février 2004Date d'inscription 1 septembre 2014 Dernière intervention - 10 sept. 2007 à 20:31

0

Utile

Merci ca marche.

<hr />
Aller voir ces sites ou http://www.papebleu.net.

Signaler Commenter la réponse de comemich

comemich 39 Messages postés jeudi 3 février 2005Date d'inscription 23 août 2017 Dernière intervention - 8 nov. 2007 à 11:20

0

Utile

Bonjour,
ça marche avec :
save recsound c:\record.wav
Mais pas avec:
save recsound C:\Documents and Settings\Michel Come\Mes documents\Ma musique\rec.wav

SendString ne marche pas quand le chemin d' accès du fichier contient des blancs (spaces). Comment faire ?

Signaler Commenter la réponse de comemich

comemich 39 Messages postés jeudi 3 février 2005Date d'inscription 23 août 2017 Dernière intervention - 8 nov. 2007 à 22:19

0

Utile

Cherchez plus, j'ai trouvé:

Pour la chaine de caractères représentant le chemin et le nom du fichier:
il faut mettre la chaine entre double-cotes : "

ça donne le code suivant:

Public
Sub

Enregistrer()
' ROUTINE POUR DEBUTER L' ENREGISTREMENT DU WAVE

' Fermeture (au cas où)

mciSendString("close all", vbNullString, 0, 0)

' Ouverture du périphérique MCI

mciSendString("open new type waveaudio alias Son ", vbNullString, 0, 0)

' Préparation de la capture

mciSendString("seek Son to start", vbNullString, 0, 0)

' Qualité du son: cadencement

mciSendString("set Son samplespersec 44100", vbNullString, 0, 0)

' Nombre de bit

mciSendString("set Son bitspersample 16", vbNullString, 0, 0)

' Nombre de canaux (stéréo)

mciSendString("set Son channels 2", vbNullString, 0, 0)

' Capture

mciSendString("record Son", vbNullString, 0, 0)

End

Sub

Public
Sub Sauver(ByVal Fichier AsString

)
' ROUTINE POUR ARRETER L' ENREGISTREMENT
' Encadrer le nom de fichier par des cotes

Fichier = """" & Fichier & """"

' Arrèter l'enregistrement, sauvegarder dans le fichier, et fermer le MCI

mciSendString("stop Son", vbNullString, 0, 0)

mciSendString("save Son " & Fichier, vbNullString, 0, 0)

mciSendString("close son", vbNullString, 0, 0)

End
Sub

Signaler Commenter la réponse de comemich

comemich 39 Messages postés jeudi 3 février 2005Date d'inscription 23 août 2017 Dernière intervention - 9 nov. 2007 à 18:38

0

Utile

OUI MAIS ...
Le code ci dessous marche. C'est à dire qu' il enregistre bien un son cadencé à 44100 Hz en stéréo 16 bits... Mais la qualité du son est très dégradée.

Je ne comprend pas pourquoi.
Que faire ?

Quelqu'un a-t-il des infos là dessus ? : Pourquoi MCI enregistre aussi mal ?

Signaler Commenter la réponse de NHenry

NHenry 14138 Messages postés vendredi 14 mars 2003Date d'inscription 26 avril 2018 Dernière intervention - 28 mai 2008 à 09:12

0

Utile

Bonjour

Perso j'ai utiliser cette source :
http://www.codeproject.com/csharp/Streaming_wave_audio.asp

Mais il y a ce sujet aussi :
http://www.vbfrance.com/infomsg_CAPTURE-MICRO-WAV_1141139.aspx#6

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1

Accepted Answer

+3

Utile

Teste ca!

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 ou http://www.papebleu.net.

Cette réponse vous a-t-elle aidé ? Oui Non

Enregistrer le Microphone [Résolu]

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !