PEMOGRAMAN STRUKTUR DATA: Alur Program : Percabangan IF, IIF dan CASE Pada Visual Basic 6.0

Di bawah ini saya berikan contoh penggunaan IF, IIF dan Case pada code program vb 6 :
SOAL :

Text1	Text2	Text3
10	A	LULUS
9	A	LULUS
8	A	LULUS
7	B	LULUS
6	C	LULUS
5	D	TIDAK LULUS
4	E	TIDAK LULUS
3	E	TIDAK LULUS
2	E	TIDAK LULUS
1	E	TIDAK LULUS
0	E	TIDAK LULUS

Sebagai contoh kita akan menyelesaikan soal diatas dengan IF, IIF dan Select Case

Sebelumnya siapkan terlebih dahulu tiga buah text box dan sebuah command button.

1. Case :

Private Sub Command1_Click()

    Select Case Val(Text1.Text)
        Case Is > 10
            MsgBox "Nilai Makasimal 10"
            Text1.Text = 0
            Command1_Click
            Exit Sub
        Case Is >= 8
            Text2.Text = "A"
            Text3.Text = "LULUS"
        Case Is >= 7
            Text2.Text = "B"
            Text3.Text = "LULUS"
        Case Is >= 6
            Text2.Text = "C"
            Text3.Text = "LULUS"
        Case Is >= 4
            Text2.Text = "D"
            Text3.Text = "TIDAK LULUS"
        Case Is >= 0
            Text2.Text = "E"
            Text3.Text = "TIDAK LULUS"
    End Select

End Sub

Percabangan Case sangat cocok untuk menyelesaikan soal dengan banyak alternatif , memiliki keunggulan diantarnya lebih ringkas dan lebih cepat dalam pemrosesannya (-teori dari buku,, ^_^ -)
2. IF

Private Sub Command1_Click()
        If Val(Text1.Text) > 10 Then
            MsgBox "Nilai Makasimal 10"
            Text1.Text = 0
            Command2_Click
            Exit Sub
        ElseIf Val(Text1.Text) >= 8 Then
            Text2.Text = "A"
            Text3.Text = "LULUS"
        ElseIf Val(Text1.Text) >= 7 Then
            Text2.Text = "B"
            Text3.Text = "LULUS"
        ElseIf Val(Text1.Text) >= 6 Then
            Text2.Text = "C"
            Text3.Text = "LULUS"
        ElseIf Val(Text1.Text) >= 4 Then
            Text2.Text = "D"
            Text3.Text = "TIDAK LULUS"
        ElseIf Val(Text1.Text) >= 0 Then
            Text2.Text = "E"
            Text3.Text = "TIDAK LULUS"
        End If
End Sub

Penggunaan IF dalam menyelesaikan soal seperti diatas memang terkesan terlalu panjang dibandingkan menggunakan select case, akan tetapi IF sangat nyaman digunakan untuk ekspresi yang banyak dan bermacam-macam dengan menggabungkannya dengan AND dan OR, misalnya :

If Val(Text1.Text) > 10 And Form1.Caption = "..." Then

...
End If

Untuk Ekspresi dan pernyataan tunggal IF dapat dituliskan hanya dalam satu baris (tanpa End if), contoh :

If Val(Text1.Text) > 10 Then MsgBox "Nilai Makasimal 10"

3. IIF
IIF yang biasanya dapat kita temui di Excel atau Access, ternyata dapt juga digunakan pada vb6, penggunaanya seperti kita memanggil Function , contoh :

Private Sub Command1_Click()
nilai = Val(Text1.Text)
Text2.Text = IIf(nilai >= 10, "NILAI MAX 10", _
             IIf(nilai >= 8, "A", _
             IIf(nilai >= 7, "B", _
             IIf(nilai >= 6, "C", _
             IIf(nilai >= 4, "D", _
             IIf(nilai >= 0, "E", ""))))))

Text3.Text = IIf(nilai >= 10, "NILAI MAX 10", _
             IIf(nilai >= 6, "LULUS", _
             IIf(nilai >= 0, "TIDAK LULUS", "")))
End Sub

Aturan penulisannya adalah :

1 Expresi (kondisi)
Nilai = IIF(Ekspresi1, Nilai benar, Nilai Salah)
2. Lebih dari satu kondisi
Nilai = IIF(Ekspresi1, Nilai benar,IIF(Ekspresi1, Nilai benar, Nilai salah ))
dan seterusnya

Demikian, semoga bermanfaat.