Program Sederhana Menggunakan Fungsi Case Bersarang

Artikel ini akan membahas tentang Fungsi Case Bersarang dengan VB Net 2008
Pada postingan sebelumnya telah dibahas penggunaan if bersarang.
Nah, pada postingan kali ini kita akan membahas tentang fungsi Case bersarang.
Sama halnya dengan fungsi if, fungsi case juga digunakan untuk mengkondisikan sesuatu.
Mari kita bahas ke program menggunakan Visual Basic 2008.


Desain Form :

Coding Program :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        isimaskapai()

        isitujuan()

    End Sub

    Sub isimaskapai()

        maskapai.Items.Add("Garuda")

        maskapai.Items.Add("Lion")

        maskapai.Items.Add("Sriwijaya")

    End Sub

    Sub isitujuan()

        tujuan.Items.Add("Medan-Padang")

        tujuan.Items.Add("Medan-Jakarta")

        tujuan.Items.Add("Medan-Bali")

    End Sub

    Private Sub tujuan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tujuan.SelectedIndexChanged

        Select Case (maskapai.Text)

            Case "Garuda"

                Select Case (tujuan.Text)

                    Case "Medan-Padang"

                        harga.Text = 600000

                    Case "Medan-Jakarta"

                        harga.Text = 800000

                    Case "Medan-Bali"

                        harga.Text = 900000

                End Select

            Case "Lion"

                Select Case (tujuan.Text)

                    Case "Medan-Padang"

                        harga.Text = 390000

                    Case "Medan-Jakarta"

                        harga.Text = 630000

                    Case "Medan-Bali"

                        harga.Text = 780000

                End Select

            Case "Sriwijaya"

                Select Case (tujuan.Text)

                    Case "Medan-Padang"

                        harga.Text = 420000

                    Case "Medan-Jakarta"

                        harga.Text = 700000

                    Case "Medan-Bali"

                        harga.Text = 870000

                End Select

        End Select

    End Sub

    Private Sub maskapai_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maskapai.SelectedIndexChanged

        tujuan_SelectedIndexChanged(sender, e)

    End Sub

End Class

Jika dijalankan, maka akan seperti berikut :

Sekian untuk artikel kali ini tentang Visual Basic 2008 atau VB Net 2008 dengan Judul Program Sederhana Menggunakan Fungsi Case Bersarang.

Semoga bermanfaat..!! :-)
Salam Programmer..