PENJUALAN BARNG

frm penjualn brang

jika pembeli adalah MEMBER


KODE YANG DIGUNAKAN

Public Class frmListBoxPenjualanD3
Dim PilihanBarang, MEMBER As String
Dim Diskon, Total, TotalSetelahDiskon, dibayar, kembali, harga, PPN, totSetelahPPN, qty As Single
Sub KosongkanForm()
Me.ListBox1.Focus()
Me.txtNamaBarang.Text = ""
Me.txtHarga.Text = 0
Me.txtJmlBeli.Text = 0
Me.txtTotal.Text = 0
Me.txtDiskon.Text = 0
Me.txtTotalSetelahDiskon.Text = 0
txtPPN.Text = 0
txtTotalSetelahPPN.Text = 0
cmbMember.Text = ""
dibayar = 0
kembali = 0
txtdibayar.Text = 0
txtKembalian.Text = 0
MEMBER = ""
Diskon = 0
Total = 0
TotalSetelahDiskon = 0
harga = 0
PPN = 0
totSetelahPPN = 0
qty = 0
PilihanBarang = 0
lblinfo.Text = "Total :"
lblTampilan.Text = FormatCurrency(0)
End Sub

'FUNCTION UNTUK MENAMPILKAN HARGA PER BARANG

Sub TampilHarga() PilihanBarang = Me.ListBox1.SelectedItem Select Case PilihanBarang Case Is = "Monitor SPC 17" harga = 1090000 Case Is = "Monitor LG 17" harga = 1115000 Case Is = "Monitor AOC 17" harga = 1154000 Case Is = "Monitor Samsung 17" harga = 1190000 Case Is = "Monitor Phillips 17" harga = 1211000 End Select txtHarga.Text = FormatCurrency(harga) txtNamaBarang.Text = PilihanBarang End Sub
'prosedur HITUNG akan dipanggil pada waktu user menekan Enter pada textbox txtJmlBeli
Sub Hitung()
qty = Val(txtJmlBeli.Text)
MEMBER = cmbMember.Text
Total = qty * harga
If MEMBER = "YA" Then
Diskon = Total * 0.1
End If
TotalSetelahDiskon = Total - Diskon
PPN = TotalSetelahDiskon * 0.05
totSetelahPPN = TotalSetelahDiskon + PPN
txtTotal.Text = FormatCurrency(Total)
txtDiskon.Text = FormatCurrency(Diskon)
txtTotalSetelahDiskon.Text = FormatCurrency(TotalSetelahDiskon)
txtPPN.Text = FormatCurrency(PPN)
txtTotalSetelahPPN.Text = FormatCurrency(totSetelahPPN)
lblTampilan.Text = FormatCurrency(totSetelahPPN)
End Sub

Private Sub frmListBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'MEMASUKKAN ITEM KE LISTBOX Me.ListBox1.Items.Add("Monitor SPC 17") Me.ListBox1.Items.Add("Monitor LG 17") Me.ListBox1.Items.Add("Monitor AOC 17") Me.ListBox1.Items.Add("Monitor Samsung 17") Me.ListBox1.Items.Add("Monitor Phillips 17") 'PANGGIL FUNCTION MENGOSONGKAN FORM Call KosongkanForm()
End Sub

Private Sub ListBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyUp
If e.KeyCode = Keys.F1 Then
txtJmlBeli.Focus()
End If
End Sub

Private Sub listMenu_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles ListBox1.SelectedIndexChanged Call TampilHarga() 'MEM-BLOK SELURUH ISI TEXTBOX Me.txtJmlBeli.SelectionLength = Len(Me.txtJmlBeli.Text) End Sub

'JIKA MENEKAN TOMBOL ENTER PADA TXTJMBELI,
'MAKA MEMANGGIL PROSES HITUNG DAN MELETAKKAN KURSOR PADA TOMBOL KOSONG

Private Sub txtJmlBeli_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtJmlBeli.KeyUp
If (e.KeyCode) = Keys.Enter Then
Call Hitung()
txtdibayar.Focus()
End If
End Sub

Private Sub btnKosong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKosong.Click Call KosongkanForm() End Sub
Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
Close()
End Sub

Private Sub txtdibayar_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtdibayar.KeyUp If e.KeyCode = Keys.Enter Then dibayar = Val(txtdibayar.Text) kembali = dibayar - totSetelahPPN If dibayar >= totSetelahPPN Then txtKembalian.Text = FormatCurrency(kembali) txtdibayar.Text = FormatCurrency(dibayar) lblinfo.Text = "Kembali :" lblTampilan.Text = FormatCurrency(kembali) Else MsgBox("Uang bayar kurang = Rp. " & FormatCurrency(System.Math.Abs(kembali)), vbCritical, "PERINGATAN") End If ElseIf e.KeyCode = Keys.F1 Then KosongkanForm()
End If
End Sub

End Class