Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Audio: Grabar lo que escucho y lo que digo

Estas en el tema de Audio: Grabar lo que escucho y lo que digo en el foro de Visual Basic clásico en Foros del Web. Estimados amigos, Buenos días y buen año para todos. Esta vez estoy intentando hacer un programita que grabe desde el microfono, pero tambien, que grabe ...
  #1 (permalink)  
Antiguo 02/01/2010, 07:49
hugui
Invitado
 
Mensajes: n/a
Puntos:
Sonrisa Audio: Grabar lo que escucho y lo que digo

Estimados amigos,

Buenos días y buen año para todos.
Esta vez estoy intentando hacer un programita que grabe desde el microfono, pero tambien, que grabe lo que se esta reproduciendo...

Actualmente consegui un codigo de VB para grabar desde el microfono, usando la API "mciSendString" pero necesito también poder grabar lo que se reproduce en la PC. Y para escuchar uso auriculares, para no hace trampa y que no grabe el propio sonido de los parlantes...

¿Me pueden ayudar?

Lo necesito para una video conferencia, que siempre escucho con auriculares y eventualmente participo haciendo preguntas...


Desde ya muchas gracias, de verdad.

Un saludo,
Hugui
  #2 (permalink)  
Antiguo 02/01/2010, 08:53
Avatar de pkj
pkj
 
Fecha de Ingreso: julio-2006
Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 18 años, 4 meses
Puntos: 29
Respuesta: Audio: Grabar lo que escucho y lo que digo

Puedes usar el Microsoft Multimedia Control 6.0
Este graba todo lo que tengas seleccionado como entrada en las propiedades de grabación de windows.

Un pequeño ejemplo.

Código vb:
Ver original
  1. Private Sub Form_Load()
  2.   MMControl1.DeviceType = "waveaudio"
  3. End Sub
  4.  
  5. Private Sub MMControl1_Done(NotifyCode As Integer)
  6.   MMControl1.FileName = "c:\grabado.wav"
  7.   MMControl1.Command = "Save"
  8.   MMControl1.Command = "Close"
  9. End Sub
  10.  
  11. Private Sub CmdGrabar_Click()
  12.   MMControl1.FileName = "c:\grabado.wav"
  13.   MMControl1.Command = "Open"
  14.   MMControl1.Wait = False
  15.   MMControl1.Notify = True
  16.   MMControl1.Command = "Record"
  17. End Sub
  18.  
  19. Private Sub CmdParar_Click()
  20.   MMControl1.Command = "Stop"
  21. End Sub
Feliz 2010
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza!
  #3 (permalink)  
Antiguo 03/01/2010, 23:33
hugui
Invitado
 
Mensajes: n/a
Puntos:
De acuerdo Respuesta: Audio: Grabar lo que escucho y lo que digo

Hola Pkj,


Muy buenos días y muchas gracias por tu ayuda.

Estoy por buen camino, pero si necesito agregarle un osciloscopio (sin OCX de terceros)... para ver lo grabado como lo hace la grabadora de sonido de windows... Es muy complicado eso?

Estuve buscando en internet, pero aun no encontré... igual, ese detalle no es importante, aunque seria bueno tenerlo más completo... aunque sea que se mueva mientras hablas, para no poner un gif animado... jaja


¡¡ Muchas gracias, y feliz 2010 para todos los amigos de Foros del Web y obviamente para ti, PKJ Maestro !!

Un saludo,
Hugui

Etiquetas: audio, grabar
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas




La zona horaria es GMT -6. Ahora son las 01:13.