document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public Sub _new()
  4.  
  5. End
  6.  
  7. Public Sub Form_Open()
  8.  
  9.   Dim pers1 As New Persona("Juan", "Perez", 21)
  10.   Dim pers2 As New Persona("Sabrina", "Campas", 71)
  11.   Dim pers3 As New Persona("Liz", "Juarez", 81)
  12.   Dim pers4 As New Persona("JJ", "Benitez", 42)
  13.   Dim bank As New Banco(TextLabel1)
  14.  
  15.   bank.atiende(pers1)
  16.  
  17.   bank.suspendeVentanilla()
  18.   \'solo atendere a las personas de mas de 65 años
  19.   bank.atiende(pers2)
  20.   bank.atiende(pers3)
  21.  
  22.   bank.atiende(pers4)
  23.  
  24.   \'cierro la ventanilla, ya no atiendo a nadie
  25.   bank.cerrarVentanilla()
  26.   bank.atiende(pers4)
  27.   bank.atiende(pers3)
  28.   Me.Center()
  29.  
  30. End
  31.  
  32. Public Sub TextLabel2_MouseDown()
  33.  
  34. End
');