Emitir un sonido (pitido) fuerte ante un error - VB-MUNDO

mcrex1 · #1 (**permalink**) 10-08-2007, 18:01:15

Quiero que al recorrer un recordset el programa emita un pitido fuerte ante una condición en un registro

¿Como puedo decir al sistema que emita un pitido?

gracias

J.M.Movilla · #2 (**permalink**) 10-08-2007, 20:08:37

¿Tú quieres un pitido más fuerte que un "BEEP"? Prueba con el Sound.ocx, gratuito, con el que puedes personalizar la agudeza, el volumen y la duración del sonido.

mcrex1 · #3 (**permalink**) 11-08-2007, 08:35:02

Ok pero ¿Como lo uso?

J.M.Movilla · #4 (**permalink**) 11-08-2007, 09:59:48

Pues como se usa cualquier otro OCX... Primero lo agregas en la lista de Componentes de tu proyecto. Luego lo pegas en el Formulario en que quieras utilizarlo. Y finalmente lo llamas cuando te interese, pasándole unos parámetros que requiera cada OCX... Prueba para el Sound el siquiente código (habiendo añadido, lógicamente, un control CommandButton)

Código:

Private Sub Command1_Click()
    Sound1.Duration = 600
    Sound1.Frequency = 850
End Sub

chronos682 · #5 (**permalink**) 16-08-2007, 17:04:11

Si lo deseas puedes utilizar la API de Windows Beep, la cual te permite establecer la duración y la frecuencia del sonido que se emitirá desde la placa base del PC. Puedes buscar información al respecto en este foro o en Google.