Ya me estas tardando mucho!… pero cuanto es mucho?

En algunas ocasiones puede interesarnos cronometrar el tiempo de determinadas operaciones. Aunque bien entendido que puede hacerse de diversas formas y a determinar la cual mas precisa, os dejo una idea como siempre muy simple de averiguar cuando nos esta tardando cierta operación, ya sea dentro de un bucle, en petición a un procedimiento externo, en una consulta a SQL o cualquier otra transacción.


‘ Simplificado y en VB9

‘Bucles para test del tiempo en ejecucion
Dim Bucles = Val(InputBox(“Numero de iteraciones”))
‘Poner en marcha el cronometro
Dim CronoIncial = System.DateTime.Now
‘Tarea a cronometrar
Dim numero = 0       ‘Variable para la simulacion

For x = 0 To Bucles
     numero += 1
     Text = numero.ToString
     Refresh()
 Next
‘para saber el tiempo empleado! .. restamos
MessageBox.Show(“Tiempo empleado : “ + _
               (System.DateTime.Now – CronoIncial).ToString + _

                ” s.”, “Cronometro”)

…………..

‘ En VB8 Podria lucir como sigue


       
‘Variable simulacion de calculos
        Dim numero As Integer = 0
        ‘Bucles para test del tiempo en ejecucion
        Dim Bucles As Integer = Val(InputBox(“Numero de iteraciones”))
        ‘Poner en marcha el cronometro
        Dim CronoIncial As DateTime = System.DateTime.Now
        ‘Tarea a cronometrar
        For x As Integer = 0 To Bucles
            numero += 1
            Label1.Text = numero.ToString
            Label1.Refresh()
        Next
        ‘Tomar el tiempo del cronometro al finalizar
        Dim CronoFinal As DateTime = System.DateTime.Now
        ‘Restar Fin de Inicio para saber el tiempo empleado!

        MessageBox.Show(“Tiempo empleado : “ + (CronoFinal – CronoIncial).ToString + ” s.”, “Cronometro”


Saludos,
Pep Lluis,

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>