NOMINA SEMANAL DEL PERSONAL - Gabriel Eduardo (1)

Vista previa del material en texto

BENEMÉRITA UNIVERSIDAD AUTÓNOMA DE PUEBLA IMACON 
FACULTAD DE INGENIERIA CIVIL 201944826 
GABRIEL EDUARDO VÁZQUEZ BONILLA “CONSTRUYENDO TU POTENCIAL” 
MTRO. GENARO ROBERTO LÓPEZ AGUILAR 
CRIPTOCALCULO 13/03/2020 
INFORMATICA Y PROGRAMACION 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
BENEMÉRITA UNIVERSIDAD AUTÓNOMA DE PUEBLA IMACON 
FACULTAD DE INGENIERIA CIVIL 201944826 
GABRIEL EDUARDO VÁZQUEZ BONILLA “CONSTRUYENDO TU POTENCIAL” 
MTRO. GENARO ROBERTO LÓPEZ AGUILAR 
CRIPTOCALCULO 13/03/2020 
INFORMATICA Y PROGRAMACION 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Public Class Form1 
 Dim C1 As Double 
 Dim N1 As String 
 Dim P1 As String 
 Dim S1 As Double 
 Dim D1 As Double 
 Dim SAB1 As Double 
 Dim COM1 As Double 
 Dim BON1 As Double 
 Dim VI1 As Double 
 Dim CAJ1 As Double 
 Dim SEG1 As Double 
 Dim ISR1 As Double 
 Dim SNETO1 As Double 
 
 Dim C2 As Double 
 Dim N2 As String 
 Dim P2 As String 
 Dim S2 As Double 
 Dim D2 As Double 
 Dim SAB2 As Double 
 Dim COM2 As Double 
 Dim BON2 As Double 
 Dim VI2 As Double 
 Dim CAJ2 As Double 
 Dim SEG2 As Double 
 Dim ISR2 As Double 
 Dim SNETO2 As Double 
BENEMÉRITA UNIVERSIDAD AUTÓNOMA DE PUEBLA IMACON 
FACULTAD DE INGENIERIA CIVIL 201944826 
GABRIEL EDUARDO VÁZQUEZ BONILLA “CONSTRUYENDO TU POTENCIAL” 
MTRO. GENARO ROBERTO LÓPEZ AGUILAR 
CRIPTOCALCULO 13/03/2020 
INFORMATICA Y PROGRAMACION 
 
 Dim C3 As Double 
 Dim N3 As String 
 Dim P3 As String 
 Dim S3 As Double 
 Dim D3 As Double 
 Dim SAB3 As Double 
 Dim COM3 As Double 
 Dim BON3 As Double 
 Dim VI3 As Double 
 Dim CAJ3 As Double 
 Dim SEG3 As Double 
 Dim ISR3 As Double 
 Dim SNETO3 As Double 
 
 Dim C4 As Double 
 Dim N4 As String 
 Dim P4 As String 
 Dim S4 As Double 
 Dim D4 As Double 
 Dim SAB4 As Double 
 Dim COM4 As Double 
 Dim BON4 As Double 
 Dim VI4 As Double 
 Dim CAJ4 As Double 
 Dim SEG4 As Double 
 Dim ISR4 As Double 
 Dim SNETO4 As Double 
 
 Dim C5 As Double 
 
 
 Dim N5 As String 
 Dim P5 As String 
 Dim S5 As Double 
 Dim D5 As Double 
 Dim SAB5 As Double 
 Dim COM5 As Double 
 Dim BON5 As Double 
 Dim VI5 As Double 
 Dim CAJ5 As Double 
 Dim SEG5 As Double 
 Dim ISR5 As Double 
 Dim SNETO5 As Double 
 
 Dim TOTAL As Double 
 Dim TS As Double 
 Dim PROMD As Double 
 Dim SABT As Double 
 Dim COMT As Double 
 Dim BONT As Double 
 Dim VIT As Double 
 Dim CAJT As Double 
 Dim SEGT As Double 
 Dim ISRT As Double 
 Dim SNETOT As Double 
 
