Atan2 en VB6

Fermé
Sinistrus Messages postés 1010 Date d'inscription mercredi 12 décembre 2007 Statut Membre Dernière intervention 6 juin 2023 - 31 août 2009 à 10:50
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 31 août 2009 à 11:06
Salut !

Je suis arrivé à une formule que je ne comprends pas.

* A = Différence de longitudes entre un Point1 et le lieu Point2 ;
* B = Latitude du Point2 ;
* C = Latitude du Point1.

Avec un langage de programmation ayant une fonction atan2
Code Visual Basic :

Q = atan2(cos(B).tan(C) - sin(B).cos(A), sin(A))

On obtient le bon résultat directement


Je n'arrives pas a convertir cette formule en VB6.
Il est important pour moi de savoir le faire sinon je n'ai qu'a jeter mon programme. J'ai vraiment besoin de votre aide.
Pourriez-vous m'aider svp ?

Merci

1 réponse

Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 293
31 août 2009 à 11:06
bonjour,

en vba

Atan2(a,b) équivaut à Atan(b/a), avec a différent de 0 !!! évidement

Atan2 est l'inverse de l'arc tangente donc c'est l'arc cotangente.
1/tan(x)=cotan(x)

pour vb .. je ne sais pas si la fonction existe mais elle est facile à réaliser ou à s'en passer.
0