APLIKASI PERHITUNGAN GAJI MENGGUNAKAN KEYPRESS

TUGAS 2.4

Private Sub CmdKeluar_Click()
Unload Me
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