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











Kamis, 27 Oktober 2011

The Tielman Brothers

Dalam rangka Hari Sumpah Pemuda ke 83 , saya ingin share Postingan tentang hal yang berbau nasionalis nih, lewat info musik, hehehe. 

Ternyata jauh sebelum The Beatles dan Rolling Stones, mempopulerkan music rock n roll, mereka lebih dahulu mulai, dan siapa sangka Band ini dianggap sebagai Band Rock Pertama didunia. Kita boleh berbangga hati sebagai Orang Indonesia.


 
The Tielman Brothers adalah sebuah grup musik asal Indonesia.Mereka adalah anak dari Herman Tielman asal Kupang dan Flora Lorine Hess asal Semarang Musik mereka beraliran rock and roll, namun orang-orang di Belanda biasa menyebut musik mereka Indorock, sebuah perpaduan antara musik Indonesia dan Barat, dan memiliki akar di Keroncong. The Tielman Brothers adalah yang band Belanda-Indonesia pertama yang berhasil masuk internasional pada 1950-an. Mereka adalah salah satu perintis rock and roll di Belanda. Band ini cukup terkenal di Eropa, jauh sebelum The Beatles dan The Rolling Stones.
The Tielman Brothers pernah tampil di Istana Negara Jakarta dihadapan Presiden Soekarno. Karier rekaman mereka dimulai ketika keluarga Tielman pada tahun 1957 hijrah dan menetap di Breda, Belanda. Nama The Tielman Brothers lebih dikenal di Eropa, terutama Belanda. Di Indonesia sendiri, nama The Tielman Brothers masih menjadi nama yang asing, sebuah kenyataan yang sangat disayangkan.

Aksi panggung The Tielman Brothers yang atraktif
The Tielman Brothers dipercaya lebih dulu memperkenalkan musik beraliran rock sebelum The Beatles. Aksi panggung mereka dikenal selalu atraktif dan menghibur. Mereka tampil sambil melompat-lompat, berguling-guling, serta menampilkan permainan gitar, bass, dan drum yang menawan. Andy Tielman, sang frontman, bahkan dipercaya telah memopulerkan atraksi bermain gitar dengan gigi, di belakang kepala atau di belakang badan jauh sebelum Jimi Hendrix, Jimmy Page atau Ritchie Blackmore.

Sejarah

Andy Tielman dan seluruh keluarga asalnya dari Timor.Waktu mereka masih kecil nama band mereka The Timor Tielman Brothers. Perjalanan musik The Tielman Brothers dimulai di Surabaya pada tahun 1945, dimana empat kakak beradik laki-laki dan seorang adik perempuannya, Jane, sering tampil membawakan lagu-lagu dan tarian daerah. Kemampuan musik mereka diturunkan dari sang ayah, Herman Tielman, seorang kapten tentara KNIL, yang sering bermain musik bersama teman-temannya dirumahnya di Surabaya.
Berawal dari ketertarikan Ponthon untuk memainkan contrabass yang diikuti saudara-saudaranya yang lain. Reggy mempelajari banjo, Loulou mempelajari drum, dan Andy mempelajari gitar. Penampilan pertama mereka pada acara pesta di rumahnya membuat teman-teman ayahnya kagum dengan membawakan lagu-lagu sulit seperti Tiger Rag dan 12th Street Rag. Sejak saat itu mereka sering tampil di acara-acara pribadi di Surabaya. Tawaran tampil pun berdatangan dari berbagai daerah di Indonesia. Sampai pada akhirnya pada tahun 1957 mereka sekeluarga memutuskan untuk hijrah ke Belanda.

Personil

  • Andy Tielman - vokal, gitar
  • Reggy Tielman - gitar, banjo, vokal
  • Ponthon Tielman - contrabass, gitar, vokal
  • Loulou (Herman Lawrence) Tielman - drum, vokal
  • Jane (Janette Loraine) Tielman - vokal
Dikutip dari  : wikipedia ,
Rujukan , silahkan baca riwayat mereka :

