Visual Basic - Audio

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de Analia

Audio

Publicado por Analia (28 intervenciones) el 01/01/2007 23:23:46
Hola !!, me podrian decir como capturar audio .
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Audio

Publicado por Mortadelo (4 intervenciones) el 02/01/2007 21:45:39
con k kereis capturar audio, pues con las orejas!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Analia

RE:Audio

Publicado por Analia (28 intervenciones) el 03/01/2007 17:30:54
y nadie sabe como capturar audio ?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Audio

Publicado por jocastro (186 intervenciones) el 04/01/2007 13:17:57
Inserta en un Form 3 command, grabar stop y guardar
y acontinuacion el codigo en un modulo.

si te sirve, adaptalo a tus necesidades

Private Sub Command1_Click()
RECORD_Start 'REC
End Sub

Private Sub Command2_Click()
RECORD_Finish 'Stop
End Sub

Private Sub Command3_Click()
RECORD_Save ("C:\jlc.wav") 'Guardar
End Sub


INSERTA ESTE CODIGO EN UN MODULO

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

'Empieza a grabar la entrada del Microfono:
Public Sub RECORD_Start()
On Local Error Resume Next

Call SendCommand("open new type waveaudio alias WavFile")
Call SendCommand("record WavFile insert")

End Sub

'Termina la grabacion de la entrada del Microfono:
Public Sub RECORD_Finish()
On Local Error Resume Next

Call SendCommand("stop WavFile wait")

End Sub

'Guarda en un fichero WAV la grabacion:
Public Sub RECORD_Save(Filename As String)
On Local Error Resume Next

Call SendCommand("save WavFile " & Filename)
Call SendCommand("close WavFile")

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Analia

RE:Audio

Publicado por Analia (28 intervenciones) el 04/01/2007 13:35:09
Hola !!, disculpa la pregunta, pero recien estoy empezando con Visual Basic 6.
que es un modulo ?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Audio

Publicado por jlcastro (186 intervenciones) el 04/01/2007 19:06:23
Te envio un ejemplo a tu correo

Saludos: Jose Luis Castro
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar