position et vitesse de deplacement de la souris

Question

Salut tous le monde.

voila j'aimerais faire un programme qui me donne:
- La postion de la souris
- La vitesse instantann&#233;e
- La vitesse moyenne

Mais je ne sais pas comment faire, je pense savoir pour r&#233;cuperer la position de la souris, par contre pour la vitesse instantann&#233;e et moyenne je ne vois pas du tout comment le faire. Alors si quelqu'un saurait &#231;a serais sympa de me le dire.

Merci d'avance

jmp77 · Answer

Hello,



Il y a pas mal de sources sur le sujet sur le site de delphifr je te laisse chercher.



Sinon voici d'autres sources :

http://www.phidels.com/php/index.php3?page=../php/pagetelechargementzip.php3&id=26

http://www.phidels.com/php/index.php3?page=../php/pagetelechargementzip.php3&id=47

http://www.phidels.com/php/index.php3?page=../php/mescompo/hookmouse.htm&id=420

http://www.phidels.com/php/index.php3?page=../php/pagetelechargementzip.php3&id=384

http://www.phidels.com/php/index.php3?page=../php/pagetelechargementzip.php3&id=201

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

serial warez · Answer

merci  jmp77 mais il y aurait pas du code pour savoir la vitesse instanntann&#233;e et moyenne? c'est &#231;a qui m'int&#233;resse le plus

jmp77 · Answer

D&#233;sol&#233; je n'ai pas ca sous la main. 



je vais jetter un coup d'oeil si je trouve je te fais signe.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

cs_Kenavo · Answer

Comme tu nous as dit : "
voila j'aimerais faire un programme qui me donne:...."
, je suppose que &#231;a t'emb&#234;trait qu'on l'&#233;crive &#224; ta place .



Alors juste un conseil ou deux : utilise un timer pr&#233;cis ( 
[code.aspx?ID=24090 MMTimer] par exemple) et r&#233;vise le Th&#233;or&#232;me de Pythagore.






Ken@vo


<hr size="2" width="100%">Code, Code, Codec !

Niki2001 · Answer

Malin... N&#233;anmoins, arrondis n&#233;cessaires. Mais bon, ...

serial warez · Answer

Kenavo si tu as une id&#233;e de code je suis prenant, parce que je dois faire &#231;a asser rapidement. Fait comme tu veux, merci d'avance

cs_Kenavo · Answer

Tiens, regarde &#231;a :





D&#233;clarations des variables :



    X0 : Integer;     // m&#233;moire de la position pr&#233;c&#233;dente X   

    Y0 : Integer;    //  
--              
       --      Y 

    Vi : Real;       // vitesse instantan&#233;e (pixels/sec)

    Vm : Real;         // vitesse moyenne     
(pixels/sec)

    Cumul : Double;  // cumul des distaces  (Pixels)

    Cpt : Integer;   // compteur







procedure TForm1.FormCreate(Sender: TObject);

// Initialisation des variables

begin

  GetCursorPos(Pt);

  X0 := Pt.X;

  Y0 := Pt.Y;

  Vm := 0;

  Cpt := 0;

  Cumul := 0;

end;







procedure TForm1.MMTimer1Timer(Sender: TObject);

Const

  Filtre : Integer = 200;

var

  Pt : TPoint;

  d : real;

  s : string;

begin

  GetCursorPos(Pt);

  d := Sqrt(Sqr(Pt.X-X0)+Sqr(Pt.Y-Y0));  // Distance parcourue (Pythagore)

  X0 :=
Pt.X;                           
// M&#233;moire du point

  Y0 := Pt.Y;



  // Vitesse instantan&#233;e

  Vi :d / (MMTimer1.Interval / 1000);   // Vitesse distance / temps



  // Vitesse moyenne : deux m&#233;thodes



  // 1 - Filtre passe bas 1er ordre, se r&#232;gle avec la variable filtre

  Vm := (Vm *(Filtre-1) + Vi)/ Filtre;  // Filtre Passe Bas



  // 2 - Moyenne globale : m&#234;me calcul que ci-dessus avec le d&#233;placement moyen

  //     D&#233;placament moyen = Somme des d&#233;placements / nombre de d&#233;placements


  Cumul := Cumul + d;  //
 Somme des d&#233;placements



  inc(Cpt);            // 
nombre de d&#233;placements


  Vm := Cumul / cpt / (MMTimer1.Interval / 1000);

end;





Il faut utiliser un timer pr&#233;cis comme MMtimer, ou travailler avec GetTickCount pour avoir une vraie valeur des intervalles.


Ken@vo


<hr size="2" width="100%">Code, Code, Codec !

serial warez · Answer

merci [mailto:ken@vo ken@vo] mais comment je l'utilise avec MMTimer, et puis je n'ai pas compris la 1ere m&#233;thode du calcul de la vitesse moyenne (avec les filtres, je vois pas ce que &#231;a vient faire ici les filtres) mais pour la vitesse moyenne &#231;a sera bon avec la 2eme methode. C'est le MMTimer que j'ai du mal a comprendre.

-- Et tu saurais pas comment transformer les pixels/sec en metres par secondes?

-- Et pourquoi dans la ligne ci dessous tu met "/1000"?

    // Vitesse instantan&#233;e    Vi :d / (MMTimer1.Interval / 1000);   // Vitesse distance / temps

-- Et "MMTimer1.Interval" &#231;a fait r&#233;f&#233;rence a quoi, c'est une fonction dans MMTimer ?

cs_Kenavo · Answer

1- C'est un filtre num&#233;rique passe-bas du premier ordre et un filtre permet d'obtenir une valeur moyenne s'il est bien r&#233;gl&#233;.



2 - Pous les r&#233;sultats en m&#232;tres/seconde tout d&#233;pend du mat&#233;riel



3 - Je mets 1000 parce que MMTimer1.Interval est en millisecondes et 50
(par exemple) milisecondes 50/1000 secondes 0.05 secondes



Et ne compte pas sur moi pour aller t'installer un composant (car 
[code.aspx?ID=24090 MMTimer] est un composant)
.



Ken@vo


<hr size="2" width="100%">Code, Code, Codec !

Position et vitesse de deplacement de la souris

9 réponses

Votre réponse

Discussions similaires