http://indorock.pmouse.nl/tielmanbrothers1.htm

Cara mematikan Komputer dengan VB 6.0

          Project kali ini yang kita buat yaitu program untuk shutdown komputer. Program kita ini akan memanggil program shutdown.exe milik windows XP keatas.
Anda bisa modifikasi program ini sebagai sleep (timer) untuk mematikan komputer sesuai keinginan anda. Untuk itu, ikuti langkah berikut ini:

1.Bukalah program Visual Basic 6 anda dan buatlah Project baru dengan 1 form

2.Isikan command button dengan name : cmdMatikanKomputer dan captionnya Matikan Komputer dan width button menyesuaikan panjang captionnya.
3.Isikan coding berikut pada cmdMatikanKomputer dengan menekan F7
Private Sub cmdMati_Click()
Shell “shutdown.exe -s -t 10 -f “, vbHide
End Sub
Lalu simpan project anda dengan menekan ctrl+S, kemudian run dengan menekan F5. Jika anda mengklik tombol Matikan Komputer, maka program anda akan langsung mengeksekusi shutdown.exe milik windows.
Berikut penjelasan dan parameter tentang pemakaian shutdown.exe :
- shutdown.exe [spasi] -i artinya menampilkan GUI dan paramter ini harus pertama ditaruh
- shutdown.exe [spasi] -l artinya log off (tidak bisa dengan pilihan -m )
- shutdown.exe [spasi] -s artinya shutdown
- shutdown.exe [spasi] -r artinya shutdown dan restart komputer
- shutdown.exe [spasi] -s artinya gagalkan shutdown
- shutdown.exe [spasi] -m \\namakomputer artinya remote shutdown komputer lainnya
- shutdown.exe [spasi] -t dd artinya shutdown komputer dengan waktu detik
- shutdown.exe [spasi] -c artinya shutdown dengan mengisi komentar maksimum 127 char
- shutdown.exe [spasi] -f artinya shutdown dengan mematikan aplikasi yang lagi jalan
Anda juga bisa memakai shutdown.exe dengan masuk ke command prompt lalu ketikkan shutdown.exe -s -f -t 10 -c “komputer anda akan mati”
#Semoga Bermanfaat

Cara mengetahui nilai keyascii pada VB 6.0

Langsung saja, kapada inti ceritanya,

Pernahkah kalian memperhatikan dengan seksama Keyboard pada Komputer atau Leptop yang anda miliki, misalnya anda belum memiliki ya perhatiin aja keyboard komputer warnet atau Leptop temen, ( Curhat : yang nulis post ini belum punya leptop/ kompi ), hehe pizz :D.

Setelah kalian perhatikan seksama keyboardnya pernahkah terlintas di benak anda, berapakah jumlah tombol/key pada papan keyboardnya, Layout apa yang digunakan? QWERTY atau AZERTY?,
Terbuat dari bahan apakah keyboardnya?, apakah keyboardnya bisa untuk geplak kepala Dosen apa ga?, Astaga makin Ngaco aja saya... :D , pizz pizz.

Singkatnya begini, pernahkah kalian berfikir tentang sebuah nilai yang terkandung dalam setiap Tombol di keyboard?( yang ini serius ).

Pada intinya setiap kalian mengetik tombol pada keyboard, baik itu huruf, operator ( +.-,/,*), dan angka, semua itu memiliki nilai bilangan biner  yang disebut KeyAscii berasal dari ASCII ( American Standard Code for  Information Interchange ) yaitu sebuah standarisasi kode yang dijabarkan di Amerika.

Nah Dalam pembuatan Sebuah Program dalam Visual Basic , adakalanya kita harus meletakkan prosedur atau event yang hanya bisa dijalankan dengan menekan tombol, misalnya dalam aplikasi Kasir / penjualan pada saat penghitungan.

*******DARI TADI TEORI TERUS KAPAN PRAKTEKNYA*************

