Advertisement
jsbsan

printVisitor

Nov 12th, 2013
1,137
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
GAMBAS 0.33 KB | None | 0 0
  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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement