Tugas 2 Program 1 BP1



P1


Private Sub cmdHitung_Click()
txtdiskon = Val(txtharga) * 0.15
Txthak = Val(txtharga) - Val(txtdiskon)
End Sub

Private Sub cmdQuit_Click()
End
End Sub

Private Sub cmdUlangi_Click()
txtharga = ""
txtdiskon = ""
Txthak = ""
txtharga.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