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.  
  9.   Dim c As New Cliente
  10.   Dim o As New Operador
  11.   Dim vprint As New UsuarioPrintVisitor
  12.   Dim vDesct As New UsuarioDescuentoVisitor
  13.   Dim vRegalo As New UsuarioRegalo
  14.  
  15.   c.accept(vprint)
  16.   c.accept(vDesct)
  17.   c.accept(vRegalo)
  18.  
  19.   TextLabel1.text &= "Tipo de Usuario: " & vprint.getTipoUsuario() & "<br>"
  20.   TextLabel1.text &= "....Descuento a aplicar: " & vDesct.getdescuento() & "<br>"
  21.   TextLabel1.text &= "....Regalo: " & vRegalo.getRegaloUsuario() & "<br>"
  22.   TextLabel1.text &= "<br>"
  23.   o.accept(vprint)
  24.   o.accept(vDesct)
  25.   o.accept(vRegalo)
  26.   TextLabel1.text &= "Tipo de Usuario: " & vprint.getTipoUsuario() & "<br>"
  27.   TextLabel1.text &= "....Descuento a aplicar: " & vDesct.getdescuento() & "<br>"
  28.   TextLabel1.text &= "....Regalo: " & vRegalo.getRegaloUsuario() & "<br>"
  29.  
  30. End
');