Contoh Penggunaan Select Case dalam VB Net 2008

Oleh informasi

Bagikan :

Tweet

Pada kesempatan kali ini, saya akan berbagi mengenai Contoh Mudah Menggunakan Case Vb.Net - Sebuah pernyataan Select Case memungkinkan variabel yang akan diuji untuk kesetaraan terhadap daftar nilai. Setiap nilai disebut kasus, dan variabel yang sedang diaktifkan diperiksa untuk setiap Select Case. Select Case biasanya dipakai untuk alternatif Bentuk lain dari If, Else. Secara umum sintaks untuk pernyataan Select Case di VB.Net adalah sebagai berikut:

 Select [ Case ] expression

    [ Case expressionlist
        [ statements ] ]
    [ Case Else
        [ elsestatements ] ]
End Select

Keterangan

• expression : adalah ekspresi yang harus mengevaluasi ke salah satu tipe data dasar di VB.Net , yaitu , Boolean, Byte, Char, Date, Double, Decimal, Integer, Long, Object, SByte, Short, Single, String, UInteger, ULong, and UShort. 
• expressionlist : Daftar klausa ekspresi mewakili nilai-nilai yang sesuai untuk berekspresi . Beberapa klausul ekspresi dipisahkan dengan koma. 
• statements : pernyataan case yang berjalan jika pilih ekspresi yang sesuai dengan klausul dalam expressionlist. 
• elsestatements : pernyataan berikut Case Else yang berjalan jika pilih ekspresi tidak sesuai klausul apapun di expressionlist dari setiap Case statements.

Berikut adalah Contoh Program Sederhana Select Case di Vb.Net

• Pertama buka aplikasi Vb.Net lalu buatlah project baru kemudian Tambahkan form lalu seret komponen-komponen sesuai kebutuhan. lihat gambar berikut ini

Keterangan 

1. Nomor 1 adalah ComboBox ganti dengan "cmbkdbarang"
2. Nomor 2 adalah TextBox ganti dengan "txtnmbrg"
3. Nomor 3 adalah TextBox ganti dengan "txtharga"
4. Nomor 4 adalah TextBox ganti dengan "txtjumlah"
5. Nomor 5 adalah TextBox ganti dengan "txttotharga"

• Setelah Anda selesai mengganti nama nya kemudian klik dua kali pada form lalu masukan koding dibawah ini

      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmbkdbarang.Items.Add("01")
        cmbkdbarang.Items.Add("02")
        cmbkdbarang.Items.Add("03")
        cmbkdbarang.Items.Add("04")
        cmbkdbarang.Items.Add("05")
    End Sub")

• Kemudian pada Class Name pilih "cmbkdbarang" dan pada Methode Name pilih "SelectedIndexChanged". Lihat gambar dibawah ini

• Setelah anda memilih Methode dan class name, lalu ketikan coding di bawah ini tepat di event tersebut.

      Private Sub cmbkdbarang_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbkdbarang.SelectedIndexChanged
        Select Case cmbkdbarang.Text
            Case "01"
                txtnmbrg.Text = "Laptop"
                txtharga.Text = 2500000
            Case "02"
                txtnmbrg.Text = "Tablet"
                txtharga.Text = 1000000
            Case "03"
                txtnmbrg.Text = "Komputer"
                txtharga.Text = 3500000
            Case "04"
                txtnmbrg.Text = "RAM"
                txtharga.Text = 200000
            Case "05"
                txtnmbrg.Text = "Speaker"
                txtharga.Text = 450000
        End Select
    End Sub

• Setelah anda selesai menambahkan coding, sekarng Anda menuju ke Button Proses, Klik dua kali pada Button Proses tersebut. Kemudian masukan koding berikut ini

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If txtjumlah.Text = "" Then
            MsgBox("jumlah barang tidak boleh kosong")
        Else
            txttotharga.Text = Val(txtharga.Text) * Val(txtjumlah.Text)
        End If
    End Sub

• Nah selanjutnya kita menuju ke Button Hapus. Klik dua kali pada Button Hapus tersebut, lalu masukan coding dibawah ini

     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        txtharga.Text = ""
        txtjumlah.Text = ""
        txtnmbrg.Text = ""
        txttotharga.Text = ""
        cmbkdbarang.Text = "Pilih"
    End Sub

• Proses membuat orogram sederhana Select Case di Vb.Net telah selesai. Untuk membuktikannya silahkan anda running program dengan menekan tombol F5 pada keyboard. Dan jika anda berhasil maka akan muncul tampilan form seperti berikut ini

Demikian tutorial dari saya mengenai Contoh Mudah Menggunakan Case Vb.Net, Mudah-mudahan artikel tersebut memberikan manfaat dan berguna bagi semua orang. Dan jika Anda merasa memiliki sebuah pertanyaan, silahkan berkomentar dibawah ini. Terima Kasih

Tag : VBNET