FiveTech Software tech support forums

Code: Select all

// This sample shows how to call a function in an interval time.

#include "FiveWin.ch"

static oWnd
static lActive := .f.

//----------------------------------------------------------------------------//

function Main()

   local oTmr

   DEFINE WINDOW oWnd TITLE "Activity Control"

   DEFINE TIMER oTmr INTERVAL 1000 ACTION CheckFile() OF oWnd

   ACTIVATE TIMER oTmr

   ACTIVATE WINDOW oWnd 

return nil

//----------------------------------------------------------------------------//

function CheckFile()

   if ! lActive
      lActive = .t.
      LogFile( "c:\activity.log", { ProcName( 8 ), ProcLine( 8 ) } )
      // MsgInfo( "I check anything from here" )
      lActive = .f.
   endif

return nil

//----------------------------------------------------------------------------//
 

Code: Select all

#include "fivewin.ch"

FUNCTION MAIN()
LOCAL oAspetta
LOCAL i

      oAspetta := Aspetta( .T., oAspetta, "Please wait..." , 10  )
      FOR i := 1 TO 100
          sleep(400)
      NEXT i

      oAspetta := Aspetta( .F., oAspetta, "Pease wait..." , 10 )

RETURN NIL



FUNCTION Aspetta( lAzione, oAspetta, cTesto, nSec )
LOCAL oTesto

DEFAULT nSec := 0

IF lAzione

   DEFINE DIALOG oAspetta FROM 10 , 10 TO 50 , 400 TITLE "Attesa..." PIXEL

   @ 7 , 10 SAY oTesto PROMPT cTesto OF oAspetta PIXEL SIZE 400 , 30

   ACTIVATE DIALOG oASpetta CENTER NOWAIT
   sysrefresh()

ELSE
   IF nSec > 0
      sleep( nSec * 1000 )
   ENDIF
   sysrefresh()
   oAspetta:End()

ENDIF


RETURN oAspetta