Ejemplo de name spaces y poo
'campos que almacenaran las propiedades
Dim _Marca As String
Dim _Modelo As String
Dim _Puertas As Integer
Dim _Color As String
'Constructor'tambien se pueden crear constructores sobrecargados
Public Sub New()
_Marca = "Default"
_Modelo = "Default"
_Puertas = 0
_Color = "Default"
End Sub'Propiedades *******************************************
Public Property Marca() As String
Get
Return _Marca 'Cuando se obtiene el valor almacenado
End GetSet(ByVal value As String)
_Marca = value 'Cuando se le asigna un valor a la propiedad
End Set
End Property
Public Property Modelo() As String
GetReturn _Modelo
End Get
Set(ByVal value As String)
_Modelo = value
End Set
End Property
Public Property Puertas() As Integer
GetReturn _Puertas
End Get
Set(ByVal value As Integer)
_Puertas = value
End Set
End Property
Public Property Color() As String
GetReturn _Color
End Get
Set(ByVal value As String)
_Color = value
End Set
End Property
'Fin de establecer las propiedades********************************
'Ejemplo de Metodo
Public Function CalcPrecioGas(ByVal kmRecorridos As Integer, ByVal PrecioGas As Double) As Double
Return kmRecorridos * PrecioGas
End FunctionEnd Class
'Ejemplo de herencia
'Creamos otra clase y heredamos las propiedades del la clase carro creada anteriormente
Public Class Camion
Inherits Carro 'heredamos de la clase carroDim _Toneladas As Single 'le agregamos otra propiedad adicional a las de la clase heredada
'constructor
Public Sub New()
_Toneladas = 1.5 'por defecto
End Sub...
Regístrate para leer el documento completo.