Pada tutorial ini saya akan berbagi cara membangun program perbandingan di Gambas, untuk lebih lanjut silahkan simak penjelasan berikut :pertama buatlah proyek baru,
pilihlah QT graphical application, setelah itu klik Next
pilihlah tempat penyimpanan data proyek yang nanti kita buat,
ketikan nama projek / program yang nanti akan kita buat,
setelah tampil form, silahkan isikan 4 Label, 2 Textbox dan 1 Button
klik pada label 1 dan rubahlah di bagian properties pada Text nya menjadi Bilangan 1, label 2 menjadi Bilangan 2, label 3 menjadi hasil, dan label4 pada bagian text nya kosongkan,
selanjutnya klik button1, dan rubahlah propertiesnya pada bagian text-nya menjadi "bandingkan" setelah itu double klik pada button1 dan masukan rumus dibawah ini, diantara PUBLIC SUB Button1_Click() ..... END seperti contoh di bawah ini :
PUBLIC SUB Button1_Click()
IF Val(TextBox1.Text) > Val(TextBox2.Text) THEN
Label4.Text = "Bilangan ke-1 lebih besar daripada bilangan ke-2"
END IF.
IF Val(TextBox1.Text) < Val(TextBox2.Text) THEN
Label4.Text = "Bilangan ke-1 lebih kecil daripada bilangan ke-2"
END IF.
IF Val(TextBox1.Text) = Val(TextBox2.Text) THEN
Label4.Text = "Bilangan ke-1 sama dengan bilangan ke-2"
END IF.
END
klik pada 2 Textbox, lihat pada properties di bagian Text -nya kosongkan, seperti di gambar di bawah ini
kliklah pada form, dan pada bagian properties form rubahlah warna backgroundnya terserah anda,
Setelah semuanya selesai klik debug / jalankan atau dengan fungsi f5 maka tampilan akhirnya adalah seperti berikut :
Selamat mencoba dan berkreasi
Tampilkan postingan dengan label Gambas. Tampilkan semua postingan
Tampilkan postingan dengan label Gambas. Tampilkan semua postingan
Sabtu, 22 Oktober 2011
Membuat Program Perbandingan Bilangan Di Gambas 2.2
Posted at 21.28 by thegudangupil
Posted in
Gambas
Selasa, 28 Juni 2011
Membuat Format Style Font Sederhana Dengan Gambas
Posted at 04.36 by thegudangupil
Pertama klik New Project
kemudian double klik pada RadioButton1 atau Biru masukan kode berikut :
Label1.ForeColor = &0000ff
dan berilah dengan nama project "ProgramFont" dan Title "ProgramFont"
kemudian klim FMain
kemudian masukan 1 Textbox, 1 Label, kemudian 2 frame, 4 radioButton dan 3 CheckBox seperti digambar di bawah ini :
dan atural di setiap properties kontrol seperti berikut :
- Textboxt1 di Properties bagian Text Dikosongkan
- Label1 di Properties bagian Text Dikosongkan
- Frame1 di Properties bagian Text dirubah menjadi Pilihan Warna
- Frame2 di Properties bagian Text dirubah menjadi Style Font
- RadioButton1 di Properties bagian Text dirubah menjadi Biru
- RadioButton2 di Properties bagian Text dirubah menjadi Hijau
- RadioButton3 di Properties bagian Text dirubah menjadi Kuning
- RadioButton4 di Properties bagian Text dirubah menjadi Coklat
- CheckBox1 di Properties bagian Text dirubah menjadi Garis Bawah
- CheckBox2 di Properties bagian Text dirubah menjadi Pertebal
- CheckBox3 di Properties bagian Text dirubah menjadi Miring
Selanjutnya double klik pada Textbox1 dan masukan code berikut :
Label1.text = TextBox1.Text
masukan kode tersebut diantara PUBLIC SUB dan END contoh :
PUBLIC SUB TextBox1_KeyPress()
Label1.text = TextBox1.Text
END
Label1.ForeColor = &0000ff
dilanjut dengan memasukan kode pada :
RadioButton2 atau Hijau : Label1.ForeColor = &H005500
RadioButton3 atau Kuning : Label1.ForeColor = &FFFF00
RadioButton4 atau Coklat : Label1.ForeColor = &A52A2A
CheckBox1 atau Garis Bawah : Label1.Font.Underline = CheckBox1.Value
CheckBox2 atau Pertebal :Label1.Font.Bold = CheckBox2.Value
CheckBox3 atau Miring : Label1.Font.Italic = CheckBox3.Value
bila telah selesai semuanya silahkan Run atau dengan Menekan F5 atau bisa juga lewat Debug >> Run
maka hasilnya akan seperti gambar berikut :
Belajar Gambas itu menyenangkan dan mudah, selamat mencoba dan berkreatifitas!
Posted in
Gambas
Langganan:
Postingan (Atom)






















