document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Private hnombre As String
  4. Private hdireccion As String
  5. Private hventanilla As Ventanilla
  6.  
  7. Private zonatexto As TextLabel
  8.  
  9. Public Sub _new(texto As Textlabel)
  10.  
  11.   zonatexto = texto
  12.   hventanilla = New Ventanilla(zonatexto)
  13.  
  14. End
  15.  
  16. Public Sub atiende(pers As Persona)
  17.  
  18.   Print pers.getNombre() & " ingresa a la fila"
  19.   zonatexto.text &= "<b>" & pers.getNombre() & "</b> entra en el banco, e  ingresa a la fila<br>"
  20.  
  21.   hventanilla.atiende(pers)
  22.  
  23. End
  24.  
  25. Public Sub suspendeVentanilla()
  26.  
  27.   hventanilla.suspendete()
  28.  
  29. End
  30.  
  31. Public Sub abrirVentanilla()
  32.  
  33.   hventanilla.abrete()
  34.  
  35. End
  36.  
  37. Public Sub cerrarVentanilla()
  38.  
  39.   hventanilla.cierrate()
  40.  
  41. End
  42.  
  43. Public Function getNombre() As String
  44.  
  45.   Return hnombre
  46.  
  47. End
');