Sistema para cronometrar Gymkanas.

Hola. :lol:

Un paso más. Leyendo y leyendo manuales he descubirto que el problema es que hay que conseguir una condicion "SI" con un operador "Y" que solo la ejecute cuando ambas se cumplan, del tipo Si en A1 se escribe "algo, y B1 esta vacio, se escriba AHORA().

Como se le dice que la casilla esta vacia?

Seguire indagando. :wink:

Hola, he leido la mayoria de los comentarios de este largo post.

Yo trabajo con la Comision de Enduro en Mexico y lo que resolvi x ahora fue mendiante EXCEL, pero programado con Macros de Visual Basic Applications, no unicamente con formulas como lo plantean aqui.

La manera de entrar al entorno de desarrollo de excel es presionan SHIFT-F11, te remite a la interfaz donde puedes programar y MANIPULAR los contenidos de la celda con el Visual Basic Applications (el lenguaje de Office), si presionas F1 desde esta interfaz veras la ayuda necesaria para acceder a los objetos, por ejemplo:

for i=1 to 30

activeSheet.range("A" & i) = "HOLA" & time()

next

Saludos

Juan Arturo

Hola. :lol:

¿jasistemas seria posible que colgaras el programa para echarle un ojo?

Por cierto, que yo apretando MAYUS+F11 me crea una nueva hoja. ¿Puede que las versiones de los teclados no sean compatibles entre el español y el mejicano?

Explicanos como lo has hecho, y en que te has basado, asi que inconvenientes y ventajas le ves con respecto a otros sistemas que conozcas (si no te importa). :roll:

Jaso eso que dices del "güindon" es como el eterno dilema del 2T ò el 4T.

Yo personalmente no lo cambio por nada, y eso que he "intentado" hacer negocios con los del pingüino, pero ...... (no hay color, ni punto de comparacion).

Saludos. :wink:

Hola de nuevo Jaso. :lol:

¿El XP te da pantallazos azules, se te bloquea porque si, ...., etc, etc? :?:

¿Las 4T no se vuelven testarudas para arrancar, les han puesto arranque electrico, y si les ponen inyeccion electronica no se vuelven mas "mimosas" (Crach Crach)?

Venga hombre, metete ya con ese programa (en lo que te salga del rabo), pero que al menos haga una puta lista de pilotos con hora de paso, joder.

Saludos "friki". :wink:

:cry:

Bien Jaso, despacio pero seguro. :lol:

Yo tb estoy estancado en como poner la formula para q no me modifique los valores anteriores. A ver si suena la flauta con algun experto en excel que nos lea, y que sepa algo mas que contabilidad. :roll:

:wink:

P.D.

Usa algun punto y aparte, que me vas a dejar vizco siguiente. :P

A ver, despues de mas de seis meses, de que esto se queda en agua de borrajas y de que hay nuevos valores en el foro con ganas de AYUDAR y cooperar en lo que haga falta refresco este post a ver si suena la flauta.

Aprovechando que tengo un nuevo compañero en el curro (gracias J.L.) y este a su vez tiene "contactos" con PROGRAMADORES, me ha facilitado un adelanto de lo que podria ser la base de un macro para una hoja de excel. Si alguno entiende de estos temas que le eche un ojo, y aporte lo que pueda y quiera:

http://download.yousendit.com/3155A7531D511D69

:roll:

A ver que se puede hacer.

Yo uso bastante excel, pero a un nivel muy básico. Pero a ver si 2 ojos más sirven para algo.

No consigo abrir las macros, ni cambiando la seguridad.

Que versión de excel tienes, maño?

No consigo abrir las macros, ni cambiando la seguridad.

Que versión de excel tienes, maño?

Debes poder abrirlo con cualquiera actual.

Yo uso el Office XP y el excel creo q pone ver.2002.

El macro dice algo asi:

Sub Botón2_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("m8:n37") = Timer
    'Range("m8") = Timer
    'Range("m9") = Range("m8")
    'Range("m10") = Range("m8")

    End Sub

Sub Botón4_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n8") = Timer
    If Range("n8") < Range("m8") Then
        Range("n8") = Range("n8") + 86400
    End If
    End Sub

Sub Botón5_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n9") = Timer
    If Range("n9") < Range("m9") Then
        Range("n9") = Range("n9") + 86400
    End If
    End Sub
Sub Botón6_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n10") = Timer
    If Range("n10") < Range("m10") Then
        Range("n10") = Range("n10") + 86400
    End If
    End Sub
Sub Botón7_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n11") = Timer
    If Range("n11") < Range("m11") Then
        Range("n11") = Range("n11") + 86400
    End If
    End Sub

Sub Botón8_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n12") = Timer
    If Range("n12") < Range("m12") Then
        Range("n12") = Range("n12") + 86400
    End If
    End Sub

Sub Botón9_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n13") = Timer
    If Range("n13") < Range("m13") Then
        Range("n13") = Range("n13") + 86400
    End If
    End Sub

