VB Pemula - Step 8 : Perintah IF...ELSEIF....THEN....ELSE

Sekarang, kita akan membuat sebuah program dengan perintah IF. Apa itu IF? Dalam Ms. Excel juga ada kan? Apa fungsinya hayo? Perintah IF itu merupakan salah satu perintah logika. Kita sudah membahas tentang logika di bagian Pendahuluan bukan? Penasaran dengan strukturnya? Ini dia:

If Then

Else

End If
Jika syarat lebih dari 1, strukturnya seperti ini:
If Then

Elseif Then

Elseif Then

........
Else

End If


Untuk syarat, Anda bisa mengombinasikannya dengan Operator Logika. (Kita sudah belajar mengenai operator bukan? Lupa? Baca lagi deh.... tutorial tentang Variabel, Tipe Data, dan Operator). Misalnya ada kode seperti ini:

If bilangan > 0 And bilangan < 0 then MsgBox “Bilangan tidak nol!” Else MsgBox “Nol dong....” End If Atau seperti ini: If totalBelanja > 100000 Then
Diskon = 50
Elseif totalBelanja <= 100000 And totalBelanja > 50000 Then
Diskon = 25
Else
Diskon = 0
End If

Sudah dulu teorinya, sekarang kita mulai praktik membuat programnya yuk... Ahem. Untuk contoh, kita buat program yang sederhana.
1. Seperti biasa, buatlah sebuah project baru dengan tipe Standard EXE
2. Buatlah tampilan form seperti ini:

3. Pada bagian Properties, atur MaxLength Text1, Text2, dan Text3 menjadi 8. Untuk Name masing-masing objek, biarkan saja seperti aslinya.
4 Pada General_Declaration, deklarasikan variabel a, b, c, sebagai Double:
Dim a, b, c As Double
5. Pada saat Command1_click (tombol “Bandingkan!” di-klik), ketikkan kode berikut:
On Error GoTo salah
a = Text1.Text
b = Text2.Text
c = Text3.Text
If a > b And a > c Then
MsgBox "Bilangan yang terbesar adalah " & a, vbInformation, "Konfirmasi..."
ElseIf b > a And b > c Then
MsgBox "Bilangan yang terbesar adalah " & b, vbInformation, "Konfirmasi..."
ElseIf c > b And c > a Then
MsgBox "Bilangan yang terbesar adalah " & c, vbInformation, "Konfirmasi..."
Else
MsgBox "Tidak ada bilangan yang terbesar."
End If
a = 0
b = 0
c = 0
Text1.Text = Empty
Text2.Text = Empty
Text3.Text = Empty
Exit Sub
salah:
MsgBox "Isi angka dengan benar!!!", vbCritical, "Error...."

5. Anda ingin penjelasan? OK. Sebenarnya kode di atas sangat sederhana, jadi tidak perlu dijelaskan secara rinci dan panjang lebar. Tapi, bagi yang belum mengerti, OK lah....
6. Pada baris pertama, ada perintah On Error. Sudah kita bahas di tutorial 5 kan? Fungsinya untuk memanggil baris salah (liat dua baris terakhir!) jika terjadi error.
7. Selanjutnya ada perintah untuk memasukkan nilai variabel a, b, dan c sesuai dengan apa yang user ketik pada Text1, Text2, dan Text3.
a. Kalau misalnya a > b dan a > c, maka a adalah bilangan terbesar
b. Kalau b > a dan b > c, maka b adalah bilangan terbesar
c. Kalau c > a dan c > b, apa hayo?? Yap, benar sekali. c adalah bilangan terbesar.
d. Kalau tidak ada syarat yang terpenuhi, akan ditampilkan MessageBox yang isinya “Tidak ada bilangan yang terbesar”. Cukup jelas bukan?
8. Selanjutnya ada perintah if. Kira-kira terjemahannya seperti ini:
9. Selanjutnya ada perlintah untuk mengosongkan semua Variabel dan semua TextBox.
10. Di bawahnya ada perintah Exit Sub. Tahu kan fungsinya untuk apa? Sudah dibahas lho... Kalau Anda lupa, bisa dilihat kembali di tutorial tentang Error Handling.
11. Lalu ada definisi baris salah di sini. Ini berhubungan dengan perintah yang kita ketik di paling atas. Ketika error, akan langsung meloncat ke baris ini.
Anda juga boleh berkreasi membuat program lain yang menggunakan perintah IF ini. Untuk pemula, mulailah dari program-program yang sederhana dulu, selanjutnya Anda bisa mengembangkannya menjadi program yang lebih rumit.
Okay, sekian dulu tentang perintah IF...ELSEIF.... THEN....ELSE. Ada yang belum dipahami? Bisa ditanyakan langsung di-sini. Ingin latihan? Boleh kok. Kunjungi saja AREA LATIHAN.
Pada tutorial selanjutnya kita akan mempelajari tentang perintah SELECT CASE. Selamat berkreasi... ; )