Program 1 Perhitungan Harga Setelah Diskon 15% Menggunakan Manual
Private Sub Cmd1_Click()
Txt2 = Val(Txt1) * 0.15
Txt3 = Val(Txt1) - Val(Txt2)
End Sub
Private Sub Cmd2_Click()
Txt1 = ""
Txt2 = ""
Txt3 = ""
End Sub
Private Sub Cmd3_Click()
Unload Me
End Sub
Komentar
Posting Komentar