Selasa, 05 Februari 2013

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..!! :) 

3 komentar:
Write komentar
  1. Nice article pak san

    kunjungi juga
    http://www.mahasiswasisteminformasi.com

    BalasHapus
  2. Komentar ini telah dihapus oleh pengarang.

    BalasHapus