Basic Of Computer

Koneksi Gambas dan MySQL

2010-08-13T17:00:00.000-07:00

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

2010-08-13T16:48:00.000-07:00

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

2010-07-20T22:25:00.000-07:00

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

2010-07-20T02:29:00.001-07:00

Pemanfaatan IPTABLES Linux

2010-07-19T02:22:00.001-07:00

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

2010-07-18T09:58:00.000-07:00

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

2010-07-15T11:18:00.001-07:00

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..