5/5 (5 avis)
Vue 8 083 fois - Téléchargée 439 fois
Private Type POINTAPI x As Long y As Long End Type Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Dim Pos As POINTAPI Dim LastPos As POINTAPI Dim DecPixel As Integer 'Décalage en pixel de la souris Dim CmSouris As Integer 'Cm k'a parcourue la souris Dim MSouris As Integer 'M k'a parcourue la souris Dim KmSouris As Integer 'Km k'a parcourue la souris Private Sub Timer1_Timer() GetCursorPos Pos 'met les positions de la souris dans pos If Pos.x <> LastPos.x Or Pos.y <> LastPos.y Then 'Si la souris bouge DecPixel = DecPixel + Abs(Pos.x - LastPos.x) 'Calcul de combien de pixel elle a bougé DecPixel = DecPixel + Abs(Pos.y - LastPos.y) If DecPixel >= 38 Then CmSouris = CmSouris + 1: DecPixel = 0 'Kan elle a bougé de 38 pixel , alors ca fait 1 centimère If CmSouris >= 100 Then CmSouris = 0: MSouris = MSouris + 1 '100 cm ca fait 1 m If MSouris >= 1000 Then MSouris = 0: KmSouris = KmSouris + 1 '1000m ca fait 1 km End If GetCursorPos LastPos 'Met la position de la souris dans la valeur oldpos pour pouvoir comparer si la souris bouge Label1 = KmSouris & " Km " & MSouris & " M " & CmSouris & " Cm" End Sub
5 sept. 2002 à 21:22
Cela fait maintenant plus d'un an ke je ne programme plus en vb :), j'invite donc les gens a modifier cette source, en modifiant effectivement ma grosse erreur :) et donc en utilisant effectivement Pythagore pour calculer l'hypoténuse :)
Toutefois je veu bien faire ceci en delphi, lol
5 sept. 2002 à 18:18
13 juil. 2002 à 19:20
@+
23 mai 2001 à 00:02
ben comment on fais pour trouver comment égale un centimetre dans dautres résolutions
22 mai 2001 à 23:59
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.