Rabu, 22 November 2017

Tugas 2 Program 1 Bp1

 
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


Tidak ada komentar:

Posting Komentar