Formulario en VBA para calcular Funciones Trigonométricas

FORMULARIO EN VBA APLICADO PARA CALCULAR FUNCIONES TRIGONOMETRICAS

Este formulario permite hallar los valores del seno, coseno, tangente y sus respectivas inversas para cualquier angulo.

Para ello, dicho formulario solicita un ángulo y presenta una lista desplegable desde la cual se puede seleccionar la función trigonométrica que se desea aplicar al angulo.

Luego, se propone el siguiente código para la generación del formulario:

 

Private Sub UserForm_Initialize()

ComboBox1.AddItem ("SEN")

ComboBox1.AddItem ("COS")

ComboBox1.AddItem ("TAN")

ComboBox1.AddItem ("COT")

ComboBox1.AddItem ("SEC")

ComboBox1.AddItem ("CSC")

ComboBox1.ListIndex = 0

End Sub

 

Private Sub CommandButton1_Click()

If TextBox1.Value = "" Then

MsgBox "Especificar angulo"

Exit Sub

End If

 

angulo = (TextBox1.Value) * [PI()] / 180

 

If ComboBox1.ListIndex = 0 Then

valor = Sin(angulo)

MsgBox "Sen =" & valor

End If

 

If ComboBox1.ListIndex = 1 Then

valor = Cos(angulo)

MsgBox "Cos =" & valor

End If

 

If ComboBox1.ListIndex = 2 Then

valor = Tan(angulo)

MsgBox "Tan =" & valor

End If

 

If ComboBox1.ListIndex = 3 Then

valor = (Tan(angulo)) ^ (-1)

MsgBox "Cot =" & valor

End If

 

If ComboBox1.ListIndex = 4 Then

valor = (Cos(angulo)) ^ (-1)

MsgBox "Sec =" & valor

End If

 

If ComboBox1.ListIndex = 5 Then

valor = (Sin(angulo)) ^ (-1)

MsgBox "Csc =" & valor

End If

 

End Sub

 

EJEMPLO DE FORMULARIO PARA CALCULO DE FUNCIONES TRIGONOMETRICAS

Alumna: Milagros Chambe Escobar