NqDEQMRpEBnRF1-BfMHxdlfAQFw

Alexa Rank

Selasa, 13 Desember 2011

Sebuah Cerita - Burung Gereja

Burung Gereja



Sayangilah Orang Tuamu Sebagaimana Mereka menyayangimu diwaktu kamu kecil,
Sabarlah dalam menghadapi mereka, sebagaimana mereka sabar menghadapi tingkah laku nakalmu dahulu,
Sesungguhnya kita tidak akan bisa mengganti setetespun air susu Ibu dan setetespun keringat Ayah.

                Cerita ini berkisah tentang seorang anak laki-laki dan ayahnya yang mulai renta dimakan usia, semoga ada makna yang bisa didapat lewat cerita pendek ini.
                Disuatu pagi yang dingin sehabis hujan, Sang ayah dengan langkah rapuhnya berjalan dari ruang tamu rumahnya menuju kekamar anaknya dilantai atas, sang ayah berniat untuk mengajak anak laki-lakinya untuk berjalan - jalan dihalaman rumah mereka, dengan langkah rapuhnya dia berusaha untuk naik tangga menuju kamar sang anak.
                Begitu sang ayah hampir mencapai lantai atas, anaknya pun keluar dari pintu kamarnya, dan mereka berdua saling menatap satu sama lain. Melihat ayahnya yang susah payah berjalan sang anak hanya memandangnya dingin seakan - akan tidak peduli, dan sang anak pun berlalu kearah kamar mandi didepan kamarnya, tanpa mengindahkan ayahnya. Sang ayahpun hanya diam tanpa kata.
                Sang ayahpun menunggu didepan pintu kamar mandi, dan mengetuk pintu kamar mandi dengan pelan sambil berkata "Nak maukah kau menemaniku berjalan-jalan diluar pagi ini?", lalu sang anak pun hanya menjawab dari dalam kamar mandi " ini masih pagi sekali ayah memang ada apa?", ayahnya pun menjawab "Ayah hanya ingin menikmati suasana saja, maukah kau ?", sang anak hanya menjawab dengan nada cuek "Ya baiklah sebentar". Lalu sang ayahpun turun dengan langkah yang meragukan ke bawah, sang anak yang sudah keluar dari kamar mandipun hanya melihat ayahnya yang seakan hampir jatuh dari tangga saja tanpa membantunya.
                Mereka pun beranjak dari rumah menuju halaman, sesampainya disana mereka berdua duduk disebuah bangku taman yang lumayan panjang, sang ayahpun duduk yang kali ini dibantu oleh anaknya, mereka duduk agak berjauhan karena memang hubungan antara ayah dan anak ini sudah kurang harmonis semenjak sang ibu meninggal 5 tahun lalu.
                Sang anak duduk sambil membaca koran harian setempat, sementara sang ayah hanya duduk sambil memandangi indahnya suasana halaman rumah yang cukup luas sehabis hujan, nyaris tidak ada pembicaraan antara mereka berdua.
                Tiba - tiba ada seekor burung gereja hinggap didahan tanaman perdu halaman mereka, tampaknya burung gereja itu sedang mencari material untuk membuat sarangnya diatas pohon. Sang Ayah hanya melihat dan memperhatikan dengan seksama, sampai sang ayah tiba- tiba berkata pada anaknya "Nak, kau tahu burung apakah itu ?", sang anak lalu menurunkan sedikit korannya dan menatap burung itu sejenak lalu berkata "Itu burung gereja Ayah".  
                Sang Ayahpun diam seakan teringat sesuatu, sesuatu hal yang terlampau dalam untuk dikenang, lalu dia berkata lagi kepada anaknya "Nak, kau tahu burung apakah itu ?", sang anak pun dengan suara agak tinggi , sepertinya kesal karena pertanyaan yang sama, dan menjawab " tadi sudah kubilang, itu burung gereja Ayah!", Ayahnya hanya mengucap "Hmmm, begitu". Tak beberapa lama sang ayah berkata lagi "Nak, burung apa ya itu?", lalu sang anakpun berteriak " cukup Ayah!, ayah kenapa?, kenapa selalu kata-kata itu yang ayah tanyakan dari tadi", tak sadarkah kau itu menggangguku!".
                Nampaknya sang anak sudah sangat kesal dengan pertanyaan ayahnya yang berulang-ulang. Lalu Sang ayahpun bangkit dari tempat duduknya , anaknya pun berkata dengan suara agak lantang "Sekarang kau mau kemana ayah!" , sang ayahpun hanya diam tak bersuara sambil terus melangkah dan sang anak terus melanjutkan membaca koran paginya sambil menahan perasaan kesal.
                Beberapa saat kemudian sang ayah datang lagi menghampiri anaknya yang masih ditempat duduk ,kali ini sambil membawa sebuah buku catatan yang cukup tebal, buku itu terlihat sangat lusuh karena sudah puluhan tahun digunakan.                
                Sang ayahpun berkata "Nak, coba kau baca buku ini halaman 23", sang anakpun mengambil buku yang disodorkan ayahnya, dan seketika langsung mencari halaman 23. Sang anak pun membaca halaman itu dengan seksama.
                Disitu tertera tanggal 15 April 1981, berarti sudah 30 tahun yang lalu. Berikut adalah isi dari catatan itu :
                "Minggu pagi ini, seperti biasa kunikmati secangkir kopi buatan Istriku Anne, seperti biasa senyumnya selalu menghiasi rona pipinya yang merah, dia cantik bagai burung gereja yang hinggap pada pohon cherri dipagi hari,Sekarang ini kebahagian kami telah lengkap berkat lahirnya putra kami "David" , dialah embun pagiku, penyejuk jiwaku dikala sedang penat menghadapi kehidupan dan tekanan pekerjaan, tawa dan tangisnya selalu menghiasi hari-hariku selama dua tahun terakhir ini. Kali ini David kuajak untuk bermain dihalaman rumah pukul 08.00 pagi ini, karena sekarang ia sudah bisa bangun pagi. Kutuntun dia dari tangga dilantai dua tempat kami bertiga tidur bersama, langkah kaki kecil itu sungguh indah, aku selalu menuntunnya setiap hari berdua dengan Anne  untuk menuruni tangga, sengaja aku tidak menggendongnya karena aku ingin melatih dia agar lancar menaiki dan menuruni tangga.
                David terus kutuntun sampai halaman rumah, dan kami duduk bersama di bangku halaman rumah kami yang indah ini, sementara Anne memasak didapur untuk sarapan. Pagi ini kuberitahu tentang betapa indahnya alam ciptaan Tuhan yang paling berharga ini, kukenalkan David pada semua hal yang ada dihalaman mulai dari pohon, bangku, katak, kucing, batu sampai burung gereja, ada yang unik disini, pandangan david anakku, tak pernah lepas dari burung itu, diapun berkata walaupun belum begitu lancar berbicara "Ayah, burung apa itu?", akupun menjawab dengan semangat "Oh, itu namanya burung gereja nak, David suka burung gereja?", david kecil pun berkata "Suka yah, suka sekali, bisakah dia bersiul?", aku menjawab lagi "oh pasti bisa  ,bunyinya seperti cit cit cit ", david kecilku pun tertawa kecil . Tak berapa lama Davidku bertanya lagi , "Ayah, burung apa itu?" , akupun tak bosan untuk menjawab "Oh, itu namanya burung gereja nak, David suka burung gereja?", diapun tertawa lagi, kira-kira 21 kali David kecilku bertanya tentang burung gereja itu, akupun tidak pernah merasa penat dan bosan untuk menjawab dan mengajarinya pagi itu, setiap kali dia berkata, aku selalu mencium kening dan pipinya , dan memeluknya erat, alangkah baiknya Tuhan kepadaku menitipkan karunia-Nya padaku, aku sayang anakku , pesan Ayah jadilah anak yang berguna dan berbakti ya David agar kau bisa menghargai hidup ini hidup yang telah Tuhan beri untuk kita, sayangilah kedua orangtuamu sebagaimana orangtuamu menyayangi kamu , aku pun tanpa sadar menangis pagi itu sambil memeluk tubuh david kecilku". 
                Sang anakpun menutup lembar buku itu, sambil melihat mata ayahnya yang sepertinya telah kehilangan cahaya hidup. Lalu sang ayahpun berkata pada anaknya dengan suara yang agak lemah " David anakku, kau tahu sekarang betapa aku sangat menyayangimu anakku satu-satunya, setiap pagi sejak kau lahir aku selalu ada untukmu, walau sesibuk apapun pekerjaanku, kau selalu kutuntun dari mulai bangun tidur sampai tidur lagi , aku tidak pernah penat dan bosan mendengarkan kata-kata dan pertanyaanmu, ketahuilah nak, tak ada lagi sekarang yang berarti untukku selain dirimu semenjak ibumu tiada, aku ingin kau tahu ini disisa sisa terakhir hidupku aku ingin melihat senyum dan tawamu lagi nak".
                Sang anakpun seketika memeluk dan mencium kening ayahnya yang renta itu , sambil menangis, dan sang anak berkata "Maaf, maafkan aku Ayah selama ini telah jahat dan durhaka kepadamu, aku sadar betapa berjasanya kau dalam kehidupanku, aku sayang Ayah selamanya".

