Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
imagen6

Formulario para Convertir Grados Sexagesimales a Radianes o Centesimales

| 0 comments

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:

Formulario para Convertir Grados Sexagesimales a Radianes o Centesimales, formularios en vba

Aparecerá el formulario en blanco:

Formulario para Convertir Grados Sexagesimales a Radianes o Centesimales, formularios en vba

Digite el valor del ángulo en sexagesimal que desea convertir:

Formulario para Convertir Grados Sexagesimales a Radianes o Centesimales, formularios en vba

Seleccione el sistema al que desea convertir (en este caso, Centesimales) y presione “Convertir”. El resultado aparecerá al costado de “RESPUESTA:”

Formulario para Convertir Grados Sexagesimales a Radianes o Centesimales, formularios en vba

Del mismo modo, puede elegir “Radianes” y el resultado aparecerá en este sistema:

Formulario para Convertir Grados Sexagesimales a Radianes o Centesimales, formularios en vba

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:

Formulario para Convertir Grados Sexagesimales a Radianes o Centesimales, formularios en vba

Y la segunda aparece cuando se presiona “Convertir” sin haber seleccionado un sistema al cual convertir:

Formulario para Convertir Grados Sexagesimales a Radianes o Centesimales, formularios en vba

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.

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5