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

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

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.
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Alur Program : Percabangan IF, IIF dan CASE Pada Visual Basic 6.0, Diterbitkan oleh scodeaplikasi pada Jumat, 27 Agustus 2010. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.