como recibir un tono desde la placa de sonido

[superchorch]

hola ante todo me presento, siempre leia y sacaba la info que necesitaba de este foro pero no encontre algo parecido a mi pregunta haci que por primera vez posteo.
No se como recibir un tono desde la placa de sonido o como direccionarla.
Para emitir no hay problema beep hace todo por mi pero como recibo un tono?
Y aunque suene trillado, gracias de antemano.
No pido que me lo resuelban sino que me orienten o den algun link para poder resolverlo yo

[BlackZeroX]

API Beep.

Código (vb) [Seleccionar] Expandir



Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Form_Activate()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim Cnt As Long
    For Cnt = 0 To 5000 Step 10
        'play a tone of 'Cnt' hertz, for 50 milliseconds
        Beep Cnt, 50
        Me.Caption = Cnt
        DoEvents
    Next Cnt
End Sub



Dulces Lunas!¡.

[raul338]

Tendras que usar las API de mci (mciSendString o mciSendCommand) o usar DirectSound (se me ocurren jeje)

Tambien puedes mirar esto
Sound Card Recorder  @PSC
The Best Sound Recorder @PSC
Recording sound from microphone in VB (es .Net, pero el uso de API es la misma)

[seba123neo]

a proposito de las boludeces que se pueden hacer con el Beep, me acuerdo en pascal un codigo que tocaba con beeps el himno a la alegria de beethoven, lo perdi y nunca mas pude encontrarlo. 

[superchorch]

gracias voy a probar lo que pasaron.
Les cuento para que lo estoy buscando; seguramente se habran dado cuenta que las nuevas mothers no traen los viejos puertos serie paralelo o incluso el conector ps2 del mouse, todo es usb. Estoy desarrollando un hard para usar los tonos que siempre van a estar en las compus viejas o nuevas y me falta la integracion con la compu.
Vamos a ver que sale.
Desde ya gracias y posteo como sigo.

[superchorch]

es una tonteria pero no funciona.
como hago para que funcione el comando BEEP???
incluyo la definicion

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

y dentro del codigo de un boton meto el comando

beep 5000, 5000

o algo parecido solo para probar pero no suena...     compila y todo, puedo ejecutar sentencias despues de pasar por la instruccion beep pero no suena.
El control de sonido de windows esta habilitado y tiene un volumen normal, asi mismo pasa con el controlador mejorado de realtec; realmente estoy haciendo algo mal pero no se que es.

Aun no se me dio por buscar si en relidad tengo el  kernel32 pero para mi es ovio que si lo tengo pero no hace sonido alguno

alguna idea?

[superchorch]

no les conte
Tengo un vb6 portable corriendo en xp, pense que no me funcionaba al princio porque era portable y no le di importancia solo era cuestion de instalar uno y listo pero desde el visualstudio2008 tampoco anda.
¿que sera?

[raul338]

Tienes el parlantito en la CPU ?

[BlackZeroX]

Código (vb) [Seleccionar] Expandir



Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Form_Load()
    Beep 5000, 5000
End Sub



Si no te funciona eso entonces vas a abrir tu PC y a ver si esta la pequeña bocina, ya que es Obligatoria su existencia.

Dulces Lunas!¡.

[seba123neo]

para los que no sabian, el Beep esta en el administrador de dispositivos como un dispositivo oculto, si no esta activado no se escucha, es como si fuera un servicio, lo podes activar o desactivar.