tugas 2.4 aplikasi perhitungan gaji menggunakan keypress

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdproses_Click()

txtgk = Val(Txtgp) + Val(txttj) - Val(txtpt)

txtpj = Val(txtgk) * 0.1

txtgd = Val(txtgk) - Val(txtpj)

End Sub

Private Sub Cmdulang_Click()

Txtgp = ""

txttj = ""

txtpt = ""

txtgk = ""

txtpj = ""

txtgd = ""

Txtgp.SetFocus

End Sub

Private Sub Txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttj.SetFocus

End If

End Sub

Private Sub txtpt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtgk = Val(Txtgp) + Val(txttj) - Val(txtpt)

txtpj = Val(txtgk) * 0.1

txtgd = Val(txtgk) - Val(txtpj)

End If

End Sub

Private Sub txttj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpt.SetFocus

End If

End Sub