Sub Botón10_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n14") = Timer
    If Range("n14") < Range("m14") Then
        Range("n14") = Range("n14") + 86400
    End If
    End Sub
Sub Botón11_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n15") = Timer
    If Range("n15") < Range("m15") Then
        Range("n15") = Range("n15") + 86400
    End If
    End Sub
Sub Botón12_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n16") = Timer
    If Range("n16") < Range("m16") Then
        Range("n16") = Range("n16") + 86400
    End If
    End Sub
Sub Botón13_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n17") = Timer
    If Range("n17") < Range("m17") Then
        Range("n17") = Range("n17") + 86400
    End If
    End Sub
Sub Botón14_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n18") = Timer
    If Range("n18") < Range("m18") Then
        Range("n18") = Range("n18") + 86400
    End If
    End Sub
Sub Botón15_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n19") = Timer
    If Range("n19") < Range("m19") Then
        Range("n19") = Range("n19") + 86400
    End If
    End Sub
Sub Botón16_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n20") = Timer
    If Range("n20") < Range("m20") Then
        Range("n20") = Range("n20") + 86400
    End If
    End Sub
Sub Botón17_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n21") = Timer
    If Range("n21") < Range("m21") Then
        Range("n21") = Range("n21") + 86400
    End If
    End Sub
Sub Botón18_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n22") = Timer
    If Range("n22") < Range("m22") Then
        Range("n22") = Range("n22") + 86400
    End If
    End Sub
Sub Botón19_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n23") = Timer
    If Range("n23") < Range("m23") Then
        Range("n23") = Range("n23") + 86400
    End If
    End Sub
Sub Botón20_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n24") = Timer
    If Range("n24") < Range("m24") Then
        Range("n24") = Range("n24") + 86400
    End If
    End Sub
Sub Botón21_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n25") = Timer
    If Range("n25") < Range("m25") Then
        Range("n25") = Range("n25") + 86400
    End If
    End Sub
Sub Botón22_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n26") = Timer
    If Range("n26") < Range("m26") Then
        Range("n26") = Range("n26") + 86400
    End If
    End Sub
Sub Botón23_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n27") = Timer
    If Range("n27") < Range("m27") Then
        Range("n27") = Range("n27") + 86400
    End If
    End Sub
Sub Botón24_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n28") = Timer
    If Range("n28") < Range("m28") Then
        Range("n28") = Range("n28") + 86400
    End If
    End Sub
Sub Botón25_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n29") = Timer
    If Range("n29") < Range("m29") Then
        Range("n29") = Range("n29") + 86400
    End If
    End Sub
Sub Botón26_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n30") = Timer
    If Range("n30") < Range("m30") Then
        Range("n30") = Range("n30") + 86400
    End If
    End Sub
Sub Botón27_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n31") = Timer
    If Range("n31") < Range("m31") Then
        Range("n31") = Range("n31") + 86400
    End If
    End Sub
Sub Botón28_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n32") = Timer
    If Range("n32") < Range("m32") Then
        Range("n32") = Range("n32") + 86400
    End If
    End Sub
Sub Botón29_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n33") = Timer
    If Range("n33") < Range("m33") Then
        Range("n33") = Range("n33") + 86400
    End If
    End Sub
Sub Botón30_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n34") = Timer
    If Range("n34") < Range("m34") Then
        Range("n34") = Range("n34") + 86400
    End If
    End Sub
Sub Botón31_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n35") = Timer
    If Range("n35") < Range("m35") Then
        Range("n35") = Range("n35") + 86400
    End If
    End Sub
Sub Botón32_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n36") = Timer
    If Range("n36") < Range("m36") Then
        Range("n36") = Range("n36") + 86400
    End If
    End Sub
Sub Botón33_AlHacerClic()
'
' Botón2_AlHacerClic Macro
' Macro grabada el 05/11/2006 por HP Pavilion
'
    Range("n37") = Timer
    If Range("n37") < Range("m37") Then
        Range("n37") = Range("n37") + 86400
    End If
    End Sub

:wink:

P.D.

Asegurate bien de que tienes una seguridad media (te pregunta) o baja para poder abrirlo

Yo hace algun tiempo que le di unas vueltas a este tema y de vez en cuando le dedico un ratito. Hay una cosa que no entiendo, hablais de hojas excel para sacar los tiempos etc... pero no veo que nadie hable de lo realmente importante, como detectar de forma automática qué piloto ha pasado y cuando.

Alguno ha hecho cosas con células, con la célula tienes el cuando ( con un margen de error por piedras etc.. y problemas si pasa más de un piloto a la vez ).

Sólo faltaría el quién. Estuve mirando el tema transponders pasivos de RF

