[Gambas] Koneksi dengan DBMS MYSQL

Untuk Pertanyaan Sulitkah membuat koneksi Gambas dengan DBMS MYSQL ???
Jawabanya adalah Sangat sangat mudah, Oke kita coba buat dengan cara berikut :

1. Buat Project Baru pada Gambas dengan Option Database Access

2. Buat Database atau dengan Database yang sudah ada :

 
3. Design form dengan 2 Button untuk membedakan mana yang  Terkoneksi atau tidak

 

4. Klik 2 kali Button dengan Text/ Title Connected dan ketik Source Code berikut dengan Database yang benar :

 Dim con As New Connection
 con.Host = "localhost"
 con.type = "mysql"
 con.Login = "root"
 con.Password = "abi"
 con.name = "gambas" 

Try
con.Open
If Not Error Then
Message("Connected")
Else
Message("Not Connected")
Endif

5. Klik 2 kali Button dengan Text/Title UnConnected dan Ketik Source Code Berikut dengan Database yang salah :

Dim con As New Connection
 con.Host = "localhost"
 con.type = "mysql"
 con.Login = "root"
 con.Password = "abi"
 con.name = "gambasxxx"

Try
con.Open
If Not Error Then
Message("Connected")
Else
Message("Not Connected")
Endif

6. Berikut Source Code Lengkap :

' Gambas class file

Public Sub _new()

End

Public Sub Form_Open()

End

Public Sub Button1_Click()

Dim con As New Connection
 con.Host = "localhost"
 con.type = "mysql"
 con.Login = "root"
 con.Password = "abi"
 con.name = "gambas"

Try
con.Open
If Not Error Then
Message("Connected")
Else
Message("Not Connected")
Endif
End


Public Sub Button2_Click()

  Dim con As New Connection
 con.Host = "localhost"
 con.type = "mysql"
 con.Login = "root"
 con.Password = "abi"
 con.name = "gambasxxx"

Try
con.Open
If Not Error Then
Message("Connected")
Else
Message("Not Connected")
Endif
End

Public Sub Button3_Click()

  Quit

End

atau Download disini

Hasil :

Semoga Membantu

Combobox di Gambas

Setelah Postingan sebelumnya membuat message question di Gambas, sekarang coba penggunaan Combobox di Gambas.

1. Desain dulu seperti berikut :

1 Combobox
2 Button
1 Textarea

2. Berikut isi Source Code nya :

' Gambas class file

Public Sub _new()

End

Public Sub Form_Open()
 ComboBox1.Add("Bakso")
 ComboBox1.Add("Mi Ayam")
 ComboBox1.Add("Nasi Goreng")
 ComboBox1.Add("Lotek")
End

Public Sub Button1_Click()



 Select Case ComboBox1.Text
 Case "Pilih Menu"
 TextArea1.Text = "Pilih Menu dulu !!!"
 Case "Bakso"
 TextArea1.Text = "Anda Pesan Bakso"
 Case "Mi Ayam"
 TextArea1.Text = "Anda Pesan Mi Ayam"
 Case "Nasi Goreng"
  TextArea1.Text = "Anda Pesan Nasi Goreng"
 Case "Lotek"
 TextArea1.Text = "Anda Pesan Lotek"
 End Select


End

Public Sub Button2_Click()

  Select Case
  Message.Question("Yakin Keluar?", "Ya", "Tidak")
  Case 1
  Me.Close
End Select
End

Yang my download disini

Hasilnya :

Message Question di Gambas

  

Message Question di Gambas adalah sebuah Form yang muncul dengan Pertanyaan atau sebuah Pemberitahuan, seperti halnya pada penggunaan Alert javascript.

Berikut sedikit tulisan yang mungkin bisa berguna :

1. Desain Form :

-  2 Button

2. Source Code Program :

' Gambas class file

Public Sub _new()

End

Public Sub Form_Open()

End

Public Sub Button1_Click()

  Select Case
    Message.Question("Yakin Keluar?", "Ya", "Tidak")
     Case 1
        Me.Close
  End Select

End

Public Sub Button2_Click()

   Message.Question("Hai, ini adalah message question", "OK")

End

Hasil nya seperti berikut :

Source bisa di download disini

Semoga Membantu

Membuat Aplikasi Tambah Kurang sederhana dengan Gambas

Sekedar mengisi waktu luang, saya coba sedikit semi sedikit menulis tutorial Pemrograman Gambas, Dan kali ini saya coba buat Aplikasi sederhana Tambah dan Kurang ...

1. Desain dulu form formnya seperti berikut :

2. Dan berikut isi Source Codenya :

Public a As Integer
Public b As Integer
Public c As Integer

Public Sub _new()
End

Public Sub Form_Open()
End

Public Sub Button3_Click()
Quit

End

Public Sub Button4_Click()
  TextBox1.Text = ""
  TextBox2.Text = ""
  TextBox3.Text = ""
End

Public Sub Button1_Click()

If TextBox1.Text == "" Or TextBox2.Text == "" Then
   Label4.Text = "Nilai Haris diisi !!!"
Else
    a = TextBox1.Text
    b = TextBox2.Text
    c = a + b
    TextBox3.text = c

Endif
End

Public Sub Button2_Click()

If TextBox1.Text == "" Or TextBox2.Text == "" Then
   Label4.Text = "Nilai Haris diisi !!!"
Else
    a = TextBox1.Text
    b = TextBox2.Text
    c = a - b
    TextBox3.text = c

Endif
End

3. Untuk yang mau download bisa disini

Semoga Membantu

Install Gambas3 di openSUSE 12.2 (Mantis)

Sudah beberapa hari pake openSUSE 12.2 (Mantis), 

Kebutuhan utama adalah install Gambas3, 

ok berikut caranya :

# zypper addrepo http://download.opensuse.org/repositories/home:munix9:gambas/openSUSE_12.2/home:munix9:gambas.repo
# zypper refresh
# zypper install gambas3

Sumber : here

Install Gambas3 di openSUSE 12.1

Sebelumnya saya sudah pernah menulis cara install gambas3 di linux, Tetapi kali ini saya coba gambas3 di openSUSE 12.1, caranya lebih sangat mudah, bisa menggunakan Yast. atau bisa menggunakan Terminal dengan mengetikan perintah berikut :

# zypper install gambas3

Ok, untuk masalah install mungkin tidak begitu sulit, Gambas3 sudah ada di Menu, tetapi masalahnya adalah Gambas3 tidak bisa dibuka. Setelah mencari cari, akhirnya ketemu dengan link berikut :

http://pastebin.com/Vs6Bu3BU

Dan cara mengatasinyapun juga sebenarnya sangat mudah, Direktori hasil instalasi ada di /usr/local/src/

Ok, berikut caranya :

1. Masuk ke direktori tersebut :

# cd /usr/local/src

2. Contoh kali ini saya menggunakan gambas3-3.1.1 jadi masuk ke direktorinya :

# cd gambas3-3.1.1/

3. Ketikan perintah berikut :

# make uninstall

4. Untuk penjelasanya saya kurang begitu tau, kemudian coba buka lagi Gambas3nya

Selesai, Semoga membantu..