Oke langsung saja ,
Hal – hal yang harus disiapkan  :
1.       1. Niat ( Kalau tidak ada niat,maka takkan jalan )
2.       2.  Berdoa dahulu
3.      3. Siapkan Microsoft Visual Basic 6.0 ( jangan sekali kali dituker samaNotepad!!)
4.      4. Kopi dan Rokok kalo boleh, biar lebih Fokus

Langkah – Langkah :
1.       Buka Program Visual Basic 6.0

Klik menu start – pilih icon vb atau start – allprograms – microsoft visual studio –
Vb 6.0



2.       Lalu tambahkan 1 buah Form, 1 buah textbox  dalam Project.





3.       Kalau Sudah Ditambahkan, silahkan masuk ke dalam Coding , dengan menekan tombol f7
4.       Lalu dituliskan Coding sebagai berikut :

Private Sub Form_KeyPress(KeyAscii As Integer)
Text1.Text = KeyAscii
End Sub

Private Sub Form_Load()
Text1.Enabled = False
End Sub

5.       Lalu Jalankan Program dengan menekan f5,
Silahkan Anda menekan sembarang tombol pada Keyboard, maka akan muncul nilai keyascii nya,
Dan anda pun siap untuk membuat aplikasi yang berkaitan dengan penekanan tombol.



Catatan : program diatas setelah menekan tombol spasi, sehingga muncul nilai keyascii = 32

*****************MOHON MAAF YA PEMBACA SEKALIAN , KALAU PENJELASAN SAYA TADI BERTELE TELE, HEHEHEHE, BIAR KELIATAN LUCU AJA********************

Rabu, 26 Oktober 2011

Autobiografi Saya



PERJALANAN KEHIDUPANKU

Gundah gulana menimpaku, ketika harus memikirkan bagaimana membuat sebuah prologue yang baik dan benar, karena saya kurang kreatif, maka akan saya beri sebuah prologue yang sedikit aneh ini.
“Ibarat Sebuah behtera yang berlayar mengarungi samudra, pastilah akan ada badai dan ombak – ombak besar yang menghadang, sama seperti kehidupan, jika dianalogikan sebuah bahtera , maka kehidupan ini adalah bahteranya lalu badai dan ombak besar adalah rintangan dan cobaan yang menghadangnya“
Tak ada sesuatu yang benar benar SEMPURNA!,
Ya itulah sebuah kehidupan,
Saya sama seperti anda anda semua , yang dilahirkan dari Rahim Wanita # ya iyalah masak dari rahim Bapak?, Bapak kan ga punya rahim??, eh betulkan??, *nanya ke anak fakultas Kedokteran.

Well, Let me to Introduce MySelf.


Nama : Ramandita Yudia Perdana Agung Prrasetyo
#pendek kan??
Lahir : 05 – OKTOBER – 19**
Status dalam Keluarga : Anak Tunggal dari tiga bersaudara :D
MAKSUDNYA ?? : Anak Pertama dari tiga bersaudara
Hobi : Masak Aer buat mandi , Masak Aer Buat rebus mi, Masak Aer Buat Minum
Status Perkawinan : Telah Kawin belum Menikah
Moto Hidup : Tidak Punya Moto yang jelas, kalau prinsip punya
Prinsip Hidup : Jangan pernah menyerah dalam kehidupan!
Hal yang disukai : Onlen ( apalagi free hotspot ) , baca komik, menggambar , edit foto, dll

Perjalanan Hidupku dari Lahir sampai saat ini, saat Postingan ini pertama kali diterbitkan berarti 21 tahun.
Lahir di sebuah daerah kecil di Jogjakarta ( Bantul ) dari Pasangan berbeda kelamin , Budi Harsono dan Sri Rahayu , anak tunggal dari 3 bersaudara.
Masa – masa kecil saya dihabiskan layaknya anak anak lain pada umumnya, yaitu bermain, Tidur, bermain, Tidur, nonton Robocop, Jiban sama Doraemon ( cat : waktu itu film robot Jiban lagi booming ).

