Programasedo
Download as DOCX, PDF0 likes128 views
This document defines an interface called Interfacefigura that contains an area function. It then defines two classes, Rectangulo and Triangulo, that both implement the Interfacefigura interface and calculate area differently - Rectangulo multiplies base by height while Triangulo multiplies base by height and divides by 2. The document also contains a click event handler that creates instances of the two classes, calculates their areas, and displays the results.
Programasedo
- 1. clase interfacefigura Public Interface Interfacefigura Function area() End Interface CLASE Public Class Rectangulo Implements Interfacefigura Dim base, altura As Double Public Sub New(ByVal b As Double, ByVal a As Double) base = b altura = a End Sub Public Function area() Implements Interfacefigura.area Return base * altura End Function End Class Public Class Triangulo Implements Interfacefigura
- 2. Dim base, altura As Double Public Sub New(ByVal b As Double, ByVal a As Double) base = b altura = a End Sub Public Function area() Implements Interfacefigura.area Return (base * altura) / 2 End Function End Class Private Sub botonarea_Click(sender As Object, e As EventArgs) Handles botonarea.Click Dim rectangulo As Rectangulo Dim triangulo As Triangulo Dim base, altura As Double base = txtbase.Text altura = txtaltura.Text Triangulo = New Triangulo(base, altura) rectangulo = New Rectangulo(base, altura) txtareatriangulo.Text = triangulo.area txtarearectangulo.Text = rectangulo.area End Sub