Koneksi Gambas dan MySQL

membuat Koneksi Gambas dan MySQL
langsung saja...
Download Contoh programnya....Gambas_Proyek.tar.gz

PUBLIC MyConn AS Connection
PUBLIC myRs AS Result

PUBLIC SUB Koneksi()
MyConn = NEW Connection
MyConn.Close
MyConn.Type = "mysql"
MyConn.Host = "localhost"
MyConn.Login = "root"
MyConn.Password = "123"
MyConn.Name = "inventori"
MyConn.Open
END


'Tambahkan di Form Open

PUBLIC SUB Form_Open()
Koneksi
END

'Contoh untuk penyimpanan data di Database Barang

PUBLIC SUB Button1_Click()
DIM sql AS String

IF TextBox1.Text = "" OR TextBox2.Text = "" OR TextBox3.Text = "" OR TextBox4.Text = "" THEN

Message.Info("Data Belum Lengkap", "OK")

ELSE

sql = "insert into barang (nama,harga) values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"
myRs = MyConn.Exec(sql)

Message("Simpan Data", "Simpan Data Berhasil")

CATCH
Message.Info("Data sudah ada dalam database", "OK")
ENDIF

END

Selamat Mencoba

Key Code Di Gambas

Aplikasi Programming yang satu adalah Aplikasi yang mudah untuk digunakan sama seperti halnya kita di VB6.

Download Contoh Program sederhana Gambas_aplikasi2.tar.gz
kali tulisan kali ini saya akan berbagi cara Key Code di Gambas

tidak Jauh Keycode yang ada di VB

contoh script

PUBLIC SUB TextBox1_KeyPress()

IF Key.Code = Key.Enter THEN
Button5.Value = 1
ENDIF

END

selamat mencoba...

Pengenalan Awal Aplikasi SpreadSheet

Aplikasi perkantoran yang berorientasi pada Spread Sheet sangatlah mudah untuk dijumpai diberbagai Platform-Platform terkenal,seperti MS.Excel,OpenOffice.org,Lotus 1-2-3, dan masih banyak lagi aplikasi Spreadsheet yang terus berkembang sampai saat ini.

Langsung Saja...Kita Bahas Masalah Formula yang terdapat pada Aplikasi Spreadsheet yang ada Di Ms.Excel atau OpenOffice.org

Beberapa Rumus Formula Dasar yang akan Dibahas :

1.SUM adalah formula untuk menjumlahkan
2.MIN adalah formula untuk menetukan nilai terendah dalam Cell yang kita pilih
3.MAX adalah formula untuk menetukan nilai terbesar dalam Cell yang kita pilih
4.Average adalah formula untuk menetukan nilai rata-rata dalam Cell yang kita pilih
5.Count adalah formula untuk menetukan jumlah record dalam Cell yang kita pilih

Mari kita bahas 

Kita lihat untuk  membuat rumus formula harus diawali dengan sama dengan "="

Silahkan Download materi dan latihannya..
1.Formula SUM
2.Formula IF dengan Mid/right/left
3.AVARAGE,MIN,MAX
4.Formula VLOOKUP dan HLOOKUP

 Semoga bermanfaat

Pemanfaatan IPTABLES Linux

Salah satu teknik firewalling adalah menggunakan packets filtering (penyaringan paket) TCP/IP,
Bagaimana sebuah paket TCP/IP melalui penyaringan-penyaringan yang ada akan penulis coba uraikan berdasarkan dokumen yang didapat dari: http://netfilter.samba.org/unreliable-guides/packet-filtering/packet-filtering-HOWTO.linuxdoc-6.htm


Berikut Link lainnya
http://kebofunky.wordpress.com/2008/04/07/penyaringan-paket-menggunakan-iptables/
Kevin Malakiant – iDiots – KeBoFunkY
 
Semoga berhasil

Lupa Password Windows Xp

Terkadang kita membuat Password yang begitu sulit sehingga kita sendiri lupa apa password user nya.
kalo sudah terlanjur di buat dan kita lupa mau bagaimana lagi....

Disini ada banyak cara untuk membebaskan PC kita dari password tersebut dan merubah password yang telah ada.

cara pertama adalah....
1.hidupkan PC anda
2.saat masuk menu login, tahan CTRL ALT kemudian tekan DEL 2kali
3.masukkan Administrator pada textbox user, kosongkan pada Password..
4.apakah anda berhasil...jika berhasil ubahlah password user anda,
   klik Control Panel , User Account
   jika anda belum berhasil gunakan cara kedua

cara kedua adalah...
1.hidupkan PC anda
2.tekan F8 lalu masuk menu, pilih Safe Mode
4.apakah anda berhasil...jika berhasil ubahlah password user anda,
   klik Control Panel , User Account

Catatan : Ini hanya dapat dilakukkan apabila user Administrator anda tidak anda berikan Password.

Semoga berguna.

Dasar Visual Basic 6.0

Visual Basic 6.0 (VB6) bahasa pemograman  yang dikeluarkan oleh Microsoft ini sangatlah mudah untuk digunakan, apalagi untuk kita yang baru masuk kedunia Programming.

Karena dalam Aplikasi ini, bahasa yang digunakan adalah yang mudah dimengerti oleh Newbie

* membuat huruf besar dalam textbox, ikuti caranya

1. Masukkan satu buah textbox pada form

2. Klik dua kali pada textbox tersebut

3. Ubah Prosedur Change menjadi keypress

4. Masukkan Script ini kedalamnya

    Private Sub textbox1_KeyPress(KeyAscii As Integer)

    Select Case KeyAscii

    Case 97 To 122

    KeyAscii = KeyAscii - 32

    End Select

    End Sub

* membuat hanya angka yang dapat dimasukkan dalam textbox, ikuti caranya

1. Masukkan satu buah textbox pada form

2. Klik dua kali pada textbox tersebut

3. Ubah Prosedur Change menjadi keypress

4. Masukkan Script ini kedalamnya

    Private Sub textbox1_KeyPress(KeyAscii As Integer)

    If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then 

    KeyAscii = 0

    End If.

    End Sub

 

* menggunakan fungsi keycode, ikuti caranya

   terkadang untuk meminta bantuan di Ms.Word hanya dengan Menekan F1 maka akan 

   muncul bantuan dari Assistant Ms.Word

   -  Mari kita terapkan penggunakan Keycode

   1. Buat Dua buah Form

   1. Masukkan satu buah textbox pada form1

   2. Klik dua kali pada textbox tersebut

   3. Ubah Prosedur Change menjadi keyDown

   4. Masukkan Script ini kedalamnya

       Private Sub textbox1_KeyDown(KeyCode As Integer, Shift As Integer)

       If KeyCode = vbKeyF3 Then

       Form2.Show

       End If

       End Sub

    5.Coba letakan Kursor anda di Textbox1 kemudian tekan F3

       maka secara otomatis Form2 akan segera muncul.

    6.Silahkan Anda terapkan lebih jauh lagi penggunaan Keycode ini.

       seperti untuk penekanan tombol Delete pada Keyboard dan sebagainya

Semoga Berguna..