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,