PERHITUNGAN HARGA SETELAH DISKON 10%


Private Sub cmdhitung_Click()
Dim A, B, C As Double
TxtB.txt = Val(TxtA.txt) * 0.1
TxtC.txt = Val(TxtA.txt) - Val(TxtB.txt)
End Sub
Private Sub cmdquit_Click()
End If
End Sub
Private Sub cmdulangi_Click()
TxtA = ""
TxtB = ""
TxtC = ""

End Sub

Komentar

Postingan populer dari blog ini

MAHASISWA STMIK PRINGSEWU SAMBANGI PT PRIMARINDO ASIA INFRASTRUCTURE TBK

KPU PRINGSEWU KUNJUNGI PEMILIHAN PRESIDEN MAHASISWA