Timer

[LC_JK]

Como q eu crio um timer que atualiza um campo em um determinado tempo?!

Por exemplo, se eu quiser criar um relógio digital que apareça no meu canvas.... eu tenho as váriáveis de sistema (system.current_datetime)....
mas toda hora eu teria q estar atualizando pra pegar a hora.... como q faço isso?!

[tfg]

Primeiro, você precisa criar seu TIMER. Onde criar? (você que decide isso. Pode ser na PRE-FORM, pode ser dentro de uma WHEN-BUTTON-PRESSED, etc)

Aí vai os passos:

Selecionar tudo

DECLARE
  hour_timer TIMER;
  one_hour   NUMBER(7):=3600000;   -- expira de hora em hora
BEGIN
  --cria o timer "alarm",  de uma hora (em mili-segundos)
  --(pode ser Repeat ou NO_REPEAT)
  hour_timer:= CREATE_TIMER('alarm',one_hour,REPEAT);
END;

Depois, você tem que criar uma trigger When-Timer-Expired. Nela você coloca o código que você deseja que dispare.

.

[LC_JK]

obrigado...

eu fiz dessa forma mesmo.... mas não sabia se estava correto!!!

[LC_JK]

obrigado...

eu fiz dessa forma mesmo.... mas não sabia se estava correto!!!

[LC_JK]

quer dizer, não sabia se era a forma correta ou se tinha alguma outra forma pra fazer isso!!

[Toad]

Um exemplo pra fazer o uso no When-Timer-Expired:

Selecionar tudo

DECLARE 
  tm_name  VARCHAR2(40); 
BEGIN 
	break;
  tm_name  := upper(Get_Application_Property(TIMER_NAME)); 
 
  IF tm_name = 'ALARM' THEN 
     :agora := sysdate;
  END IF; 
END;

Ou seja, quando ele virar o timer, ele atualiza o dado do relógio da tela.

[alef]

Tutorial passo-a-passo para eventual pesquiza no futuro.

Primeiro criar o timer na when-new-form-instance (ou outra qualquer)

Selecionar tudo

     DECLARE 
          temporizador Timer;
          T NUMBER(5) := 60000; -- 1 minuto
     BEGIN
          temporizador := CREATE_TIMER('tempo', T, REPEAT);
     END;

depois crio uma trigger WHEN-TIMER-EXPIRED a nivel de forms que o Toad usou como exemplo e fazendo algumas modificações.

Selecionar tudo

     DECLARE 
          tm_name  VARCHAR2(40); 
     BEGIN 
          break; 
          tm_name  := Get_Application_Property(TIMER_NAME); 
          IF tm_name = 'tempo' THEN 
               :Bloco.Relogio := sysdate;  -- acerta a hora atual.
          END IF; 
     END;