document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Public Sub Form_Open()
  2.  
  3.   Dim bank As New Banco("Banco")
  4.   Dim adm As New Administracion("Dept. Administracion")
  5.   Dim caj As New Cajas("Dept. Cajeros")
  6.   Dim ger As New Gerencia("Dept.Gerencia de Empresa")
  7.   Dim man As New Mantenimiento("Dept. Mantenimiento")
  8.   Dim ReHu As New RRHH("Dept. Recursos Humanos")
  9.   Dim turno_D As New TurnoDiurno("Turno Diurno")
  10.   Dim turno_N As New TurnoNocturno("Turno Nocturno")
  11.   Dim p01 As New Empleado("Enrique", "Gerente", 5000)
  12.   Dim p02 As New Empleado("Rocio", "Oficial Adm.", 2500)
  13.   Dim p03 As New Empleado("Macarena", "Ayud. Adm.", 1500)
  14.   Dim p04 As New Empleado("Marisa", "Selectora", 2000)
  15.   Dim p05 As New Empleado("Jose Luis", "Jefe Departamento", 3000)
  16.   Dim p06 As New Empleado("Juan Diego", "Cajero", 1200)
  17.   Dim p07 As New Empleado("Jose Luis", "Cajero", 1200)
  18.   Dim p08 As New Empleado("Julio", "Mantenimiento Nocturno", 2100)
  19.   Dim p09 As New Empleado("Javier", "Mantenimiento Diurno", 1800)
  20.   Dim p10 As New Empleado("Luis", "Mantenimiento Diurno", 1800)
  21.  
  22.   \'agregamos personas a los departamentos
  23.   ger.agrega(p01)
  24.  
  25.   adm.agrega(p02)
  26.   adm.agrega(p03)
  27.  
  28.   rehu.agrega(p04)
  29.   rehu.agrega(p05)
  30.  
  31.   caj.agrega(p06)
  32.   caj.agrega(p07)
  33.  
  34.   turno_N.agrega(p08)
  35.  
  36.   turno_D.agrega(p09)
  37.   turno_D.agrega(p10)
  38.  
  39.   \'agregamos departamentos
  40.   bank.agrega(adm)
  41.   bank.agrega(caj)
  42.   bank.agrega(ger)
  43.   bank.agrega(man)
  44.   bank.agrega(rehu)
  45.  
  46.   man.agrega(turno_D)
  47.   man.agrega(turno_N)
  48.  
  49.   textarea1.Text = "Esctructura del personal del Banco:" & "\\n" & bank.getEstructura("")
  50.  
  51.   textarea1.Text &= "Coste Mensual de Nominas: " & bank.getSueldo()
  52.  
  53.   textarea1.Text &= "\\n\\nElimino el departamento de mantenimiento.....Dept. Mantenimiento\\n"
  54.   \'borrar un departamento
  55.   bank.borrar("Dept. Mantenimiento")
  56.   textarea1.text &= bank.getEstructura("")
  57.   textarea1.Text &= "Coste Mensual de Nominas: " & bank.getSueldo()
  58.   \'borrar a un trabajador
  59.   adm.borrar("Macarena")
  60.   textarea1.Text &= "\\nBorro a Macarena del departamento de Administracion:\\n"
  61.   textarea1.Text &= "Coste Mensual de Nominas: " & bank.getSueldo()
  62.  
  63. End
');