Struktur percabangan / Seleksi

Struktur Seleksi

        Menyeleksi kondisi atau pernyataan kondisi yang menganalisa suatu keadaan dan mengambil keputusan berdasarkan pada hasil analisa itu. Hingga tercapai sesuai dengan kondisi yang di buat.

Struktur If - Else

• Suatu ekspresi akan di kerjakan bila kondisinya terpenuhi.
• Tetapi jika kondisi tidak terpenuhi, maka ekspresi didalam struktur If tidak akan di jalankan dan blok If akan dilompati serta program akan melakukan tindakan selanjutnya. 

If ( Kondisi ) Then
… Ekspresi …
End If

Keterangan:

• Kondisi:  

         Berisi perbandingan antara satu variable/konstanta dengan variable/konstanta lain dengan mengunakan operator <, >, =, <>, dari suatu keadaan yang menghasilkan nilai “Benar” atau “Salah”

• Ekspresi:

Rangkaian kode program (blok program) yang dijalankan, jika kondisinya bernilai benar (memenuhi syarat).


Contoh:
Private Sub Command1_Click()
   Dim NilaiAkhir As Integer
   NilaiAkhir = InputBox("Ketik Nilai Akhir")
   If (NilaiAkhir) >= 55 Then
MsgBox("Keterangan: LULUS", MsgBoxStyle.OkOnly, "Keterangan")
   End If
End Sub

Struktur If – Then - Else 

       Struktur percabangan dimana suatu ekspresi akan dikerjakan apabila kondisinya terpenuhi tetapi jika kondisinya tidak terpenuhi, maka ekspresi yang lainnya akan dikerjakan.

If ( Kondisi ) Then                        
… Ekspresi 1 …                                

Else

… Ekspresi 2 …

End If

• Kondisi: 

Berisi perbandingan antara satu variable/konstanta dengan variable/konstanta lain dengan mengunakan operator <, >, =, <>, dari suatu keadaan yang menghasilkan nilai “Benar” atau “Salah”

• Ekspresi 1 : 

Rangkaian kode program (blok program) yang dijalankan, jika kondisinya bernilai benar (memenuhi syarat).

• Ekspresi 2 : 

Rangkaian kode program (blok program) yang dijalankan, jika kondisinya bernilai Salah (tidak memenuhi syarat).


Contoh:

Private Sub Command1_Click()
     Dim NilaiAkhir As Integer
     NilaiAkhir = InputBox("Ketik Nilai Akhir")
     If (NilaiAkhir) >= 55 Then
MsgBox("Keterangan: LULUS", MsgBoxStyle.OkOnly, "Keterangan")
     Else
MsgBox("Keterangan: Gagal", MsgBoxStyle.OkOnly, "Keterangan")
     End If
End Sub

If Tersarang

       Pada kondisi tertentu didalam struktur If – Then – Else, bisa di tempatkan struktur If – Then atau If – Then – Else yang lain.
Bentuk seperti ini disebut If Tersarang atau Nested IF

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


Private Sub Form_Click()
    Dim Jenis, Status As String
    Jenis = InputBox("Jenis Kelamin?")
    Status = InputBox("Sudah menikah?")
    Print "Jenis Kelamin: " & Jenis
    Print "Sudah Menikah: " & Status
    If UCase(Jenis) = "PRIA" Then
            If UCase(Status) = "SUDAH" Then
                MsgBox("Ayah", MsgBoxStyle.OkOnly, "Keterangan")
            Else
                MsgBox("Jejaka", MsgBoxStyle.OkOnly, "Keterangan")
            End If
        Else
            If UCase(Status) = "SUDAH" Then
                MsgBox("I b u", MsgBoxStyle.OkOnly, "Keterangan")
            Else
                MsgBox("Gadis", MsgBoxStyle.OkOnly, "Keterangan")
            End If
        End If
End Sub

Struktur Select Case 

      Struktur Select Case digunakan untuk menjalankan satu blok perintah yang jumlahnya bayak atau bertingkat-tingkat.

Select Case tes_kondisi
Case kondisi 1
… Ekspresi 1 …
Case kondisi 2
… Ekspresi 2 …
Case Else
… Ekspresi 3 …
End Select

• Ekspresi 1 : 

Rangkaian kode program (blok program) yang akan dijalankan, jika kondisi ekspresi 1 benar (memenuhi syarat).

• Ekspresi 2 : 

Rangkaian kode program (blok program) yang akan dijalankan, jika kondisi ekspresi 2 benar (memenuhi syarat).

• Ekspresi 3 : 

Rangkaian kode program (blok program) yang akan dijalankan, jika kondisi tidak ada yang memenuhi syarat.

Keterangan:

• Test Kondisi : 

Tes Kondisi ini bisa bernilai numerik maupun string.

• Kondisi 1: 

Nilai pertama proses seleksi dari tes_kondisi.

• Kondisi 2: 

Nilai pertama proses seleksi dari tes_ekspresi.

      Penulisan nilai pada ekspresi 1 maupun ekspresi 2 bisa langsung berbentuk konstanta atau melalui operator pembanding.

Private Sub Form_Click()
Dim Jenis, Status As String
Jenis = InputBox("Jenis Kelamin?")
Status = InputBox("Sudah menikah?")
Jenis = Ucase (Jenis)
Status = Ucase (Status)
Select Case Jenis
Case “PRIA”
Select Case Status
Case “SUDAH”
MsgBox(“Ayah”)
Case Else
MsgBox(“Jejaka”)
End Select
Case “WANITA”
Select Case Status
Case “SUDAH”
MsgBox(“Ibu”)
Case Else
MsgBox( “Gadis”)
End Select
Case Else
Msgbox “Jenis Invalid”
End Select