Soal :
Beli 5 item barang, diskonnya 8%
Beli 6-10 item barang, diskonnya 10 %
Beli 11-15 item barang, diskonnya 12%
Beli diatas 16 item barang, diskonnya 19%
Beli dibawah 5 item, tidak dapat diskon.
Hitung diskonnya dan harga total setelah diskon
Buatlah pada Form sebagai berikut:
Selanjutnya masukkan coding -nya dengan klik dua kali pada Button1 (TOTAL PEMBELIAN) sebagai berikut:
Public Class Diskon
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim diskon, total As Double
If TextBox2.Text < 5 Then
total = (TextBox2.Text) * (TextBox1.Text)
TextBox3.Text = total
ElseIf TextBox2.Text = 5 Then
total = Val(TextBox1.Text) * (TextBox2.Text)
Diskon = total * 0.08
TextBox3.Text = total - diskon
ElseIf TextBox2.Text >= 6 And TextBox2.Text <= 10 Then
total = Val(TextBox2.Text) * (TextBox1.Text)
diskon = total * 0.1
TextBox3.Text = total - diskon
ElseIf TextBox2.Text >= 11 And TextBox2.Text <= 15 Then
total = Val(TextBox2.Text) * (TextBox1.Text)
diskon = total * 0.12
TextBox3.Text = total - diskon
ElseIf TextBox2.Text >= 16 Then
total = Val(TextBox2.Text) * (TextBox1.Text)
diskon = total * 0.19
TextBox3.Text = total - diskon
End If
End Sub
Private Sub Diskon_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
SELAMAT MENCOBA!!
Coding by Mupti Maulana Bahri
ConversionConversion EmoticonEmoticon