BENEMÉRITA UNIVERSIDAD AUTÓNOMA DE PUEBLA IMACON 
FACULTAD DE INGENIERIA CIVIL 201944826 
GABRIEL EDUARDO VÁZQUEZ BONILLA “CONSTRUYENDO TU POTENCIAL” 
MTRO. GENARO ROBERTO LÓPEZ AGUILAR 
CRIPTOCALCULO 13/03/2020 
INFORMATICA Y PROGRAMACION 
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 
Button1.Click 
 
 C1 = InputBox("CAPTURA LA CLAVE DEL TRABAJADOR") 
 N1 = InputBox("CAPTURA EL NOMBRE DEL TRABAJADOR") 
 P1 = InputBox("CAPTURA EL PUESTO DEL TRABAJADOR") 
 S1 = InputBox("CAPTURA EL SALARIO DIARIO DEL TRABAJADOR") 
 D1 = InputBox("CAPTURA LOS DÍAS LABORADOS DEL TRABAJADOR") 
 
 TextBox1.Text = C1 
 TextBox2.Text = N1 
 TextBox3.Text = P1 
 TextBox4.Text = Format(S1, "$ ###,###.00") 
 TextBox5.Text = D1 & " DÍAS" 
 
 SAB1 = (S1 * D1) 
 TextBox6.Text = Format(SAB1, "$ ###,###.00") 
 
 COM1 = 342.0 
 TextBox7.Text = Format(COM1, "$ ###,###.00") 
 
 BON1 = 100.0 
 TextBox8.Text = Format(BON1, "$ ###,###.00") 
 
 VI1 = 55.0 
 TextBox9.Text = Format(VI1, "$ ###,###.00") 
 
 CAJ1 = (SAB1 * 0.08) 
 TextBox10.Text = Format(CAJ1, "$ ###,###.00") 
 
 SEG1 = 500 
 TextBox11.Text = Format(SEG1, "$ ###,###.00") 
 
 ISR1 = 300 
 TextBox12.Text = Format(ISR1, "$ ###,###.00") 
 
 SNETO1 = (SAB1 + COM1 + BON1 + VI1) - (CAJ1 + SEG1 + ISR1) 
 TextBox13.Text = Format(SNETO1, "$ ###,###.00") 
 
 C2 = InputBox("CAPTURA LA CLAVE DEL SIGUIENTE TRABAJADOR") 
 N2 = InputBox("CAPTURA EL NOMBRE DEL SIGUIENTE TRABAJADOR") 
 P2 = InputBox("CAPTURA EL PUESTO DEL SIGUIENTE TRABAJADOR") 
 S2 = InputBox("CAPTURA EL SALARIO DIARIO DEL SIGUIENTE TRABAJADOR") 
 D2 = InputBox("CAPTURA LOS DÍAS LABORADOS DEL SIGUIENTE TRABAJADOR") 
 
 TextBox14.Text = C2 
 TextBox15.Text = N2 
 TextBox16.Text = P2 
 TextBox17.Text = Format(S2, "$ ###,###.00") 
 TextBox18.Text = D2 & " DÍAS" 
 
 SAB2 = (S2 * D2) 
 TextBox19.Text = Format(SAB2, "$ ###,###.00") 
 
 COM2 = 342.0 
 TextBox20.Text = Format(COM2, "$ ###,###.00") 
 
 BON2 = 100.0 
