PC Toledo

Código: Selecionar todos

Function Main()

 Local cAlgo := Space( 30 )
      
 Public nTask, nIdle
 Public nTimeEspera := 5  // (tempo em segundos)
 PuBlic nTempo := ( Seconds() + nTimeEspera )

 Clear Screen
 nTask := HB_BackGroundAdd( {|| ChecaTempoCorrido() } )
 nIdle := HB_IdleAdd( {|| HB_BackGroundRun( nTask ) } )

 @ 2,2 Say "Tecle Algo: " Get cAlgo
 Read

 HB_BackGroundDel( nTask )  // coloque antes de sair do sistema
 HB_IdleDel( nIdle )

Return Nil

FuncTion ChecaTempoCorrido()

 Local nRow, nCol

 If ( NextKey() > 0 )
  nTempo := Seconds() 
 ElseIf Seconds() >= ( nTempo + nTimeEspera )  // se ficou ocioso pelo tempo determinado...

  HB_BackGroundDel( nTask )  // remove as acoes da Idle evitando recursividade
  HB_IdleDel( nIdle )
  
  nRow := Row() // linha do cursor
  nCol := Col() // coluna do cursor
  
  //////////////////////////////////////////////////
  @ 5,2 Say "Coloque aqui a chamada para sua Funcao"
  @ 6,2 Say Time()
  //////////////////////////////////////////////////
       
  nTempo := Seconds()                                     // atualiza nTempo
  nTask := HB_BackGroundAdd( {|| ChecaTempoCorrido() } )  // reativa a idle
  nIdle := HB_IdleAdd( {|| HB_BackGroundRun( nTask ) } )
  
  SetPos( nRow, nCol )  // restaura cursor

 EndIf

Return Nil