Chrono au centième dans VBA Excel

Version imprimable

Voir 40 message(s) de cette discussion en une page

1 pièce(s) jointe(s)

Chrono au centième dans VBA Excel

Bonjour à tous

Je suis enseignant en EPS et je pratique depuis peu la programmation en VBA
J'ai réussi à développer un chronomètre pour mes épreuves de course ou de natation, mais je n'arrive pas à le modifier pour me servir des centièmes de seconde.
Voici la macro que j'ai inscrite dans mon classeur
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Option Explicit Public running As Boolean, temps As Single Const UneSec = 1 / 86400 Sub compte() If running = True Then Application.OnTime Now + TimeValue("00:00:01"), "compte" temps = temps + UneSec Range("J1") = temps End If End Sub 'mon Chronomètre s'affiche dans la cellule J1 mais également dans une bulle (orange) Sub chrono() 'Départ chrono If running = False Then running = True compte End If End Sub
Pièce jointe 348700
Toutes mes cellules contenant du temps sont formatées comme suit " mm:ss,0
de plus j'ai l'impression que dès que je déclenche le chronomètre, il affiche instantanément 00:01 au lieu d'attendre une seconde

Cordialement

05/02/2018, 16h53
Menhir

Citation:

Envoyé par philou59178

je n'arrive pas à le modifier pour me servir des centièmes de seconde.

Un code qui reste très théorique car dépendant tu temps d'exécution du reste du code.

Code:

Application.OnTime Now + TimeValue(UneSec / 1000), "compte"

Citation:

de plus j'ai l'impression que dès que je déclenche le chronomètre, il affiche instantanément 00:01 au lieu d'attendre une seconde

C'est normal puisque "temps" n'est pas initialisé (donc commence à 0) et que, dès le lancement, tu lui ajoutes une seconde.
La ligne Application.OnTime Now + TimeValue("00:00:01"), "compte" ne temporise pas les lignes suivantes mais relance une nouvelle cession de la macro au bout d'un temps fixé.
05/02/2018, 17h14
Invité

Bonjour,
Intervalle 1/1500
https://mon-partage.fr/f/Mnw2PAmc/

Plus tu cadenceras vite ton échantillonnage et plus tu auras de précision!

Plus tu cadenceras vite ton échantillonnage et plus les évènement d,Excel te ralentiront!

À toi de trouver le bon compromis!
05/02/2018, 17h39
kiki29

Salut, voir ici
05/02/2018, 18h08
Invité

https://stackoverflow.com/questions/...s-in-vba-excel

Avec un échantillonnage serré!
05/02/2018, 18h25
philou59178

Citation:

Envoyé par Menhir

Citation:

Envoyé par philou59178

je n'arrive pas à le modifier pour me servir des centièmes de seconde.

Un code qui reste très théorique car dépendant tu temps d'exécution du reste du code.

Code:

Application.OnTime Now + TimeValue(UneSec / 1000), "compte"

Bonjour , j'ai essayé ce code et ça Bugue y compris avec ("uneSec / 1000")

C'est normal puisque "temps" n'est pas initialisé (donc commence à 0) et que, dès le lancement, tu lui ajoutes une seconde.

Faut-il que j'initialise "temps" à 0 dans quel sub() et sous quel format

La ligne Application.OnTime Now + TimeValue("00:00:01"), "compte" ne temporise pas les lignes suivantes mais relance une nouvelle cession de la macro au bout d'un temps fixé.
05/02/2018, 19h11
unparia

Bonjour
La seule latence d'affichage vient déjà fausser la mesure. Et elle n'est pas la seule latence induite.
Et si l'on inhibe l'affichage, on ne voit plus la progression du temps
Et si on ne l'inhibe pas, même un lynx ne serait pas capable de lire une progression défilant à une telle vitesse (je rappelle que La vision humaine n'est ni fluide, ni instantanée et qu'elle se traduit par une succession de signaux envoyés au cerveau tous les 40èmes de seconde seulement, avant même de pouvoir être "analysés" par le cerveau).
Que se passe-t-il d'ailleurs avec un vrai chronomètre ? Aucun oeil n'est vraiment capable d'y suivre réellement une progression au 100ème de seconde.
On se contente d'avoir une idée "approximative" (position approximative d'une aiguille, par exemple) et on ne connaît avec précision (au 100ème de seconde) la durée qu'en appuyant sur un bouton (d'arrêt ou de "relevé" selon les performances du chronomètre). ;)
05/02/2018, 20h06
Invité

Oui Unparia confirme ce que je disais au poste #3!

Il faut au minimum dissocier le timer de affichage pour lui laisser une chance de recoller les wagons!

Perso j'utiliserai le time double précisions du poste #3 et le lien du poste #5 pour l'affichage!

Pour la persistance rétinienne désolé!
05/02/2018, 23h01
unparia

Bonjour Robert

Citation:

Pour la persistance rétinienne désolé!

C'est bien pire que cela : l'oeil n'est pas capable d'envoyer plus de 40 signaux par seconde en moyenne au cerveau. Avant même interprétation par le cerveau, en plus. ;)
Personne ne serait capable de lire et interpréter 100 images à la seconde.

EDIT : ne surtout pas confondre avec le traitement à retardement, par le cerveau, d'une image vue par l'oeil à un instant t et dont le signal a été transmis au cerveau 1/40ème de seconde plus tard (le principe même des images subliminales, qui ont bien été transmises au cerveau, que le cerveau a bien "vues", mais à retardement).

