Cronómetro para competencias con Excel.

sábado, abril 11, 2009

Dado que Excel nos permite hacer cálculos con tiempo, la tentación de crear un cronómetro para medir tiempos en competencias es muy grande. Y efectivamente, se puede hacer, pero hay que tomar en cuenta algunas desventajas y defectos potenciales de crear un cronómetro con Excel. Sin entrar en detalles técnicos podemos decir que la principal desventaja es que Excel no fue creado para medir tiempos de competencias y por lo tanto no podemos garantizar la precisión de la medición.

Dicho esto, mostraremos en esta nota cómo construir con Excel un cronómetro par competencias.

Empezamos por crear una hoja donde registraremos los competidores y los tiempos.





En la fila 6 hemos puesto tres botones a los cuales le asociaremos macros, cuyo cometido explicaré más adelante.

En las files 8-9 usamos botones en lugar de texto en celdas para facilitar el código de las macros. Estos botones no están asociados a ninguna macro y sólo funcionan como encabezamientos de las columnas.

Nuestro modelo funciona de la siguiente manera:

En la columna A, a partir de la celda A10 introducimos los nombres de los participantes en la competencia.

Una vez registrados los participantes apretamos el botón “Largar”. La hora de largada (hora, minuto, segundos, milésimas de segundo) queda registrada en la celda B6. A medida que los competidores van llegando a la meta, hacemos un doble clic en la celda de la columna B a lado del nombre. Esto hace que en la celda se registre el momento de la llegada.
Una vez terminada la competencia se pulsa el botón Cerrar. Esto hará que la lista de competidores se ordene por orden de llegada y se calcule la diferencia respecto al primero.

Esta es la situación al terminar la competencia


Y ésta después de apretar el botón Cerrar



Todo el proceso puede verse en esta captura de pantalla

video

Este modelo funciona en base a la función Timer del Vba (Visual Basic for Applications, el lenguaje macro de Excel). La función Timer da la cantidad de segundos transcurridos desde la medianoche (00:00:00). Al apretar el botón Largar, registramos la cantidad de segundos transcurridos desde la medianoche y ponemos el dato en la celda B6. Pero previamente lo dividimos por 86400 para poder expresarlo como hora (hora, minutos, segundos y milésimas de segundo).

Un detalle importante: todas las celdas que contienen tiempos están formadas con este formato personalizado

hh:mm:ss.000

En un módulo común del editor de Vb ponemos este código y lo ligamos al botón Largar

Sub largada()
startTime = Timer
Range("B6") = startTime / 86400
End Sub


Para registrar el momento de llegada de cada competidor necesitamos dos herramientas: un evento que registre que hemos hecho un doble clic en la celda de llegada del competidor y una macro que calcule el momento y lo registre en la celda correspondiente.

El código del evento va en un módulo de la hoja. En el editor de Vb hacemos un doble clic sobre el icono de la hoja Competencia



y en el módulo que se abre ponemos este código

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Partic As Long, partList As Range

Partic = Range("A10").CurrentRegion.Rows.Count - 1

Set partList = Range(Range("A10").Offset(0, 1), _
Range("A10").Offset(Partic, 1))

If Union(Target, partList).Address = partList.Address And _
IsEmpty(Target) Then Call llegada
End Sub

La tarea de este código es detectar si hemos hecho un doble clic sobre alguna de las celdas de la columna B al lado del nombre de un competidor. Además el código controla que la celda esté vacía, es decir que no hayamos registrado el tiempo de llegada previamente. Si se cumplen ambas condiciones, se activa la macro “llegada”. La tarea de esta macro es registrar la hora de llegada y el tiempo transcurrido desde el comienzo de la competencia.

Esta macro va en un módulo común del editor de Vb y su código es:

Sub llegada()
Dim finalTime As Single
finalTime = Timer
ActiveCell = finalTime / 86400
ActiveCell.Offset(0, 1) = ActiveCell - Range("B6")
End Sub

Ahora necesitamos ligar una macro al botón Cerrar. Esta macro debe ordenar los competidores por orden de llegada y calcular las diferencias respecto al primero. El código de esta macro es:

Sub cierre_comp()

Dim Participantes As Long, iX As Long

On Error Resume Next
Range("A10").CurrentRegion.Sort Key1:=Range("C10"), Order1:=xlAscending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
On Error GoTo 0

'calcula la diferencia con el primero

Participantes = Range("A10").CurrentRegion.Rows.Count

For iX = 1 To Participantes - 1
Range("A10").Offset(iX, 3) = Range("A10").Offset(iX, 2) - _
Range("A10").Offset(0, 2)
Next iX
End Sub


Finalmente ligamos este código al botón Reset, para borrar todos los datos y poder comenzar una nueva competición:

Sub reset()
Range("B6").ClearContents
Range("A10").CurrentRegion.ClearContents
End Sub


Con esto hemos terminado de construir nuestro modelo.


Este modelo no es flexible, es decir, si cambiamos la estructura de la hoja al agregar o quitar filas o columnas, las macros dejarán de funcionar correctamente. Además no tiene ningún tipo de control para evitar entradas erróneas. Por ejemplo, necesitamos un control que impida largar la competencia si no se han introducido previamente la lista de competidores.

Un modelo flexible, que puede adaptarse al formato deseado, puede descargarse aquí. También incluye una hoja de instrucciones

3 comments:

Anónimo,  17 abril, 2009 22:37  

Bueno eso de "simbolico" por 5 euros, pues no se...pero si me pongo de parte del programador, pues es bueno que nos paguen 5 euritos, no esta mal, seria un plus.

Anónimo,  29 agosto, 2013 14:29  

el archivo no esta disponible, súbanlo otra vez

Jorge Dunkelman 29 agosto, 2013 14:34  

El sitio donde estaba el archivo cerró. Te sugiero que te comuniques conmigo por mail privado (fijate en el enlace Ayuda, en la parte superior de la plantilla).

Publicar un comentario

Seguidores

Google+ Followers

Google+ Badge

Términos Legales

  © Blogger template On The Road by Ourblogtemplates.com 2009

Back to TOP