Sección de códigos , trucos y ejemplos para visual basic

17 - Cronometrar un proceso con el Api GetTickCount

Este Ejemplo muestra como cronometrar un proceso, por ejemplo un bucle y poder saber el tiempo que tardó en ejecutarse, usando el Api de windows

El Api GetTickCount devuelve un valor que indica la cantidad de milisegundos desde que se inició el sistema, de esta manera tenemos un punto de partida para luego almacenarlo en una variable y hacer el cálculo cuando termina el bucle.

Nota: Esta función sería similar a la función Timer de visual basic, con la diferencia de que esta devuelve, no los milisegundos, si no los segundos desde que inició windows

Dim Segundos as long

Segundos = Timer

Controles

Colocar un control CommandButton llamado Command1

Código fuente del form:

Option Explicit 'Api GetTickCount ''''''''''''''''''''''''' Private Declare Function GetTickCount Lib "kernel32" () As Long Private Sub Command1_Click() Dim x As Long Dim ret As Long Dim tiempo As Long Dim i As Long Dim max As Long Me.MousePointer = vbHourglass max = 15000 'capturar el tiempo inicial desde que inicio windows _ como para tener un punto de referencia. ret = GetTickCount / 1000 'hacemos un bucle For i = 1 To max DoEvents Me.Caption = CStr(i) & "/" & CStr(max) Next 'Volvemos a capturar el tiempo para restarlo al inicial 'Se divide por mil por que lo devuelve en millonésimas de segundos x = GetTickCount / 1000 'restamos tiempo = x - ret Me.MousePointer = vbDefault 'Mostramos el tiempo transcurrido del bucle MsgBox tiempo & " segundos", vbInformation End Sub

Recursos vb 6.0 - Enlaces Relacionados

Generar esperas y retardos mediante el Api

Recursos vb.net

Ejemplo del objeto StopWatch

Buscar en Recursos vb