Quoi qu'il en soit : il ne sert rigoureusement à rien d'afficher la valeur d'un compteur (chronomètre ou n'importe quoi d'autre) à cette fréquence-là.
Et même si, en utilisant un stroboscope (sans lequel on ne pourrait lire aucune donnée d'un tel chronomètre) , on "cadence" la lecture, la valeur lue n'est déjà plus la bonne le temps de la lire :mouarf:
06/02/2018, 09h22
Menhir

Citation:

Envoyé par philou59178

Bonjour , j'ai essayé ce code et ça Bugue y compris avec ("uneSec / 1000")

"Ca bugue", c'est un peu court comme description de problème.
:cristal:
06/02/2018, 17h18
philou59178

2 pièce(s) jointe(s)

Citation:

Envoyé par Menhir

"Ca bugue", c'est un peu court comme description de problème.
:cristal:

Bonjour
voici une copie de la page

Pièce jointe 349108
06/02/2018, 17h50
eriiic

Bonjour,

pour continuer dans la série des interrogations j'ai du mal à imaginer la qualité d'une mesure au 1/100e si début et arrêt se font par un clic sur un bouton.
Il faut que la précision soit en cohérence avec les moyens mis en oeuvre. 2 chiffres après la virgule n'a pas de sens si on n'est pas sûr du premier.
C'est un déclenchement électronique que tu utilises ?
eric
06/02/2018, 18h04
Menhir

Supprime la fonction TimeValue (mais garde le contenu).
Définis la constante UneSec comme de type Double.
06/02/2018, 18h15
philou59178

Citation:

Envoyé par eriiic

Bonjour,

pour continuer dans la série des interrogations j'ai du mal à imaginer la qualité d'une mesure au 1/100e si début et arrêt se font par un clic sur un bouton.
Il faut que la précision soit en cohérence avec les moyens mis en oeuvre. 2 chiffres après la virgule n'a pas de sens si on n'est pas sûr du premier.
C'est un déclenchement électronique que tu utilises ?
eric

Bonjour
J'utilise une tablette avec déclenchement tactile sur les boutons de démarage et d'arrêt.
Je comprend ton interrogation sur la précision au centième et je pourrais me satisfaire d'une précision au dixième.
ce sont les barèmes du bac en natation qui demandent une telle précision. Je ne suis pas forcement pour.
Pas d'inquiétude cependant, j'utilise en plus un chronomètre pour l'instant, tant que la mesure n'est pas "fiable" avec ce type d'outil
06/02/2018, 18h33
Invité

Bonsoir,
Application.ontime est en soit imprécis! [temps = temps + UneSec] là tu aggraves la situation!

Je ne sais pas quel est le plus petit intervalle possible pour ontime mais il le faut le plus réduit possible!

Si tu veux t'approcher d'une précisions d'horloger intéresser toi àl'API GetTickCount!
06/02/2018, 18h47
kiki29

Salut, bis repetita voir chronomètres
06/02/2018, 18h48
philou59178

Citation:

Envoyé par dysorthographie

Bonsoir,
Application.ontime est en soit imprécis! [temps = temps + UneSec] là tu aggraves la situation! je ne sais pas pourquoi !?

Je ne sais pas quel est le plus petit intervalle possible pour ontime mais il le faut le plus réduit possible!

Si tu veux t'approcher d'une précisions d'horloger intéresser toi àl'API GetTickCount!

Bonjour
merci pour tes inquiètudes, mais comme je le disait je débute avec le VBA.
Je suis prêt à tester ton appli, mais il faut que j'y comprenne un minimum.
est ce que je pourrai récuperer mes "clics de temps" dans un tableau excel face aux noms des élèves que je chronomètre ?
cordialement
06/02/2018, 18h55
unparia

Citation:

est ce que je pourrai récuperer mes "clics de temps" dans un tableau excel face aux noms des élèves que je chronomètre ?

Nul besoin d'un "chrono", pour ce faire ! il suffit d'utiliser la fonction Timer, d'en relever la valeur V1 au départ (un click) la valeur V2 à l'arrivée (unj click) et d'en déduire la durée !;)
Et c'est tout-à-fait le sens de ce que je t'ai dit plus haut. L'affichage du déroulement est totalement inutile et inexploitable. Seule la durée entre deux clicks signifie quelque-chose (comme d'ailleurs avec un vrai chronomètre).

Citation:

Envoyé par Menhir

Supprime la fonction TimeValue (mais garde le contenu).
Définis la constante UneSec comme de type Double.

j'ai fait comme ceci ====> Erreur d'excécution '13' Imcompatibilité de type !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Option Explicit Public running As Boolean, temps As Single Const Unesec = 1 / 86400 Sub compte() Dim Unesec As Double If running = True Then Application.OnTime Now + ("00:00:01"), "compte" temps = temps + Unesec Range("J1") = temps End If End Sub Sub chrono() 'Départ chrono If running = False Then running = True compte End If End Sub

Bonjour,

deux boutons sur une feuille

Code:

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
    Range("a1").Value = Timer
End Sub
 
Private Sub CommandButton2_Click()
    Range("b1").Value = Timer
    Range("c1").Value = Range("b1").Value - Range("a1").Value
End Sub

Voir 40 message(s) de cette discussion en une page

Fuseau horaire GMT +2. Il est actuellement 11h33.