Program Membuat Kode Barang Dengan Menggunakan Combo Box 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	Kode Barang
3	Label2	Text	Nama Barang
4	Label3	Text	Harga Barang
5	Combobox1	Name	CboKB
6	Textbox1	Name	TxtNB
7	Textbox2	Name	TxtHB
8	Button1	Text	Tutup
		Name	Btntutup

3.Tampilan program setelah pengaturan properties sebagai berikut:

4. Pemberian Perintah/Instruksi pada Program

     Alur Program:

a.    Pilih items yang terdapat di Label1 (Kode Barang) pada Combobox1 (CboKB).

b.    Jika kita pilih salah satu items yang terdapat pada Label1(Kode Barang) pada Combobox1 (CboKB) maka akan muncul di label2 (Nama Barang) pada Textbox1 (TxtNB) dan di Label3 (Harga Barang) pada Textbox2(TxtHB) sesuai dengan items yang kita pilih berdasarkan pada perintah program.

c.    Jika diklik tombol Button3(Tutup), maka program akan ditutup (keluar dari program).

Perintah Program :

PrivateSub Cbokb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cbokb.SelectedIndexChanged

If Cbokb.Text = "PL01"Then

            TxtNB.Text = "Pulpen Pilot"

            TxtHB.Text = 1200

ElseIf Cbokb.Text = "PL02"Then

            TxtNB.Text = "Pulpen Standart"

            TxtHB.Text = 1000

ElseIf Cbokb.Text = "BK01"Then

            TxtNB.Text = "Buku AA 60 LBR"

            TxtHB.Text = 3000

Else

            TxtNB.Text = "Buku Standart Dunia 50 LBR"

            TxtHB.Text = 3000

EndIf

EndSub

PrivateSub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtHB.TextChanged

EndSub

PrivateSub Btntutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntutup.Click

End

EndSub

EndClass

Tampilan Program setelah dijalankan berdasarkan items diperoleh sebagai berikut : 

Untuk menjalankan program, klik tombol Start Debugging   

 atau tekan tombol F5 pada keyboard.

Untuk menutup program, klik tombol Stop Debugging