struktur if then (gambas)

kali ini,kita belajar tentang struktur if then di gambas,juga sedikit cara menampilkan pesan dalam msgbox.

 

 

 

 

 

 

 

 

 

 

 

lihat listing programnya :

‘ Gambas class file
‘Belajar struktur if then
‘bersama kami STT DUTABANGSA
PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()
‘blok kode program yang dikerjakan bila kondisi TRUE dan akan ada pesan benar kalau passwordnya tepat.
IF TextBox1.Text = “sttdutabangsa” THEN
PictureBox1.Visible = TRUE
TextBox1.Enabled = FALSE
Button1.Enabled = FALSE
Message.Info(“password benar … silahkan kreasikan ke form form selanjutnya..!”)
ELSE
‘blok kode program bila yang dikerjakan pada kondisi FALSE
Message.Info(“password salah!”)
TextBox1.text = “”
TextBox1.SetFocus
END IF

END

PUBLIC SUB Button2_Click()

QUIT

END

mudah bukan … silahkan dipraktekan ๐Ÿ™‚

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ย  ๐Ÿ™‚