Pernyataan percabangan untuk memecahkan persoalan dalam
mengambil keputusan dari beberapa pernyataan/pilihan yang ada.
Fungsi percabangan ini pasti kita temukan di berbagai bahasa
pemprograman baik C++, Visual Basic, pascal, dll.
Tapi saya khusus membahas bahasa Visual Basic. Berikut
penjelasannya.
Penulisan fungsi percabangan ada beberapa macam.
· ~
IF
o
IF… Then
o
IF… Then… Else
o
IF Bercabang / Bersarang (Nested IF)
· ~ Select Case
a. IF… Then
Perintah ini memiliki pengertian “Jika kondisi benar, maka perintah akan
diproses. Jika tidak maka akan diabaikan (program berhenti diproses)”.
If ini disebut juga IF Tunggal
Penulisan syntaknya dalam VB seperti berikut:
If
kondisi Then
Pernyataan
End If
Saya ambil contoh :
Private Sub Keluar_Click()
If
MsgBox ("Anda Yakin Akan Keluar? ", vbQuestion + vbYesNo,
"Konfirmasi") = vbOK Then
Unload Me
End If
End Sub
Itu
adalah pernyataan jika pilih Ok (vbOK) maka program akan Keluar (Unload Me). Selain dari itu tidak ada perintah apa-apa.
b. IF… Then… Else
Perintah ini memiliki pengertian “Jika kondisi benar, maka perintah akan
diproses. Jika tidak maka akan memproses perintah yang lain”.
If kondisi Then
Pernyataan
Else
Pernyataan
End If
Saya ambil contoh dari :
If (cmbkode = "Elit") Then
txthm = 50000
ElseIf (cmbkode = "Hemat") Then
txthm
= 30000
Else
txthm
= 0
End If
Perintah ini berarti jika
|
Kode (Cmbkode)
|
Harga Menu (Txthm)
|
|
Elit
|
50000
|
|
Hemat
|
30000
|
Penggunaan
else terakhir memberi arti bahwa selain dari pada harga yang di table maka 0
rupiah.
c. If Bercabang / Bersarang (Nested If)
Ini digunakan untuk suatu kondisi
yang bercabang.
If kondisi Then
If kondisi Then
Pernyataan
Else
Pernyataan
End If
Pernyataan
End If
Contohnya lihat table:
|
Menu
|
Paket
|
Harga
|
|
Elit
|
1
|
50.000
|
|
|
2
|
60.000
|
|
Hemat
|
1
|
30.000
|
|
|
2
|
20.000
|
Sebuah restoran terbagi 3 menu
utama Elit, Hemat dan Murah. Masing-masing menu memiliki 2 paket. Setiap
paketnya memiliki harga yang berbeda.
Berikut contoh penulisannya,
If (cmbkode = "Elit") Then
If (cmbpaket
= “1”) Then
txthm = 50000
ElseIf
(cmbpaket = ”2”) Then
txthm = 60000
Else
Txthm =
0
End If
ElseIf (cmbkode = "Hemat") Then
If (cmbpaket
= “1”) Then
txthm = 30000
ElseIf
(cmbpaket = ”2”) Then
txthm = 20000
Else
Txthm =
0
End If
Else
txthm
= 0
End If
d. Select Case
Pada dasarnya penggunaan Select
Case sama dengan IF hanya saja terdapat sedikit perbedaan pada struktur
penulisannya. Select case bekerja dengan percobaan tunggal dan dalam pernyataan
casenya membandingkan nilai yang berbeda dari pernyataan sebelumnya.
Select
Case ekspresi
yang dicoba
Case (ekspresi1)
Pernyataan
Case (ekspresi2)
Pernyataan
Case Else
Pernyataan
End
Select
Berikut contoh penggunaan Select Case,
Select Case (cmbkode)
Case (“Elit”)
txthm = 50000
Case ("Hemat")
txthm = 30000
Case Else
txthm = 0
End Select
Penggunaan If dan Select Case juga
bisa disatukan berikut contoh penggunaannya,
If (cmbkode = "Elit") Then
Select Case
(“cmbpaket”)
Case (“1”)
txthm = 50000
Case (”2”)
txthm = 60000
Case
Else
Txthm =
0
End Select
ElseIf (cmbkode = "Hemat") Then
Select Case (“cmbpaket”)
Case (“1”)
txthm = 30000
Case (”2”)
txthm = 20000
Case
Else
Txthm =
0
End Select
Else
txthm
= 0
End If
Cukup banyak juga postingan kali
ini ^_^
Semoga bermanfaat. Dan mudah
dipahami.
Sumber :
Materi ini dari catatan materi kuliah saya.
Sebagai catatan pribadi sekaligus mencoba berbagi sedikit ilmu.
3 komentar:
Makasih kak infonya btw gw suka postingannya. Gampang paham trus ga bertele tele buat penjelasannya... hehehehe
👍
thank u, mudah2an amal y bertambah....amin...
Contoh” nya membantu banget ka, makasihhhh
Posting Komentar