Mesure de vitesse
zad
-
zad -
zad -
bonjour,
je dispose de deux capteurs, qu m'envoient des impulsons lors du passage d'un objet, je veut utilser ces deux mpulsions pour calculer la vitesse de cet objet, sachant la distance entre les deux capteurs!!!....l'operation a utiliser est de multiplier la distance * le temps " V(t)=X*t", mais je ne sais pas comment l'exploter avec delphi ...vous pouvez m'orenter?
merci d'avance
je dispose de deux capteurs, qu m'envoient des impulsons lors du passage d'un objet, je veut utilser ces deux mpulsions pour calculer la vitesse de cet objet, sachant la distance entre les deux capteurs!!!....l'operation a utiliser est de multiplier la distance * le temps " V(t)=X*t", mais je ne sais pas comment l'exploter avec delphi ...vous pouvez m'orenter?
merci d'avance
A voir également:
- Mesure de vitesse
- Mesure en ligne - Guide
- Vitesse du processeur - Guide
- Test vitesse pc - Guide
- Test vitesse ssd - Guide
- Augmenter vitesse pc windows 10 - Guide
2 réponses
Salut !
- soit t0 est le temps du premier passage, et t1 c'est celui du deuxieme.
- on calcule alors la différence par : T = t1-t0
- donc, pour ton sujet sus-évoqué, on a : V = X * T
Note : que X est constant, (c'est la distance entre les deux capteurs en metre).
Programmation :
- le programme en Delphi serait comme suit :
* si temps T est mesuré en secondes, la formule serait :
Questions :
- tu utilises quoi comme capteur, infrarouge/transcodeur/lazer.. ?
- comment fais-tu pour passer les impulsions des deux capteurs ?
a bientot !
- soit t0 est le temps du premier passage, et t1 c'est celui du deuxieme.
- on calcule alors la différence par : T = t1-t0
- donc, pour ton sujet sus-évoqué, on a : V = X * T
Note : que X est constant, (c'est la distance entre les deux capteurs en metre).
Programmation :
- le programme en Delphi serait comme suit :
Function Calc_Speed(Sender : TObject; t0, t1 : TTime; x : Word) : Word;
Begin
result := hours(t1 - t0)*3600 + minutes(t1 - t0)*60 + seconds(t1 - t0);
Calc_Speed := result *x;
End;
* si temps T est mesuré en secondes, la formule serait :
result := seconds(t1 - t0);
Questions :
- tu utilises quoi comme capteur, infrarouge/transcodeur/lazer.. ?
- comment fais-tu pour passer les impulsions des deux capteurs ?
a bientot !
