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. » s.», «Cronometro») ………….. ‘ En VB8 Podria lucir como sigue
‘ 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 + _
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,
Hace dieciséis años y después de interminables programas en Basic que ejecutaban líneas secuenciales de sentencias ordenadas por números interpretadas por aburridos compiladores, VB Nace anunciando una gran noticia en torno a la aplicación de nuevos paradigmas de programación avanzada. En esta Ocasión añadiendo la esperada y tan aclamada Programación orientada a objetos, aunque carecía de algunos aspectos primordiales de una POO real, podemos afirmar que era una buena implementación filosóficamente hablando. Con este avance VB se convierte en un lenguaje de primera línea… este gran paso para los programadores de Basic en 1992, vio su primera implementación en DOS y utilizando caracteres ASCII para simular un entorno real de ventanas. ¡Menuda locura! 