File "VB3FE.tmp"

Full Path: /home/analogde/www/Documents/DEV2/VB3FE.tmp
File size: 1.03 KB
MIME-type: text/plain
Charset: 8 bit

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