como puedo Hallar AcroSeno y ArcoCoseno ???

[<[(x)]>]

holas

Estaba haciendo uno de mis proyc y se me planteo la necesidad de usar estas dos funciones, AcrSen y ArcCos.

Anduve buscando y se encuentra bastante pero no se porque las pruebo y no funcionan como deberían..

Algunos de los códigos que use son:

    ->http://www.a1vbcode.com/snippet-3311.asp
    ->http://www.visiblevisual.com/index.php/AutoCad-VB/ArcTan-ArcCos-ArcSin.html
    y en otras q perdí la dir y tampoko tuvo resultado.

    Las comprobé con las equivalencias:
   

Código (vb) [Seleccionar] Expandir

x = ArcSin( Sin( x ) )
y

Código (vb) [Seleccionar] Expandir

x = ArcCos( Cos( x) )

Si logran sacar o ya tienen algo que pueda hacer esto les pido si pueden publicarlo aka. 

  Gr4(145 S4¬ i)4 477. <[(x)]> . 



   

[h0oke]

Fijate en esta a mi me funciona:

Dim a As Double
Dim ArcSeno_a As Double

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
a = InputBox("Ingrese numero", "Programa")
ArcSeno_a = ArcSen(a)
MsgBox ArcSeno_a, vbOKOnly
End Sub
Public Function ArcSen(y As Double) As Double
'   Calcula el seno inverso de y

If y = 1 Or y = -1 Then
    ArcSen = pi / 2 * Sgn(y)
Else
    ArcSen = Atn(y / Sqr(1 - y ^ 2))
End If
End Function

[<[(x)]>]

hola


  El código q pusiste es bastante similar a el que esta en las paginas q deje por ahi arriba. 

Pero me tome el trabajo de probar con esta =dad que saq con la calculadora científica tu código asi:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim ArcSeno_a As Double

ArcSeno_a = ArcSen(Sin(3))
Text1.Text = ArcSeno_a

End Sub

Public Function ArcSen(y As Double) As Double

Const pi = 3.14159265358979

If y = 1 Or y = -1 Then
  ArcSen = pi / 2 * Sgn(y)
Else
  ArcSen = Atn(y / Sqr(1 - y ^ 2))
End If

End Function

Dime si lo estoy utilizando mal, el valor de text1.text después de haberse ejecutado la función Form_load queda en '0,141592653589793' y tendría que ser  3.