Creando la clase Rectángulo

Clase Rectángulo

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

La aplicación buscará calcular la superficie de un rectángulo según su base y altura.

Diseño del Form (Interfaz):

 Diseño de la Clase (Método constructor y Método Función):

Public Class Rectangulo

    'Atributos

    Dim Base, Altura, Superficie As Integer

    'Método Constructor

    Sub New(ByVal base As Integer, ByVal altura As Integer, ByVal superficie As Integer)

        Me.Base = base

        Me.Altura = altura

        Me.Superficie = superficie

    End Sub

    'Método Función

    Function obtenersuperficie() As String

        Superficie = Base * Altura

        Return Superficie

    End Function

End Class

 Diseño del Form (Código):

Public Class Form1

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

        Dim nuevorect As New Rectangulo(base:=TextBox1.Text, altura:=TextBox2.Text, superficie:=0)

        MessageBox.Show("La superficie es: " & nuevorect.obtenersuperficie, "Calculo")

    End Sub

End Class

Nota:

Linea de Código:

Dim nuevorect As New Rectangulo(base:=TextBox1.Text, altura:=TextBox2.Text, superficie:=0)

En el constructor se está creando unas "variables" que corresponden a los atributos de la clase molde: Rectángulo, el constructor se usa para añadirle variables a cada atributo; ya que se crea un nuevo objeto - instancia -, al usar las "variables constructoras" como los "parámetros" y asignarles los valores de los TextBox (y 0 para el caso de superficie) se asigna inmediatamente los valores al constructor, es decir los valores suministrados a esas variables constructoras de ese nuevo objeto.