Accueil > > > COORDONNÉES CARTÉSIENNES -> POLAIRES (ANGLE À PARTIR D'UN POINT)
COORDONNÉES CARTÉSIENNES -> POLAIRES (ANGLE À PARTIR D'UN POINT)
Information sur la source
Description
voilà un petit code qui permet de trouver l'angle que fait un point (x,y) avec l'axe des x, et sa distance à l'origine. En clair, il inverse les relations : X = R * Cos(Angle) Y = R * Sin(Angle) Ce n'est pas très compliqué, mais il marche dans tous les cas, ce que je n'ai pas souvent vu sur ce site ... :) L'angle final est donné en radian, et est compris entre 0 et 2 Pi. Pour le convertir en degré : Angle = 180 * Angle / Pi
Source
- ' Remarque :
- ' Angle, R et Pi sont des variables globales
- ' Pi = 3.1415926... ou Pi = 4*Atn(1)
-
-
- Private sub Polaire(ByVal X As Single, ByVal Y As Single)
-
- 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
' Remarque :
' Angle, R et Pi sont des variables globales
' Pi = 3.1415926... ou Pi = 4*Atn(1)
Private sub Polaire(ByVal X As Single, ByVal Y As Single)
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
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Angle d'une image... Assez urgent! :-) [ par WebMagique ]
Je veux faire un jeu de course de voitures 2D en VB6...J'ai une image de voiture dont l'avant est à gaucheExemple: /¯¯¯|¯\¯¯¯¯¯|¯¯¯¯¯/|¯¯
Mouvement d'un PictureBox [ par Wite18 ]
Bonjour!ce que je veux faire c'est ceci : faire partir une image dans un picture box a un poit au hasard dans ma form1 et la faire glisser sur les cot
Probleme VB Excel! [ par boujou ]
En fait, mon problème est le suivant et je n'arrive pas à m'en sortir :Comment puis-je recuperer les coordonnees (numero de ligne et lettre de la colo
Rotations 90 ou autre angle rapides svp de l'aide [ par Anthomicro ]
Salut tt le monde !j'ai fait une appli de retouche d'image et j'aimerais trouver des codes rapides pour la rotation d'image en vb sans dll.( moins de
Écrire ligne texte (angle 90°) dans un picture box [ par boursicotteur ]
J'essai d'écrire une ligne de texte avec un angle de 90 degrés dans un picturebox mais je ne trouve pas les instructions pour le faire.Merci pour votr
Trigonometrie [ par legion91 ]
extrait de code de mon projet de calcullette:Text5.Text = Sin(CDbl(Text1.Text) * 3.14159265358979 / 180)Text5.Text = Cos(CDbl(Text1.Text) * 3.14159265
Une ScrollBar Circulaire... [ par Daroylan ]
Bonjour a tous,Tout d'abord, je vous previens, je ne suis pas developpeur mais peut-etre un jour le deviendrais-je.....Quoiqu'il en soit, pour une ide
trait à angle droit [ par TouTenN ]
BonjourAvec la commande LINE, je trace des traits à 45° mais leurs extrémités sont arrondies.Comment puis obtenir ces extrémités plates (à angles droi
COMMENT AVOIRE LES COORDONNEES DE LA SOURIE EN ETANT SOUS WINOWS, [ par JJB ]
JB JE VOUDRAI RECUPERER LES COORDONNEES ET LE BACCOLOR DU POINTEUR DANS MON PROGRAMME VB EN AYANT LE POINTEUR HORS DDE LA FENETRE DE VB?
Connaître le sens de rotation d'une imprimante [ par PROGRAMMIX ]
J'utilise du code de René38 pour réaliser des impressions de texte écrit verticalement.Malheureusement, le code utilisé ne fonctionne pas toujours de
|
Derniers Blogs
ASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHEASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHE par fathi
Tout le monde est unanime pour dire que la programmation multi-thread et asynchrone est en train de devenir un sujet incontournable. Beaucoup de choses sont arrivées avec le framework 4 pour le code parallèle (TPL, PLinq,.) et bientôt, on va avoir l...
Cliquez pour lire la suite de l'article par fathi PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS !PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS ! par Etienne Margraff
J'ai récemment eu un problème pour obtenir l'intelliTrace sur un site web dans IIS. Il n'y avait pas de message d'erreur, rien dans le journal d'évènement Windows, et après 3 appels à une voyante, 2 visites chez un marabou, j'ai failli me résign...
Cliquez pour lire la suite de l'article par Etienne Margraff OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONSOFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg
De nombreuses entreprises font le choix de SharePoint Online, service fourni au travers de l'offre de Microsoft Office 365. S'il est vrai que ce choix apporte un grand nombre d'avantages; rapidité de mise en œuvre, disponibilité, large couvertu...
Cliquez pour lire la suite de l'article par junarnoalg PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|