APLIKASI PERHITUNGAN GAJIH

Private Sub Cmdkeluar_Click()
End
End Sub
Private Sub Cmdproses_Click()
Txtgk.Text = Val(Txtgp.Text + Tunjangan) – Val(Txtpt.Text)
Txtpjk.Text = Val(Txtgk.Text) * 0.1
Txtgd.Text = Val(Txtgk.Text) – Val(Txtpjk.Text)
End Sub
Private Sub Cmdulang_Click()
Txtgp.Text = “”
Txttj.Text = “”
Txtpt.Text = “”
Txtgk.Text = “”
Txtpjk.Text = “”
Txtgd.Text = “”
End Sub
Private Sub Txtgk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtpjk.SetFocus
End If
End Sub
Private Sub Txtgp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txttj.SetFocus
End If
End Sub
Private Sub Txtpjk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtgd.SetFocus
End If
End Sub
Private Sub Txtpt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtgk.SetFocus
End If
End Sub
Private Sub Txttj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtpt.SetFocus
End If
End Sub