Waktu umur 4 tahun , pindah ke Malang disana ikut Bapak yang sedang tugas kuliah.
Lalu sempat kembali lagi ke Jogja melanjutkan TK , dan melanjutkan petualangan keluarga ( dibaca : Transmigrasi ), ke Jakarta ,menetap dari tahun 1995 sampai 1998 , bertepatan dengan Krisis Moneter yang melanda Indonesia. Sempat punya cinta pertama pada saat SD ( dibaca : cinta monyet).
Sekitar akhir 1998 , pindah ke Tangerang sampai sekarang, di Tangerang ini saya mendapatkan banyak sekali pengalaman hidup yang takkan terganti oleh apapun juga.
Dan semoga cerita saya nantinya tidak akan membosankan, buat para pembaca / blogger yang budiman , budiboy( anaknya budiman ) sekalian.

Masa – masa Sekolah Dasar
Ketika Terdampar di Tangerang, diikuti isak tangis karena harus berpisah dengan teman , layaknya seperti dalam pilem petualangan sherina. Dimana sang Ayah ( Mathias Muchus ) dengan berat hati memberitahukan kepada anaknya, bahwa mereka harus pindah rumah ke Bandung. Nah ini sama sperti yang saya alami, #Lebay Mode ON
Saya termasuk salah satu dari jutaan anak diindonesia yang sering berpindah pindah sekolah, dari di jakarta kelas 1 – 3 , pindah ke SDN Perum Bumi Kelapa 2 , Tangerang lalu kelas 4 – 6 pindah lagi ke SDN Perum Bumi Kelapa 2 satu, masih satu gugus sekolah.
Memang aneh, tapi inilah hidup, selalu penuh dengan pilihan,
Masa – masa SD banyak Suramnya, karena sering di jahatin temen sebaya, dari mulai pemalakan, pengeroyokan dan patah hati, wkwkwk, anehnya misalnya disekolah berantem atau musuhan tapi setelah pulang sekolah semua damai dan akur – akur aja pas main ke rumah, ini berlangsung hampir setiap hari, aneh sungguh.
Tapi Masa – masa SD juga merupakan masa2 yang indah, karena merupakan tahap dasar pola tumbuh kembang anak ( #dengan gaya psikolog ), punya teman kecil itu menyenangkan jika dikenang.

Masa - masa SMP dan SMA

Pada masa inilah, saya mulai menemukan makna “TEMAN”, sesungguhnya, dimana arti kata teman adalah “Seseorang yang selalu mendukungmu dalam setiap tindakan positifmu dan mencegahmu dari setiap hal buruk yang kan kau lakukan”
Masuk SMPN 19 Tangerang, yang memang cukup mempunyai nama yang lumayan bagus dikota ini, saya merasa bangga, pada masa-masa puber ini, saya sama sekali canggung ketika berhadapan dengan lawan jenis, entah memang belum kenal wanita / cewek , Eit tapi saya masih normal lho!!!.
Pernah juga mencicipi Rangking satu pada awal2 kelas satu, tapi sayang prestasi itu tidak pernah terulang lagi, sampai sekarang lulus kuliah.
Pada saat masuk SMA , ada hal menarik disini,
Awalnya ketika kelulusan SMP, Orang Tua saya tidak setuju pada pilihan SMA saya, alasannya klasik yaitu “Biaya” , akhirnya setelah perdebatan panjang , saya pun mengalah pada mereka, karena Ridho Allah adalah ridho orang tua, maka saya pun masuk ke sekolah pilihan mereka , yaitu SMAN 5 Tangerang.

Segala Sesuatu ada hikmahnya,

Benar nampaknya ini pepatah yang paling berlaku buat hidup saya, berkat diterima disekolah inilah, saya menemukan sahabat – sahabat saya , belajar berorganisasi , guru terbaik saya dan pacar pertama saya. Memang benar kata Chrisye dalam lagunya kisah – kasih disekolah, “masa-masa paling indah masa – masa disekolah,kisah- kasih paling indah kisah kasih disekolah “. Banyak sekali hal yang telah saya lalui bersama teman – teman disini, sulit dan sangat panjang bila diceritakan lebih banyak di postingan ini.Tapi initinya saya bahagia.

Masa - masa Lulus Sekolah
No Body said it was easy “

Itu adalah penggalan lagu Coldplay “the scientist” ,
Ya, memang tidak mudah, saat kau harus menerima kenyataan bahwa kau tidak dapat satupun universitas dan sekolah tinggi, dimanapun yang kau daftar, padahal kau telah cukup belajar dan berusaha.
Pada saat kelulusan, saya mendaftar SPMB, dan ujian pada 2 buah sekolah tinggi ikatan dinas,
Namun tidak ada satupun yang diterima, sempat frustasi dan putus asa, apalagi bila kau mngetahui bahwa cewekmu diterima ke PTN ternama.
Sempat menganggur beberapa bulan dan diselingi oleh kejadian “PUTUS CINTA “ dengan cewek pertama. Tak lantas membuat saya down, saya segera mencari jalan untuk melupakan semua kekecewaan saya pasca kelulusan dengan mencari kerja, namun lagi2 sayang belum ada yang diterima.
Harapan Itupun Datang
Setelah sekitar 4 bulan mengenggur, akhirnya Orang Tua sepakat untuk membiayai kuliah saya pada “SALAH SATU AKADEMI TERBESAR DAN TERBAIK DI NEGERI INI”, apalagi jika bukan
AMIK BINA SARANA INFORMATIKA
Disini , akhirnya saya menemukan apa yang dari kecil saya cita-citakan dan bayangkan, yaitu “KULIAH”. Dulu dalam image saya Kuliah itu adalah kegiatan dimana kau bebas mengekspresikan jiwa mu, jiwa liarmu tentang ilmu pengetahuan, dimana status mu akan diubah dari “siswa” menjadi “maha” , dan itu artinya kebeasan telah siap didepan mata.
Namun kebebasan itu juga perlu disertai dengan tanggung jawab
Terdaftar di jurusan Manajemen Informatika dengan status sebagai mahasiswa gelombang khusus ( cat : yang lain sudah kuliah 2 minggu , saya baru masuk :D ) , jelas terlihat tidak ada niat masuk BSI,
Tapi saya akhirnya bangga, karena disni sekali lagi, saya menjadi lebih berkembang dari dahulu yang hanya bisa meminta uang , uang dan uang pada orang tua ,sekarang sedikit sedikit telah dapat menghasilkan uang sendiri. Pernah ganti – ganti pekerjaan , saya pernah kuliah sambil bekerja pada semester 3 , waktu itu bekerja sebagai Sales Assistant atau bahasa gaulnta SPB pada sebuah DEPSTORE yang cukup terkenal karena harga produk – produknya yang muaaahal gila!!, #dramatiss...
Pernah juga bekerja pada sebuah restoran selama 2 hari #pekerjaan ini berat makanya saya keluar!
Akhirnya saat semester akhir, pada saat Tugas Akhir , saya melamar menjadi Assisten Laboratorium, dan Alhamdulillah diterima, padahal salah satu dosen rekrutmennya bilang intonasi suara saya kurang. Akhirnya magang pada kampus tercinta saya sampai saat ini dan saya bangga bisa menjadi bagian dari “SALAH SATU AKADEMI TERBESAR DAN TERBAIK DI NEGERI INI”. :D
Untuk Kedepannya saya harap perjalanan kisah hidup saya akan lebih maju dan menarik lagi, saya jadi sadar mengapa Tuhan tidak pernah memberitahu kita tentang apa yang terrjadi dimasa depan, karena manusia itu adalah makhluk paling plin-plan dan tidak konsekuen didunia, jadi Tuhan melatih kita untuk buta akan masa depan agar kita sebagai Hambanya dapat mengatur hidupnya sendiri dengan resiko yang tak akan pernah diketahuinya sebaik mungkin.
Inti Hidup ini adalah untuk menjalaninya, bukan menunggunya”.






























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