lcd

' Gambas class file

Inherits TV
Property costoFabricacion As Float
Private hcostoFabricacion As Float

Public Sub _new(costoFab As Float)

  hcostoFabricacion = costoFab

End

Private Function costoFabricacion_Read() As Float

  Return hcostoFabricacion

End

Private Sub costoFabricacion_Write(Value As Float)

  hcostoFabricacion = Value

End

Public Function clone() As Tv
  'creo una copia de mi mismo con mis datos y la retorno

  Dim tvtemp As New LCD(Super.marca, Super.pulgadas, Super.colores, Super.precio, hcostoFabricacion)

  Return tvtemp

End