Tugas 2 Program 3 BP1



P3


Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdproses_Click()
txtgajik = Val(txtgajip) + Val(txttn) - Val(txtpotongan)
txtpajak = Val(txtgajik) * 0.05
txtgajid = Val(txtgajik) - Val(txtpajak)
End Sub

Private Sub cmdulang_Click()
txtgajip = ""
txttn = ""
txtpotongan = ""
txtgajik = ""
txtpajak = ""
txtgajid = ""
txtgajip.SetFocus
End Sub

Komentar

Postingan populer dari blog ini

CARA MEMBUAT AKUN BBM DAN CONTOH

STMIK Pringsewu Laksanakan POSDIKTI Bagi Mahasiswa Baru 2017

Yudisium STMIK PRINGSEWU 2017