Contoh Program Sederhana Menggunakan If Bersarang pada VB Net 2008

Artikel ini akan membahas tentang VB Net 2008 dengan judul 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 As System.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 As System.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..!! :)