Penggunaan Kondisi Select Case Pada Visual Basic

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
………………..            IF X >= 80 THEN WRITELN (‘A’) ELSE IF (X >= 70) AND (X < 80) THEN WRITELN (‘B’) ELSE IF (X >= 60) AND (X < 70) THEN WRITELN (‘C’) ELSE IF (X >= 50) AND (X < 60) THEN WRITELN (‘D’) ELSE WRITELN (‘E’) …………………..	……………….. CASE X OF 80….100 : WRITELN (‘A’); 70…. 79 : WRITELN (‘B’); 60…. 69 : WRITELN (‘C’); 50…. 59 : WRITELN (‘D’); 1…. 49 : WRITELN (‘E’); ……………….

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:

Select Case <kondisi> Case <ekspresi ke 1> <pernyataan ke 1> Case <ekspresi ke 2> <pernyataan ke 2> Case Else        <pernyataan ke else> End Select

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:

1. Apabila kita input J1 pada TextBox maka pada Label Output akan berubah captionnya menjadi "Kalimalang" dan seterusnya apabila kondisi tersebut terpenuhi,
2. 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

http://uzi-online.blogspot.com/2000/11/kuliah-algoritma-pemrograman-vbasic.html