document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Inherits UsuarioVisitor
  4. Private htipo As String
  5.  
  6. Public Sub visitOperadorPrinVisitor(op As Operador)
  7.  
  8.   htipo = "Es un operador"
  9.  
  10. End
  11.  
  12. Public Sub visitClientePrinVisitor(cli As Cliente)
  13.  
  14.   htipo = "Es un cliente"
  15.  
  16. End
  17.  
  18. Public Function getTipoUsuario() As String
  19.  
  20.   Return htipo
  21.  
  22. End
');