Creando la Clase Círculo:

Clase Círculo:

Lenguaje de Programación: Visual Basic, entorno Microsoft Visual Studio 2010.

La aplicación tiene como fin calcular los valores Radio, Área, Longitud y Diámetro de un círculo al proveer un único valor de estos:

Diseño del Form (Interfaz):

Diseño de la clase:

Public Class Circulo

    'Atributos de la clase

    Public Area, Radio, Longitud, Diametro As Double

    Function Farea() 'Formula única

        Area = (3.14) * ((Radio) ^ 2)

        Area = Math.Round(Area, 2) 'Redondeo

        Return Area

    End Function

    Function Flongitud() 'Formula única

        Longitud = Diametro * (3.14)

        Return Longitud

    End Function

    Function FdiametroA() 'Formula en caso de tener el valor radio

        Diametro = Radio * 2

        Return Diametro

    End Function

    Function FdiametroB() 'Formula en caso de tener el valor Longitud

        Diametro = Longitud / 3.14

        Return Diametro

    End Function

    Function FradioA() 'Formula para calcular el Radio a partir del Área

        Radio = (Area / (3.14))

        Radio = Radio ^ (1 / 2)

        Radio = Format(Radio, "0.00") 'Formato para mostrar solo dos decimales

        Return Radio

    End Function

    Function FradioB() 'Formula para calcular el Radio a partir del Diámetro

        Radio = Diametro / 2

        Return Radio

    End Function

End Class

Diseño del Form (Código):

Public Class Form1

    Dim enlazador As New Circulo

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       

        enlazador.Area = TextBox1.Text

        'El usuario provee el valor de área que es asignado al atributo que actúa como               'variable mediante el "enlazador" de la clase

        TextBox2.Text = enlazador.FradioA() 'formula B de radio necesita el diametro

        TextBox4.Text = enlazador.FdiametroA() 'formula B de diametro necesita la longitud

        TextBox3.Text = enlazador.Flongitud() 'necesita Diámetro

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        enlazador.Radio = TextBox2.Text

        'El usuario provee el valor de Radio

        TextBox1.Text = enlazador.Farea()

        TextBox4.Text = enlazador.FdiametroA()

        TextBox3.Text = enlazador.Flongitud()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        enlazador.Longitud = TextBox3.Text

        'El usuario provee el valor de Longitud

        TextBox1.Text = enlazador.Farea()

        TextBox4.Text = enlazador.FdiametroB()

        TextBox2.Text = enlazador.FradioB()

        TextBox1.Text = enlazador.Farea()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        enlazador.Diametro = TextBox4.Text

        'El usuario provee el valor de Diámetro

        TextBox1.Text = enlazador.Farea()

        TextBox3.Text = enlazador.Flongitud()

        TextBox2.Text = enlazador.FradioB()

        TextBox1.Text = enlazador.Farea()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        'Boton para vaciar/limpiar los TextBox

        TextBox4.Text = ""

        TextBox3.Text = ""

        TextBox2.Text = ""

        TextBox1.Text = ""

    End Sub

End Class