Estoy intentando programar un space invaders en ABAP -ya saben el de las navecitas- y bueno... tengo la necesidad de ejecutar eventos que se repitan en un intervalo establecido, y ya que aprendí a usar el timer, decidí poner un ejemplo super sencillo aca.
Este programa, escribe "hola" en un report y luego cada 3 segundos escribe "hola otra vez!!"
*&---------------------------------------------------------------------*
*& Autor: Carlos Agreda *
*& Fecha: Feb 29 (Es biciesto) 2008 *
*&---------------------------------------------------------------------*
REPORT ZEJ_TIMER.
data: temporizador type ref to cl_gui_timer.
* Definición del manejador de eventos ------------------------------------
class lcl_event_handler definition.
public section.
class-methods: on_Timer for event finished of cl_gui_timer
importing sender.
endclass.
* Implementación del manejador de eventos ------------------------------
class lcl_event_handler implementation.
method on_Timer.
write: 'Hola otra vez!!'.
sender->run( ).
endmethod.
endclass.
start-of-selection.
create object temporizador.
set handler lcl_event_handler=>on_Timer for temporizador.
temporizador->interval = 3. "el tiempo va en segundos
temporizador->run( ).
write: 'Hola'.
viernes 29 de febrero de 2008
Timer para ABAP
Suscribirse a:
Enviar comentarios (Atom)

2 comentarios:
Excelente!.
Creo que se pueden hacer cosas buenas con los Timers...
Salu2. =D
que es za waaaaaaa y para que sirve y como lo puedo usar jajaja :P
Publicar un comentario en la entrada