Create New Item
Item Type
File
Folder
Item Name
Search file in folder and subfolders...
Are you sure want to rename?
File Manager
/
DEV
:
VB3E4.tmp
Advanced Search
Upload
New Item
Settings
Back
Back Up
Advanced Editor
Save
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