CONVERSION RADIAN DEGRÉ SINUS COSSINUS

Signaler
Messages postés
7
Date d'inscription
jeudi 6 février 2003
Statut
Membre
Dernière intervention
29 septembre 2007
-
Messages postés
7
Date d'inscription
jeudi 6 février 2003
Statut
Membre
Dernière intervention
29 septembre 2007
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/6105-conversion-radian-degre-sinus-cossinus

Messages postés
7
Date d'inscription
jeudi 6 février 2003
Statut
Membre
Dernière intervention
29 septembre 2007

Pardon, je n'avais pas lu tout le code (la fonction angle). Donc dans mon commentaire ex : Function sinus(unité, angle) faut lire Function sinus(unité).
Je te prie de m'excuser.

Nanette
Messages postés
7
Date d'inscription
jeudi 6 février 2003
Statut
Membre
Dernière intervention
29 septembre 2007

Si il y a plusieurs possibilités concernant les unités des fonctions sinus
et cosinus, voir ci-dessous les modifications :

Public Function sinus(unité, angle) As Variant
' Unité 360 'si la valeur est en degré 360, si minutes = 60, si heure,24 ou 12 au choix
sinus = (Sin(angle / (Unité / (PI * 2)))) 'calculons le sinus de l'angle desiré
End Function
Public Function Cosinus(unité, angle) As Variant
' Unité 360 'si la valeur est en degré 360, si minutes = 60, si heure,24 ou 12 au choix
Cosinus = (Cos(angle / (Unité / (PI * 2)))) 'calculons le sinus de
End Function

dans command_click
ex : CotéAdjacent = Cosinus(val(text2.txt), angle) * (Hipotenus)
CoteOpposé = sinus(val(text2.txt), angle) * (Hipotenus)

N'est-ce pas mieux, pour modifier les unités via un textbox dans la form ? Sinon, je n'ai pas encore exécuté ton code. Alors à bientôt pour donner une note à ta prog.

Nanette