Class Mesa

​

    'Datos o atributos 

    Private material As String

    Private numeroPatas As Integer

    Private precio As Decimal

​

    'Constructor

    Public Sub New(ByVal materiaPrima As String)

        material = materiaPrima

        numeroPatas = 4

        precio = 50

    End Sub

​

    Public Sub CambiarNumeroPatas(ByVal numero As Integer)

        If numero > 0 And numero < 10 Then

            numeroPatas = numero

        Else

            Throw New Exception("Nº patas incorrecto")

        End If

    End Sub

​

    Public Sub CambiarPrecio(ByVal nuevoPrecio As Decimal)

        If nuevoPrecio > 50 And nuevoPrecio < 1000 Then

            precio = nuevoPrecio

        Else

            Throw New Exception("Precio incorrecto")

        End If

    End Sub

​

    Public Sub Imprimir()

        Console.WriteLine( _

            "La mesa es de {0}, tiene {1} patas y vale {2} euros",

            material, numeroPatas, precio)

    End Sub

​

End Class