Grabar sonido desde VB 6.0
Publicado por Manuel (2 intervenciones) el 13/01/2010 21:44:05
Buenas amigos... Estoy haciendo un proyecto en VB 6.0 que consiste en grabar una señal de audio con un microfono directamente conectado a la tarjeta de sonido de la pc y luego a esa señal capturada calcularle la "transformada rápida de fourier" ... buscando en internet he encontrado algunos ejemplos que me permiten grabar la señal por medio de una API pero lo que no entiendo es donde queda contenida la señal en si, es decir, yo logro grabar la señal pero no se luego en que variable esta contenida para aplicarle la FFT... A demas no se como queda ella grabada, es decir, si queda como un vector o algo...
El codigo que estoy usando para grabar la señal es el siguiente
i = mciSendString("seek capture to start", 0&, 0, 0)
i = mciSendString("set capture samplespersec 11025", 0&, 0, 0)
i = mciSendString("set capture bitspersample 6", 0&, 0, 0)
i = mciSendString("set capture channels 1", 0&, 0, 0)
i = mciSendString("record capture", 0&, 0, 0)
de esta forma lo reproduzco
i = mciSendString("play capture from 0", 0&, 0, 0)
Espero me haberme explicado bien y que me puedan ayudar se los agradecería enormemente...
De todas formas si conocen otra forma de grabar auido en VB 6.0 no estaría mal que me lo hicieran saber... :)
De antemano muchas gracias espero sus aportes...
El codigo que estoy usando para grabar la señal es el siguiente
i = mciSendString("seek capture to start", 0&, 0, 0)
i = mciSendString("set capture samplespersec 11025", 0&, 0, 0)
i = mciSendString("set capture bitspersample 6", 0&, 0, 0)
i = mciSendString("set capture channels 1", 0&, 0, 0)
i = mciSendString("record capture", 0&, 0, 0)
de esta forma lo reproduzco
i = mciSendString("play capture from 0", 0&, 0, 0)
Espero me haberme explicado bien y que me puedan ayudar se los agradecería enormemente...
De todas formas si conocen otra forma de grabar auido en VB 6.0 no estaría mal que me lo hicieran saber... :)
De antemano muchas gracias espero sus aportes...
Valora esta pregunta


0