Iniciar Sesión

Ver la Versión Completa : [Componente] Cómo usar el Timer


orlando
28 de diciembre de 2020, 15:42
cordial saludo

ignoro la utilizacion real del timer cuando inicie a programar powercobol lo utilizaba solo
para colocar fecha y hora, y ahora lo necesito para una rutina de actualizacion de pantalla deseo hacerlo
cada milisegundo si se puede o al menos cada segundo, para mostrar unos display que hago cada vez que el usuario digita una tecla, esta lo que hace es adicionar a un contador 1 y como no se cuando el usuario lo hace
preferiria cada milisegundo, lo que no se tampoco es si el timer se deberia activar antes que el usuario digita la tecla en este caso cada dia, y si hay que desactivarlo o el permanece activado, y si trabaja independientemente con una rutina fuera del programa como es el caso de colocar fecha y hora, ignoro todo esto.

fastpho
28 de diciembre de 2020, 15:51
@orlando, Hola , en el ejemplo que te pase , de turnos , utiliza el timer para leer el archivo de turnos y mostrarlo en pantalla
Timer : dentro
CALL "MONITOREO".
rutina monitoreo

PROCEDURE DIVISION.
MOVE FEC-DD TO MON-DD.
MOVE FEC-MM TO MON-MM.
MOVE FEC-SG TO MON-SG.
MOVE FEC-AA TO MON-AA.

READ MONITOR.

MOVE MON-CODIGO-1 TO "Caption" OF CONTADOR-1.
MOVE MON-CODIGO-2 TO "Caption" OF CONTADOR-2.
INVOKE POW-SELF "Refresh".
UNLOCK MONITOR.

orlando
1 de febrero de 2021, 21:09
@orlando, Hola , en el ejemplo que te pase , de turnos , utiliza el timer para leer el archivo de turnos y mostrarlo en pantalla
Timer : dentro
CALL "MONITOREO".
rutina monitoreo

PROCEDURE DIVISION.
MOVE FEC-DD TO MON-DD.
MOVE FEC-MM TO MON-MM.
MOVE FEC-SG TO MON-SG.
MOVE FEC-AA TO MON-AA.

READ MONITOR.

MOVE MON-CODIGO-1 TO "Caption" OF CONTADOR-1.
MOVE MON-CODIGO-2 TO "Caption" OF CONTADOR-2.
INVOKE POW-SELF "Refresh".
UNLOCK MONITOR.




@fastpho,

orlando
1 de febrero de 2021, 21:14
@fastpho,
buena tarde

si el problema no es que lo muestre, es q no funciona en red como te envio en adjunto@fastpho,