Contoh Program Sederhana Menggunakan If Bersarang pada VB Net 2008

Fungsi if digunakan untuk mengkondisikan suatu keadaan. Fungsi if ada bermacam-macam sesuai dengan kondisi yang dibutuhkan, ada if tunggal, ganda/jamak, dan if bersarang.
Pada postingan ini, kita akan membahas penggunaan if bersarang ke dalam program sederhana menggunakan Visual Basic 2008.
If bersarang adalah gabungan dari fungsi if ganda/jamak. If bersarang mengkondisikan fungsi If dalam If.

Selanjutnya
mari kita bahas ke program.

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 AsSystem.EventArgs) Handles tujuan.SelectedIndexChanged

        If maskapai.Text = "Garuda" Then

            If tujuan.Text = "Medan-Padang" Then

                harga.Text = 600000

            ElseIf tujuan.Text = "Medan-Jakarta" Then

                harga.Text = 800000

            ElseIf tujuan.Text = "Medan-Bali" Then

                harga.Text = 1000000

            End If

        ElseIf maskapai.Text = "Lion" Then

            If tujuan.Text = "Medan-Padang" Then

                harga.Text = 500000

            ElseIf tujuan.Text = "Medan-Jakarta" Then

                harga.Text = 600000

            ElseIf tujuan.Text = "Medan-Bali" Then

                harga.Text = 900000

            End If

        ElseIf maskapai.Text = "Sriwijaya" Then

            If tujuan.Text = "Medan-Padang" Then

                harga.Text = 450000

            ElseIf tujuan.Text = "Medan-Jakarta" Then

                harga.Text = 600000

            ElseIf tujuan.Text = "Medan-Bali" Then

                harga.Text = 800000

            End If

        End If

    End Sub

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

        tujuan_SelectedIndexChanged(sender, e)

    End Sub

End Class

Ketika dijalankan maka akan tampak seperti berikut :
 

Sekian pembahasan artikel ini mengenai VB Net 2008, mari kita belajar VB Net
semoga bermanfaat..!!