printVisitor

' Gambas class file

Inherits UsuarioVisitor
Private htipo As String

Public Sub visitOperadorPrinVisitor(op As Operador)

  htipo = "Es un operador"

End

Public Sub visitClientePrinVisitor(cli As Cliente)

  htipo = "Es un cliente"

End

Public Function getTipoUsuario() As String

  Return htipo

End