plasma

' Gambas class file

Inherits TV

Property angulovision As Float

Private hangulovision As Float

Property tiempoRespuesta As Float
Private htiempoRespuesta As Float

Public Sub _new(angvision As Float, tiempoRes As Float)

  hangulovision = angvision
  htiempoRespuesta = tiempoRes

End

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

  Dim tvtemp As New Plasma(Super.marca, Super.pulgadas, Super.colores, Super.precio, hangulovision, htiempoRespuesta)

  Return tvtemp

End

Private Function angulovision_Read() As Float

  Return hangulovision

End

Private Sub angulovision_Write(Value As Float)

  hangulovision = Value

End

Private Function tiempoRespuesta_Read() As Float

  Return htiempoRespuesta

End

Private Sub tiempoRespuesta_Write(Value As Float)

  htiempoRespuesta = Value

End