Case

Case adalah event VB yang digunakan dalam pemilihan stateman (decition) seperti halnya fungsi IF.Tetapi ada perbedaan IF dengan case yaitu pada efisiensi dan efek pemogramannya. Pada if penetapan atau pemilihan stateman langsung pada tujuan yang diinginkan tetapi rumit di pengetikan sedangkan case akan menentukan statement apa bila seluruh statement teridentifikasi sehingga waktu yang dibutuhkan relatif lama dibandingkan IF.

            Dibawah ini kita menggunakan case sebagai program utama dalam decition, mari kita kerjakan bersama :

A.      Langkah pertama kita bangun disain sederhan pada form kita namakanlah penentuan harga barang.

B.      Masukkan pada form tools yang dibutuhkan yaitu 4 label,5 text box dan 1 button dimana 4 label kita ubah text dengan nama kode barang,nama barang,jumlah dan Total

C.      Susunlah text box disebelah label kemudian kita ubah name text boxt menjadi inisial agar dapat dipanggil dalam pemograman, buat saja sesuai dengan lebel agar kita tidak bingung.

D.     Tempatkan 1 button dimana anda inginkan sebagai atribut untuk menghapus semua text yang ada pada text box

E.      Disain sederhana telah siap mari kita mulai mengerjakan perintahnya

1.      Ketikkan program ini pada main program text box kode barang dengan mengkliknya 2x

Select Case kode.Text

            Case "A01"

                nama.Text = "Kulkas"

                harga.Text = 2400000

            Case "A02"

                nama.Text = "Kipas angin"

                harga.Text = 840000

            Case "A03"

                nama.Text = "Televisi"

                harga.Text = 3000000

            case ???

               lanjutkan case berikutnya sesuai keinginan anda berapa kode yang ingin anda masukkan

        End Select

Apa bila anda masukkan kode yang tertera pada program anda maka akan otomatis akan muncul pada textbox nama dan harga yang anda sertakan pada pemilihan dapat kita umpamakan “Ketik pada kode barang,apabila kode barang A01 maka nama barang = kulkas dan harga barang 2400000”

2.      Disini kita tambahkan total harga demana apa bila kita ketikkan di pada textbox jumlah maka harga dikalikan dengan text yang tertera dijumlah seperti sebagai berikut :

If e.KeyChar = Chr(13) Then

            total.Text = harga.Text * jlh.Text

        End If

Sebelumnya kita ubah terlebih dahulu nethot name yang berada dipojok atas program ubah menjadi keypress dimana agar saat kita tekan enter maka akan muncul hasil di textbox total.

3.      Sekarang kita memberikan perintah untuk button tools agar text pada semua textbox terhapus. Ketik program dibawah ini :

  kode.Text = ""

        harga.Text = ""

        nama.Text = ""

        total.Text = ""

        jlh.Text = ""

Penjelasan program diatas ialah kita mengubah atau mengosongkan text pada textbox-textbok yang ada. Program selesai mari kita jalankan program dan lihat hasilnya seperti dibawah ini :

Demikian artikel ini saya perbuat mudah-mudahan anda dapat memahami dan artikel ini berguna untuk anda