Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Componente] Cómo usar el Timer (https://www.cobolforo.es/showthread.php?t=1249)

orlando 28 de diciembre de 2020 15:42
Cómo usar el Timer
 
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
Código COBOL:
  1.  CALL "MONITOREO".
rutina monitoreo
Código COBOL:
  1.  PROCEDURE       DIVISION.
  2.      MOVE FEC-DD    TO MON-DD.
  3.      MOVE FEC-MM    TO MON-MM.
  4.      MOVE FEC-SG    TO MON-SG.
  5.      MOVE FEC-AA    TO MON-AA.
  6.  
  7.      READ MONITOR.
  8.      
  9.      MOVE MON-CODIGO-1 TO "Caption" OF CONTADOR-1.
  10.      MOVE MON-CODIGO-2 TO "Caption" OF CONTADOR-2.
  11.      INVOKE POW-SELF "Refresh".
  12.      UNLOCK MONITOR.
  13.      
  14.      

orlando 1 de febrero de 2021 21:09
tu programa de turnos
 
Cita:
Citación del post de fastpho (Mensaje 6363)
@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
Código COBOL:
  1.  CALL "MONITOREO".
rutina monitoreo
Código COBOL:
  1.  PROCEDURE       DIVISION.
  2.      MOVE FEC-DD    TO MON-DD.
  3.      MOVE FEC-MM    TO MON-MM.
  4.      MOVE FEC-SG    TO MON-SG.
  5.      MOVE FEC-AA    TO MON-AA.
  6.  
  7.      READ MONITOR.
  8.      
  9.      MOVE MON-CODIGO-1 TO "Caption" OF CONTADOR-1.
  10.      MOVE MON-CODIGO-2 TO "Caption" OF CONTADOR-2.
  11.      INVOKE POW-SELF "Refresh".
  12.      UNLOCK MONITOR.
  13.      
  14.      
@fastpho,

orlando 1 de febrero de 2021 21:14
tu programa de turnos
 
1 Archivos Adjunto(s)
Cita:
Citación del post de orlando (Mensaje 6455)
@fastpho,
buena tarde

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


La franja horaria es GMT +2. Ahora son las 15:39.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.