\' Gambas class file
Public Sub _new()
End
Public Sub Form_Open()
Dim c As New Cliente
Dim o As New Operador
Dim vprint As New UsuarioPrintVisitor
Dim vDesct As New UsuarioDescuentoVisitor
Dim vRegalo As New UsuarioRegalo
c.accept(vprint)
c.accept(vDesct)
c.accept(vRegalo)
TextLabel1.text &= "Tipo de Usuario: " & vprint.getTipoUsuario() & "<br>"
TextLabel1.text &= "....Descuento a aplicar: " & vDesct.getdescuento() & "<br>"
TextLabel1.text &= "....Regalo: " & vRegalo.getRegaloUsuario() & "<br>"
TextLabel1.text &= "<br>"
o.accept(vprint)
o.accept(vDesct)
o.accept(vRegalo)
TextLabel1.text &= "Tipo de Usuario: " & vprint.getTipoUsuario() & "<br>"
TextLabel1.text &= "....Descuento a aplicar: " & vDesct.getdescuento() & "<br>"
TextLabel1.text &= "....Regalo: " & vRegalo.getRegaloUsuario() & "<br>"
End