Cara Membuat Form data Barang Dalam Visual Basic

1. Desain awal program

2. Atur Properties Masing-masing Objek sebagai berikut:

NO.	OBJEK	PROPERTIES	PENGATURAN
1	Form1	Text	-
2	Label1	Text	Form Data Barang
		Bold	True
		FontSize	10
3	Label2	Text	No. Transaksi
4	Label3	Text	Kode Barang
5	Label4	Text	Merk
5	Label5	Text	Type
6	Label6	Text	Harga Satuan
7	Label7	Text	Jumlah
8	Label8	Text	Total Harga
9	Label9	Text	Diskon
10	Label10	Text	Total Bayar
11	Button1	Text	Cari
		Name	Btncari
12	Button2	Text	Simpan
		Name	BtnSimpan
13	Button3	Text	Bersih
		Name	BtnBersih
13	Button4	Text	Selesai
		Name	Btnselesai
14	Button5	Text	Hitung
		Name	BtnHitung
16	CheckBox1	Name	CboKode
17	Textbox1	Name	Txttransaksi
18	Textbox2	Name	TxtMerk
19	Textbox3	Name	TxtType
20	Textbox4	Name	TxtSatuan
21	Textbox5	Name	TxtJumlah
22	Textbox6	Name	TxtTotal
23	Textbox7	Name	TxtDiskon
24	Textbox8	Name	TxtBayar
25	ListView1	Name	ListView1

3. Tampilan program setelah pengaturan properties sebagai berikut:

4. Pemberian Perintah/Instruksi pada Program

     Alur Program:

a.    Masukkan No Transaksi Data Barang di label1 (No Transaksi) pada Textbox1(Txttransaksi)

b.    Pilih Kode Barang yang ingin kita cari di label2 (Kode Barang) pada Checkbox1 (Cbokode) , setelah itu klik tombol di Button1 (Cari) maka akan menampilkan hasil data dari kode yang kita cari tersebut berdasarkan sesuai dari Perintah Program.

c.    Masukkan jumlah barang dan Total Harga Barang yang kita beli pada label7 (Jumlah) pada Textbox5 (TxtJumlah) dan di label8 (Total Harga) pada Textbox6 (TxtTotal), setelah itu klik Button5 (Hitung) untuk menghitung Jumlah Barang dan Total Barang yang kita beli, jika pembeli ingin mendapatkan diskon dari barang yang ia beli, maka pembeli harus mengikuti syarat dan ketentuan untuk mendapatkan diskon sesuai dari Perintah Program yang telah di buat, dan hasil hitung akan keluar di label10 (Total Bayar) pada Textbox8 (TxtBayar).

d.    Setelah diketahui Form Data Barang tersebut, maka klik Button2 (Simpan) untuk menyimpan data tersebut ke dalam List View yang sudah tersedia.

e.    Jika diklik tombol Button3 (Bersih), maka:

Ø  Nilai yang terdapat pada CheckBox1 (CboKode) akan hilang.

Ø  Nilai yang terdapat pada Textbox1 (Txttransaksi) akan hilang.

Ø  Nilai yang terdapat pada Textbox2 (TxtMerk) akan hilang.

Ø  Nilai yang terdapat pada Textbox3 (TxtType) akan hilang.

Ø  Nilai yang terdapat pada Textbox4 (TxtSatuan) akan hilang.

Ø  Nilai yang terdapat pada Textbox5 (TxtJumlah) akan hilang.

Ø  Nilai yang terdapat pada Textbox6 (TxtHarga) akan hilang.

Ø  Nilai yang terdapat pada Textbox7 (TxtDiskon) akan hilang.

Ø  Nilai yang terdapat pada Textbox8 (TxtBayar) akan hilang.

     f. Jika diklik tombol Button4(Selesai), maka program akan ditutup (keluar dari program)

Perintah Program

PrivateSub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        CboKode.Items.Add("H001")

        CboKode.Items.Add("H002")

        CboKode.Items.Add("Y001")

        CboKode.Items.Add("Y002")

EndSub

PrivateSub Btncari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btncari.Click

If CboKode.Text = "H001"Then

            TxtMerk.Text = "Honda"

            TxtType.Text = "Supra Fit"

            TxtSatuan.Text = 9000000

ElseIf CboKode.Text = "H002"Then

            TxtMerk.Text = "Honda"

            TxtType.Text = "Supra X"

            TxtSatuan.Text = 11000000

ElseIf CboKode.Text = "Y001"Then

            TxtMerk.Text = "Yamaha"

            TxtType.Text = "Mio"

            TxtSatuan.Text = 13000000

Else

            TxtMerk.Text = "Yamaha"

            TxtType.Text = "Jupiter"

            TxtSatuan.Text = 12000000

EndIf

EndSub

PrivateSub Btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhitung.Click

        TxtTotal.Text = TxtJumlah.Text * TxtSatuan.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

EndIf

        TxtBayar.Text = TxtTotal.Text - TxtDiskon.Text

EndSub

PrivateSub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.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(TxtSatuan.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

EndSub

PrivateSub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click

        TxtBayar.Text = " "

        TxtDiskon.Text = " "

        TxtJumlah.Text = " "

        TxtMerk.Text = " "

        TxtSatuan.Text = " "

        TxtTotal.Text = " "

        TxtTransaksi.Text = " "

        TxtType.Text = " "

        CboKode.Text = " "

EndSub

PrivateSub Btnselesai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnselesai.Click

End

EndSub

Tampilan Program setelah dijalankan berdasarkan kode dan syarat serta ketentuan sebagai berikut :