Funciones seno coseno y tangente
Publicado por angel (5 intervenciones) el 05/03/2009 07:16:43
hola buenas estoy realizando una calculadora nadamas me faltan seno coseno y tangente
pero no se como es la sibntaxis del sen
Private Sub igual_Click()
resp = 0
num2 = Val(visor.Text)
If opera = 1 Then
resp = num1 + num2
End If
If opera = 2 Then
resp = Val(num1) - Val(num2)
End If
If opera = 3 Then
resp = num1 * num2
End If
If opera = 4 Then
If num2 = 0 Then
MsgBox "No se puede Dividir entre cero"
If opera = 5 Then
resp = sen(num1) //en esto es lo que tengo duda//
End If
Exit Sub
End If
resp = num1 / num2
End If
visor.Text = resp
End Sub
mis operas estan condicionados en los botones suma resta etc pero quiero que cuando se le de el sen agarre el numero del visor y le saque el seno y lo imprima en el visor como le puedo hacer
por fa agradeceria su ayuda
pero no se como es la sibntaxis del sen
Private Sub igual_Click()
resp = 0
num2 = Val(visor.Text)
If opera = 1 Then
resp = num1 + num2
End If
If opera = 2 Then
resp = Val(num1) - Val(num2)
End If
If opera = 3 Then
resp = num1 * num2
End If
If opera = 4 Then
If num2 = 0 Then
MsgBox "No se puede Dividir entre cero"
If opera = 5 Then
resp = sen(num1) //en esto es lo que tengo duda//
End If
Exit Sub
End If
resp = num1 / num2
End If
visor.Text = resp
End Sub
mis operas estan condicionados en los botones suma resta etc pero quiero que cuando se le de el sen agarre el numero del visor y le saque el seno y lo imprima en el visor como le puedo hacer
por fa agradeceria su ayuda
Valora esta pregunta
0