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):
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.
