AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 09 02:54:39
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

COORDONNÉES CARTÉSIENNES -> POLAIRES (ANGLE À PARTIR D'UN POINT)


Information sur la source

Catégorie :Maths Classé sous : coordonnees, polaires, angle, point, trigonometrie Niveau : Débutant Date de création : 11/02/2004 Date de mise à jour : 12/02/2004 19:08:11 Vu : 7 091
Auteur : Vb Lover Site perso
Ecrire un message privé
Note :
Aucune note
Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

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

Commentaires et avis

signaler à un administrateur
Commentaire de pcourtade le 14/05/2007 16:36:00

Merci Vb Lover je vais utiliser ce truc trés prochainement

Ajouter un commentaire

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


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,437 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.