Hola, estoy haciendo como ya comente en otro topic un cronometro, si lo configuro para segundos funciona perfectamente, pero cuando intento sacar las milesimas, por muchas pruebas que hago cambiando el valor del timer no me lo hace bien.
Pongo el codigo para ver si alguien me puede aclarar cual seria el valor de timer a poner o alguna solución. Para segundos perfecto pero necesito las milesimas.
Si veis que podria mejorar el codigo indicarmelo.
Muchas Gracias.
Pongo el codigo para ver si alguien me puede aclarar cual seria el valor de timer a poner o alguna solución. Para segundos perfecto pero necesito las milesimas.
Si veis que podria mejorar el codigo indicarmelo.
Muchas Gracias.
vmilesima:=0
DEFINE TIMER otimet INTERVAL 1 action cronometro()
activate timer otimet
....
static function cronometro()
if vmilesima = 1000
if vsegundo < 60
vsegundo:= vsegundo + 1
else
vsegundo:=0
if vnimuto < 60
vnimuto:= vminuto + 1
else
vnimuto:=0
if vhora < 23
vhora:= vhora + 1
else
vhora:=0
endif
endif
endif
vmilesima:=0
else
vmilesima :=vmilesima+1
endif
vlhora:=iif(len(alltrim(transform(vhora,"99")))=1,"0"+alltrim(transform(vhora,"99")),alltrim(transform(vhora,"99")))
vlminuto:=iif(len(alltrim(transform(vminuto,"99")))=1,"0"+alltrim(transform(vminuto,"99")),alltrim(transform(vminuto,"99")))
vlsegundo:=iif(len(alltrim(transform(vsegundo,"99")))=1,"0"+alltrim(transform(vsegundo,"99")),alltrim(transform(vsegundo,"99")))
vcronometro:=vlhora+":"+vlminuto+":"+vlsegundo+"."+transform(vmilesima,"999")
gvcronometro:refresh()
return nil