"Kita tidak akan bisa mengganti jasa-jasa Orang Tua kita, yang hanya bisa kita lakukan adalah mencoba membahagiakannya"


...........................TAMAT...............................

Kamis, 24 November 2011

Me And My Weapon!


                Semoga tulisan saya tidak membuat anda-anda bosan, sebelumnya saya ucapkan terimakasih kepada HP dan HP – COMPAQ PRESARIO yang telah membuat begitu banyak kemudahan pada hidup saya.
                Kali ini pengalaman saya dalam menggunakan produk Notebook HP ingin saya bagikan kepada para pembaca yang budiman sekalian, saya saat ini menggunakan produk Notebook HP , Notebook yang saya gunakan lebih tepatnya bermerk COMPAQ , namun setelah saya telusuri lebih dalam ( #emangnya sumur? :D ), ternyata COMPAQ sudah diakuisisi oleh HP , jadi boleh ya ikut kompetisi blog HP ini , J , hehe. Saya menggunakan COMPAQ PRESARIO CQ – 40 , dengan OS Windows Vista OEM  ( sekarang saya ganti menjadi Windows 7 OEM ).
Awalnya saya tidak berminat sama sekali dengan yang namanya komputer, informatika dan sebagainya, bahkan saat saya ikut Seleksi Nasional Masuk Perguruan Tinggi Negeri ( SENAMPTN 2008 ) waktu itu mengambil  jalur IPC , tidak ada satu fakultas pun yang berkaitan dengan informatika atau komputer yang saya pilih.
Namun semuanya berubah, ketika saya tidak berhasil tembus satu pun program studi dan fakultas yang saya pilih, sempat menganggur beberapa bulan sampai saya masuk kuliah , Bapak saya memberikan sesuatu yang sangat istimewa, yang ternyata telah mengubah hidup saya sampai sekarang,   membuat saya semakin terbuka dengan internet dan menambah pengetahuan, sesuatu itu adalah  : COMPAQ PRESARIO CQ 40


Saya memakai Notebook ini dari awal 2009 sampai sekarang akhir 2011 , kurang lebih 2 tahunan, pertama hanya untuk mengerjakan tugas-tugas kuliah, mengirim email, dan browsing saja, sampai menjelang semester 6, saat liburan salah seorang teman menawarkan lowongan untuk menjadi Assisten Pengajar  / Assisten Laboratorium komputer dikampus saya, saya pun menerimanya dan mendaftar ikut tes, saya pun akhirnya belajar dan belajar sungguh sungguh tentang pemrograman ( Visual Basic, C ++ ,Php ,  MySql , Visual FoxPro , Delphi ) dari Notebook COMPAQ ini. Setelah ikut tes ( diwarnai dengan gugup yang dalam ) akhirnya saya pun diterima juga magang sebagai Assisten Lab sampai sekarang.

Rintangan pun datang! Jeng jeng jeng jeng ... ( Dengan nada antagonis )
Yang namanya hidup itu pasti adakalanya kita mengalami keberuntungan namun adakalanya juga datang kegagalan, kesialan,kesedihan dan kemalangan, nah yang saya alami sepanjang bulan maret 2009 adalah kemalangan selain putus sama pacar , juga COMPAQ PRESARIO CQ 40 saya terkena virus , sungguh jahat!!,.
Virus yang menginfeksi saya adalah win sality 32, cara kerja virus ini melumpuhkan regedit, task manager dan yang berhubungan dengan sistem. Dikarena kekhilafan saya yang menonaktifkan antivirus luar dan mengganti dengan lokal berbuah petaka, akhirnya mau tidak mau OS windows vista home basic saya terpaksa saya install ulang dengan windows 7 ultimate edition.
Rintangan kedua pun datang! Jong jong jong jong (dengan nada aneh...)
Jadwal sidang pun mulai mendekat, masa bimbingan Tugas Kahir pun dimulai, namun saya masih berkutat dengan jadwal Assisten Lab yang jadwal mengajarnya setiap hari ( 6 hari perminggu ), namun sesama teman asslab yang juga ikut tugas akhirpun menguatkan saya  , dia berkata bahwa “kita pasti bisa melaluinya“ . Menjadi Assisten Lab sungguh membuat pengetahuan tentang sistem , komputerisasi dan pemrograman saya bertambah, berikut adalah foto teman – teman sesama Asslab saya di Kampus ( Ruang Dosen )





Saya mendapat teman – teman yang seru dan menyenangkan disini, semua karena lowongan Asslab itu dan saya mungkin tidak akan bisa magang jika saya tidak menjalani tes masuk dengan optimal, semua berkat COMPAQ PRESARIO CQ 40 dari Bapak saya, saya jadi belajar dengan sungguh – sungguh.
                
     Foto Bapak saya tercinta J

                Dan sidang tugas akhirpun dimulai, berlokasi di jalan kramat 168  jakarta pusat, saya mesti jauh-jauh naik bis dari tangerang, seminggu sebelumnya materi dan perlengkapannya telah saya kerjakan dan burning dengan perngkat yang terinstall pada Notebook COMPAQ  ini, bisa dibayangkan betapa repotnya saya bila tidak ada Notebook ini, pada saat sidang pun saya menggunakan notebook sendiri dengan alasan kenyamanan dan mencegah banyaknya error pada saat menjalan program yang saya buat.
                Setelah pengumuman , saya pun bersyukur kepada Tuhan , karena grade yang saya dapatkan adalah A , sungguh pencapaian yang memuaskan berkat kerja keras , belajar dan satu hal lagi semua tak kan bisa berjalan lancar tanpa Notebook HP COMPAQ .

Terima kasih HP

Terimakasih Compaq, Karena Kalianlah Senjataku

Ramandita Yudia Perdana / Tangerang
  


Sekian.....

Rabu, 23 November 2011

Koneksi VB 6.0 dengan visual data manager ( objek DAO )

tanpa perlu basa-basi lagi, silahkan klik disini

Minggu, 30 Oktober 2011

Kejanggalan kematian presiden-presiden Amerika

Tahukan Anda???

Berikut ini adalah kejadian2 aneh yang terjadi pada presiden2 AS yang terpilih
pada tahun dengan akhiran '0' dengan kelipatan 20 tahun

1. 1840 : William Henry Harrison(Tewas dikantor)
2. 1860 : Abraham Lincoln(Terbunuh)
3. 1880 : James A.Garfield(Terbunuh)
4. 1900 : William McKinley(Terbunuh)
5. 1920 : Warren G.Harding(Tewas dikantor)
6. 1940 : Franklin D.Roosevelt(Tewas dikantor)
7. 1960 : John F.Kennedy(Ditembak mati)
8. 1980 : Ronald Reagen(Ditembak namun berhasil diselamatkan)
9. 2000 : George W.Bush(?)


Kemudian ada semacam keanehan, yag tidak bisa dijelaskan antara Abraham Lincoln dengan John F.Kennedy:




*) Abraham Lincoln terpilih oleh Congress tahun 1846
*) John F.Kennedy terpilih oleh Congress tahun 1946
*) Abraham Lincoln terpilih menjadi Presiden tahun 1860
*) John F.Kennedy terpilih menjadi Presiden tahun 1860
Keduanya ditembak pada hari Jum'at keduanya ditembak dikepala

