Private Sub Cmdkeluar_Click()
End
End Sub
Private Sub Cmdulang_Click()
Txtgajipokok.SetFocus
txtgajipoko = “”
Txttunjangan = “”
Txtpotongan = “”
Txtgajikotor = “”
Txtpajak = “”
Txtgajiditerima = “”
End Sub
Private Sub Txtgajipokok_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txttunjangan.SetFocus
End If
End Sub
Private Sub Txtpotongan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtgajikotor = Val(Txtgajipokok) + Val(Txttunjangan) + Val(Txtpotongan)
Txtpajak = Val(Txtgajikotor) * 0.1
Txtgajiditerima = Val(Txtgajikotor) – Val(Txtpajak)
End If
End Sub
Private Sub Txttunjangan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtpotongan.SetFocus
End If
End Sub