Cronometro.Timer.

[Garbi]

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.

Code: Select all  Expand view

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

 

[Antonio Linares]

La función de Windows GetTickCount() devuelve las milésimas.

No se si te pueda servir