Aplikasi Penghitung Diskon Visual Basic (vb)

Bismillah

Pada artikel ini kita membahas bagaimana cara menghitung diskon dari suatu harga. Aplikasi ini bukan hanya bermanfaat untuk menghitung pemotongan harga produk, tetapi juga bisa digunakan untuk kepentingan bisnis lainnya seperti penghitungan komisi dari suatu transaksi. Yuk. Kita mulai

1) Siapkan komponen-komponen berikut ini

Nama	Type	Isi
Label1	Label	Harga
Label2	Label	Diskon(%)
Label3	Label	Total Harga
Label4	Label
Text1	TextBox
Text2	TextBox
Text3	TextBox
Command1	CommandButton	Hitung Diskon

2) Letakkan komponen-komponen diatas seperti gambar dibawah ini

3) Klik dua kali pada tombol "Hitung Diskon" kemudian salin skrip dibawah ini


Dim harga As Long, diskon As Long, totalharga As Long, totaldiskon As Long

Private Sub Command1_Click()
On Error Resume Next

harga = Text1.Text
diskon = Text2.Text
totaldiskon = harga / 100 * diskon
Text3.Text = totaldiskon
totalharga = harga - totaldiskon
Label4.Caption = totalharga

End Sub

#Penjelasan
Dim harga As Long dst berfungsi untuk membuat variabel dan tipe data yang dibutuhkan

on error resume next berfungsi untuk menjaga proses tetap berjalan walau terdapat kesalahan pengisian data

totaldiskon=harga/100*diskon adalah rumus dari mencari persenan
totalharga=harga-totaldiskon berfungsi untuk memberikan hasil dari harga yang sudah dikurangi persenan


4) Jalankan program

Program penghitung diskon berhasil diselesaikan. Jika sudah mengerti, Alhamdulilah. Jika belum, yuk bahas di komentar yang ada di bawah artikel ini. InsyaAllah pembahasan ini bermanfaat :)