ESTADO DE ESPERA NO VB

USUARIO.EXCLUIDOS 01/04/2004 14:23:25
#18084 Resposta escolhida

dim flag as boolean
Public function Espera as single
static t as single
t = timer
flag = false
do
if flag then exit do
loop
espera = timer - t
end function

public sub iniciar

msgbox espera

end sub

public sub parar
flag = true
msgox

USUARIO.EXCLUIDOS 01/04/2004 15:17:33
#18125

Toda vez para resetar atribua true para a flag quando chegar em 10 minutos a rotina fai chamar a sub finalizarsistema


dim flag as boolean

sub verificar
dim t as single
t = timer
do
if timer - t 36000 then finalizarsistema
doevents
if flag then t = timer
loop
end if

USUARIO.EXCLUIDOS 01/04/2004 15:42:32
#18140

Bem Sandro esta é uma tarefa meio dificil pois teria de mapear todos os eventos do aplicativo, mas sempre tenho uma ideia para ajuda. colque isto em um form ou em um modulo se tiver mais de um form

sub verificar
static s as string
static t as string
static tp as single
on error resume next
if s activeform.activecontrol.name then
s = activeform.activecontrol.name
tp = timer
end if
if t activeform.activecontrol.text then
s = activeform.activecontrol.text
tp = timer
end if
if ttimer -tptimer 36000 then finalizarsistema
end sub


coloque um timer com interval de 100ms ou 1000ms e chame a função verificar

USUARIO.EXCLUIDOS 01/04/2004 15:58:50
#18147

Poderia finalizar o tópico

obrigado