TUGAS 2.1 (Perhitungan Harga Diskon 10%)



Private Sub ComHitung_Click()
diskon = Val(hargaawal) * 0.1
hargaakhir = Val(hargaawal) - Val(diskon)
End Sub

Private Sub ComUlangi_Click()
hargaawal.SetFocus
hargaawal = ""
diskon = ""
hargaakhir = ""
End Sub

Private Sub ComQuit_Click()
End
End Sub

0 Response to "TUGAS 2.1 (Perhitungan Harga Diskon 10%)"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel