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:
   
 

x = ArcSin( Sin( x ) )

y
 

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)]> . 
 


   
 

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:

 

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.