BENEMÉRITA UNIVERSIDAD AUTÓNOMA DE PUEBLA IMACON 
FACULTAD DE INGENIERIA CIVIL 201944826 
GABRIEL EDUARDO VÁZQUEZ BONILLA “CONSTRUYENDO TU POTENCIAL” 
MTRO. GENARO ROBERTO LÓPEZ AGUILAR 
CRIPTOCALCULO 13/03/2020 
INFORMATICA Y PROGRAMACION 
 TextBox21.Text = Format(BON2, "$ ###,###.00") 
 
 VI2 = 55.0 
 TextBox22.Text = Format(VI2, "$ ###,###.00") 
 
 CAJ2 = (SAB2 * 0.08) 
 TextBox23.Text = Format(CAJ2, "$ ###,###.00") 
 
 SEG2 = 500 
 TextBox24.Text = Format(SEG2, "$ ###,###.00") 
 
 ISR2 = 300 
 TextBox25.Text = Format(ISR2, "$ ###,###.00") 
 
 SNETO2 = (SAB2 + COM2 + BON2 + VI2) - (CAJ2 + SEG2 + ISR2) 
 TextBox26.Text = Format(SNETO2, "$ ###,###.00") 
 
 
 C3 = InputBox("CAPTURA LA CLAVE DEL SIGUIENTE TRABAJADOR") 
 N3 = InputBox("CAPTURA EL NOMBRE DEL SIGUIENTE TRABAJADOR") 
 P3 = InputBox("CAPTURA EL PUESTO DEL SIGUIENTE TRABAJADOR") 
 S3 = InputBox("CAPTURA EL SALARIO DIARIO DEL SIGUIENTE TRABAJADOR") 
 D3 = InputBox("CAPTURA LOS DÍAS LABORADOS DEL SIGUIENTE TRABAJADOR") 
 
 TextBox27.Text = C3 
 TextBox28.Text = N3 
 TextBox29.Text = P3 
 TextBox30.Text = Format(S3, "$ ###,###.00") 
 TextBox31.Text = D3 & " DÍAS" 
 
 SAB3 = (S3 * D3) 
 TextBox32.Text = Format(SAB3, "$ ###,###.00") 
 
 COM3 = 342.0 
 TextBox33.Text = Format(COM3, "$ ###,###.00") 
 
 BON3 = 100.0 
 TextBox34.Text = Format(BON3, "$ ###,###.00") 
 
 VI3 = 55.0 
 TextBox35.Text = Format(VI3,"$ ###,###.00") 
 
 CAJ3 = (SAB3 * 0.08) 
 TextBox36.Text = Format(CAJ3, "$ ###,###.00") 
 
 SEG3 = 500 
 TextBox37.Text = Format(SEG3, "$ ###,###.00") 
 
 ISR3 = 300 
 TextBox38.Text = Format(ISR3, "$ ###,###.00") 
 
 SNETO3 = (SAB3 + COM3 + BON3 + VI3) - (CAJ3 + SEG3 + ISR3) 
 TextBox39.Text = Format(SNETO3, "$ ###,###.00") 
 
 C4 = InputBox("CAPTURA LA CLAVE DEL SIGUIENTE TRABAJADOR") 
 N4 = InputBox("CAPTURA EL NOMBRE DEL SIGUIENTE TRABAJADOR") 
 P4 = InputBox("CAPTURA EL PUESTO DEL SIGUIENTE TRABAJADOR") 
 S4 = InputBox("CAPTURA EL SALARIO DIARIO DEL SIGUIENTE TRABAJADOR") 
BENEMÉRITA UNIVERSIDAD AUTÓNOMA DE PUEBLA IMACON 
FACULTAD DE INGENIERIA CIVIL 201944826 
GABRIEL EDUARDO VÁZQUEZ BONILLA “CONSTRUYENDO TU POTENCIAL” 
MTRO. GENARO ROBERTO LÓPEZ AGUILAR 
CRIPTOCALCULO 13/03/2020 
INFORMATICA Y PROGRAMACION 
 D4 = InputBox("CAPTURA LOS DÍAS LABORADOS DEL SIGUIENTE TRABAJADOR") 
 
 TextBox40.Text = C4 
 TextBox41.Text = N4 
 TextBox42.Text = P4 
 TextBox43.Text = Format(S4, "$ ###,###.00") 
 TextBox44.Text = D4 & " DÍAS" 
 
 SAB4 = (S4 * D4) 
 TextBox45.Text = Format(SAB4, "$ ###,###.00") 
 
 COM4 = 342.0 
 TextBox46.Text = Format(COM4, "$ ###,###.00") 
 
 BON4 = 100.0 
 TextBox47.Text = Format(BON4, "$ ###,###.00") 
 
 VI4 = 55.0 
 TextBox48.Text = Format(VI3, "$ ###,###.00") 
 
 CAJ4 = (SAB4 * 0.08) 
 TextBox49.Text = Format(CAJ4, "$ ###,###.00") 
 
 SEG4 = 500 
 TextBox50.Text = Format(SEG4, "$ ###,###.00") 
 
 ISR4 = 300 
 TextBox51.Text = Format(ISR4, "$ ###,###.00") 
 
 SNETO4 = (SAB4 + COM4 + BON4 + VI4) - (CAJ4 + SEG4 + ISR4) 
 TextBox52.Text = Format(SNETO4, "$ ###,###.00") 
 
 C5 = InputBox("CAPTURA LA CLAVE DEL SIGUIENTE TRABAJADOR") 
 N5 = InputBox("CAPTURA EL NOMBRE DEL SIGUIENTE TRABAJADOR") 
 P5 = InputBox("CAPTURA EL PUESTO DEL SIGUIENTE TRABAJADOR") 
 S5 = InputBox("CAPTURA EL SALARIO DIARIO DEL SIGUIENTE TRABAJADOR") 
 D5 = InputBox("CAPTURA LOS DÍAS LABORADOS DEL SIGUIENTE TRABAJADOR") 
 
 TextBox53.Text = C5 
 TextBox54.Text = N5 
 TextBox55.Text = P5 
 TextBox56.Text = Format(S5, "$ ###,###.00") 
 TextBox57.Text = D5 & " DÍAS" 
 
 SAB5 = (S5 * D5) 
 TextBox58.Text = Format(SAB5, "$ ###,###.00") 
 
 COM5 = 342.0 
 TextBox59.Text = Format(COM5, "$ ###,###.00") 
 
 BON5 = 100.0 
 TextBox60.Text = Format(BON5, "$ ###,###.00") 
 
 VI5 = 55.0 
 TextBox61.Text = Format(VI5, "$ ###,###.00") 
 
 CAJ5 = (SAB5 * 0.08) 
 TextBox62.Text = Format(CAJ5, "$ ###,###.00") 
