Tabel penjualan menggunakan objek list view


1.Desain Awal


2.Pengaturan Properties
NO
OBJECT
PROPERTIES
PENGATURAN
1
Form 1
Text
Form1
2
Label1
Text
Label1
3
Label2
Text
No.Transaksi
4
Label3
Text
Kode Barang
5
Label4
Text
Merk
6
Label5
Text
Type
7
Label6
Text
Harga Satuan
8
Label7
Text
Jumlah
9
Label8
Text
Total Harga
10
Label9
Text
Diskon
11
Label10
Text
Total Bayar
12
ComboBox1
Name
CmbKB
13
TextBox1
Name
TxtNT
14
TextBox2
Name
TxtKB
15
TextBox3
Name
Txtmerk
16
TextBox4
Name
Txttype
17
TextBox5
Name
TxtHS
18
TextBox6
Name
Txtjumlah
19
TextBox7
Name
TxtTH
20
TextBox8
Name
Txtdiskon
21
TextBox9
Name
TxtTB
22
Button1
Text
Cari
23
Name
Btncari
24
Button2
Text
Hitung
25
Name
Btnhitung
26
Button3
Text
Simpan
27
Name
Btnsimpan
28
Button4
Text
Bersih
29
Name
Btnbersih
30
Button5
Text
Selesai
31
Name
BtnSelesai

3.Tampilan Setelah Pengaturan Properties 


4.Pemberian Perintah/Intruksi Program

   
1. Perintah pada form1

Public Class Form1
    Dim A As Integer

2.Perintah pada form1_load
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Cbokode.Items.Add("H001")
        Cbokode.Items.Add("H002")
        Cbokode.Items.Add("Y001")
        Cbokode.Items.Add("Y002")
End Sub
3.Perintah pada objek Button1 (Cari) :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Cbokode.Text = "H001" Then
            Txtmerk.Text = "Honda"
            Txttype.Text = "Supra Fit"
            Txthargasatuan.Text = 9000000
        ElseIf Cbokode.Text = "H002" Then
            Txtmerk.Text = "Honda"
            Txttype.Text = "Supra x"
            Txthargasatuan.Text = 11000000
        ElseIf Cbokode.Text = "Y001" Then
            Txtmerk.Text = "Yamaha"
            Txttype.Text = "Mio"
            Txthargasatuan.Text = 13000000
        ElseIf Cbokode.Text = "Y002" Then
            Txtmerk.Text = "Yamaha"
            Txttype.Text = "Jupiter"
            Txthargasatuan.Text = 12000000
        End If

End Sub

4.Perintah pada objek Button2 (Hitung) :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Txttotal.Text = Txtjumlah.Text * Txthargasatuan.Text

        If Txttype.Text = "Supra Fit" And Txtjumlah.Text > 5 Then
            Txtdiskon.Text = 5 / 100 * Txttotal.Text
        ElseIf Txttype.Text = "Mio" And Txtjumlah.Text > 5 Then
            Txtdiskon.Text = 10 / 100 * Txttotal.Text
        Else
            Txtdiskon.Text = 0
        End If
        Txtbayar.Text = Txttotal.Text - Txtdiskon.Text
End Sub

5.Perintah pada objek Button3 (Simpan) :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListView1.Items.Add(Txttransaksi.Text)
        ListView1.Items(A).SubItems.Add(Cbokode.Text)
        ListView1.Items(A).SubItems.Add(Txtmerk.Text)
        ListView1.Items(A).SubItems.Add(Txttype.Text)
        ListView1.Items(A).SubItems.Add(Txthargasatuan.Text)
        ListView1.Items(A).SubItems.Add(Txtjumlah.Text)
        ListView1.Items(A).SubItems.Add(Txttotal.Text)
        ListView1.Items(A).SubItems.Add(Txtdiskon.Text)
        ListView1.Items(A).SubItems.Add(Txtbayar.Text)
        A = A + 1
 End Sub
6.Perintah pada objek Button4 (Bersih) :

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Txtbayar.Text = ""
        Txtdiskon.Text = ""
        Txtjumlah.Text = ""
        Txtmerk.Text = ""
        Txthargasatuan.Text = ""
        Txttotal.Text = ""
        Txttransaksi.Text = ""
        Txttype.Text = ""
        Cbokode.Text = ""
    End Sub
7.Perintah pada objek Button5 (Selesai) :
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        End
End Sub

Tampilan saat program dijalankan :
1.Isi terlebih dahulu no.transaksi


2.Pilih kode barang kemudian klik button cari ,maka Merk,Type,dan Harga Satuan akan muncul.


3.Isi textbox jumlah dan klik button hitung maka total harga ,diskon,dan total bayar akan muncul.



4.Jika ingin menyimpan data yang sudah kita input dan hitung tadi ,klik button simpan ,maka akan muncul data tadi di listview dibawah.



5.Jika ingin menambah data lagi ,bersihkan data yang kita input tadi dengan mengklik button bersih dan input kembali datanya.



6.Dan jika ingin mengeluarkan program klik button selesai,maka otomatis program akan keluar.










Komentar

Posting Komentar