Verificar ociosidade

[Jonatas Luz]

Bom dia

Tenho um sistema e preciso verificar a ociosidade do teclado. Entretanto este sistema tenho versão para Windows e Linux.
Caso alguém já tenha passado por isso e puder ajudar eu agradeço.

[Kapiaba]

Na versão for windows, você usa qual ferramenta visual?

Tem o comando Timer()?

[Jonatas Luz]

Na verdade utilizo o modo texto mesmo tanto pra windows quanto pra linux. E sim tenho o Timer().

[Kapiaba]

Sorry, modo texto não sei fazer. Abs.

[asimoes]

Seu sistema é clipper ou harbour?

[Jonatas Luz]

Em harbour

[janio]

Ola,

viewtopic.php?f=45&t=15002&p=88222&hilit=ociosidade#p88222

Janio

[Jonatas Luz]

Olá Janio,

Então eu li esse tópico, entretanto ele usa recursos do windows, e o que eu mais preciso é para linux

[Daniel]

Teste este exemplo

Código: Selecionar todos

Function Main()
	SetMode(25, 80)
	Cls
	HB_IDLEADD({||FClock()})
	xtime:= Seconds() + 30
	xtime1:= 0
	vdt_mov:= vmotivo:= space(30)
	vlanca:= 100
	@ 11, 5 Say 'Movimento'
	@ 12, 5 get vdt_mov
	@ 13, 5 Say 'Motivo'
   @ 14, 5 get vmotivo
   @ 15, 5 Say 'Valor'
   @ 16, 5 get vlanca pict "@ez 999,999.99"
   Read
 Return Nil

********************************
Function FCLOCK()

   xtime1:= Seconds()
   If NextKey() != 0
     xTime:= Seconds() + 30
   EndIf
   If xtime1 >= xtime
     Alert("Vencido o tempo de Desmotracao")
     Cls
     KeyBoard chr(13)
     Quit
   EndIf
   Return Nil

[Jonatas Luz]

Olá Daniel,

Sim esse exemplo deu certo, muito obrigado. Entretanto queria saber se você passou pela situação em que estou, quando está processando um relatório por exemplo ele começa contar esse tempo de ociosidade, afinal estamos testando o teclado, tem alguma ideia de como posso fazer? Desde já obrigado

Jônatas Luz

[asimoes]

nIDle:=HB_IDLEADD({||FClock()})

Na saída da rotina:

hb_IdleDel( nIDle )

[Daniel]

Ola Jônatas

Você pode usar o comando que o asimoes passou para desligar no inicio do relatório e depois
ligar de novo
Obs. Cuidado com as variáveis que você usa, pois elas pode alterar outras em outra parte do sistema com o mesmo nome

Código: Selecionar todos

    nIDle:=HB_IDLEADD({||FClock()})    
    xtime:= Seconds() + 30
    hb_IdleDel( nIDle )
    Seu relatorio
    xtime:= Seconds() + 30
    nIDle:=HB_IDLEADD({||FClock()})

[alxsts]

Olá!

Seja bem-vindo ao Fórum Jonatas!

[Jonatas Luz]

Deu certo

muito obrigado Daniel e ASimoes