enregistrer le son des haut-parleurs

Question

Bonjour à tous
je cherche un exemple de code pour enregistrer le son des haut-parleurs en VB.net.
Merci de votre réponse.

Whismeril · Answer

Salut,

tu peux essayer ça (à passer dans un traducteur en ligne avant)
https://www.codeproject.com/Articles/31356/C-MP3-Sound-Capturing-Recording-Component

cs_Le Pivert · Answer

Bonjour,

Voici un exemple pour enregistrer à partir d'un microphone:

Option Strict On
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 Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "Enregistre le son"
        Button2.Text = "Enregistre en wav"
        Button3.Text = "Lire le son"
        Button1.AutoSize = True
        Button2.AutoSize = True
        Button3.AutoSize = True
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("Parlez maintenant." & Environment.NewLine & _
                        "Ensuite cliquez sur le bouton Enregistre en wav pour arréter l'enregistrement", "Enregistrement microphone", MessageBoxButtons.OK, MessageBoxIcon.Information)
        ' record from microphone
        mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
        mciSendString("record recsound", "", 0, 0)
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        ' stop  and save
        mciSendString("save recsound C:\Users\LePivert\Documents\record.wav", "", 0, 0)     'adapter chemin fichier
 mciSendString("close recsound", "", 0, 0)
        MessageBox.Show("Votre fichier wav est enregistré.", "Enregistrement en wav", MessageBoxButtons.OK, MessageBoxIcon.Information)
 End Sub
 Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        ' play(audio)
    My.Computer.Audio.Play("C:\Users\LePivert\Documents\record.wav", AudioPlayMode.Background)    'adapter chemin fichier
    End Sub
End Class
 

Tu te sers du microphone pour enregistrer le son du haut-parleur!

C'est une alternative si tu ne trouves pas quelque chose de plus adapté.
 
@+ Le Pivert

cs_DAN1 · Answer

Salut Le Pivert.
C'est bien ce que je fais mais l'enregistrement ne contient pas de se il n'a pas enregistré semble-t-il leçon du haut-parleur.
.
Je n'ai rien modifié ton code à l'exception bien entendue du répertoire d'enregistrement à savoir :
C:\MEDIACD1\record.wav

le fichier est bien présent mais je n'ai qu'un bruit de fond est-ce que cela fonctionne bien chez toi ?
A+.

cs_Le Pivert · Answer

Si j'ai posté ce code, c'est que je l'ai essayé bien entendu. Je suis sous Windows10.

Regarde du côté du microphone, si il est bien configuré sur ta machine. Je ne vois que cela, car si le fichier wave est bien créé, c'est que le code fonctionne, mais que le microphone ne répond pas.

cs_Le Pivert · Answer

Tu peux aussi enregistrer en mp3, j'ai fait l'essai. Il suffit de changer l'extension.
voir ce site:

https://social.msdn.microsoft.com/Forums/en-US/41decc01-8c97-4bf0-830e-f0012e816fdf/how-to-record-microphone-to-flac-file-or-to-wav-file-and-then-convert-it-to-flac?forum=vbgeneral

cs_Le Pivert · Answer

Pour résoudre ton problème de microphone voir ceci:

http://www.commentcamarche.net/faq/34384-mon-microphone-ne-fonctionne-pas-que-faire

Tu peux aussi faire un clic droit dans la barre de tâche(en bas à droite) sur haut-parleurs, pour faire tous tes réglages de son.

Bon courage

cs_DAN1 · Answer

Salut Le Pivert.

Chez moi le programme est OK, le fichier son se cret bien mais il n'y a rien dedans.
Je reverrai ça à la rentrée ou en août situé disponible.
Ce que je veux et je pense que tu l'as bien compris c'est enregistré le son qui sort de mes haut-parleurs (chez moi il s'agit d'un casque) obtenu lors de la synthèse vocale de l'agent Windows (Imports System.Speech.Synthesis)

bonnes vacances d'ici la est encore avec tous mes remerciements sincères pour ton aide précieuse.
Dan

DAN247 · Answer

SSalut le pivert.
Je reviens sur le sujet car je ne comprenais pas pourquoi le code que tu m'avais indiqué fonctionner parfaitement mais que l'enregistrement était vide.
J'aurais peut-être dû te dire que j'utilise un micro casque sans fil et que cela est peut-être l'explication.
Peut-être faudrait-il changer quelque chose dans la ligne suivante :
 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
   

qu'en penses-tu ?

Bien à toi.
Dan
qu'en penses-tu ?

Bien à toi.
Dan

Enregistrer le son des haut-parleurs

8 réponses

Votre réponse

Discussions similaires