document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Private listaTv As New Collection
  4.  
  5. Public Sub _new()
  6.  
  7.   Dim p As New Plasma("Sony", 21, "Plateado", 399.99, 90, 0.05)
  8.   Dim lcd1 As New LCD("Panasonic", 42, "Plateado", 599.99, 290)
  9.  
  10.   listaTv.Add(p, "Plasma")
  11.  
  12.   listaTv.Add(lcd1, "Lcd")
  13.  
  14. End
  15.  
  16. Public Function prototipo(tipo As String) As TV
  17.  
  18.   Return listaTv[tipo].clone()
  19.  
  20. End
');