Perintah
SELECT CASE dipergunakan untuk pilihan dengan mengevaluasi satu atau
lebih kondisi dan menjalankan statement yang memenuhi criteria.
Bentuk
penulisan perintah SELECT adalah sebagai berikut :
SELECT CASE testexpression
CASE
expressionlist-n
statements-n
CASE ELSE
else statement
END SELECT
Untuk
sebagai contoh, saya ingin menampilkan Nama bulan ketika angka 1 s/d 12 di
masukkan kedalam text box. Contoh bulan 1 akan menampilkan bulan Januari, bulan
2 angka menampilkan bulan Februari, begitu sampai bulan 12 akan
menampilkan bulan Desember. Berikut desainnya
Buat 2
textbox, 1 button. Dan untuk button silahkan masukkan code program ini
Dim
bulan As Byte
bulan = Val(TextBox2.Text)
Select Case bulan
Case
1 : TextBox1.Text = "JANUARI"
Case
2 : TextBox1.Text = "FEBRUARI"
Case
3 : TextBox1.Text = "MARET"
Case
4 : TextBox1.Text = "APRIL"
Case
5 : TextBox1.Text = "MEI"
Case
6 : TextBox1.Text = "JUNI"
Case
7 : TextBox1.Text = "JULI"
Case
8 : TextBox1.Text = "AGUSTUS"
Case
9 : TextBox1.Text = "SEPTEMBER"
Case
10 : TextBox1.Text = "OKTOBER"
Case
11 : TextBox1.Text = "NOVEMBER"
Case
12 : TextBox1.Text = "DESEMBER"
Case Else
TextBox1.Text = "SALAH"
End Select
Pada hasil diatas, kita harus mengklick “button
cari!” untuk menampilkan keterangkan bulan, nah bagimana tidak menggunakan
button, dalam artian adalah ketika kita memasukkan angka 1 kedalam text box
langsung tampil keterangan nama bulan tanpa harus mengklick tombol, caranya kita
tinggal double klick text box lalu pada jendela editor tampil seperti dibawah ini. sekarang tinggal paste code program yang sudah kita buat.
Private Sub
TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
TextBox2.TextChanged
//Pastekan disini
End Sub
Komentar
Posting Komentar