Nah, yang tambah bikin aneh lagi!..

*) Sekretarisnya Lincoln bernama Kennedy
*) Sekretarisnya Kennedy bernama Lincoln

Keduanya dibunuh oleh orang selatan
Keduanya digantikan oleh orang selatan , sama-sama bernama Johnson

*)Andrew Johnson, pengganti Lincoln, lahir tahun 1808
*)Lyndon Johnson, pengganti Kennedy, lahir tahun 1908
*)John Wilkes Booth, yang membunuh Lincoln,lahir tahun 1839
*)Lee Hervey Oswald, yang membunuh Kennedy,lahir tahun 1939

Yang Semakin menambah aneh lagi....
*)Lincoln ditembak ditheater bernama 'Ford'
*)Kennedy ditembak dalam mobil bermerk 'Lincoln' buatan 'Ford'
*)Seminggu sebelum Lincoln ditembak, ia berada di Monroe, Maryland
*)Seminggu sebelum Kennedy ditembak, ia berada di Marilyn Monroe

Jika dihitung jumlah pembentuk nama belakang mereka
L I N C O L N ( 7 huruf )
K E N N E D Y ( 7 huruf )

Apa benar semua hal ini hanya sebuah kebetulan?
Hanya Tuhan sajalah yang tahu.

program hitung pemakaian komputer

                 Kali ini kita akan sama-sama belajar tentang cara membuat program pengukur waktu lama berjalannya komputer, mungkin nantinya program ini dapat dimodifikasi menjadi sebuah timer, atau bisa juga hanya sekedar ingin mencari tahu lama pemakain komputer kita.
