En el sistema sexagesimal, una semicircunferencia tiene 180°. Este sistema de medición de ángulos es el más usado. Sin embargo; hay otros sistemas como el de Radianes (donde una semicircunferencia vale 3.1416 ó Pi) y el Centesimal (donde una semicircunferencia vale 200°). De esta forma, obtenemos la siguiente relación:
180° Sexagesimales = 3.1416 Radianes = 200° Centesimales
Y a partir de esto, podemos pasar de sexagesimales a radianes y centesimales con las siguientes fórmulas:
(Grados Sexagesimales / 180) = (Grados Centesimales / 200)
(Grados Sexagesimales / 180) = (Grados Radianes / 3.1416)
EJEMPLO: Formulario para Convertir Grados Sexagesimales a Radianes o Centesimales
A continuación se presenta un formulario en Excel para calcular automáticamente estas conversiones de sexagesimales a los otros 2 sistemas. Para usarlo, abrir el archivo adjunto (al final de este artículo). Hacer click en el botón "Convertir Sexagesimales a Radianes o Centesimales" para cargar el formulario:
(Para mayor visualización de la imagen, hacer click en la misma)
Aparecerá el formulario en blanco:
(Para mayor visualización de la imagen, hacer click en la misma)
Digite el valor del ángulo en sexagesimal que desea convertir:
(Para mayor visualización de la imagen, hacer click en la misma)
Seleccione el sistema al que desea convertir (en este caso, Centesimales) y presione "Convertir". El resultado aparecerá al costado de "RESPUESTA:"
(Para mayor visualización de la imagen, hacer click en la misma)
Del mismo modo, puede elegir "Radianes" y el resultado aparecerá en este sistema:
(Para mayor visualización de la imagen, hacer click en la misma)
Se han creado adicionalmente dos ventanas las cuales aparecen en dos casos. Primero, cuando se presiona el botón "Convertir" sin haber ingresado algún valor:
(Para mayor visualización de la imagen, hacer click en la misma)
Y la segunda aparece cuando se presiona "Convertir" sin haber seleccionado un sistema al cual convertir:
(Para mayor visualización de la imagen, hacer click en la misma)
Nótese que la respuesta se muestra en un Label y no en un TextBox. De esta forma se evita que el usuario edite la respuesta ya que se ha considerado que no es necesario que lo haga o ingrese algún valor manualmente a ella.
El código en VBA del formulario es el siguiente:
Private Sub CommandButton1_Click()
Dim angulo As Double
If TextBox1.Text = "" Then
MsgBox "Ingrese un valor a convertir."
Else
If OptionButton1.Value = False And OptionButton2.Value = False Then
MsgBox "Elija el sistema al cual convertir."
Else
angulo = TextBox1.Text
If OptionButton1.Value = True Then 'Radianes
angulo = angulo * 3.1416 / 180
Else
If OptionButton2.Value = True Then 'Centesimales
angulo = angulo * 200 / 180
End If
End If
Label3.Caption = angulo
End If
End If
End Sub
Y el código para el botón de la hoja de cálculo:
Private Sub CommandButton1_Click()
ConversionGrados.Show
End Sub
Donde "ConversionGrados" es el nombre del formulario.
A continuación se adjunta el archivo en Excel con el ejemplo mostrado:
Conversión Sexagesimales a Otro Sistema
Escrito por: Enrique Eduardo López León.