If dan Select Case adalah sebuah pernyataan bersyarat. If dan Select Case adalah merupakan suatu perintah untuk mengambil suatu keputusan terhadap sebuah atau beberapa kondisi. Kondisi adalah ungkapan untuk mengevaluasi sebuah pernyataan apakah bernilai benar atau salah.
Select Case biasa dipakai untuk alternatif Bentuk If..Then..Else, karena kodenya lebih mudah dibaca. Perintah SELECT CASE adalah salah satu syntax yang digunakan dalam bahasa pemrograman Visual Basic for Applications (VBA). Perintah atau syntax ini sebenarnya memiliki peran yang hampir sama dengan perintah If-Then, namun dalam beberapa kasus sedikit berbeda atau kadang tergantung selera dari programmer lebih memilih menggunakan Select Case atau perintah If-Then. Dengan kata lain SELECT CASE adalah salah satu bentuk perintah kondisi dalam Visual Basic selain IF THEN. Dengan konsep memberikan kemungkinan nilai variabel yang ingin dicari.
Intruksi atau program CASE ini marupakan alternatif dari pernyataan IF untuk masalah dengan pilihan ganda. Semua masalah yang bisa dikerjakan oleh CASE pasti bisa ditangani oleh IF, tetapi tidak sebaliknya.Keuntungan yang lain memakai intruksi CASE….OF adalah lebih singkat dan cepat, sehingga memudahkan dalam pengerjaan suatu masalah dengan pilihan ganda.
Tabel perbandingan IF THEN dan CASE OF
IF ….. THEN
|
CASE ….. OF
|
………………..
…………………..
|
………………..
……………….
|
Seperti tertera pada salah satu contoh kasus di atas, pada intruksi CASE …OF tidak bisa menggunakan tanda ‘< atau >’ , tetapi menggunakan sampai dengan‘…’ .
Bentuk contoh program dari Select Case adalah berikut:
|
Buat Program dengan desain form seperti berikut :
Properties
| ||
Tools
|
Name
|
Caption
|
Label
|
label1
|
Kode Kampus Gunadarma
|
label2
|
Masukan Kode
| |
Lbl_Output
|
Output
| |
CommandButton
|
Btn_Proses
|
Proses
|
TextBox
|
Txt_Kode
|
Selanjutnya kita masukan kode program pada Command Button “Proses” dengan cara klik dua kali pada CommandButton “Proses” dan masukan kode program seperti berikut :
· Private Sub Btn_Proses_Click()
· Dim KodeKampus As String
· KodeKampus = Txt_Kode.Text
· Select Case KodeKampus
· Case "A"
· Lbl_Output.Caption = "Kampus Kenari"
· Case "B"
· Lbl_Output.Caption = "Kampus Salemba Bluntas"
· Case "C"
· Lbl_Output.Caption = "Kampus Salemba"
· Case "D"
· Lbl_Output.Caption = "Kampus Depok"
· Case "E"
· Lbl_Output.Caption = "Kampus Kelapa Dua"
· Case "G"
· Lbl_Output.Caption = "Kampus Laboratorium Kelapa Dua"
· Case "H"
· Lbl_Output.Caption = "Kampus Laboratorium Kelapa Dua"
· Case "H2"
· Lbl_Output.Caption = "Kampus Simatupang"
· Case "J1"
· Lbl_Output.Caption = "Kampus Kalimalang"
· Case "J2"
· Lbl_Output.Caption = "Kampus Kalimalang (Al-Azhar)"
· Case "J3"
· Lbl_Output.Caption = "Kampus Kalimas"
· Case "J4"
· Lbl_Output.Caption = "Kampus Kemang Pratama"
· Case "J5"
· Lbl_Output.Caption = "Kampus Cakung"
· Case "L"
· Lbl_Output.Caption = "Kampus Cengkareng"
· Case "M"
· Lbl_Output.Caption = "Kampus Karawaci"
· Case Else
· Lbl_Output.Caption = "Perhatian kode kampus yang dimasukan salah, masukan kode kampus dengan huruf kapital. Contoh: J1"
· End Select
· End Sub
|
Pengertian logika program:
- Apabila kita input J1 pada TextBox maka pada Label Output akan berubah captionnya menjadi "Kalimalang" dan seterusnya apabila kondisi tersebut terpenuhi,
- Dan apabila input tidak sesuai dengan kondisi tersebut maka Label Output berubah captionnya menjadi "Perhatian kode kampus yang dimasukan salah, masukan kode kampus dengan huruf kapital. Contoh: J1"
Ini adalah tampilan program setelah dijalankan
Jika kita input A lalu klik Proses maka Lbl_Output.Caption akan berubah menjadi "Kampus Kenari"
Dan apabila kita input yang lain daripada kondisi akan merubah Lbl_Output.Caption seperti gambar diatas
Sekian, Achmad Mubarak Doohan. SKUG
Kuliah Algoritma Pemrograman Visual Basic
No comments:
Post a Comment