mesure de vitesse

Question

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

Amoureux3 · Answer

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 :

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 !

zad · Answer

bonjour,   merci bp amoureux, pour les capteurs j'utilise des phototransistors.comment obtenir t0 et t1? avec delphi?merci d'avance

Mesure de vitesse

2 réponses

Discussions similaires

Newsletters