1
 
2
I Public Class ProgramBelanja
3
I
4
Private Sub btnUlang_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUlang.Click 'Membersihkan isi Textbox
5
txtNama.Text =
6
txtHarga.Text =
7
txtJumlah.Text =
8
txtTotal.Text =
9
txtDiskon.Text =
10
txtBayar.Text =
11
txtBonus.Text =
12
txtNama.Focus()
13
End Sub
14
Private Sub btnHitung_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnHitung.Click 'Deklarasi Variabel
15
Dim Harga, Jumlah As Integer
16
Dim Total, Diskon, Bayar As Double
17
Dim Bonus As String
18
'Deklarasi Input Harga dan Jumlah
19
Harga
20
=
21
txtHarga.Text
22
Jumlah = txtJumlah. Text 'Perhitungan Total Harga Total = Harga * Jumlah 'Penentuan Diskon dan Bonus If Total>= 500000 Then
23
Diskon =
24
0.2 Total
25
Bonus = "Tas Pinggang" ElseIf Total >= 200000 Then Diskon 0.15 * Total
26
Bonus = "Payung"
27
ElseIf Total >= 100000 Then
28
Diskon =
29
Bonus
30
0.1* Total
31
"Kaos"
32
ElseIf Total >= 50000 Then
33
Else
34
Diskon = 0.05 * Total
35
Bonus = "Pena"
36
Diskon = 0
37
Bonus = "Tidak Ada"
38
End If
39
'Perhitungan Total Bayar
40
Bayar Total - Diskon
41
'Deklarasi Keluaran Total Harga, Diskon, Total Bayar, dan Bonus
42
txtTotal.Text = Total
43
txtDiskon.Text
44
Diskon
45
txtBayar.Text = Bayar
46
txtBonus.Text = Bonus
47
End Sub
48
Private Sub btnKeluar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnkeluar. Click
49
End
50
End Sub
51
End Class