Posez votre question Signaler

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 14211 Messages postés vendredi 14 mars 2003Date d'inscription 24 juin 2018 Dernière intervention
- 28 mai 2008 à 09:12
VB.NET Posez votre question Signaler
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 

Votre réponse

Répondre au sujet

7 réponses

Meilleure réponse
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 à 17:27
3
Merci
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.

Merci pape0 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 121 internautes ce mois-ci

Commenter la réponse de pape0
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
Merci
Regarde les APIs du type waveInOpen etc...
Commenter la réponse de cs_juju12
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
Merci
Merci ca marche.

<hr />
Aller voir ces sites  ou http://www.papebleu.net.
Commenter la réponse de pape0
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
Merci
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 ?
Commenter la réponse de comemich
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
Merci
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
Commenter la réponse de comemich
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
Merci
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 ?
Commenter la réponse de comemich
Signaler Commenter la réponse de NHenry
NHenry 14211 Messages postés vendredi 14 mars 2003Date d'inscription 24 juin 2018 Dernière intervention - 28 mai 2008 à 09:12
0
Merci
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
Commenter la réponse de NHenry

Votre réponse

Répondre au sujet
Posez votre question
S'inscrire maintenant

Vous n'êtes pas encore membre ?

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

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.