Advertisement
jsbsan

descuentoVisitor

Nov 12th, 2013
1,109
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.  
  5. Private hdescuento As Integer
  6.  
  7. Public Sub visitOperadorDescuentoVisitor(op As Operador)
  8.  
  9.   hdescuento = 30
  10.  
  11. End
  12.  
  13. Public Sub visitClienteDescuentoVisitor(cli As Cliente)
  14.  
  15.   hdescuento = 10
  16.  
  17. End
  18.  
  19. Public Function getdescuento() As Integer
  20.  
  21.   Return hdescuento
  22.  
  23. End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement