document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Inherits TV
  4. Property costoFabricacion As Float
  5. Private hcostoFabricacion As Float
  6.  
  7. Public Sub _new(costoFab As Float)
  8.  
  9.   hcostoFabricacion = costoFab
  10.  
  11. End
  12.  
  13. Private Function costoFabricacion_Read() As Float
  14.  
  15.   Return hcostoFabricacion
  16.  
  17. End
  18.  
  19. Private Sub costoFabricacion_Write(Value As Float)
  20.  
  21.   hcostoFabricacion = Value
  22.  
  23. End
  24.  
  25. Public Function clone() As Tv
  26.   \'creo una copia de mi mismo con mis datos y la retorno
  27.  
  28.   Dim tvtemp As New LCD(Super.marca, Super.pulgadas, Super.colores, Super.precio, hcostoFabricacion)
  29.  
  30.   Return tvtemp
  31.  
  32. End
');