document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public Sub _new()
  4.  
  5. End
  6.  
  7. Public Sub Form_Open()
  8.   \'\'Sin usar patron facade,esta obligado a conocer
  9.   \'\'muchos detalles de los subsistemas y usandolo NO.
  10.  
  11.   Print "Sin usar patron...."
  12.   Print "-------------------"
  13.   SinUsarPatronFacade()
  14.   Print "<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<"
  15.   Print "Usando el patron...."
  16.   UsandoPatronFacade()
  17.   Print "-------------------"
  18.  
  19.   \'nota: El resultado es el mismo,
  20. End
  21.  
  22. Public Sub SinUsarPatronFacade()
  23.   \'\'Sin usar el patron Facade:
  24.   \'\'esta obligado a conocer muchos detalles de los subsistemas
  25.  
  26.   Dim i As New Interesado
  27.   Dim c As New Cliente
  28.   Dim p As New Propietario
  29.   Dim Inm2 As New Inmobiliaria
  30.  
  31.   Dim muestraPro As New MuestraPropiedad
  32.   Dim venta As New VentaInmueble
  33.   Dim alquiler As New AdministracionAlquiler
  34.   Dim ventaIn As New VentaInmueble
  35.   Dim CuentasAPag As New CuentasAPagar
  36.  
  37.   i.setnombre("Juan") \'interesado en alquilar
  38.   c.setnombre("Eva") \'cliente
  39.   p.setnombre("Dolores") \'propietario
  40.  
  41.   Inm2.atencionPersona(i)
  42.   Inm2.atencionPersona(c)
  43.   Inm2.atencionPersona(p)
  44.  
  45.   \'usa los subsistemas....
  46.   muestraPro.mostrar(123)
  47.   ventaIn.gestionVenta()
  48.   alquiler.cobro(1200)
  49.   CuentasAPag.pagoPropietario(1100)
  50.  
  51. End
  52.  
  53. Public Sub UsandoPatronFacade()
  54.   \'usando el patron FACADE (FACHADA)
  55.   \'USANDO EL PATRON FACADE no esta obligado a saber como funciona los subsistemas
  56.  
  57.   Dim i As New Interesado
  58.   Dim c As New Cliente
  59.   Dim p As New Propietario
  60.   Dim Inm2 As New Inmobiliaria
  61.  
  62.   i.setnombre("Juan") \'interesado en alquilar
  63.   c.setnombre("Eva") \'cliente
  64.   p.setnombre("Dolores") \'propietario
  65.  
  66.   Inm2.atencionPersona(i)
  67.   Inm2.atencionPersona(c)
  68.   Inm2.atencionPersona(p)
  69.   Inm2.MuestraVivienda(123)
  70.   Inm2.gestionaVenta()
  71.   Inm2.cobraAlquiler(1200)
  72.   Inm2.paga(1100)
  73.  
  74. End
');