HMGforum.com

Buenas tardes, colegas leen muchos posts sobre él ... pero no encontré exactamente lo que pretendo hacer de la siguiente manera:

Si mi sistema no está en uso, es decir, el teclado y el ratón inactivo durante "n" ajustar la hora, me gustaría enviar una pequeña función que establecería una advertencia con temporizador, y si el usuario no responde al sistema de apelación que cerrará las bases de datos y las ventanas y concluir el sistema, es decir, lo que no fue escrito por el usuario se perdería.

He encontrado suficiente material aquí en el foro ... pero nada que pueda detectar un ratón no responde y el teclado para oh, sí después de tales "n" minutos para llamar a la función que VOIU cerca ...

Un colega tiene una punta?
HASA

HASA wrote:Buenas tardes, colegas leen muchos posts sobre él ... pero no encontré exactamente lo que pretendo hacer de la siguiente manera:

Si mi sistema no está en uso, es decir, el teclado y el ratón inactivo durante "n" ajustar la hora, me gustaría enviar una pequeña función que establecería una advertencia con temporizador, y si el usuario no responde al sistema de apelación que cerrará las bases de datos y las ventanas y concluir el sistema, es decir, lo que no fue escrito por el usuario se perdería.

He encontrado suficiente material aquí en el foro ... pero nada que pueda detectar un ratón no responde y el teclado para oh, sí después de tales "n" minutos para llamar a la función que VOIU cerca ...

Un colega tiene una punta?
HASA

Hi HASA

First happy birthday to you

I'm not sure that correct understood and will be useful to you

Anyway take a look at this sample, I hope that it will give an idea to you

Happy HMG'ing

Hello Esgici,

I can not compile the example in HMG.3.2.

Any idea?

regards

Hello Esgici,

Muy GOOD'll estar comprobando la posibilidad de agragar en mi sistema, es poner en todos los controles de un sistema acabado es complicado, si estuviera empezando un seriasencacional sistema ahora, pero ... no empaña la idea. Gracias también por mi cumpleaños con recuerdos vale la pena.

HASA

Hola Hasa,

Si lograste compilar el demo que subio el Sr. Esgici? lo podrías subir completo con el Compile para probar, es que a mi no logro compilar.

Gracias.

Hola,

Ya logre adaptarlo a un demo, ya lo pude compilar.

Saludos

Personal, apenas simplificado un poco hola está ahí.

Con el tiempo, no podía conectar a ok Demo.prg.

HASA

/*
* Harbour MiniGUI Hello World Demo
* (c) 2002-2009 Roberto Lopez <harbourminigui@gmail.com>
*/

#include "hmg.ch"

#define nWaitIddleInterval 2 // In seconds
#define ResetWarnTime() nLastActTime := SECONDS()

Function Main

nLastActTime := SECONDS()

DEFINE WINDOW form_1 ;
ROW 0 ;
COL 0 ;
WIDTH 400 ;
HEIGHT 400 ;
TITLE 'Hello World!' ;
WINDOWTYPE MAIN ;
ON MOUSEMOVE ResetWarnTime() ;
ON GOTFOCUS ResetWarnTime()

DEFINE LABEL Label_3
ROW 380
COL 140
END LABEL

DEFINE TIMER Timer_1 ;
INTERVAL 1000 ;
ACTION Vibrate()

END WINDOW

form_1.Center

form_1.Activate

Return Nil

*-----------------------------------------------------------------------------*
PROC Vibrate()
*-----------------------------------------------------------------------------*

LOCA nElapTime := SECONDS() - nLastActTime,;
nWinRow := Form_1.Row ,;
nWinCol := Form_1.Col

Form_1.Label_3.Value := SECTOTIME( nWaitIddleInterval - nElapTime )

IF nElapTime > nWaitIddleInterval

PLAY WAVE 'Alarm.WAV'

FOR y := 1 TO 5

FOR x := 1 TO 3
Form_1.Row := nWinRow - x
Form_1.Col := nWinCol - x
NEXT x

FOR x := 1 TO 3
Form_1.Row := nWinRow + x * 2
Form_1.Col := nWinCol + x * 2
NEXT x

FOR x := 1 TO 3
Form_1.Row := nWinRow - x
Form_1.Col := nWinCol - x
NEXT x

NEXT y

Form_1.Row := nWinRow //------------ added
Form_1.Col := nWinCol //------------ added
ResetWarnTime()
ENDIF

RETU

Amigos, se adjunta un ejemplo:

Toledo era tan fantástico, gracias muuy.

HASA

Muchas gracias Toledo, funciona muy bien!

Saludos