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

Baca Juga

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.

Untuk Link download yang sudah saya perbaiki dapat dilihat pada halaman DOWNLOAD, walaupun baru sedikit semoga bisa bermanfaat,untuk cara download silakan lihat DI SINI, Terima kasih

1 Tanggapan:

sangat berharga bagi kami pemula .. semoga Tuhan YME membalas budi baik anda....
GBU


Formulir Kontak

Nama

Email *

Pesan *

Pengikut