programaprincipal

' 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