» » » » » Lanjutan Percabangan pada Visual Basic 2010

Lanjutan Percabangan pada Visual Basic 2010

, , ,

Pada post kali ini penulis akan share lanjutan materi tentang percabangan di visual basic
materi sebelumnya ada disini
  1. Struktur If - Then
  2. Struktur If - Then - Else 
  3. Nested If (yang akan di bahas di post ini)
  4. Struktuf IIf
  5. Struktur Select - Case
Percabangan (Nested If)
• Pada kondisi tertentu di dalam struktur If - Then - Else bisa ditempatkan struktur If - Then atau If - Then - Else yang lain.
• Bentuk ini disebut dengan If Tersarang atau Nested If.
If (kondisi 1) Then
    If (kondisi 2) Then
            ...Ekspresi 1 ...
     Else                                             
            ... Ekspresi 2 ...
    End If
End If
Atau

If (kondisi 1) Then
     If (kondisi 2) Then
          ...Ekspresi 1...
     Else
          ...Ekspresi 2...
     End If
Else
     If (kondisi 3) Then
          ...Ekspresi 3...
Else
          ...Ekspresi 4...
      End If
End If

• Penulisan struktur Nested If dapat digabungkan antara Else dengan If untuk kondisi 3 dan dengan membuang End If, seperti berikut ini:
• - kondisi 1 : Berisi perbandingan antara satu variabel/konstanta dengan variabel/konstanta lain dengan menggunakan tanda <, >, =, <> dari suatu keadaan yang akan menghasilkan nilai Benar atau Salah.
• -  kondisi 2 : Kondisi 2 ini akan dikerjakan bila nilai kondisi 1 adalah Benar (terpenuhi).
• -  kondisi 3 : Kondisi 3 ini akan dikerjakan bila nilai kondisi 1 adalah Salah (tidak terpenuhi).
• - Ekspresi 1 : Rangkaian kode program (blok program) yang akan dijalankan jika kondisi 1 dan kondisi 2 bernilai Benar (memenuhi syarat).
• - Ekspresi 2 : Rangkaian kode program (blok program) yang akan dijalankan jika kondisi 1 bernilai Benar (memenuhi syarat) dan kondisi 2 bernilai Salah (tidak memenuhi syarat).
• - Ekspresi 3 : Rangkaian kode program (blok program) yang akan dijalankan jika kondisi 1 bernilai Salah (tidak memenuhi syarat) dan kondisi 3 bernilai Benar (memenuhi syarat).
• - Ekspresi 4 : Rangkaian kode program (blok program) yang akan dijalankan jika kondisi 1 bernilai Salah (tidak memenuhi syarat) dan kondisi 3 bernilai Salah (tidak memenuhi syarat).


  • Contoh Latihan 2
Buatlah form seperti dibawah ini
Source Code : 

Public Class Pertemuan_2_Latihan_2_Teori

    Private Sub Pertemuan_2_Latihan_2_Teori_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "salmantech12.blogspot.com"
        cbmaskapai.Items.Add("Garuda")
        cbmaskapai.Items.Add("Lion")
        cbmaskapai.Items.Add("Sriwijaya")
        cbtujuan.Items.Add("Medan-Padang")
        cbtujuan.Items.Add("Medan-Jakarta")
        cbtujuan.Items.Add("Medan-Bali")
    End Sub

    Private Sub cbtujuan_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbtujuan.SelectedIndexChanged
        If cbmaskapai.Text = "Garuda" Then
            If cbtujuan.Text = "Medan-Padang" Then
                tbharga.Text = 500000
            ElseIf cbtujuan.Text = "Medan-Jakarta" Then
                tbharga.Text = 1000000
            ElseIf cbtujuan.Text = "Medan-Bali" Then
                tbharga.Text = 1500000
            End If
        ElseIf cbmaskapai.Text = "Lion" Then
            If cbtujuan.Text = "Medan-Padang" Then
                tbharga.Text = 300000
            ElseIf cbtujuan.Text = "Medan-Jakarta" Then
                tbharga.Text = 600000
            ElseIf cbtujuan.Text = "Medan-Bali" Then
                tbharga.Text = 800000
            End If
        ElseIf cbmaskapai.Text = "Sriwijaya" Then
            If cbtujuan.Text = "Medan-Padang" Then
                tbharga.Text = 400000
            ElseIf cbtujuan.Text = "Medan-Jakarta" Then
                tbharga.Text = 800000
            ElseIf cbtujuan.Text = "Medan-Bali" Then
                tbharga.Text = 1000000
            End If
        End If
    End Sub

    Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click
        cbmaskapai.SelectedIndex = -1
        cbtujuan.SelectedIndex = -1
        tbharga.Clear()
    End Sub

    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech12.blogspot.com")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub Pertemuan_2_Latihan_2_Teori_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech12.blogspot.com")
        If pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub

End Class

Berikut hasil programnya
Sekian untuk post ini semoga bermanfaat
Untuk Contoh Kasus nya ada di post selanjutnya 
どうもありがとうございました…!






Share post ini ke :

Facebook WhatsApp Twitter LINE Linkedin

Subscribe to receive free email updates:

0 Response to "Lanjutan Percabangan pada Visual Basic 2010"

Post a Comment

Subscribe to: Post Comments (Atom)