Emitir un aviso con un Beep cuando no se escriben datos a traves del teclado

[cmfab]

Hola a todos, cual seria el metodo mas efectivo para emitir un sonido (beep) cuando el usuario pasado x cantidad de segundos no escribe ninguna entrada desde el teclado en ciertos controles de mi aplicación. Gracias por sus atenciones

[ecfisa]

Hola.

Creo que podrías hacer algo así:

Código Delphi [-]
implementation
...
const
   SEG = 20;  // Nro de segundos;

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview:= True;
  Timer1.Interval := SEG * 1000;
  Timer1.Enabled:= True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  MessageBeep(MB_ICONEXCLAMATION);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Timer1.Enabled:= False; // presiono una tecla, desactivar timer
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Timer1.Enabled:= True;   // soltó la tecla, timer activado
end;

Saludos.

[cmfab]

Hola gracias por la respuesta pero se podria hacer que ese sonido se produzca con el buzzer de la placa madre. pues la pc del cliente puede no tener parlantes (speaker). se puede hacer esto ?

[ecfisa]

Hola.

Reemplazá la linea:

Código Delphi [-]
   MessageBeep(MB_ICONEXCLAMATION);

Por la función:

Código Delphi [-]
 Windows.Beep(800,500); // valores de frecuencia y duración a tu gusto

Saludos.

[cmfab]

Gracias de nuevo, pero sigo con el problema, como es logico el sonido cambia pero lo oigo nada mas cuando tengo los audifonos puesto, si me los quito no se escuha el sonido, será que habra que configurar algo en el setupo de la placa madre ?

[thecidmx]

Puede ser q no este conectado el parlante de la placa madre., algunas pc "modernas" no tienen bocina interna.

[ecfisa]

Empezado por cmfab

Gracias de nuevo, pero sigo con el problema, como es logico el sonido cambia pero lo oigo nada mas cuando tengo los audifonos puesto, si me los quito no se escuha el sonido, será que habra que configurar algo en el setupo de la placa madre ?

Hola cmfab.

Es extraño, hice la prueba en equipo de escritorio y funciona correctamente. (Para asegurarme hasta deshabilité la placa de sonido)

Si estas trabajando con Windows 95/98/Me, revisá este enlace. De no ser así, la función Beep, hace precisamente eso: "Generates simple tones on the speaker", revisa que tenga el speaker o buzzer, que esté correctamente conectado y que funcione.

Si las pruebas las hiciste en un portátil es probable que obtengas ese comportamiento.

Saludos.

[cmfab]

Hola a todos. Es interesante que hace algun tiempo puse un hilo con este tema, osea necesitaba hacer sonar el buzzer de la placa base en determinadas acciones de mi aplicación, se me recomendó usar la funcion Windows.Beep, pero hoy al cabo del tiempo me llama el cliente y me dice que esa funcion solo sonaba si existia tarjata de sonido con sus drivers instalados e incluso speaker instalados en la pc donde se ejecuta la aplicacion, lo cual he comprobado hoy en dia. Por eso retoco este tema a ver si alguien me sugiere como puedo hacer para obtener un sonido con cl buzzer de la placa base aunque no tenga speakers ni tarjeta de sonido en la pc. gracias de antemano

[ecfisa]

Hola cmfab.

Combiné tu último mensaje con el anterior según el punto [4] de la guía de estilo por tratarse del mismo tema.

Esto es a fin de evitar la duplicación de información, de todos modos el hilo inicial pasará a la cabecera de los temas del foro.
Si deseas que modifique el título, al del último mensaje por que lo consideras mas representativo, hazmelo saber por un mensaje privado y gustoso realizo el cambio.

Saludos.