gjorge
19 de Julio del 2005

Necesito tener varios cronometros programables en activo (16 para ser exactos), con diferentes tiempos de inicio y reseteo, y favor de indicarme como puedo hacer esto, en fox pro.

gracias de antemano

sgomez
19 de Julio del 2005

En este ejemplo se instancia la clase reloj en el objeto mireloj una vez. Podés crear tantos relojes como quieras y activarlos cuando los necesites.
Este ejemplo muestra un messagebox pero vos adaptálo a tu necesidad.

on shutdown quit
mireloj=createobject("Reloj")
read events
DEFINE CLASS Reloj AS timer
interval = 1000
enabled=.T.
PROCEDURE init
messagebox("Iniciado")
ENDPROC
PROCEDURE Timer
messagebox(ttoc( datetime())
ENDPROC
ENDDEFINE