A OpusWin permite definir temporizadores para controlar a chamada de procedimentos em determinados intervalos de tempo. Os comandos que implementam esta facilidade são: SetTimer e KillTimer.
Serve para definir um temporizador, atribuindo-lhe um identificador e estabelecendo o intervalo de chamada de uma procedure.
Sintaxe
SetTimer (<id>, <interval>, <proc>)
Onde:
<id>
Especifica o número identificador do temporizador que está sendo definido.
<interval>
Especifica a duração do intervalo, expresso em quantidade de milissegundos.
<proc>
Informa a procedure a ser invocada a cada expiração do intervalo.
Serve para destruir, ou seja desfazer, um determinado temporizador, previamente definido pelo comando SetTimer.
Sintaxe
KillTimer (<id>)
Onde:
<id>
Especifica o número identificador de um temporizador previamente ativado.
Exemplo
$nolibprog
External p1public i(n)
SetTimer (24,2000,p1) && chama proc p1 a cada 2 segundos
End
proc p1
public i(n)
++i
@ 10,0 say i pic "99"
if i=5
KillTimer (24) && Desfaz o temporizador após 10 segundos
Endif
quit