Public ObjBASICA As BASICA

 Public ObjBASICA As BASICA = New BASICA()
Public ObjCalculo As Calculo = New Calculo()
Public ObjClase_Des As Clase_Des = New Clase_Des()
Public ObjMini_Prima As Mini_Primas = New Mini_Primas()
Public ObjTotales As Totales = New Totales()
Public ObjLista As Lista = New Lista()
Public ObjPrimas As Primas = New Primas()
Public ObjFiltro As Filtro = New Filtro()Private Sub cmdSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSalir.Click

'Resumen: Este procedimiento para el evento click del objeto boton cmdSalir finaliza la
' ejecucion del programa mediante la orden END, antes de terminar da un simpatico
' mensaje de despedida

MsgBox("Gracias por utilizar esta aplicacion")'Mensaje de despedida
'Seccion de destruccion de clases y de objetos que componen la aplicacion
Me.Dispose()
End 'Termina la ejecucion de la aplicacion
End Sub

Private Sub cmdCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCalcular.Click

'Resumen: Este procedimiento para el evento click del objeto boton cmdCalcular leelos
' datos de entrada y con base en estos calcula cada una de las partes que componen
' la nomina, para ello hace uso de los metodos o funciones de los 7 objetos
' instanciados de las clases construidas
' Al final se imprime o se muestra los resultados en el objeto TxtRta que es una
' caja de texto de la cual seutiliza la propiedad SelectedTex.
'Autor: A yo Hugo
'Email: hugobrons-0843@hotmail.com
'Fecha: 6 Junio de 2012


'Declaracion e inicializacion de variables para el despliegue de las listas de opciones
Dim Departamentos As String = "1.Amazonas, 2.Antioquia, 3.Arauca, 4.Atlantico, 5.Bolivar, 6.Boyaca, 7.Caldas, 8.Caqueta, 9.Casanare, 10.Cauca, 11.Cesar,12.Choco, 13.Cordoba, 14.Cundinamarca, 15.Guainia, 16.Guaviare, 17.Huila, 18.La Guajira, 19.Magdalena, 20.Meta, 21.Nariño, 22.Norte de Santander, 23.Putumayo, 24.Quindio, 25.Risaralda, 26.San Andres y Providencia, 27.Santander, 28.Sucre, 29.Tolima, 30.Valle del Cauca, 31.Vaupes, 32.Vichada"
Dim SignosZodiacales As String = "1.Aries, 2.Tauro, 3.Geminis, 4.Cancer, 5.Leo, 6.Virgo, 7.Libra,8.Escorpion, 9.Sagitario, 10.Capricornio, 11.Acuario, 12.Picis"
Dim EstadosCiviles As String = "1.Soltero, 2.Casado, 3.Union Libre, 4.Divorciado, 5.Viudo, 6.Religioso"
Dim Secciones As String = "1.Diseño, 2.Produccion, 3.Acabados, 4.Afinamientos, 5.Acustica, 6.Mercadeo, 7.Transporte, 8.Administracion, 9.Contabilidad, 10.Servicios Generales, 11.Recursos Humanos"
Dim TiposSanguineosAs String = "1.A+, 2.A-, 3.B+, 4.B-, 5.AB+, 6.AB-, 7.O+, 8.O-"
'Se lee la cantida de empleados a procesar
ObjBASICA.cantidad = ObjFiltro.LeeNumeroEntero("Digite cantidad de empleados [>=1 y <=100]:", 1, 100)
'Se hace un ciclo desde 1 hasta la cantidad de empleados leida
For ObjBASICA.i = 1 To ObjBASICA.cantidad
'Seccion de limpieza o inicializacion delas variables encapsuladas a traves de las propiedades publicas Control
'declaradas en la clase Basica e instanciadas en el objeto ObjBasica
ObjBASICA.ControlCedula = "" : ObjBASICA.ControlLugExp = 0 : ObjBASICA.ControlDptoNac = 0
ObjBASICA.ControlMunNac = 0 : ObjBASICA.ControlEstCiv = 0 : ObjBASICA.ControlGenero = 0
ObjBASICA.ControlNombre = "" :ObjBASICA.ControlApellidos = "" : ObjBASICA.ControlEdad = 0
ObjBASICA.ControlSigZod = 0 : ObjBASICA.ControlNumH = 0 : ObjBASICA.ControlDireccion = 0
ObjBASICA.ControlBarrio = 0 : ObjBASICA.controlSeccion = 0 : ObjBASICA.ControlTipSang = 0
ObjBASICA.ControlSBMA = 0 : ObjBASICA.ControlDiasT = 0 : ObjBASICA.ControlNHED = 0
ObjBASICA.ControlNHEN = 0 :...