Calculo Del Salario Neto

Este programa se basa en  calcular el salario de un trabjador que  se produce deacuerdo a  las horas trabajadas para lograr hallar su salario bruto, descuento y su salario neto.

Con la siguiente programacion:

Private Sub Command1_Click()

Text4.Text = Text2 * Text3

Text5.Text = 0.2 * Text4

Text6.Text = Text4 - Text5

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If Text1.Text = "" Then

    MsgBox ("digite un nombre")

    Text1.SetFocus

    Else

    Text2.SetFocus

End If

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If Text2.Text = "" Then

    MsgBox ("digite un nombre")

    Text2.SetFocus

    Else

    Text3.SetFocus

End If

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If Text3.Text = "" Then

    MsgBox ("digite un nombre")

    Text3.SetFocus

    Else

    Command1.SetFocus

End If

End If

End Sub