Tugas 2.3 Aplikasi Perhitungan Gaji
tanpa keypress
Berikut Source Codenya:
Private Sub cmdproses_Click()
txtkot = Val(txtgapok) + Val(txttun) - Val(txtpot)
txtpaj = Val(txtkot) * 0.1
txtgadi = Val(txtkot) - Val(txtpaj)
End Sub
Private Sub cmdreset_Click()
txtgapok = ""
txttun = ""
txtpot = ""
txtkot = ""
txtpaj = ""
txtgadi = ""
txtgapok.SetFocus
End Sub
'17100003 renaldi zainal arifin
Private Sub cmdkeluar_Click()
Unload Me
End Sub
0 komentar:
Posting Komentar