TUGAS 2.4 MEMBUAT APLIKASI PERHITUNGAN GAJI LENGKAP

TUGAS BAHASA PEMROGRAMAN 2.4

TUGAS 2.4

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdproses_Click()

txtgk = Val(Txtgp) + Val(Txttun) - Val(txtpot)

txtpjk = Val(txtgk) * 0.25

txtgd = Val(txtgk) - Val(txtpjk)

End Sub

Private Sub cmdulang_Click()

Txtgp = ""

Txttun = ""

txtpot = ""

txtgk = ""

txtpjk = ""

txtgd = ""

Txtgp.SetFocus

End Sub

Private Sub Txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttun.SetFocus

End If

End Sub

Private Sub txtpot_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtgk = Val(Txtgp) + Val(Txttun) - Val(txtpot)

txtpjk = Val(txtgk) * 0.25

txtgd = Val(txtgk) - Val(txtpjk)

End If

End Sub

Private Sub Txttun_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpot.SetFocus

End If

End Sub