Gambas

Instalasi Gambas 3.5.3 di Fedora 20

Last Updated on 6 June 2014 By tommy Leave a Comment

Cara untuk menginstall Gambas 3.5.3 di Fedora 20 sangat mudah, jalankan perintah dibawah ini di terminal

dnf install gambas3 gambas3-gb-gtk gambas3-gb-db-mysql gambas3-gb-db-sqlite3 gambas3-gb-db-postgresql gambas3-gb-eval-highlight gambas3-gb-logging gambas3-gb-desktop gambas3-ide gambas3-examples gambas3-gb-mysql gambas3-gb-chart -y

Setelah selesai instalasi diatas, buka gambas melalui terminal

gambas3 &

atau Development -> Gambas3

Karena gambas 35.3 sudah ada di repository Fedora 20, maka kita tidak perlu lagi mengcompile dari awal seperti tutorial sebelumnya.

Cara Koneksi Gambas dengan SQLite3

Last Updated on 8 November 2013 By tommy Leave a Comment

Gambas sudah mendukung stand alone database seperti SQLite, karena dokumentasi Gambas kurang lengkap, banyak pemula yang kesulitan untuk mengkoneksikan Gambas dengan SQLite, disini kita akan membuat aplikasi Buku Telepon. Pencarian berdasarkan Nomor Telepon.
Disini saya sudah membuat sebuah contoh database yang diberi nama sqlitegambas.db yang berisi

CREATE TABLE "kontak" (
    "id" INTEGER PRIMARY KEY AUTOINCREMENT,
    "nama_lengkap" TEXT,
    "no_hp" TEXT
);
INSERT INTO "kontak" VALUES(1,'Rahman Sembiring','021100200');
INSERT INTO "kontak" VALUES(2,'Bunga Ncole Br Ginting','021100201');

bila anda kesulitan membuat database SQLite bisa di download pada bagian paling bawah tutorial ini beserta source code aplikasi ini.

Pada aplikasi Gambas (3.4.2) klik file > New Project (jangan lupa mencentang database access) lalu klik Next

beri nama pada aplikasi anda, misalkan beri nama SQLite Gambas dan diletakkan di /home/jaranguda/script/gambas/SQLite disini saya membuat sebuah folder baru bernama database di /home/jaranguda/script/gambas/SQLite dan meletakkan file sqlitegambas.db didalamnya full pathnya menjadi /home/jaranguda/script/gambas/SQLite/database/sqlitegambas.db.

Design aplikasi seperti gambar dibawah ini

klik dua kali pada tombol cari, lalu paste script dibawah ini

MyConn = New Connection
MyConn.Close
MyConn.Type = "sqlite3"
MyConn.Name = User.Home & "/script/gambas/SQLite/database/sqlitegambas.db"
'sesuaikan dengan letak database anda, pada contoh /home/jaranguda/script/gambas/SQLite/database/sqlitegambas.db
MyConn.Open
  If TextBox1.Text = False Then 
  Message.Error("anda belum mengetikkan kata")
Else
MyRS = MyConn.Exec("SELECT * from kontak where no_hp='" & TextBox1.text & "'")
TextArea1.Insert(MyRS!nama_lengkap)

Sekarang coba jalankan aplikasi, dengan menekan F5 di keyboard. Masukkan no hp yang di cari pada form dan klik cara, hasilnya seperti gambar dibawah ini

# link download error, nanti di update dulu (8 November 2013)

Menampilkan Tanggal di Gambas

Last Updated on 3 September 2013 By tommy Leave a Comment

Tutorial kali ini sangat singkat, dan tidak ada coding-coding :P. Menampilkan tanggal (hari, bulan dan tahun) di form aplikasi kita.
Buat form baru,

lalu dari pilihan menu pilih, datechooser masukkan kedalam form.

lalu test dengan menekan tombol F5 di keyboard untuk menjalankan program.

nb : sangat mudah, dan untuk pemula banget

Aplikasi Menghitung Tiket Kereta Api dengan Gambas

Last Updated on 18 February 2013 By tommy Leave a Comment

Aplikasi yang kita buat ini, masih sangat sederhana, tujuannya adalah untuk mempelajari cara untuk mempelajari fungsi if then elseif di Gambas.
Buat design aplikasi tiket kereta api seperti gambar dibawah ini

1 buah combobox
Isi list combobox dengan Yogyakarta, Jakarta dan Malang.
7 buah TextBox
1 buah Button
ubah property text button menjadi hitung.

Klik dua kali di form kosong, tambahkan script dibawah ini, agar nilai di TextBox 1 sampai 7 dihilangkan

TextBox1.Clear
TextBox2.Clear
TextBox3.Clear
TextBox4.Clear
TextBox5.Clear
TextBox6.Clear
TextBox7.Clear

klik dua kali pada tombol Hitung, lalu paste script dibawah ini

Dim harga As Integer
Dim jumlah As Integer
Dim total As Integer
 
  TextBox3.Text = TextBox1.Text
  If ComboBox1.Text = "Jakarta" Then 
  TextBox4.Text = "Jakarta"
  TextBox5.Text = 120000
  Endif
  If ComboBox1.Text = "Yogyakarta" Then
    TextBox4.Text = "Yogyakarta"
    TextBox5.Text = 150000
  Endif
    If ComboBox1.Text = "Malang" Then
    TextBox4.Text = "Malang"
    TextBox5.Text = 200000
  Endif
 
  TextBox6.text = TextBox2.Text
  jumlah = TextBox2.text
  harga = TextBox5.Text
  total = jumlah * harga
  TextBox7.Text = total

Coba jalankan aplikasi Tiket Kereta Api dengan menekan tombol F5 di keyboard.

Download :

Download “Home” – Downloaded 0 times –

Membuat Aplikasi Konversi Mata Uang dengan Gambas

Last Updated on 7 February 2013 By tommy Leave a Comment

Buat design aplikasi seperti gambar dibawah

Klik dua kali pada form, lalu tambahkan code dibawah ini

TextBox1.Clear
TextBox2.Clear
TextBox3.Clear
Label1.Text = "Dollar (USD $) "
Label2.Text = "Rupiah"
Label3.Text = "Euro"
Button1.Text = "Hitung"

Coba dijalankan aplikasi tersebut dengan menekan tombol F5 di keyboard, hasilnya seperti gambar dibawah ini

Sekarang tahap coding untuk konversi dari dolar ke rupiah dan euro. Sebagai contoh kita asumsikan 1$ = 9600 dan 1$ = 1.48€. Klik dua kali pada tombol Hitung dan tambahkan code dibawah ini

TextBox2.Text = 9600 * TextBox1.Text
TextBox3.Text = 0.74 * TextBox1.Text

tekan tombol F5 di keyboard, dan lakukan percobaan apakah aplikasi yang kita buat telah berjalan dengan lancar atau belum.

Download :
[Download not found]

Menghitung Umur dengan Gambas

Last Updated on 2 February 2013 By tommy Leave a Comment

Buat design program seperti gambar dibawah ini

Komponen yang digunakan
2 buath TextBox
1 Buah Button

Klik dua kali pada tombol hitung, tambahkan script dibawah ini

TextBox2.Text: = DateDiff(TextBox1.Text, Now, gb.Year)

Format yang benar di tanggalnya adalah Bulan/Hari/Tahun. Jalankan aplikasi dengan menekan tombol F5 di keyboard

Download
[Download not found]

Main navigation

Gambas