Select pada VB

SELECT CASE
Bentuk decision yang kedua setelah if adalah case dipergunakan untuk menyeleksi kondisi dan mengujinya sama dengan fungsi IF, perbedaannya IF dapat menguji lebih dari satu variabel sedangkan Case di rekomendasikan untuk nilai dari satu variabel.
Jika gol=3 dan status=tetap maka…..àContoh : IF
Jika untuk case bentuk diatas tidak dapat diselesaikan.
Bentuk umum SELECT CASE
Select Case variabel
Case nilai 1 : pekerjaan1
Case nilai 2 : pekerjaan2
Case Else
Pekerjaan_N
End Select.

Contoh:

A. Perintah Untuk Tombol Proses yang pertama (CASE)
Private Sub proses1_Click()
Select Case kodesek
Case "1": jenjang = "SD"
Case "2": jenjang = "SMP"
Case "3": jenjang = "S M A"
Case "4": jenjang = "D III"
Case "5": jenjang = "S1"
Case Else
jenjang = "Dibawah SD"
End Select
End Sub

B. Perintah Untuk Tombol Proses yang kedua (IF)
Private Sub proses2_Click()
If kosek = "1" Then
jjg = "SD"
ElseIf kosek = "2" Then
jjg = "SMP"
ElseIf kosek = "3" Then
jjg = "S M A"
ElseIf kosek = "4" Then
jjg = "D III"
ElseIf kosek = "5" Then
jjg = "S1"
Else
jjg = "Dibawah SD"
End If
End Sub

Untuk mengisi combo pada kode sekolah (kodesek dan kosek), buat di Form_load
Private Sub Form_Load()
kodesek.AddItem "1"
kodesek.AddItem "2"
kodesek.AddItem "3"
kodesek.AddItem "4"
kodesek.AddItem "5"
kodesek.AddItem "6"
kosek.AddItem "1"
kosek.AddItem "2"
kosek.AddItem "3"
kosek.AddItem "4"
kosek.AddItem "5"
kosek.AddItem "6"
End Sub

Pekerjaan Diatas dilakukan dengan ketentuan sebagai berikut:
Jika kode sekolah =1 maka jenjang pendikan =SD
Jika kode sekolah =2 maka jenjang pendikan =SMP
Jika kode sekolah =3 maka jenjang pendikan =SMA
Jika kode sekolah =4 maka jenjang pendikan =D III
Jika kode sekolah =5 maka jenjang pendikan =S1
Selainnya jenjang pendidikan = Dibawah SD

Contoh yang Kedua
Ketentuan Soal:
Jika Kode barang= A001, maka nama barang = Gula dan
Satuan= Goni , Kilo
Jika Kode barang= A002, maka nama barang = Bodrex dan
Satuan= Kotak , Papan, Tablet
Jika Kode barang= A003, maka nama barang = Sampoerna dan
Satuan= Tin , Slop, Bungkus

Rancangan Outputnya Sebagai Berikut:
A. Perintah pada Tombol Prosesnya:
DENGAN IF
Private Sub proses_Click()
If kobar = "A001" Then
nabar = "Gula"
satuan.Clear
satuan.AddItem "Goni"
satuan.AddItem "Kilo"
ElseIf kobar = "A002" Then
nabar = "Bodrex"
satuan.Clear
satuan.AddItem "Kotak"
satuan.AddItem "Papan"
satuan.AddItem "Tablet"
Else
nabar = "Sampoerna"
satuan.Clear
satuan.AddItem "Tin"
satuan.AddItem "Slop"
satuan.AddItem "Bungkus"

End If

DENGAN CASE
Private Sub proses_Click()
Select Case kobar
Case "A001":
nabar = "Gula"
satuan.Clear
satuan.AddItem "Goni"
satuan.AddItem "Kilo"
Case "A002":
nabar = "Bodrex"
satuan.Clear
satuan.AddItem "Kotak"
satuan.AddItem "Papan"
satuan.AddItem "Tablet"
Case Else
nabar = "Sampoerna"
satuan.Clear
satuan.AddItem "Tin"
satuan.AddItem "Slop"
satuan.AddItem "Bungkus"
End Select
End Sub
B. Perintah pada Tombol Ulang:
Private Sub xUlang_Click()
Nabar.text=””
Harga.text=””
Kobar.setfocus
End If
B. Perintah pada FORM_Load:
Private Sub xUlang_Click()
kobar.additem “A001”
kobar.additem “A002”
kobar.additem “A003”

End If

C. Perintah pada Tombol Keluar:
Private Sub xKeluar_Click()
End
End If