tugas 2.1 bahasa pemrogaman 1

Private Sub Hitung_Click()
Diskon = Val(HargaAwal) * 0.1
HargaAkhir = Val(HargaAwal) - Val(Diskon)
End Sub

Private Sub Ulangi_Click()
HargaAwal.SetFocus
HargaAwal = ""
Diskon = ""
HargaAkhir = ""
End Sub


Private Sub Keluar_Click()
End
End Sub

Komentar

Postingan populer dari blog ini

3.1