document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Inherits TV
  4.  
  5. Property angulovision As Float
  6.  
  7. Private hangulovision As Float
  8.  
  9. Property tiempoRespuesta As Float
  10. Private htiempoRespuesta As Float
  11.  
  12. Public Sub _new(angvision As Float, tiempoRes As Float)
  13.  
  14.   hangulovision = angvision
  15.   htiempoRespuesta = tiempoRes
  16.  
  17. End
  18.  
  19. Public Function clone() As Tv
  20.   \'creo una copia de mi mismo con mis datos y la retorno
  21.  
  22.   Dim tvtemp As New Plasma(Super.marca, Super.pulgadas, Super.colores, Super.precio, hangulovision, htiempoRespuesta)
  23.  
  24.   Return tvtemp
  25.  
  26. End
  27.  
  28. Private Function angulovision_Read() As Float
  29.  
  30.   Return hangulovision  
  31.  
  32. End
  33.  
  34. Private Sub angulovision_Write(Value As Float)
  35.  
  36.   hangulovision = Value
  37.  
  38. End
  39.  
  40. Private Function tiempoRespuesta_Read() As Float
  41.  
  42.   Return htiempoRespuesta
  43.  
  44. End
  45.  
  46. Private Sub tiempoRespuesta_Write(Value As Float)
  47.  
  48.   htiempoRespuesta = Value
  49.  
  50. End
');