Tugas 2.5

 

Private Sub cmdKeluar_Click()

Unload Me

End Sub

 

Private Sub cmdProses_Click()

TxtGK = Val((TxtPokok) + Val(TxtTunjangan)) - Val(TxtPotongan)

TxtPajak = Val(TxtGK) * 0.15

TxtDiterima = Val(TxtGK) - Val(TxtPajak)

End Sub

 

Private Sub cmdUlang_Click()

TxtPokok.SetFocus

TxtPokok = ""

TxtTunjangan = ""

TxtPotongan = ""

TxtGK = ""

TxtPajak = ""

TxtDiterima = ""

End Sub

 

Private Sub TxtPokok_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtTunjangan.SetFocus

End If

End Sub

 

Private Sub TxtTunjangan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtPotongan.SetFocus

End If

End Sub