e incluso inductivos y al final para no gastar un duro decidí usar mi móvil como transponder. Prácticamente todo el mundo tiene un móvil ( o pda o lo que sea ) bluetooth que se puede usar como transponder, pero hay un problema, y es que detectas al móvil bastante antes de que realmente pase, pero bueno, para sacar el tiempo ya está la célula, que en mi caso es una barrera por infrarrojos que valen 4 euros pa montarlo, poruqe las celulas valen un pastizal. Tambien se puede montar un detector de paso por ultrasonidos que sale por cuatro duros y te evitas que deje de funcionar si hay mucho polvo o si le salpica barro.

Esa sería la parte de deteccion, y por otro lado sería el software que maneje los datos, que creo que es la hoja excel que os estais preparando.

Yo directamente metería todos los datos en una BBDD y con un par de querys tienes todos los resultados.

Tambien hay otra opción que es usar módulos tipo aurel de 443 Mhz que los emisores salen por menos de 10 euros y con algo más de electrónica te haces un transponder, el problema es la corriente para alimentarlo aunque seguro que se podria sacar de la moto ( si es de enduro sin problema ).

Bueno, como ya os digo llevo un tiempo mirando temas, y aun sigo porque estoy seguro de que con cuatro componentes baratos se pueden hacer los transponders para saber quién es el que está pasando y coger el tiempo con una barrera infrarroja o de ultrasonidos, eliminar los errores es fácil con el software.

Me gustaría que me dijerais que os parece la idea de usar el bluetooth, integrarlo en un portatil es sencillísimo ( con un adaptador por USB o incluso con el que viene integrado ya en casi todos ) y con un par de programitas en C detectaba cada 2 segundos que dispositivos estaban presentes, con lo que sabes quien esta pasando en ese momento, aunque

sean varios.

Por mi parte sigo mirando algo más sencillo y barato., pero esto prodría servir de apoyo a los cronometradores.

Coño magia, alguien que se digna a aportar su granito de arena (y ademas currado como dios manda).

A ver, te respondo en lo que yo sé:

Yo en tiempos use un par de fotocelulas para un programa en Basic de una crono de enduro. Tu le decias quien entraba y salia, y él asignaba el tiempo de paso a ese dorsal. Despues una resta y ahi tenias el tiemplo empleado por cada participante.

Lo que tu dices de los transporder seria cojonudo, pero tiene un pero. Y es que estamos limitados en nuestros conocimientos, aportaciones e interes por cualquier causa, de ahi que yo solo me limite a una hoja excel. Pero si alguien supiese programar un poco en Visual Basic (por ejemplo) en programa que controlase fotocelulas, que controlara los transponder, que hiciese los calculos, ..... , etc serian cosa de unas pocas lineas de codigo (un pasatiempo, vamos).

Lo del bluetooth que comentas se soluciona facilmente con una antena direccional que solo "vea" la zona que nos interese, pero que yo sepa, los programas que reconocen estos dispositivos se pegan unos buenos segundos buscandolos y asignandolos, por lo que cuando acaben ya se ha ido. Y lo de fabricar emisoras de radio ya habria que efectuar una "inversion" economica que no se iba a recuperar (ya sabes que cuando algo nos toca el monedero, es donde mas nos duele).

En fin, que desconozco tus conocimientos en la materia, pero aqui tienes a un electromecanico "oxidado" para lo que necesites al respecto.

Quarter creo que jasistemas se refiere a que por Herramientas-Macro-Editor de Visual Basic se puede poner esa formula.

Hola. :lol:

Pasa el tiempo, y no se hace (ni hago) nada, y vamos a llegar a la proxima y vamos a estar idem.

A veces recuerdo la Gymkana de octubre, y me viene a la memoria a Pepet y Tranqui con el boli haciendo el recuento de dorsales y vueltas de los participantes.

Creo que en los tiempos q estamos, mas de uno dispone de un PC portatil, algun programador de Visual Basic o C++, de algun conocedor de Excel, y de algun electronico que sea capaz de conectar una fotocelula a un ordenador.

Yo, hace años, hice con un portatil 8088 un sistema de cronometrar vueltas de varios pilotos con un cutre-programa en Basic, y un par de fotocelulas industriales. Si es preciso lo busco por si sirve de orientacion para una version mas actual.

Creo que entre todos, aportando cada uno nuestro granito de arena, podemos conseguir que al menos Pepet y Tranqui puedan "descansar" y dedicarse con mas esmero a las cervezas que les pongan en la mesa.

¿Qué os parece? ¿Lo intentamos?

Un saludo gymkaneros. :wink:

el sistema para cronometrar Gimkanas y tu posicion al final de la misma esta directamente relaccionado con los cubatas que estan encima de la mesa del cronometrador.....esto es una realidad ..y luego puede que tengas un mega PC con el programa de la nasa..en fin ...que lo que importa es participar

Filomeno........que se que aun te duele :twisted:

Con tanta cerveza y un portátil, dónde está el problema???

Ya vendré yo a mirar dorsales y lo que haga falta.