File "VB3E4.tmp"

Full Path: /home/analogde/www/Documents/DEV2/VB3E4.tmp
File size: 741 bytes
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


 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