jeffcantin
Messages postés19Date d'inscriptionjeudi 27 février 2003StatutMembreDernière intervention16 décembre 2003
-
16 déc. 2003 à 03:50
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 2015
-
16 déc. 2003 à 10:55
Bonjour à tous...
J'ai un problème avec la résolution d'un simple sinus...
J'ai fais le petit programme suiavnt pour faire un test
Private Sub cmdCalcul_Click()
lblSin.Caption = CStr(Sin(CDbl(txtDD) * 2 * 3.1416 / 360))
End Sub
Private Sub Form_Load()
txtDD.Text = 86.375833333
End Sub
Bon je mets la valeur de 86.3758333 pour faire le sinus de cette valeur. Le résultat s'affiche alors dans lblSin
Pour ce petit programme tout fonctionne corectement...
Toutefois je reprend ce même code dans mon programe (un autre programme) et j'inscrit lke code suivant...
dim dbDD as Double
Private Sub cmdCalcul_Click()
dbDD = txtDegre + txtMinute / 60 + txtSeconde / 3600
lblDegreDecimal.Caption = dbDD
lblResultatFinal.Caption = CStr(Sin(Val(lblDegreDecimal))) * 2 * 3.1416 / 360
End Sub
Ou dbDD est pour changer une valeur en degré minute seconde et la change en degré décimal et
lblResultatFinal.Caption devrait donner le résult du Sinus de dbDD soit 0.99800 mais ca me donne -1,6117428095044E-02
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 16 déc. 2003 à 10:55
plaineR a raison.
Ce n'est pas le Sinus qu'il faut * 2 * Pi / 360, mais l'angle !
Refflechis, on en a parlé assez longuement sur le chan l'autre soir !
Donc, je me répète :
AngleRadian = AngleDegré * 2 * Pi / 360
AngleDegré = AngleRadian * 360 / 2 / Pi