Advertisement
jsbsan

lcd

Jan 2nd, 2014
1,776
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
GAMBAS 0.59 KB | None | 0 0
  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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement