Tiny File Manager

Back Back Up Advanced Editor

Attribute VB_Name = "Module5"
' connexion leadframe et PAD

Public Function chargement(PAD As Long)

End Function

Public Function connexion(PAD As Long)

End Function

Private Sub Polaire(ByVal X As Single, ByVal Y As Single)

' trouver l'angle que fait un point (x,y) avec l'axe des x, et sa distance � l'origine.
' En clair, on inverse les relations :
' X = R * Cos(angle)
' Y = R * Sin(angle)
' convertir les radians en degres
' angle = 180 * angle / Pi
'
' distance entre deux points
' sqrt((x2-x1)�+(y2-y1)�

' Distance entre 2 points quelquonques :
' sqrt ((X1 - X2) ^ 2 + (Y1 - Y2) ^ 2)

' Angle entre 2 points quelquonques :
' vers_degre = 180 / 3.141592
' angle = Int(Atn((Y1 - Y2) / (X1 - X2)) * vers_degre * 1000) / 1000

Const PI = 3.14159265358979

R = Sqr(X ^ 2 + Y ^ 2)
 If R = 0 Then Exit Sub

If X = 0 Then
 angle = Sgn(Y) * PI / 2
 Else
 angle = Atn(Y / X)
 If X < 0 Then angle = PI + angle
 End If

If angle < 0 Then
 angle = angle + 2 * PI
 End If

End Sub
 
 Public Function calculer_angle(ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer)
 
 Const PI = 3.14159265358979
 
 ' Angle entre 2 points quelquonques
  vers_degre = 180 / 3.141592
  calculer_angle = Int(Atn((Y1 - Y2) / (X1 - X2)) * vers_degre * 1000) / 1000
 
 End Function