Latihan 3, Keputusan If (Minimarket Kita Semua)

Latihan 3:

Ubah tampilan program menjadi sbb:

Buat kode program pada tombol Proses yang jika diklik akan menampilkan Nilai Total Harga dengan menginput Jumlah terlebih dahulu.

Alur Program

     -  Pilih (klik) salah satu Kode Barang pada objek ComboBox, maka akan tampil Nama Barang dan Harga Barang.

          Tabel Pengujiannya sebagai berikut:

Kode Barang	Nama Barang	Harga Barang
PL01	Pulpen Pilot	1200
PL02	Pulpen Standar	1000
BK01	Buku AA 60 Lbr	3800
BK02	Buku Sinar Dunia 50 Lbr	3000

 


1. Buka Microsoft Visual Basic 2008, dan buat disain form sebagai berikut :

2. ubah disain form pada pengaturan properties, sebagai berikut :

NO	OBJEK	PROPERTIES	PENGATURAN
1	Label1	Text	Kode Barang :
2	Label2	Twxt	Nama Barang :
3	Labael3	Text	Harga Barang :
4	Label4	Text	Jumlah :
5	Laebel5	Text	Total Harga :
6	Button1	Text	Proses
		Name	Btnproses
7	Button2	Text	Bersih
		Name	btnbersih
8	Button3	Text	Tutup
		Name	Btntutup
9	ComboBox	Name	Cbokb
		items	PL01 PL01 BK01 BK01
10	Textbox1	Name	Txtnb
11	Textbox2	Name	Txthb
12	Textbox3	Name	Txtjlh
13	Textbox4	Name	Txth

  dan hasil sebagai berikut,

 3. Jika sudah selesai mendisain form nya, lalu masuk ke pengaturan program (kode), double klik pada ComboBox,
Pengaturan Program sebagai Berikut,

Public Class Form1

    Private Sub 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 STANDAR"

            txthb.Text = 1000

        ElseIf cbokb.Text = "BK01" Then

            txtnb.Text = "BUKU AA 60 LBR"

            txthb.Text = 3000

        Else

            txtnb.Text = "BUKU SINAR DUNIA 50 LBR"

            txthb.Text = 3000

        End If

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        txth.Text = Val(txtjlh.Text) * Val(txthb.Text)

    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click

        txth.Text = ""

        txthb.Text = ""

        txtjlh.Text = ""

        txtnb.Text = ""

    End Sub

    Private Sub btntutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntutup.Click

        End

    End Sub

End Class

4. jika suda ter'Input seluruh Programnya, maka klik PLAY pada menubar dan jalankan

5. Lalu klik arah panah kebawah pada ComboBox dan pilih salah satu Barang yang akan di Proses,

setelah itu, input berapapun nilai pada Jumlah dan klik Proses, maka Total Harga akan Muncul,

 Klik Bersih, maka seluruh data akan terhapus, dan klik Tutup maka program akan tertutup.

Selesai...