Oke langsung saja, kita akan membuat program ini dengan IDE Microsoft Visual Basic 6.0 dengan memakai fungsi  API ( Application Programming Intarface ) 
1.       Buka VB nya : Start >> All Programs >> Microsoft Visual Basix 6.0 / vb 6.0
2.       Lalu Tambahkan sebuah Form, lalu desain seperti dibawah ini

3.       Tampilan diatas adalah setelah Program dijalankan, tambahkan kedalam form yaitu :
1 buah Label , 1 buah Listbox , 1 buah Timer seperti tampilan diatas
Dan tambahkan 1 buah Module dalam Project , caranya pada MenuBar : klik Project >> Add Module >> Open
4.       ‘Lalu berikut ini untuk source codenya
'untuk form 1

Private Sub Form_Load()
Timer1.Interval = 1000 ' untuk me-refesh timer
nTime = GetTickCount()
End Sub

Private Sub Timer1_Timer()
Dim Time As Long
Dim detik As Long
Dim menit As Long
Dim jam As Long

Time = GetTickCount()
detik = Round(Time / 1000)
menit = Round(detik / 60)
jam = Round(menit / 60)
List1.Clear
' List1.AddItem ("Total waktu berjalan = " & vbTab & Time & " millisecond")
List1.AddItem ("")
List1.AddItem (jam & " Jam, atau " & menit & " Menit, atau " & detik & " Detik")
List1.AddItem ""
List1.AddItem "Waktu dari mulai program ini dijalankan: " & Round((Time - nTime) / 1000) & " Detik"
End Sub

