Softwre para grabación de voz

[haf]

Necesito diseñar un software de audio pequeño, que a la vez
que reproduce un tema musical, pueda grabar la voz del usuario cuando canta.
Se entiende? Por otro lado, que dicho archivo creado (voz) sea de formato comprimido
para poder enviarlo via mail. Yo doy clases de canto y me es muy necesario algo asi.
Como lo puedo hacer? Con Visual? Hay algún otro metodo? Te agradezco tu tiempo. HAF

[X-TN]

Códgio para grabar la entrada del microfono en memoria para luego guardarlo en un archivo de sonido WAV.

Añadir el siguiente codigo en un modulo BAS:

Código [Seleccionar] Expandir

Option Explicit

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

'Envia los comandos al dispositivo MCI:
Private Sub SendCommand(Command As String, Optional ReturnString As String, Optional ReturnLength As Long)
    If ReturnString = vbNullString Then ReturnString = 0
    Call mciSendString(Command, ReturnString, ReturnLength, 0)

End Sub

'Inicia la grabacion de audio:
Public Sub RECORD_Start()
    Call SendCommand("open new type waveaudio alias WavFile")
    Call SendCommand("record WavFile insert")

End Sub

'Termina la grabacion de audio:
Public Sub RECORD_Finish()
    Call SendCommand("stop WavFile wait")
   
End Sub

'Guarda la grabacion en un archivo de sonido WAV:
Public Sub RECORD_Save(Filename As String)
    Call SendCommand("save WavFile " & Filename)
    Call SendCommand("close WavFile")

End Sub

FUENTE

Salu2

[haf]

GRACIAS. LO PONDRE EN PRACTICA. PUEDO CAMBIAR WAV A MP3? UN ABRAZO. HAF