select case di gambas

select case digunakan untuk melakukan pemilihan kondisi yang jumlahnya banyak
atau bertingkat,dengan pernyataan if pun bisa dilakukan pemilihan kondisi tertentu tetapi tidak seefektif bila memakai
select case.untuk memahami pernyataan select case coba perhatikan dibawah ini;

Jika saya memilih menu

menu ayam goreng harganya = “Rp 10.000”

menu bebek goreng harganya = “Rp 15.000”

menu ayam bakar harganya = “Rp 20.000”

menu ikan bakar hargany = “Rp 15.000”

kalimat diatas adalah logika dari pernyataan select case,sintak pernyataan select case :
select ekpresi
[case ekpresi [,ekpresi …]
[case ekpresi [,ekpresi …]
[case ekpresi [,ekpresi …]
end select

listing programnya :
‘ Gambas class file
‘originil code by STT DUTA BANGSA
‘Selamat bertemu kembali dalam belajar gambas
‘Semoga kode sederhana ini membantu anda dalam belajar

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB TextBox1_change()
DIM menupilihan AS String

menupilihan = TextBox1.Text
SELECT menupilihan
CASE 1
TextBox2.Text = “Rp 10.000”
CASE 2
TextBox2.Text = “Rp 15.000”
CASE 3
TextBox2.Text = “Rp 20.000”
CASE 4
TextBox2.Text = “Rp 15.000”
END SELECT
END

PUBLIC SUB Button1_Click()

QUIT

END