\' Gambas class file
Property marca As String
Private hmarca As String
Property pulgadas As Integer
Private hpulgadas As Integer
Property colores As String
Private hcolores As String
Property precio As String
Private hprecio As Float
Public Sub _new(m As String, pul As Integer, c As String, pre As Float)
Me.marca = m
Me.pulgadas = pul
Me.precio = pre
Me.colores = c
End
Public Function clone() As Tv
\'creo una copia de mi mismo con mis datos y la retorno
Dim tvtemp As New Tv(hmarca, hpulgadas, hcolores, hprecio)
Return tvtemp
End
Private Function marca_Read() As String
Return hmarca
End
Private Sub marca_Write(Value As String)
hmarca = value
End
Private Function pulgadas_Read() As Integer
Return hpulgadas
End
Private Sub pulgadas_Write(Value As Integer)
hpulgadas = value
End
Private Function precio_Read() As String
Return hprecio
End
Private Sub precio_Write(Value As String)
hprecio = value
End
Private Function colores_Read() As String
Return hcolores
End
Private Sub colores_Write(Value As String)
hcolores = value
End