Foro de elhacker.net

 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.a1vbcode.com/snippet-3311.asp)
    ->http://www.visiblevisual.com/index.php/AutoCad-VB/ArcTan-ArcCos-ArcSin.html (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.  ;D

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


   
 

Fijate en esta a mi me funciona:

Dim a As Double
Dim ArcSeno_a As Double

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

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.