strukture keputusan case

       Pernyataan Select Case mirip dengan pernyataan If...Then...Else, pada dasarnya keduanya gunanya sama, tetapi menggunakan Select Case akan mempermudah menulis dan mengelola kode. Ketika pernyataan If...Then...Else memiliki banyak blok kode, kode menjadi sulit dibaca dan diikuti.

Struktur Select Case akan menguji ekspresi tunggal yang dievaluasi sekali pada bagian atas dari struktur. Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok, blok pernyataan yang berhubungan akan dijalankan.

Berikut adalah sintaks pernyataan Select Case:

Select Case Ekspresi

Case Nilai1

BlokPernyataan1

Case Nilai2

BlokPernyataan2

...

Case Else

BlokPernyataanN

End Select

pada form1 kode list ting nya adalah
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        koder.Items.Add("ts001")
        kode.Items.Add("ts002")
        kode.Items.Add("vg001")
        kode.Items.Add("vg002")

    End Sub


pada combobox listtingnya adalah


Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim x As String
        Dim a As String
        x = Microsoft.VisualBasic.Left(kode.Text, 2)
        If x = "ts" Then
            merk.Text = "toshiba"
        ElseIf x = "vg" Then
            merk.Text = "v-gen"
        End If
        a = Microsoft.VisualBasic.Right(kode.Text, 3)
        If a = "001" Then
            nama.Text = "flashdish 4gb"
        Else
            nama.Text = "flashdish 2gb"

        End If

    End Sub
End Class



Maka hasilnya akan seperti ini