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

Iklan

Option select (gambas)

 

 

 

 

 

 

 

 

 

 

 

 

Selamat bertemu kembali dalam belajar gambas,kali ini kita belajar tentang penggunaan perintah option select .yang mudah dipelajari,perintah ini akan mengubah teks label sesuai dengan option yang kita pilih.lihat listing dibawah ini :

‘ Gambas class file
‘===========================================================
‘Belajar gambas bersama STTDB
‘pada pelajaran ini kita belajar command option dan checkbox
‘dan juga sedikit if then else
‘selamat belajar
‘===========================================================
PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB RadioButton1_Click()

TextLabel1.ForeColor = Color.blue

END

PUBLIC SUB RadioButton2_Click()

TextLabel1.ForeColor = Color.Red

END

PUBLIC SUB CheckBox1_Click()

IF TextLabel1.Font.Bold THEN
TextLabel1.Font.Bold = FALSE
ELSE
TextLabel1.Font.Bold = TRUE
ENDIF

END

PUBLIC SUB CheckBox2_Click()

IF TextLabel1.font.Italic THEN
TextLabel1.Font.Italic = FALSE
ELSE
TextLabel1.Font.Italic = TRUE
ENDIF

END

PUBLIC SUB Button1_Click()

TextLabel1.Caption = TextBox1.Text

END

PUBLIC SUB Button2_Click()

QUIT

END

mudah bukan,silahkan anda berkreasi dengan program progam lainย  ๐Ÿ™‚

 

Belajar GAMBAS (vb nya Linux)

gambas dibuat oleh seorang programer asal prancis benoit minisini.

gambas adalah bahasa pemograman basic,jadi penulisanya mirip visual basic tetapi bukan visual basic.karena dalam developnya gambas dikembangkan oleh bahasa gambas sendiri.Mempelajari gambas hampir sama dengan mempelajari bahasa visual basic.bila anda menggunakan ubuntu anda tinggal menginstal lewat synaptic packet manager ,kemudian search “gambar” kemudian download dan install .

berikut ini contohnya ,kita mulai dengan operator matematika yang sederhana dulu ;

gambar run nya

listing program
‘ Gambas class file
‘++++++++++++++++++++++++++++++++++++++++++++++++
‘+ Belajar Gambas di kampus STT DUTABANGSA +
‘+ +
‘+ kampus B cikarang +
‘++++++++++++++++++++++++++++++++++++++++++++++++

PRIVATE sngbilangan1 AS Single
PRIVATE sngbilangan2 AS Single
PRIVATE snghasil AS Single

PUBLIC SUB cmdJumlah_Click()

sngbilangan1 = TextBox1.Text
sngbilangan2 = TextBox2.Text
snghasil = sngbilangan1 + sngbilangan2
TextBox3.text = snghasil

END

PUBLIC SUB cmdKurang_Click()
sngbilangan1 = TextBox1.Text
sngbilangan2 = TextBox2.Text
snghasil = sngbilangan1 – sngbilangan2
TextBox3.text = snghasil

END

PUBLIC SUB cmdTutup_Click()

QUIT

END

PUBLIC SUB cmdKali_Click()

sngbilangan1 = TextBox1.Text
sngbilangan2 = TextBox2.Text
snghasil = sngbilangan1 * sngbilangan2
TextBox3.text = snghasil

END

PUBLIC SUB cmdBagi_Click()

sngbilangan1 = TextBox1.Text
sngbilangan2 = TextBox2.Text
snghasil = sngbilangan1 / sngbilangan2
TextBox3.text = snghasil

END

‘sampai jumpa pada penulisan berikutnya ๐Ÿ™‚