Timer

[LC_JK]

How do I create a timer that updates a field at a certain time?!

For example, if I want to create a digital clock that appears on my canvas .... I have the systems of system (System.Current_Datetime) ....
Every time I would have to be updating to get the time .... How do I do this?!

[tfg]

First, you need to create your timer. Where to create? (You decide this. It can be in pre-form, can be within a when-button-pressed, etc.)

there goes the steps:

Select all

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; 

later, you have to create a when-timer-expired trigger. In it you put the code that you want to shoot.

.

[LC_JK]

Thank you ...

I did it that way .... but I did not know if it was correct !!!

: -O

[LC_JK]

Thank you ...

I did it that way .... but I did not know if it was correct !!!

: -O

[LC_JK]

I mean, I did not know if it was the right way or if I had any other way to do it !!

[Toad]

An example to make use of the When-timer-expired:

Select all

 
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; 

That is, when it turns the timer, it updates the screen clock data .

[alef]

Step-by-step tutorial for eventual research in the future.

First create the timer on the when-new-form-instance (or any other)

Select all

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

, then create a trigger when-timer- Expired at forms level that Toad used as an example and making some modifications.

Select all

 
     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;