document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public Sub Form_Open()
  4.  
  5.   Dim tvp As New TvPrototype
  6.  
  7.   \'voy a crear varios tv tipo Plasma usando el TvPrototype....
  8.  
  9.   Dim tv1 As Plasma
  10.   Dim tv2 As Plasma
  11.   Dim tv3 As Plasma
  12.   Dim tv4 As Plasma
  13.  
  14.   tv1 = tvp.prototipo("Plasma")
  15.   tv2 = tvp.prototipo("Plasma")
  16.   TextArea1.text &= "Muestro Clones iniciales:" & gb.CrLf
  17.   TextArea1.text &= "Clone tv1: " & tv1.marca & " " & tv1.precio & gb.CrLf
  18.   TextArea1.text &= "Clone tv2:" & tv2.marca & " " & tv2.precio & gb.CrLf
  19.  
  20.   TextArea1.text &= "Cambio datos  del tv2, para comprobar que tv1 no cambia:" & gb.CrLf
  21.   tv2.marca = "Panasonic"
  22.   TextArea1.text &= "Clone tv1: " & " " & tv1.marca & " " & tv1.precio & gb.CrLf
  23.   TextArea1.text &= "Clone tv2:" & " " & tv2.marca & " " & tv2.precio & gb.CrLf
  24.  
  25.   tv3 = tvp.prototipo("Plasma")
  26.   TextArea1.text &= "añado un nuevo television tv3, veo sus datos... " & gb.CrLf & "y muestro los tv anteriores para comprobar que el prototipo sigue funcionando:" & gb.CrLf
  27.   TextArea1.text &= "Clone tv1: " & " " & tv1.marca & " " & tv1.precio & gb.CrLf
  28.   TextArea1.text &= "Clone tv2:" & " " & tv2.marca & " " & tv2.precio & gb.CrLf
  29.   TextArea1.text &= "Clone tv3:" & " " & tv3.marca & " " & tv3.precio & gb.CrLf
  30.  
  31.   TextArea1.Text &= "Voy a clonar tv3, creando tv4:" & gb.CrLf
  32.   tv4 = tv3.clone()
  33.  
  34.   TextArea1.text &= "Clone tv3:" & " " & tv3.marca & " " & tv3.precio & " " & tv3.angulovision & gb.CrLf
  35.   TextArea1.text &= "Clone tv4:" & " " & tv4.marca & " " & tv4.precio & " " & tv4.angulovision & gb.CrLf
  36.   TextArea1.text &= "Modifico una de las propiedades del angulovision del tv4:" & gb.CrLf
  37.   tv4.angulovision = 45
  38.   TextArea1.text &= "Clone tv3:" & " " & tv3.marca & " " & tv3.precio & " " & tv3.angulovision & gb.CrLf
  39.   TextArea1.text &= "Clone tv4:" & " " & tv4.marca & " " & tv4.precio & " " & tv4.angulovision & gb.CrLf
  40.  
  41. End
');