|
No.
|
Kontrol
|
Properties
|
|
1
|
Label1
|
Text = Kode Barang
|
|
2
|
Label2
|
Text = Nama Barang
|
|
3
|
Label3
|
Text = Harga
|
|
4
|
Label4
|
Text = Kuantitas
|
|
5
|
Label5
|
Text = Sub Total
|
|
6
|
Label6
|
Text = Diskon
|
|
7
|
Label7
|
Text = Grand Total
|
|
8
|
Label8
|
Text = Bayar
|
|
9
|
Label9
|
Text = Kembalian
|
|
10
|
Combobox1
|
Name = cbKode
Items = B001
B002
B003
|
|
11
|
Textbox1
|
Name = txtNama
Readonly=true
|
|
12
|
Textbox2
|
Name = txtHarga
Readonly=true
|
|
13
|
Textbox3
|
Name = txtKts
|
|
14
|
Textbox4
|
Name = txtSTotal
Readonly=true
|
|
15
|
Textbox5
|
Name = txtDiskon
Readonly=true
|
|
16
|
Textbox6
|
Name = txtGTotal
Readonly=true
|
|
17
|
Textbox7
|
Name = txtBayar
|
|
18
|
Textbox8
|
Name = txtKembalian
Readonly=true
|
|
19
|
Button1
|
Name = btnHitung
Text = Hitung
|
Public Class Form1
Private Sub
cbKode_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbKode.SelectedIndexChanged
'memunculkan Nama Barang dan
Harga
If cbKode.Text = "B001" Then
txtNama.Text = "Spidol"
txtHarga.Text = 23000
ElseIf cbKode.Text = "B002" Then
txtNama.Text = "Buku"
txtHarga.Text = 5000
ElseIf cbKode.Text = "B003" Then
txtNama.Text = "Pulpen"
txtHarga.Text = 3500
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Pada saat klik tombol
hitung, otomatis hitung subtotal, diskon, dan grandtotal.
txtSTotal.Text = Val(txtHarga.Text) * Val(txtKts.Text)
If Val(txtSTotal.Text) <=
50000 Then
txtDiskon.Text = 0
ElseIf Val(txtSTotal.Text) >=
50001 AndAlso Val(txtSTotal.Text) <=
100000 Then
txtDiskon.Text = Val(txtSTotal.Text) * 2 / 100
ElseIf Val(txtSTotal.Text) >=
100001 Then
txtDiskon.Text = Val(txtSTotal.Text) * 5 / 100
End If
txtGTotal.Text
= Val(txtSTotal.Text) - Val(txtDiskon.Text)
End Sub
Private Sub txtBayar_TextChanged(sender As Object, e As EventArgs) Handles txtBayar.TextChanged
If Val(txtBayar.Text) >=
Val(txtGTotal.Text) Then
txtKembalian.Text = Val(txtBayar.Text) - Val(txtGTotal.Text)
Else
txtKembalian.Clear()
End If
End Sub
End Class
0 komentar:
Posting Komentar