Módulo
Conteúdo
Índice 🔎︎

# Função Sin

Retorna o seno de um ângulo. O ângulo é especificado em radianos. O resultado está entre -1 e 1.

Com o ângulo Alpha, a função Sin retorna a razão entre o comprimento do lado oposto de um ângulo e o comprimento da hipotenusa em um triângulo retângulo.

Sin(Alpha) = lado oposto ao ângulo/hipotenusa

## Sintaxe:

    Sin (Number)

## Valor de retorno:

Double

## Parâmetros:

Number: expressão numérica que define o ângulo em radianos cujo seno você deseja calcular.

Para converter graus em radianos, multiplique os graus por Pi/180. Para converter radianos em graus, multiplique radianos por 180/Pi.

grau=(radiano*180)/pi

radiano=(grau*pi)/180

Pi é aproximadamente 3,141593.

## Códigos de erro:

5 Chamada de procedimento inválida

## Exemplo:

    ' Neste exemplo, a entrada a seguir é possível para um triângulo retângulo:

    ' o lado oposto do ângulo e o ângulo (em graus) para calcular o tamanho da hipotenusa:

    Sub ExampleSine

    ' Pi = 3,1415926 é uma variável predefinida

    Dim d1 As Double

    Dim dAlpha As Double

        d1 = InputBox("Insira o comprimento do lado oposto: ","Lado Oposto")

        dAlpha = InputBox("Digite o ângulo Alpha (em graus): ","Alpha")

        Print "O comprimento da hipotenusa é "; (d1 / sin (dAlpha * Pi / 180))

    End Sub