Tan Function

Calcule la tangente d'un angle. L'angle est renvoyé en radians.

Using the angle Alpha, the Tan function calculates the ratio of the length of the side opposite the angle to the length of the side adjacent to the angle in a right-angled triangle.

Tan(Alpha) = side opposite the angle/side adjacent to angle

Syntaxe :


Tan (Number As Double) As Double

Valeur de retour :

Double

Paramètres :

Number : expression numérique pour laquelle vous voulez calculer la tangente (en radians).

To convert degrees to radians, multiply by Pi/180. To convert radians to degrees, multiply by 180/Pi.

degrees=(radians*180)/Pi

radians=(degrees*Pi)/180

Pi is approximately 3.141593.

Codes d'erreur :

5 appel de procédure incorrect

Exemple :


' Dans cet exemple, les arguments suivants peuvent ĂŞtre saisis pour un triangle rectangle :
' Côté opposé à l'angle et angle (en degrés) permettant de calculer la longueur du côté adjacent à l'angle :
Sub ExampleTangens
' Pi = 3,1415926 est une variable prédéfinie
Dim d1 As Double
Dim dAlpha As Double
    d1 = InputBox("Saisissez la longueur du côté opposé à l'angle : ","Opposé")
    dAlpha = InputBox("Saisissez l'angle alpha (en degrés) : ","Alpha")
    Print "La longueur du côté adjacent à l'angle est"; (d1 / tan (dAlpha * Pi / 180))
End Sub