BENEMÉRITA UNIVERSIDAD AUTÓNOMA DE PUEBLA IMACON 
FACULTAD DE INGENIERIA CIVIL 201944826 
GABRIEL EDUARDO VÁZQUEZ BONILLA “CONSTRUYENDO TU POTENCIAL” 
MTRO. GENARO ROBERTO LÓPEZ AGUILAR 
CRIPTOCALCULO 13/03/2020 
INFORMATICA Y PROGRAMACION 
 
 SEG5 = 500 
 TextBox63.Text = Format(SEG5, "$ ###,###.00") 
 
 ISR5 = 300 
 TextBox64.Text = Format(ISR5, "$ ###,###.00") 
 
 SNETO5 = (SAB5 + COM5 + BON5 + VI5) - (CAJ5 + SEG5 + ISR5) 
 TextBox65.Text = Format(SNETO5, "$ ###,###.00") 
 
 TOTAL = 5 
 TextBox66.Text = TOTAL 
 TextBox67.Text = TOTAL 
 
 TS = (S1 + S2 + S3 + S4 + S5) 
 TextBox68.Text = Format(TS, "$ ###,###.00") 
 
 PROMD = (D1 + D2 + D3 + D4 + D5) / 5 
 TextBox69.Text = Format(PROMD, "$ ###,###.00") 
 
 SABT = (SAB1 + SAB2 + SAB3 + SAB4 + SAB5) 
 TextBox70.Text = Format(SABT, "$ ###,###.00") 
 
 COMT = (COM1 + COM2 + COM3 + COM4 + COM5) 
 TextBox71.Text = Format(COMT, "$ ###,###.00") 
 
 BONT = (BON1 + BON2 + BON3 + BON4 + BON5) 
 TextBox72.Text = Format(BONT, "$ ###,###.00") 
 
 VIT = (VI1 + VI2 + VI3 + VI4 + VI5) 
 TextBox73.Text = Format(VIT, "$ ###,###.00") 
 
 CAJT = (CAJ1 + CAJ2 + CAJ3 + CAJ4 + CAJ5) 
 TextBox74.Text = Format(CAJT, "$ ###,###.00") 
 
 SEGT = (SEG1 + SEG2 + SEG3 + SEG4 + SEG5) 
 TextBox75.Text = Format(SEGT, "$ ###,###.00") 
 
 ISRT = (ISR1 + ISR2 + ISR3 + ISR4 + ISR5) 
 TextBox76.Text = Format(ISRT, "$ ###,###.00") 
 
 SNETOT = (SNETO1 + SNETO2 + SNETO3 + SNETO4 + SNETO5) 
 TextBox77.Text = Format(SNETOT, "$ ###,###.00") 
 
 
 End Sub 
 
 
 
 
End Class