Visual Basic - Como se hace para que Visual Basic 5 reconozca arccosine?

Life is soft - evento anual de software empresarial
   
Vista:

Como se hace para que Visual Basic 5 reconozca arccosine?

Publicado por Jose Isaac (2 intervenciones) el 10/05/2014 15:35:50
Necesito hallar el valor angular por medio de la ley del Coseno y no he podido encontrar la Funcion trigonometrica Inversa del Coseno en Visual Basic 5. Que debo hacer?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Como se hace para que Visual Basic 5 reconozca arccosine?

Publicado por Pico (114 intervenciones) el 11/05/2014 12:42:45
http://en.wikibooks.org/wiki/Visual_Basic/Simple_Arithmetic
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Como se hace para que Visual Basic 5 reconozca arccosine?

Publicado por Juan Gilberto (277 intervenciones) el 11/05/2014 22:17:07
No hay funciones ArcSin ni ArcCos en VB6
pero tenemos la funcion ArcTan y la podemos utilizar para calcular tanto ArcSin como ArcCos.

1
2
3
4
5
6
7
8
9
10
11
12
13
Function ArcSin(X As Double) As Double
    ArcSin = Atn(X / Sqr(-X * X + 1))
End Function
 
Function ArcCos(X As Double) As Double
    ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
End Function
 
Private Sub Command1_Click()
    ' remplaza el valor 0.5 con el grado (en radians) que quieras calcularle el ArcSin y el ArcCos
    MsgBox "ArcSin(0.5) = " & ArcSin(0.5)
    MsgBox "ArcCos(0.5) = " & ArcCos(0.5)
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar