Cerrar una Aplicacion despues de un tiempo

davidObarrio

Posts: 72

Joined: Tue Oct 02, 2012 04:36 PM

Cerrar una Aplicacion despues de un tiempo
Posted: Fri Jun 14, 2013 03:47 PM

Como se puede hacer para Cerrar una Aplicacion despues de un tiempo de uso

muchas gracias

David

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: Cerrar una Aplicacion despues de un tiempo
Posted: Fri Jun 14, 2013 05:08 PM

Que tal un timer ...

Saludos

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Cerrar una Aplicacion despues de un tiempo
Posted: Fri Jun 14, 2013 05:49 PM

Aquí un ejemplo

Code (fw): Select all Collapse

#include "FiveWin.ch"

Function Main()

   fTimer( "probando", 5 )
   
return nil
   
function fTimer( cMsg, nInterval )

   local oDlg, oProg, oTmr

   DEFINE DIALOG oDlg TITLE cMsg

   @2,3 PROGRESS oProg POSITION 0 SIZE 120, 10; oDlg:lHelpIcon = .F.

   ACTIVATE DIALOG oDlg CENTER ;
      ON INIT ( oProg:SetRange( 1,845 ), oTmr := Timer( oDlg, oProg, nInterval ) )

   oTmr:End()

return nil

Static function Timer( oDlg, oProg, nInterval )

   local oTmr

   DEFINE TIMER oTmr INTERVAL nInterval ;
      ACTION ( oProg:nPosition += 5,;
               If( oProg:nPosition > 1000, oDlg:End(),) ) OF oDlg

   ACTIVATE TIMER oTmr

Return oTmr

Saludos,

Adhemar

Saludos,

Adhemar C.

davidObarrio

Posts: 72

Joined: Tue Oct 02, 2012 04:36 PM

Re: Cerrar una Aplicacion despues de un tiempo
Posted: Fri Jun 14, 2013 08:54 PM

MUCHAS GRACIAS

LO VEO Y AVISO COMO ME FUE...

GRACIAS

DAVID

davidObarrio

Posts: 72

Joined: Tue Oct 02, 2012 04:36 PM

Re: Cerrar una Aplicacion despues de un tiempo
Posted: Thu Jun 27, 2013 09:04 PM

Amigos....

no pude....

David

FiveWiDi

Posts: 1446

Joined: Mon Oct 10, 2005 02:38 PM

Re: Cerrar una Aplicacion despues de un tiempo
Posted: Thu Jun 27, 2013 09:15 PM

acuellar wrote:Aquí un ejemplo

Code (fw): Select all Collapse

#include "FiveWin.ch"

Function Main()

   fTimer( "probando", 5 )
   
return nil
   
function fTimer( cMsg, nInterval )

   local oDlg, oProg, oTmr

   DEFINE DIALOG oDlg TITLE cMsg

   @2,3 PROGRESS oProg POSITION 0 SIZE 120, 10; oDlg:lHelpIcon = .F.

   ACTIVATE DIALOG oDlg CENTER ;
      ON INIT ( oProg:SetRange( 1,845 ), oTmr := Timer( oDlg, oProg, nInterval ) )

   oTmr:End()

return nil

Static function Timer( oDlg, oProg, nInterval )

   local oTmr

   DEFINE TIMER oTmr INTERVAL nInterval ;
      ACTION ( oProg:nPosition += 5,;
               If( oProg:nPosition > 1000, oDlg:End(),) ) OF oDlg

   ACTIVATE TIMER oTmr

Return oTmr

Saludos,

Adhemar

Pruébalo en una WINDOW; a mi en una MDICHILD me funciona perfectamente.

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

FiveTech Support Forums

Continue the discussion