CONVERSION RADIAN DEGRÉ SINUS COSSINUS
cs_Nanette
Messages postés
7
Date d'inscription
jeudi 6 février 2003
Statut
Membre
Dernière intervention
29 septembre 2007
-
19 févr. 2003 à 20:45
cs_Nanette Messages postés 7 Date d'inscription jeudi 6 février 2003 Statut Membre Dernière intervention 29 septembre 2007 - 19 févr. 2003 à 20:55
cs_Nanette Messages postés 7 Date d'inscription jeudi 6 février 2003 Statut Membre Dernière intervention 29 septembre 2007 - 19 févr. 2003 à 20:55
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
https://codes-sources.commentcamarche.net/source/6105-conversion-radian-degre-sinus-cossinus
19 févr. 2003 à 20:55
Je te prie de m'excuser.
Nanette
19 févr. 2003 à 20:45
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