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

Cara cek shutter count kamera DSLR canon dengan akurat

STMIK Pringsewu Laksanakan POSDIKTI Bagi Mahasiswa Baru 2017