Ejemplo de name spaces y poo

Solo disponible en BuenasTareas
  • Páginas : 4 (817 palabras )
  • Descarga(s) : 0
  • Publicado : 27 de febrero de 2012
Leer documento completo
Vista previa del texto
Public Class Carro
'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...
tracking img