Pantun Lucu Paling Konyol, Pantun Lucu banget 2012

Pantun lucu dan konyol paling lucu dan paling konyol terbaru 2012. Kumpulan pantun lucu banget, pantun jenaka lucu, pantun humor dan pantun gokil yang bikin ngakak.

mAkAn pIzzA di prAnciz
sAmbiL dengAr lAgu romantiz
bukAn mO sok pUitiz or drAmatiz
tapi mAaf……. aq calon artiz
cUma pEngen bAgi sms grAtiz
kAn sayAng klO gA abIz………..heheeeee

Jinak-jinak burung merpati
Lebih jinak burung lelaki
Burung merpati dipegang lari
Burung lelaki dipegang berdiri!

BUAH MANGGA BUAH KEDONGDONG
BELI DI PASAR HARGANYA MURAH
Gile gw ganteng kayak berondong
Istri gw nanti pasti kayak Asmirandah

Masak air biar mateng
Dipake naek buat ke genteng
Eh atas jangan sok ganteng
masih tetep ane yang paling ganteng

Naek becak, pake aki
Elu ngaca, banyak daki

Beli Aki, diwarung Bu Saritem
Ehh Gapapa ada daki
Dari pada eluu itemmm

Ada kera nelen permen
biar item tapi keren

Sendal jepit beli di Pak tua
Ketiban nasi dimarahin ayahh
Eh Lo diatas gww
maho yahhh

Ibu-ibu keujanan
Langsung mandi pake sampoo
Eh ngacaaa donk gan
masa maho teriak maho

Ada boboho ketemu betmen
biar maho yg penting keren

Pak haji makan permen
Habis itu mukulin boboho
Tetep aja gan walaupun kerennn
Lo tetep Mahoo

Jalan jalan mampir ke pariss
Ketemu cewek e ternyata setan
Wahhh Looo.... Mirissss
Jangan bilang maho gw padhal lo juga maho kan gan

Ada buaya
ada anjing

Dari semuanya
tetep gw yg paling ganteng

Burung irian
burung cendrawasih

Cukup sekian
terima kasih

Enaknya makan bubur
Pagi pagi dirumah Mbak Kurosai
Ehh gan jangan kaburr
Pertarungan masih belom selesai

Baca Selengkapnya...

Aplikasi database dengan ADODC & Visual Basic 6.0

ADODC adalah komponen akses data yang disediakan Microsoft untuk mempermudah pegkasesan data pada program kita. Dengan ADODC kita dapat berhubungan dengan database SQL Server maupun database Access lalu melakukan pengolahan data standar seperti menambah, menghapus, cari, hapus simpan dan lain-lain. ADODC bisa menjadi komponen pengikat data di database dengan kontrol pengolah data seperti textbox, maupun kontrol MSHFlexGrid. Kali ini kita akan melakukan pengolahan database MS-Access dengan kontrol ADODC di visual basic 6.0 Buat database baru dengan Microsoft Access lalu buat tabel Karyawan seperti gambar di bawah ini: Simpan dengan nama dataku.mdb lalu tutup Microsoft Acces Point penting dari ADODC adalah kita membuat connection stringnya dan  melalui property connection string menentukan recordsource melalui property recordsource. contoh: adodc1.connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\artikel\vb6 db adodc\dataku.mdb;Persist Security Info=False" adodc1.RecordSource="SELECT * FROM Karyawan" Selanjutnya kita melakukan pengikatan data  (binding) ke textbox melalui property datasource dan datafield objek textbox. Buatlah form seperti di bawah ini: berikut ini adalah kode selengkapnya: Private Sub cmdCari_Click()   Dim sNik As String   sNik = InputBox("NIK:")     Adodc1.Recordset.MoveFirst   Adodc1.Recordset.Find "nik='" & sNik & "'" End Sub Private Sub cmdHapus_Click()   Adodc1.Recordset.Delete   cmdTampil_Click End Private Sub cmdSimpan_Click()   Adodc1.Recordset.Fields("nik") = txtNik.Text   Adodc1.Recordset.Fields("nama") = txtNama.Text   Adodc1.Recordset.Fields("alamat") = txtAlamat.Text   cmdTampil_Click End Sub Private Sub cmdTambah_Click()   Adodc1.Recordset.AddNew   txtNik.Text = ""   txtNama.Text = ""   txtAlamat.Text = "" End Sub Private Sub cmdTampil_Click()   Set grd.Recordset = Adodc1.Recordset   grd.ColWidth(0) = 0   grd.ColWidth(1) = 1000   grd.ColWidth(2) = 2000   grd.ColWidth(3) = 3000 End Sub Private Sub Form_Load()   cmdTampil_Click End Sub Jika program ini dijalankan maka akan terlihat seperti gambar di bawah ini:   Setelah Anda selesai membuat aplikasi database mungkin anda menemui masalah ketika anda menginstall di komputer lain yang posisi path atau folder penyimpanan database nya berbeda dengan di komputer anda misalnya waktu membuat aplikasi anda simpan di d:\program\dataku.mdb  sedangkan waktu install mungkin di c:\program\dataku Hal ini bisa diatasi dengan membuat kata kunci App.Path Sehingga connection string nya: adodc1.connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\artikel\vb6 db adodc\dataku.mdb;Persist Security Info=False" kita ganti menjadi: adodc1.connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.path & "\dataku.mdb;Persist Security Info=False" Hal yang sama dapat anda lakukan dengan objek data1 bawaah visual basic 6 Lihat kode di bawah ini: Data1.DatabaseName = App.Path & "\dataku.mdb"

Baca Selengkapnya...