tv

' 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