Selasa, 05 Februari 2013

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..

Tidak ada komentar:
Write komentar