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 avec telephone - Guide
- Test vitesse pc - Guide
- La vidéo à télécharger va 5 fois plus vite que sa vitesse normale. divisez sa vitesse par 5 pour rétablir sa vitesse normale. après cette opération, combien de papillons figurent entre la 17e et la 18e seconde ? - Télécharger - Utilitaires
- Test vitesse ssd - Guide
- Vitesse du processeur - 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 !
