Discussion :

[philou59178]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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é.

[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!

[kiki29]

Salut, voir ici

[Invité]

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

Avec un échantillonnage serré!

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[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).

[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é!

[unparia]

Bonjour Robert

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

[Menhir]

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.

[philou59178]

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

Bonjour
voici une copie de la page

[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

[Menhir]

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

[philou59178]

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

[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!

[kiki29]

Salut, bis repetita voir chronomètres

[philou59178]

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

[unparia]

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).

[philou59178]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[clementmarcotte]

Bonjour,

deux boutons sur une feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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