mainPersonas

' Gambas module file

Public Sub Main()

  Dim per1 As New Persona
  Dim per2 As New Administrativo
  Dim per3 As New Docente
  Dim per4 As New PersonalLimpieza

  per1.Registrar("Juan", 100)

  per1.Consultar()

  per2.Registrar("Jose", 120, "Administracion General")

  per2.Consultar()

  per3.Registrar("Javier", 80, "Profesor Matematicas", 10)
  per3.Consultar()

  per4.Registrar("Julio", 74, "nocturno")
  mostrar(per4)

End

Public Sub mostrar(per As Persona)

  Print "********************************************************"
  Print "Usando una funcion que recibe cualquier clase de persona"
  Print "********************************************************"
  per.Consultar()

End