VB6 Sinus ???Résolu

Question

Salut... J'ai encore un prob. avec un Sinus cette fois-ci...

'Mesvariables sont tous des Double

dblEtape4X1 = (dblCoordX1 + (CDbl(txtDistance1.Text) * Sin(dblEtape3_1)) * 180) / Pi
Où:
dblEtape4X1 = (200+ (400 * Sin(81.513413)) * 180) / Pi
'J'arrive à -3768.41997645
'Je dois arriver à 595.62

J'ai essayé plusieurs facon de mettre les radian en degré dicimal mais je n'y arrive pas...

Si quelqu'un peut me donner un coup de main

merci

cs_casy · Accepted Answer

Attention ce n'est pas le résultat du sinus qui doit etre exprimer en radian, il n'a aucune untité. Mais c'est bien l'angle lui-même.

Donc ici 81.513413

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

cs_JeffC1977 · Answer

Ok j'ai modifier le code.....  mais ca fonctionne toujours pas...

dblEtape4X1 = dblCoordX1 + (CDbl(txtDistance1.Text) * Sin((dblEtape3_1 * 180) / Pi))
Où
dblEtape4X1 = 200 + (400 * Sin((81.513413 * 180) / Pi))

Je me raproche
J'arrive au résultat suivant: 568.873950420057
Je dois arriver à 595.62

Si tu vois ce qui cloche...

merci de ton aide

cs_casy · Answer

pour passer des degrés en radian il faut *PI/180

Pour t'en rapeller utilise la méthode suivante (que tu as surrement appris en math)

Degré  x (Radian/Degré) =   Radian

parce que  Degré x (Radian/Degré)  peut aussi s'écrire (Degré/Degré) x Radian et donc CoefSansUnité x Radian. Reste donc des Radian 

 ---- Sevyc64  (alias Casy) ---- <hr size  ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

cs_JeffC1977 · Answer

merci

VB6 Sinus ???

4 réponses

Votre réponse

Discussions similaires