RE:Funciones trigonométricas
Aqui te mando los modulos que hacen eso, los pones en un modulo y listo
Esta claro que X debe ser un valor entre -1 y 1
Espero que te sirva.
Para mas funciones busca en la ayuda de Vb "Funciones matematicas complementarias" o algo por el estilo
'Calcula el ArcCos de un valor
Public Function ArcCos(X As Double) As Double
'Coseno inverso Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
If X <> 1 And X <> -1 Then
ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
ElseIf X = 1 Then
ArcCos = 0 '0 pi
Else
ArcCos = PI 'Definir PI como una constante en "Declaraciones"
End If
End Function
'Calcula el ArcSen de un valor
Public Function ArcSen(X As Double) As Double
'Seno inverso Arcsin(X) = Atn(X / Sqr(-X * X + 1))
If X <> 1 And X <> -1 Then
ArcSen = Atn(X / Sqr(-X * X + 1))
ElseIf X = 1 Then
ArcSen = PI / 2 'PI
Else
ArcSen = -PI / 2 '3 / 2 * PI
End If
End Function