' script untuk module
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public nTime As Long

Simpan dengan nama project : prog_waktu.vbp
                                          Form     : form1.frm
                                          Module : module1.bas

Download Source Code yang telah dimodifikasi disni




Program Timer Komputer Windows

Dalam tutorial kali ini kita akan membuat sebuah program timer shutdown komputer, sebelumnya saya sudah memberikan tutorial cara mematikan komputer dengan vb 6.0, jika belum dibaca dahulu biar agak nyambung, hehe.
Mungkin sudah banyak program2 sejenis ini di internet, namun tak ada salahnya bila kita belajar membuat program ini sendiri, program ini berguna sebagai timer, agar ketika kita akan ketiduran ataupun lupa mematikan komputer hal itu bisa dicegah dengan timer windows ini.
Persyaratan :
1.       Hanya digunakan untuk OS Microsoft Windows 95 – 7
2.       Menggunakan IDE Compiler Microsoft Visual Basic 6.0
3.       Berdoa dahulu sebelum mulai J hehehe
Oke langsung saja, dibuka Microsoft VB 6.0 , start >> AllPrograms >> Microsoft Visual Basic 6.0
Tambahkan 1 buah Form sebagai berikut :



Komponen - komponennya :
Waktu : Label1 , Text1
Detik Berjalan : Label2
Pilihan Detik, Menit , Jam : Combo1
Pilihan Shutdown , Restart : Combo2
Matikan : Command1
Batal : Command2
Timer1
Catatan  : Agar ketika dijalankan program berada pada sudut kanan atas maka pada properti form1 nya sesuaikan sebagai berikut :
Left   = 14505 atau diatas itu
Border Style  = 0 – None  ‘ agar form bersifat flat , tombol min, max dan close hilang

