Tugas 2.1 Membuat Aplikasi Perhitungan Setelah Diskon 10% Menggunakan Tombol Hitung

Gambar Aplikasi Saat Runtime

Berikut Adalah Source Code Untuk Aplikasi Tersebut :

Private Sub Hitung_Click()    Txtdiskon = Val(Txthrgawal) * 0.1    Txttotal = Val(Txthrgawal) - Val(Txtdiskon)End Sub

-----------------------------------------------------------------------Private Sub Quit_Click()    EndEnd Sub
 -----------------------------------------------------------------------
Private Sub Ulang_Click()    Txthrgawal = ""    Txtdiskon = ""    Txttotal = ""End Sub

Related Posts:

Tweet