document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas module file
  2.  
  3. Public Sub Main()
  4.  
  5.   Dim per1 As New Persona
  6.   Dim per2 As New Administrativo
  7.   Dim per3 As New Docente
  8.   Dim per4 As New PersonalLimpieza
  9.  
  10.   per1.Registrar("Juan", 100)
  11.  
  12.   per1.Consultar()
  13.  
  14.   per2.Registrar("Jose", 120, "Administracion General")
  15.  
  16.   per2.Consultar()
  17.  
  18.   per3.Registrar("Javier", 80, "Profesor Matematicas", 10)
  19.   per3.Consultar()
  20.  
  21.   per4.Registrar("Julio", 74, "nocturno")
  22.   mostrar(per4)
  23.  
  24. End
  25.  
  26. Public Sub mostrar(per As Persona)
  27.  
  28.   Print "********************************************************"
  29.   Print "Usando una funcion que recibe cualquier clase de persona"
  30.   Print "********************************************************"
  31.   per.Consultar()
  32.  
  33. End
');