Lalu Ketikkan Coding / Lisitng dibawah ini :
Private Sub Command1_Click()
On Error Resume Next
If Text1.Text = "" Then
MsgBox ("Masukkan Angka")
Text1.SetFocus
Else
Label2.Caption = Text1.Text
If Combo1.Text = "Menit" Then
Label2.Caption = CDbl(Label2.Caption) * 60
ElseIf Combo1.Text = "Jam" Then
Label2.Caption = CDbl(Label2.Caption) * 3600
End If
Text1.Locked = True
Combo1.Locked = True
Combo2.Locked = True
Command1.Enabled = False
Timer1.Enabled = True
End If
On Error GoTo 0
End Sub

Private Sub Command2_Click()
p = MsgBox("Batalkan dan Keluar??", vbCritical + vbOKCancel, "Pesan!")
If p = vbOK Then
Unload Me
Else
MsgBox "Tak Jadi Hehe"
End If
End Sub

Private Sub Form_Activate()
Text1.SetFocus
Combo1.Text = Combo1.List(1)
Combo2.Text = Combo2.List(0)
End Sub

Private Sub Form_Load()
Combo1.AddItem "Detik"
Combo1.AddItem "Menit"
Combo1.AddItem "Jam"
Combo2.AddItem "Shutdown"
Combo2.AddItem "Restart"
a = MsgBox("<Timer shutdown> < Modified By Ramandita Yudia A.K.A Mangiel >", vbOKOnly, "Ramandita Yudia")
If a = vbOK Then
Form1.Visible = True
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 13 Or KeyAscii = vbKeyBack) Then
    KeyAscii = 0
    End If
    If KeyAscii = 13 Then
    Text1.SetFocus
    End If
End Sub

Private Sub Timer1_Timer()
If Label2.Caption <= 0 Then
    Timer1.Enabled = False
    If Combo2.ListIndex = 0 Then
    Shell "Shutdown.exe -s -f -t 00"
    ElseIf Combo2.ListIndex = 1 Then
    Shell "Shutdown.exe -r -f -t 00"
    End If
Else
Label2.Caption = Label2.Caption - 1
End If
End Sub

Untuk Source Program Lengkap diatas silahkan klik disini

Koneksi VB 6.0 dengan database access

Koneksi Visual Basic dengan database Microsoft Access

Pada postingan kali ini, akan saya kupas tentang bagaimana caranya menghubungkan sebuah program visual Basic 6.0 dengan database.
Microsoft Visual Basic 6.0 telah mendukung sumberdaya database relational dan query, baik itu dengan MS Access, MySQL dan lain sebagainya, yang dibutuhkan disini hanyalah mengetahui jenis provider yang akan dihgunakan saja, juga jenis jenis objek untuk menghubungkanya.
Pasa VB 6.0 tersedia berbagai objek component yang dapat digunakan untuk mengkoneksikan database yaitu salah satunya komponen ADO ( Active Data Control ) dan DAO , namun sekarang teknologi DAO sudah banyak digunakan , dan para progammer telah beralih kepada Objek ADO , ADO sendiri dapat dibedakan lagi umumnya menjadi dua jenis yaitu ADODC ( Active Data Object Data Control ) dan ADODB , jika ADODB itu bukanlah sebuah komponen/objek berbasis GUI maka ADODC adalah GUI nya atau interfacenya.
Nah kali ini, kita akan sama-sama belajar membuat sebuah program input data mahasiswa dengan database Access dan dengan komponen ADODC berikut datagrid nya.
Langkah – langkahnya :
1.       Buka mIcrosoft VB 6.0 nya : start >> All Programs >> Microsoft Visual Basic 6.0
2.       Lalu desain form seperti dibawah ini :


Untuk menambahkan objek Adodc1 dan datagrid , caranya adalah
Klik kanan pada toolbox atau tekan Ctrl+T ,
Lalu pilih komponen2 pada tab control seperti dibawah ini :



Kalau sudah di check , tekan Apply  >> ok

