Pages

Selasa, 23 April 2013

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 :)

0 komentar:

Posting Komentar

Catatan: Hanya anggota dari blog ini yang dapat mengirim komentar.