mainPrototype

' Gambas class file

Public Sub Form_Open()

  Dim tvp As New TvPrototype

  'voy a crear varios tv tipo Plasma usando el TvPrototype....

  Dim tv1 As Plasma
  Dim tv2 As Plasma
  Dim tv3 As Plasma
  Dim tv4 As Plasma

  tv1 = tvp.prototipo("Plasma")
  tv2 = tvp.prototipo("Plasma")
  TextArea1.text &= "Muestro Clones iniciales:" & gb.CrLf
  TextArea1.text &= "Clone tv1: " & tv1.marca & " " & tv1.precio & gb.CrLf
  TextArea1.text &= "Clone tv2:" & tv2.marca & " " & tv2.precio & gb.CrLf

  TextArea1.text &= "Cambio datos  del tv2, para comprobar que tv1 no cambia:" & gb.CrLf
  tv2.marca = "Panasonic"
  TextArea1.text &= "Clone tv1: " & " " & tv1.marca & " " & tv1.precio & gb.CrLf
  TextArea1.text &= "Clone tv2:" & " " & tv2.marca & " " & tv2.precio & gb.CrLf

  tv3 = tvp.prototipo("Plasma")
  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
  TextArea1.text &= "Clone tv1: " & " " & tv1.marca & " " & tv1.precio & gb.CrLf
  TextArea1.text &= "Clone tv2:" & " " & tv2.marca & " " & tv2.precio & gb.CrLf
  TextArea1.text &= "Clone tv3:" & " " & tv3.marca & " " & tv3.precio & gb.CrLf

  TextArea1.Text &= "Voy a clonar tv3, creando tv4:" & gb.CrLf
  tv4 = tv3.clone()

  TextArea1.text &= "Clone tv3:" & " " & tv3.marca & " " & tv3.precio & " " & tv3.angulovision & gb.CrLf
  TextArea1.text &= "Clone tv4:" & " " & tv4.marca & " " & tv4.precio & " " & tv4.angulovision & gb.CrLf
  TextArea1.text &= "Modifico una de las propiedades del angulovision del tv4:" & gb.CrLf
  tv4.angulovision = 45
  TextArea1.text &= "Clone tv3:" & " " & tv3.marca & " " & tv3.precio & " " & tv3.angulovision & gb.CrLf
  TextArea1.text &= "Clone tv4:" & " " & tv4.marca & " " & tv4.precio & " " & tv4.angulovision & gb.CrLf

End