3.       Jika sudah maka pada toolbox akan muncul 2 component baru, selanjutnya silahkan drag dan tambahkan kedalam form seperti tampilan diatas.
4.       Sebelum masuk ke cara pengkoneksian, terlebih dahulu dibuat dahulu databasenya dengan Microsoft Office Access 2003, jika adanya 2007 , maka harus disave as dahulu ke format 2002-2003
*) Buat Database dengan nama  : kampus.mdb
*) Buat 1 buah Tabel dengan nama : mahasiswa dan desain field2nya sebagai berikut :
               
Fields
Type
Field Size
nim ( Primary Key )
Text
8
nama
Text
25
kelas
Text
8
alamat
Text
25



5.       Langkah berikutnya adalah mengkoneksikan Adodc dengan database kampus yang sudah kita buat, caranya :
Klik kanan pada objek Adodc1 >> pilih Adodc properties >> pada tab General pilih option yang paling bawah ( use connection string ) >> build >> cari provider Microsoft JET 4.0 OLEDB
Lalu tekan Next >>


Pada Tab Connection pilih database name ( cari lokasi penyimpanan database dan klik databasenya ) >> lalu klik text connection , jika Success maka ok , jika gagal maka cek apakah database accessnya masih terbuka atau tidak ( harus ditutup dahulu databasenya )


6.       Lalu masih pada Adodc1 properties , pilih tab Recordsource , pilih command type : table dan pilih nama tabelnya : mahasiswa

7.       Jika Adodc sudah selesai, berikutnya adalah setting pada datagrid1 nya, untuk memunculkan data layaknya tabel, pada objek datagrid, cari pada bagian property nya datasource , pilih Aoddc1
8.       Sekarang coba jalankan formnya apakah field2 pada tabel mahasiswa sudah masuk pada datagrid atau belum, jika sudah “SELAMAT” anda telah berhasil mengkoneksikan database anda dengan program.
9.       Untuk Kode Programnya silahkan ketiikan listing dibawah ini :

Private Sub cmdbatal_Click()
Adodc1.Recordset.CancelBatch
bersih
nonaktif
End Sub

Private Sub cmddel_Click()
Dim cari As String
cari = InputBox("Masukkan NIM yg akan dihapus")
Adodc1.Recordset.Find "nim = '" & cari & "'"
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Delete
Adodc1.Refresh
MsgBox "Data telah dihapus"
Else
MsgBox "Data tidak ada!"
Adodc1.Refresh
End If
DataGrid1.Refresh
End Sub


Private Sub cmdedit_Click()
aktif
Text1.SetFocus
End Sub

Private Sub cmdexit_Click()
p = MsgBox("Yakin Mau Keluar??", vbQuestion + vbOKCancel, "EXIT")
If p = vbOK Then
End
End If
End Sub

Private Sub cmdfind_Click()
Dim cari As String
cari = InputBox("Masukkan NIM yg dicari")
Adodc1.Recordset.Find "nim = '" & cari & "'"
If Not Adodc1.Recordset.EOF Then
tampil
Adodc1.Refresh
Else
MsgBox "Data tidak ada!"
Adodc1.Refresh
End If
End Sub

Private Sub cmdnew_Click()
bersih
Text1.Enabled = True
Text1.SetFocus
End Sub

Private Sub cmdsave_Click()
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then
MsgBox "Lengkapi dahulu!"
Else
Adodc1.Recordset!nim = Text1
Adodc1.Recordset!nama = Text2
Adodc1.Recordset!kelas = Text3
Adodc1.Recordset!alamat = Text4
Adodc1.Recordset.Update
End If
End Sub



Private Sub Form_Load()
nonaktif
End Sub

Sub bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
End Sub

Sub nonaktif()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
End Sub

Sub tampil()
Text1 = Adodc1.Recordset!nim
Text2 = Adodc1.Recordset!nama
Text3 = Adodc1.Recordset!kelas
Text4 = Adodc1.Recordset!alamat
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Adodc1.Recordset.Find "nim = '" & Text1 & "'"
If Not Adodc1.Recordset.EOF Then
MsgBox "Data Sudah ada, ganti!"
tampil
Adodc1.Refresh
Else
MsgBox "Data belum ada,lanjutkan"
Adodc1.Refresh
Adodc1.Recordset.AddNew
aktif
Text2.SetFocus
End If
End If
End Sub

 Untuk Source Code / Listing Program Diatas , silahkan Klik Disini

# Semoga Bermanfaat











 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Affiliate Network Reviews