[vb6] Temporizadores virtuales [Clase]

[vlad]

Navengando por ahi encontré este bonito modulo de clase, la verdad me parece muy pero muy útil; sirve para crear temporizadores virtuales de alto desempeño [si la maquina lo soporta, si no, usa tickets] tiene un gran uso para medir lapsos de tiempos, y pueden crear virtualmente cuantos quieran, no consumen activamente recursos, puesto que funciona mas o menos asi:

Pseudo-Codigo:

Código: [Seleccionar]

dim X as Double
'Graba en memoria el "tiempo" en el que empezó
timerclass.StartTimer
'Obtenemos el tiempo transcurrido, para ello, vuelve a tomar el "tiempo" actual y lo resta con el inicial, asi obtiene una diferencia de tiempo que indica el lapso.
X = timerclass.Elapsed
'Terminamos de contar el tiempo [esto puede ser llamado antes de medir], provoca que el proximo "elapsed" que se tome de esta instancia de la clase, devuelva el valor con el que termino, hasta que se resetee llamando de nuevo al "StartTimer"
timerclass.EndTimer

PD:
Sicario, espero que la pequeña discusion de hace un rato, no impida que aportes tus comentarios, sin importar la indole de estos.

Tmb si conoces uno mejor, porfa compartilo =) se que hay muchos codigos buenos por ahí que aún no he visto y que tmb le pueden servir a los demas.

PD2:
rgdoggsv, siendo este un chat de tecnología, ¿podrias por favor considerar incluir los tags [VB] - [/VB]?, la verdad creo que son muy útiles al aportar.

[vlad]

Ah! la cabecera del archivo:

'   Module          : cTimer
'   Description     : Hi-Performance Timer Class
'   Author          : C. Eswar Santhosh
'   Last Updated    : 08th February, 2000.
'   Notes           : If the System does not support a Hi-Resolution timer, uses the very approximate
'                     GetTickCount function. This class is used as a Stop Watch to measure elapsed time
'                     between StartTimer() and EndTimer() Calls.
'
'   Copyright Info  :
'
'   This Class module is provided AS-IS. This Class module can be used as a part of a compiled
'   executable whether freeware or not. This Class module may not be posted to any web site
'   or BBS or any redistributable media like CD-ROM without the consent of the author.
'
'   e-mail   : eswar_santhosh@yahoo.com

[rdoggsv]

simple machines forum no soporta los tags VB , me refiero a que al parecer el unico codigo que detecta y colorea son los de PHP , :S