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
API Beep.
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!¡.
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 (http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=28118&lngWId=1)
The Best Sound Recorder @PSC (http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=60673&lngWId=1)
Recording sound from microphone in VB (http://social.msdn.microsoft.com/forums/en-US/vbgeneral/thread/41e5a1fd-b33a-4e62-b73a-aa364c5dae5c/) (es .Net, pero el uso de API es la misma)
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. ;D
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.
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?
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?
Tienes el parlantito en la CPU ?
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!¡.
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.
.
Quien esta tan loco como para desactivar el Beep?... en casos extraordinarios arrancarlo de la Motherboard? juren que esto ultimo habra y hay casos.
P.D.: No sabia eso del Beep, solo sabia que era para detectar errores...
Dulces Lunas!¡.
no entiendo el th ni de que hablan |:
Alguien me explica?
gracias voy a probar la configuracion de sonido de win si tiene habilitado el beep desde panel de control - Dispositivos de audio y sonidos y desde la lista que me da buscar beep a ver si tiene asignado un sonido y claro si esta habilitado.
PD: yo pensaba que el beep salia desde los parlantes (los estereos) y no desde el speaker rudimentario que supongo si tiene mi pc (lo voy a verificar, gracias)
todavia no llegue a casa para probar sus consejos pero creo que la solucion seria en ves de usar el beep usar sndPlaySound
declaracion
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
ejemplo de uso copiado de la web
Example:
' Play the Empty Recycle Bin system sound and pause
' program execution until the sound is finished playing.
Dim retval As Long
retval = sndPlaySound("EmptyRecycleBin", SND_ALIAS Or SND_SYNC) ' play the associated sound
solo tengo que asociar un evento que no se use y ponerle el sonido que quiero reproducir.
Si, se que es muy fish pero para alguien que sabe que no se puede llamar a si mismo programador conseguir algo por sus propios meritos cuenta, aun claro una solucion mas elegante siempre queda bien, que piensan?