document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. \' Patrón Delegation
  4. \' Ejemplo de Herencia Multiple....
  5. \'
  6. Public Sub Form_Open()
  7.  
  8.   Dim empleado_Tienda As New EmpleadoDeTienda
  9.  
  10.   empleado_Tienda.setnombre("Juan")
  11.   Print "Nombre del empleado: ", empleado_Tienda.getnombre()
  12.  
  13.   empleado_Tienda.setSueldo(2000)
  14.   empleado_Tienda.cobrar()
  15.   empleado_Tienda.setDomicilio("Dos Hermanas, Sevilla")
  16.   \'usando la clase EmpleadoDeTienda en distintas funciones y subrutinas
  17.   EscribeDatosEnCuadro(empleado_Tienda)
  18.  
  19.   SueldosEmpleado(empleado_Tienda.getTrabajador())
  20.  
  21. End
  22.  
  23. Public Sub SueldosEmpleado(t As Trabajador)
  24.   \'funcion que solo admite objetos de la clase trabajador...
  25.  
  26.   Print "El sueldo es....", t.getSueldo()
  27.  
  28. End
  29.  
  30. Public Sub EscribeDatosEnCuadro(p As Persona)
  31.  
  32.   Print "---------------------------"
  33.   Print p.getnombre()
  34.   Print p.getDomicilio()
  35.   Print "---------------------------"
  36.  
  37. End
');