Tan Function

Determina a tangente de um ângulo. O ângulo é especificado em radianos.

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

Tan (Number As Double) As Double

Double

Número: qualquer expressão numérica para a qual deseje calcular a tangente (em radianos).

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.

' Neste exemplo. a entrada é possível para um triângulo de ângulo reto:
' O lado oposto do ângulo e o ângulo (em graus) para calcular o comprimento do lado adjacente ao ângulo:
Sub ExampleTangens
' Pi = 3,1415926 é uma variável pré-definida
Dim d1 As Double
Dim dAlpha As Double
    d1 = InputBox("Introduza o comprimento do lado oposto ao ângulo: ","Oposto")
    dAlpha = InputBox("Introduza o ângulo Alfa (em graus): ","Alfa")
    Print "o comprimento do lado adjacente ao ângulo é"; (d1 / tan (dAlpha * Pi / 180))
End Sub