Visual Basic - funciones trigonometricas - es urgente .. gracias

Life is soft - evento anual de software empresarial
   
Vista:

funciones trigonometricas - es urgente .. gracias

Publicado por Adriana (15 intervenciones) el 16/06/2011 17:39:19
Simplemente quiero calcular el seno, coseno, tangente ingresando los datos en grados ... y como ya saben estas funciones trabajan con radianes ....
Lo que hice es:

numero = Val(txtnumero)
radianes = numero * PI / 180 --> convierte a radianes
resultado = Cos(radianes)
MsgBox resultado

Pero el resultado me da incorrecto ... alguno sabria como se trabaja con grados para calcular estas funciones trigonometricas ... ? ... Muuuchas Graaacias !!!

Adriana.
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

funciones trigonometricas - es urgente .. gracias

Publicado por jcmg (518 intervenciones) el 17/06/2011 05:19:10
intentale asi
Private Sub Command1_Click()
pi = 3.1416 'valor de pi
numero = Val(txtnumero)
radianes = numero * pi / 180 '--> convierte a radianes
resultado = Cos(radianes)
MsgBox resultado
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