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 🙂

 

2 Tanggapan

  1. Sip !

    Mampir ke sini : http://www.MarkasGambas.blogspot.com

    Full gambas ! semangat !

  2. agan kalok mengubah jenis font sama ukuran nya gi mana??
    dan juga sam size number nya maklum baru pemula ??

    tolg jawaban nya gan><??

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: