Surat Untuk Bangsa Indonesia Dari Gaza

Surat Untuk Bangsa Indonesia Dari Gaza | Gho Blog's - Mungkin surat ini sudah menyebar cukup lama untuk rakyat Indonesia, namun tidak sedikit pula yang belum membaca dan meresapi isinya, Bagi yang sudah membaca silahkan dibaca lagi dan dibagikan, jika yang belum silahkan membaca nya..

Bismillaahir Rahmaanir Rahiim

Untuk saudaraku di Indonesia, ..Saya tidak tahu, mengapa saya harus menulis dan mengirim surat ini untuk kalian di Indonesia .. Namun, jika kalian tetap bertanya kepadaku, kenapa?? Mungkin satu-satunya jawaban yang saya miliki Adalah karena Negeri kalian berpenduduk muslim Terbanyak di punggung bumi ini .. bukan

kah demikian wahai saudaraku???

Disaat saya menunaikan ibadah haji beberapa tahun silam, ketika pulang dari melempar jumrah, saya sempat berkenalan dengan salah seorang aktivis da’wah dari Jama’ah haji asal Indonesia, dia mengatakan kepadaku, setiap tahun musim haji ada sekitar 205 ribu jama’ah haji berasal dari Indonesia datang ke Baitullah ini?!!!?.

Wah,,,,sungguh jumlah angka yang sangat fantastis & membuat saya berdecak kagum, Lalu saya mengatakan kepadanya, saudaraku ..jika jumlah jama’ah Haji asal GAZA sejak tahun 1987 Sampai sekarang di gabung .. itu belum bisa menyamai jumlah jama’ah haji Dari negeri kalian dalam satu musim haji saja ...

Padahal jarak tempat kami ke Baitullah lebih dekat di banding kalian yah? Wah?.wah?pasti uang kalian sangat banyak yah, apalagi menurut sahabatku itu ada 5 % dari rombongan tersebut yang menunaikan ibadah haji untuk yang kedua kalinya ..? .. Subhanallah.

Wahai saudaraku di Indonesia, ..

Pernah saya berkhayal dalam hati, kenapa saya & kami yang ada di GAZA ini, tidak dilahirkan di negeri kalian saja. Wah? pasti sangat indah dan mengagumkan yah. Negeri kalian aman, kaya dan subur, setidaknya itu yang saya ketahui tentang negeri kalian..

Pasti para ibu-ibu disana amat mudah Menyusui bayi-bayinya, susu formula bayi pasti dengan mudah kalian dapatkan di toko-toko & para wanita hamil kalian mungkin dengan mudah bersalin di rumah sakit yang mereka inginkan.

Ini yang membuatku iri kepadamu saudaraku Tidak seperti di negeri kami ini, saudaraku, anak-anak bayi kami lahir di tenda-tenda pengungsian. Bahkan tidak jarang tentara Israel menahan mobil ambulance yang akan mengantarkan istri kami Melahirkan di rumah sakit yang lebih lengkap alatnya di daerah Rafah, Sehingga istri-istri kami terpaksa melahirkan diatas mobil ... yah diatas mobil saudaraku!!

Susu formula bayi adalah barang yang langka di GAZA sejak kami di blokade 2 tahun lalu, Namun isteri kami tetap menyusui bayi-bayinya dan menyapihnya hingga dua tahun lamanya Walau, terkadang untuk memperlancar ASI mereka, isteri kami rela minum air rendaman gandum. Namun .., mengapa di negeri kalian, katanya tidak sedikit kasus pembuangan bayi yang tidak jelas siapa ayah & ibunya, terkadang ditemukan mati di parit-parit, di selokan-selokan dan di tempat sampah ...itu yang kami dapat dari informasi televisi.

Dan yang membuat saya terkejut dan merinding,,, ,, ternyata negeri kalian adalah negeri yang tertinggi kasus Abortusnya untuk wilayah ASIA ... Astaghfirullah. Ada apa dengan kalian ..???

Apakah karena di negeri kalian tidak ada konflik bersenjata seperti kami disini, sehingga orang bisa melakukan hal hina tersebut ..?!! !, sepertinya kalian belum menghargai arti sebuah nyawa bagi kami di sini. Memang hampir setiap hari di GAZA sejak penyerangan Israel, kami menyaksikan bayi-bayi kami mati, Namun, bukanlah diselokan-selokan .. atau got-got apalagi ditempat sampah? saudaraku! !!, Mereka mati syahid .. saudaraku! mati syahid karena serangan roket tentara Israel !!!

Kami temukan mereka tak bernyawa lagi dipangkuan ibunya, di bawah puing-puing bangunan rumah kami yang hancur oleh serangan roket tentara Zionis Israel ...

Saudaraku .., bagi kami nilai seorang bayi adalah Aset perjuangan perlawanan kami terhadap penjajah Yahudi. Mereka adalah mata rantai yang akan menyambung perjuangan kami memerdekakan Negeri ini. Perlu kalian ketahui,,,sejak serangan Israel tanggal 27 desember (2009) kemarin, Saudara-saudara kami yang syahid sampai 1400 orang, 600 diantaranya adalah anak-anak kami Namun,,,,sejak penyerangan itu pula sampai hari ini, kami menyambut lahirnya 3000 bayi baru Dijalur Gaza, dan Subhanallah kebanyakan mereka adalah anak laki-laki dan banyak yang kembar ... Allahu Akbar!!!

Wahai saudaraku di Indonesia, ...

Negeri kalian subur dan makmur, tanaman apa saja yang kalian tanam akan tumbuh dan berbuah, Namun kenapa di negeri kalian masih ada bayi yang kekurangan gizi, menderita busung lapar, Apa karena kalian sulit mencari rezki disana ..? apa negeri kalian sedang di blokade juga ..?

Perlu kalian ketahui .. saudaraku, tidak ada satupun bayi di Gaza yang menderita kekurangan gizi apalagi sampai mati kelaparan .., walau sudah lama kami diblokade .. Kalian terlalu manja?!? Saya adalah pegawai Tata usaha di kantor pemerintahan Hamas Sudah 7 bulan ini, gaji bulanan belum saya terima, tapi Allah SWT yang akan mencukupkan rezki untuk kami.

Perlu kalian ketahui pula, bulan ini saja ada sekitar 300 pasang pemuda Baru saja melangsungkan pernikahan,, ,yah,,,mereka menikah di sela-sela serangan agresi Israel, Mereka mengucapkan akad nikah, diantara bunyi letupan bom dan peluru saudaraku. Dan Perdana menteri kami, yaitu ust Ismail Haniya memberikan santunan awal pernikahan Bagi semua keluarga baru tersebut.

Wahai Saudaraku di Indonesia, ..

Terkadang saya pun iri, seandainya saya bisa merasakan pengajian atau halaqoh pembinaan Di Negeri antum, seperti yang diceritakan teman saya tersebut.

Program pengajian kalian pasti bagus bukan, banyak kitab mungkin yang telah kalian baca, dan Buku-buku pasti kalian telah lahap .., kalian pun sangat bersemangat bukan, itu karena kalian punya waktu .. Kami tidak memiliki waktu yang banyak disini wahai saudaraku ... Satu jam .., yah satu jam itu adalah waktu yang dipatok untuk kami disini untuk halaqoh Setelah itu kami harus terjun langsung ke lapangan jihad, sesuai dengan tugas yang Telah diberikan kepada kami.

Kami di sini sangat menanti-nantikan hari halaqoh tersebut walau Cuma satu jam saudaraku ..,Tentu kalian lebih bersyukur, kalian lebih punya waktu untuk menegakkan rukun-rukun halaqoh, Seperti ta’aruf (saling mengenal), tafahum (saling memahami) dan takaful (saling menangung beban) di sana .. Hafalan antum pasti lebih banyak dari kami .. Semua pegawai dan pejuang Hamas di sini wajib menghapal surat al anfaal sebagai nyanyian perang kami, saya menghapal di sela-sela waktu istirahat perang, bagaimana Dengan kalian??

Akhir desember kemarin, saya menghadiri acara wisuda penamatan hafalan 30 juz anakku yang pertama, ia diantara 1000 anak yang tahun ini menghapal al qur?an, umurnya baru 10 tahun , Saya yakin anak-anak kalian jauh lebih cepat menghapal al quran ketimbang anak-anak kami disini, di Gaza tidak ada SDIT seperti di tempat kalian, yang menyebar seperti jamur sekarang.

Mereka belajar di antara puing-puing reruntuhan gedung yang hancur, yang tanahnya sudah Diratakan, diatasnya diberi beberapa helai daun pohon kurma .., yah di tempat itulah mereka belajar Saudaraku,, bunyi suara setoran hafalan al quran mereka bergemuruh diantara bunyi-bunyi senapan tentara Israel? Ayat-ayat Jihad paling cepat mereka hafal .., karena memang didepan mereka tafsirnya. Langsung Mereka rasakan.

Wahai Saudaraku di Indonesia, ..

Oh, iya, kami harus berterima kasih kepada kalian semua, melihat aksi solidaritas yang kalian perlihatkan kepada masyarakat dunia, kami menyaksikan demo-demo kalian disini. Subhanallah, .. kami sangat terhibur, karena kalian juga merasakan apa yang kami rasakan disini. Memang banyak masyarakat dunia yang menangisi kami di sini, termasuk kalian di Indonesia.

Namun,,,bukan tangisan kalian yang kami butuhkan saudaraku Biarlah butiran air matamu adalah catatan bukti nanti di akhirat yang dicatat Allah sebagai Bukti ukhuwah kalian kepada kami. Doa-doa kalian dan dana kalian telah kami rasakan manfaatnya.

Oh.., iya hari semakin larut, sebentar lagi adalah giliran saya Untuk menjaga kantor, tugasku untuk menunggu jika ada telepon dan fax yang masuk Insya Allah, nanti saya ingin sambung dengan surat yang lain lagi Salam untuk semua pejuang-pejuang islam di Indonesia.

( Gaza City ..1430 H )

Akhhuka….. Abdullah

Bagitulah isi surat tanpa harus mengubah isinya, Silakan baca dan resapi surat diatas, betapa miris dan terlukanya hati saat surat diatas diterima nurani kita, betapa terlukanya saudara kita disana. Tetap dukung mereka walau hanya Do’a ataupun dana yang bisa kita lakukan, Allahu Akbar ...

Sumber >>

Kehancuran Israel Yang Di Janjikan Allah Didalam Al-Qur'an

Kehancuran Israel Yang Di Janjikan Allah Didalam Al-Qur'an | Gho Blog's - Serangan demi serangan yang saling dilancarkan oleh tentara Hammas dengan tentara israel membuat semakin memanasnya peperangan diantara ke dua kubu yang bertikai. Dukungan dan doa juga tak henti-hentinya mengalir untuk rakyat Palestina yang tengah menghadapi kekejaman zionis israel.

Hal ini bukanlah yang pertama kali terjadi, sejak beberapa tahun lalu pun israel berambisi untuk menguasai Gaza dan Palestina, namun belum pernah berhasil, sekalipun mereka (israel) memiliki persenjataan yang canggih tapi belum mampu melumpuhkan kekuatan para Syuhada yang berjuang hanya dengan senjata yang apa adanya.

Bangsa israel mungkin boleh berbangga hati saat ini karena berhasil membunuh lebih banyak para Syuhada di pihak Palestina dibanding korban di pihak mereka sendiri. Namun dibalik kesembongan bangsa israel ini, Allah telah menjanjikan azab dan kehancuran atas keangkuhan mereka seperti yang tertulis didalam Al-Qur'an surat Al Isra’ ayat 4-5.

“Dan kami tetapkan kepada Bani Israil di dalam kitab (Taurat),sesungguhn ya kamu akan membuat kerusakan di bumi (Palestina) dua kali, dan sesungguhnya kamu akan menyombongkan diri dengan kesombongan yang besar. Maka apabila telah tiba janji pembalasan (atas kejahatanmu) untuk kali yang pertama dari dua (janji pembalasan), Kami datangkan kepada kamu hamba-hamba Kami yang tangguh dan hebat serangannya, lalu mereka menjelajah (merajalela) di segala pelosok kampung-kampung. Dan (peringatan ini) adalah sebuah janji yang pasti ditunaikan.” (QS Al Isra’ : 4-5)

Sebagai umat Islam, kita harus yakin bahwa apa yang dijanjikan Allah adalah benar. Allah akan menurunkan azabnya untuk bangsa israel yang memang terkenal memiliki watak iblis sejak jaman para Rasul dahulu.

Sifat-sifat bangsa israel / bani israil digambarkan di dalam Al-Qur'an sebagian besar sebagai manusia yang KERAS KEPALA, MEMBANGKANG, PESIMIS, TAMAK TERHADAP DUNIA, PENGECUT, SUKA MENGHINA, bahkan MEMBUNUH. Pembunuhan bukan hal asing dalam sejarah bangsa israel, bahkan nabi-nabi mereka, seperti Zakariyya dan Yahya pun dibunuh. Mereka juga mengira telah berhasil membunuh Isa dan bangga atas usahanya.

Bukan hanya Al-Qur'an yang mengisahkan bakal hancurnya bangsa biadab ini. Beberapa bulan lalu seorang mantan penasehat keamanan nasional dan mantan Menlu Amerika yang awalnya mendukung israel, justru menyatakan bahwa Israel Akan Lenyap Dalam 10 Tahun Mendatang.

Semoga Allah segera menurunkan azabnya untuk bangsa israel tanpa harus menunggu 10 mendatang dan semoga para Syuhada yang Syahid  karena membela Islam mendapatkan tempat yang paling layak disisi Allah dan Rasulnya... Ammiinn....

Cyber "Jihad" Ala Hacker Indonesia Untuk Palestina

Cyber "Jihad" Ala Hacker Indonesia Untuk Palestina | Gho Blog's - Daripada menyerang situs Israel dengan membabi buta, sejumlah hacker di Indonesia mengaku lebih memilih untuk 'berjihad' di Palestina.

Jihad di sini sudah pasti bukan bertempur dengan senjata api atau sejenisnya, namun para peretas Tanah Air berjanji akan membuat warga Palestina agar bisa terus berkomunikasi di dunia maya.

"Dapat tugasnya cuma membuat jalur koneksi internet di Palestina tetap hidup," pengakuan salah satu hacker Indonesia kepada detikINET, Senin (19/11/2012).

Seperti diketahui bahwa sebelumnya Israel telah memutuskan koneksi internet di jalur Gaza. Alhasil, warga sekitar seakan terisolasi dari dunia luar untuk mendapatkan informasi terkini.

Melihat kondisi tersebut, ada sekelompok hacker yang dengan sukarela membuat jalur intenet dengan jaringan dial-up. Tapi hal ini pun dirasa belum cukup, karena selain tidak aman, akses melalui jalur tersebut tergolong sempit.

Kini, para kelompok hacker pun terus mencari cara agar warga Palestina bisa online seperti sedia kala.

"Jalur FO (fiber optik) dari Turki ke Palestina sudah diblokir Israel, jadi terpaksa harus meretas jalur baru, dan itu adalah jalur yang digunakan oleh bank Israel," ungkap hacker yang pernah menerobos jaringan NASA tersebut.

Sebelumnya, hacker Indonesia menyatakan untuk tidak ikut terlibat dengan aksi cyberwar yang dicetuskan Anonymous terhadap Israel. Tetapi melihat kondisi Palestina yang semakin memprihatinkan, sepertinya para peretas lokal berubah pikiran.

"Finally tim indonesia memutuskan ikut serta, wish me luck," tutup hacker yang tidak ingin disebutkan identitasnya itu.

Sumber =>

Henry Kissinger : Israel Akan Lenyap Dalam 10 Tahun Mendatang

Henry Kissinger : Israel Akan Lenyap Dalam 10 Tahun Mendatang | Gho Blog's - Siapa tidak kenal Henry Kissinger. Meskipun tidak menduduki jabatan resmi di Gedung Putih Washington tapi politikus berdarah Jerman ini dianggap bapak pembina politik. Mengingat peranannya sebagai koordinator Grup elite Bilderberg, di mana persoalan dunia diputuskan di sana oleh sekitar 200 tokoh penting dunia.

Henry Kissinger adalah pendukung utama Israel dan peretas teori politik Amerika di masanya. Namun belakangan dia mengejutkan jagat perpolitikan Israel. Ia menegaskan bahwa setelah 10 tahun, “negara Israel” tidak akan ada lagi. Ini sebuah perubahan signifikan dalam pemikiran laki-laki yang satu ini. Padahal sebelum ini, ia telah me-“nazar”-kan keseluruhan hidupnya untuk menjaga eksistensi Israel dari kehancuran.

Meski statemen Kissinger yang dimuat oleh New York Post ini menjatuhkan elit-elit politik Tel Aviv, meski mereka menampik itu keluar dari mantan penasehat keamanan nasional dan mantan Menlu Amerika ini, namun editor koran Amerika ini, Cindy Adams menegaskan bahwa statemen yang dimuat itu sudah akurat dan valid. Ia mengatakan, Kissinger menegaskannya dengan kata-kata “In 10 years, there will be no more Israeal”.

Maka statemen ini memiliki muatan yang sama dengan apa yang diungkapkan oleh banyak lembaga-lembaga studi strategis dan tokoh politik internasional yang memiliki pengalaman dan kapasitas untuk berbicara tentang Israel. Inti dari muatan itu adalah “kehancuran Israel sudah diambang pintu” dengan latar belakang sejumlah kekalahan dan kegagalan yang dialami negara penjajah Palestina itu selama dua dekade terakhir. Selain itu, faktor lain adalah berbagai perpecahan yang mulai dialami entitas penjajah dan negara buatan ini dalam beberapa waktu mendatang.

Yang membuat statemen Kissinger menjadi riil, hakiki dan tidak terelakkan adalah situasi kebingungan yang menyelimuti elit-elit Israel yang belakangan mulai menampakkan kerapuhan mereka yang jelas dalam bentuk tindakan dan prilaku. Inilah yang mendorong presiden Amerika Barack Obama meremehkan PM Likud Benjamen Netanyahu dan menunda jadwal pertemuan di sela-sela agenda Majlis Umum PBB pada Selasa lalu (25/9) di New York.

Buldoser Israel yang terus menggerogoti area Masjid Al-Aqsha (pip)

Meski prediksi Kissinger soal habisnya usia Israel dalam waktu yang tidak lama adalah kesimpulan yang konclusi, baik diakui oleh penentu kebijakan di Washington atau Eropa atau tidak diakui, namun statemen tokoh-tokoh penting Israel di Palestina dan Al-Quds, sekeleas mantan kepala Mossad, Meir Daghan dan lainnya membuktikan bahwa kehancuran Israel tinggal menghitung mundur saja.

Dalam wawancara dengan harian Jerusalem Post Israel edisi April lalu, Meir Daghan menegaskan, “Saya yakin bahwa negara kami sudah sampai pada titik dimana pemerintah Israel tidak mampu lagi mengatur negara. Kami sudah berada di bibir jurang. Saya tidak mau berlebihan. Ini adalah tragedi. Namun kami sedang menghadapi spekulasi buruk di masa mendatang.”

Bahkan ketika mengomentari kemungkinan serangan Israel ke Iran, Meir Daghan menegaskan dalam wawancaranya dengan forum sosial CBS Amerika edisi 11 Maret 2012 bahwa reaksi Iran atas serangan Israel pasti akan menghancurkan.

Tema masa depan Israel menjadi materi menarik bagi spesialis, pemikir dan pengamat setelah kemenangan kelompok perlawanan Hezbollah menghadapi perang Israel pada Juli 2006 dan ketegaran pejuang Palestina di Gaza menghadapi blokade dan agresi Israel akhir tahun 2008. Dua peristiwa itu membuktikan kepalsuan mitos Israel sebagai “tentara tak terkalahkan” dan rapuhnya sistem keamanan Israel. Tak heran bila sejumlah pakar strategi dan militer di Timur dan Barat menegaskan bahwa Israel akan musnah jika menyerang Iran.

Kita sepakat dengan Henry Kissinger soal kepastian hancur dan habisnya Israel. Namun kita berbeda dengan “jangka waktunya”. Sebab kita yakin Israel yang menerapkan politik kekerasan sejak proyek ilegal dan inkonstitusionalnya didirikan tahun 1948 pasti akan hancur dalam waktu dekat. Sebab dunia semakin mengisolasi Israel dan di sisi lain, perlawanan semakin keras dari pejuang-pejuangan kebangkitan Islam untuk mendekatkan pembebasan Palestina dan Al-Quds dari penodaan Israel.

Apa yang dibangun di atas kebatilan pasti batil dan nasibnya pasti akan hilang. 

Sumber =>>

Anonymous Menyerang Situs Pemerintah Israel

Anonymous Menyerang Situs Pemerintah Israel | Gho Blog's - Sekelompok peretas yang menamakan diri mereka Anonymous meluncurkan serangan ke situs-situs yang dimiliki Pemerintah Israel. Serangan itu merupakan respon terhadap serbuan bom dan hujan amunisi ke perbatasan Gaza yang terjadi tiga hari terakhir.

"Ada banyak situs-situs Israel yang sudah kami rusak sekarang, kami baru saja membuat daftarnya," ujar kicauan Anonymous dalam akun twitter @YourAnonNews. Akun tersebut juga meminta para pengikutnya untuk merusak sekitar 40 situs miliki pemerintah dan militer Israel.

Target terbesar Anonymous adalah situs Angkatan Bersenjata Israel dan situs Perdana Menteri Benjamin Netanyahu. Mereka juga berencana merusak situs-situs sejumlah perusahaan keamanan dan keuangan milik warga Israel.

Proyek ini direncanakan matang. Sebab sebelum meretas, Anonymous mengeluarkan pengumuman pencarian lowongan penutur bahasa Arab sebagai penerjemah, lalu orang-orang yang masih berada di Gaza, di luar Gaza, operator radio di Gaza dan ahli-ahli gelombang radio.

Anonymous juga berusaha menjalin hubungan dengan warga Gaza. Meski kini kota kecil tersebut kekurangan listrik akibat serangan Israel. Para peretas meminta pengikutnya untuk mengabarkan bagaimana caranya tetap terkoneksi dengan dunia luar.

"Jika kalian mempunyai teman di Gaza yang masih terkoneksi telepon, berikan nomornya, dan ikuti petunjuk di http://pastebin.com/6dYqruHu" tulis akun @YourAnonNews. Petunjuknya untuk mengkoneksikan internet di Gaza mereka tulis di katatus.blogspot.com

Pada situs-situs yang sudah mereka retas, Anonymous akan menuliskan pernyataan bahwa mereka sudah menguasai situs tersebut. Mereka pun menolak untuk mengembalikan kondisi situs tersebut, karena menyebut Israel sebagai "sebuah negara Zionis Pengecut" karena telah menghancurkan kehidupan orang-orang tak bersalah.

Sumber =>>

Cara Membuat Program Backup Database Dengan Visual Basic 6.0

Cara Membuat Program Backup Database Dengan Visual Basic 6.0 | Gho Blog's - Setelah beberapa tutorial sebelumnya membahas tentang program simpan-edit-delete, membuat aplikasi multimedia dan animasi serta membuat aplikasi kriptografi dengan algoritma. Kali ini kita akan mencoba membuat aplikasi backup database yang menurut saya cukup penting dalam sebuah program aplikasi.

Program backup database ini digunakan untuk meng-copy database  dari satu directory ke directory lainnya. Database yang digunakan masih Miccrosoft Office Access seperti tutorial sebelumnya.

Pada tutorial kali ini saya tidak membuat sebuah project baru, saya hanya menambahkan satu buah form  di project yang kita bahas pada tutorial sebelumnya yaitu Penggunaan DTPicker Dan Combo Box Pada Program Simpan Edit Delete Dengan Visual Basic 6.0. 

Nah, sekarang sobat tambahkan satu buah form pada project tersebut dan buat disain seperti gambar berikut ini :

Atur settingan pada File1 melalui kotak properties yang berada disebelah kanan. Pada pilihan Pattern ganti tulisan *.* menjadi *.mdb. Sehingga yang muncul pada File1 tersebut hanya database yang berekstensi .mdb. Perhatikan gambar diatas, pada File1 muncul database dengan nama latihan.mdb.

Setelah itu buka  layar coding program tersebut dan masukkan script berikut ini :

Private Declare Function SHFileOperation Lib "Shell32.dll" Alias "SHFileOperationA" (lpFileOP As shfileopstruct) As Long Private Const FO_copy = &H2 Private Const fof_allowundo = &H40 Private Type shfileopstruct hwnd As Long wfunc As Long pfrom As String pto As String Fflags As Integer Faborted As Boolean hnamemaps As Long sprogress As String End Type

Kemudian masukkan script berikut tepat dibawah script yang tadi sobat masukkan :

Public Sub copy(ByVal asal As String, ByVal tujuan As String) Dim X As shfileopstruct With X .hwnd = 0 .wfunc = FO_copy .pfrom = asal & vbNullChar & vbNullChar .pto = tujuan & vbNullChar & vbNullChar .Fflags = fof_allowundo End With SHFileOperation X End Sub

Setelah itu duoble klik pada tombol "Copy Database" dan masukkan script berikut ini tepat ditengah antara Private Sub Command1_Click() dengan End Sub :

On Error Resume Next If Text1 = "" Then MsgBox "Anda belum memilih file yang akan dicopy" Exit Sub ElseIf Text2 = "" Then MsgBox "Anda tidak memilih direktori tujuan peng-Copy-an" Exit Sub End If copy Text1.Text, Text2.Text MsgBox "File berhasil di copy"

Masih pada tombol "Copy Database", pilih Procedure KeyPress seperti gambar dibawah ini. Kemudian masukkan script berikut tepat diantara Private Sub Command1_KeyPress(KeyAscii As Integer) dengan End Sub  :

Dan masukkan script berikut :

If KeyAscii = 27 Then Unload Me

Kemudian duoble klik pada Drive1, dan masukkan script berikut tepat diantara Private Sub Drive1_Change() dengan End Sub :

Dir1.Path = Drive1.Drive

Lakukan hal yang sama pada Drive2, dan masukkan script berikut tepat diantara Private Sub Drive2_Change() dengan End Sub :

Dir2.Path = Drive2.Drive

Setelah itu duoble klik pada Dir1, dan masukkan script berikut tepat diantara Private Sub Dir1_Change() dengan End Sub :

File1.Path = Dir1.Path

Lakukan juga pada Dir2, dan masukkan script berikut tepat diantara Private Sub Dir2_Change() dengan End Sub :

Text2.Text = Dir2.Path

Terakhir, duoble klik pada File1, dan masukkan script berikut tepat dianatara Private Sub File1_Click() dengan End Sub :

Text1.Text = File1.Path & "\" & File1.FileName

Untuk lebih lanjut, agar sobat bisa memahami tutorial kali ini, sobat bisa download project-nya disini  :

Atau :

Sekian dulu tutorial Visual Basic dari saya yang berjudul Cara Membuat Program Backup Database Dengan Visual Basic 6.0. Selamat mencoba dan semoga bermanfaat.

Gendong Aku Sampai Ajalku Tiba

Gendong Aku Sampai Ajalku Tiba | Gho Blog's - Suatu malam ketika aku kembali ke rumah, istriku menghidangkan makan malam untukku. Sambil memegang tangannya aku berkata, "Saya ingin mengatakan sesuatu kepadamu." Istriku lalu duduk di samping sambil menemaniku menikmati makan malam dengan tenang. Tiba-tiba aku tidak tahu harus memulai percakapan dari mana. Kata-kata rasanya berat keluar dari mulutku.

Aku ingin sebuah perceraian di antara kami, karena itu aku beranikan diriku. Nampaknya dia tidak terganggu sama sekali dengan pembicaraanku, dia malah balik bertanya kepadaku dengan tenang, "Mengapa?" Aku menolak menjawabnya, ini membuatnya sungguh marah kepadaku. Malam itu kami tidak saling bertegur sapa. Dia terus menangis dan menangis. Aku tahu bahwa dia ingin tahu alasan di balik keinginanku untuk bercerai.

Dengan sebuah rasa bersalah yang dalam, aku membuat sebuah pernyataan persetujuan untuk bercerai dan dia dapat memiliki rumah kami, mobil, dan 30% dari keuntungan perusahaan kami. Dia sungguh marah dan merobek kertas itu. Wanita yang telah menghabiskan 10 tahun hidupnya bersamaku itu telah menjadi orang yang asing di hatiku. Aku minta maaf kepadanya karena dia telah membuang waktunya 10 tahun bersamaku, untuk semua usaha dan energi yang diberikan kepadaku, tapi aku tidak dapat menarik kembali apa yang telah kukatakan kepada Jane, wanita simpananku, bahwa aku sungguh mencintainya. Istriku menangis lagi. Bagiku tangisannya sekarang tidak berarti apa-apa lagi. Keinginanku untuk bercerai telah bulat.

Hari berikutnya, ketika aku kembali ke rumah sedikit larut, kutemukan dia sedang menulis sesuatu di atas meja di ruang tidur kami. Aku tidak makan malam tapi langsung pergi tidur karena ngantuk yang tak tertahankan akibat rasa capai sesudah seharian bertemu dengan Jane. Ketika terbangun, kulihat dia masih duduk di samping meja itu sambil melanjutkan tulisannya. Aku tidak menghiraukannya dan kembali meneruskan tidurku.

Pagi harinya, dia menyerahkan syarat-syarat perceraian yang telah ditulisnya sejak semalam kepadaku. Dia tidak menginginkan sesuatupun dariku, tetapi hanya membutuhkan waktu sebulan sebelum perceraian. Dia memintaku dalam sebulan itu, kami berdua harus berjuang untuk hidup normal layaknya suami istri. Alasannya sangat sederhana. Putra kami akan menjalani ujian dalam bulan itu sehingga dia tidak ingin mengganggunya dengan rencana perceraian kami. Selain itu, dia juga meminta agar aku harus menggendongnya sambil mengenang kembali saat pesta pernikahan kami. Dia memintaku untuk menggendongnya selama sebulan itu dari kamar tidur sampai muka depan pintu setiap pagi.

Aku pikir dia sudah gila. Akan tetapi, biarlah kucoba untuk membuat hari-hari terakhir kami menjadi indah demi perceraian yang kuinginkan, aku pun menyetujui syarat-syarat yang dia berikan. Aku menceritakan kepada Jane tentang hal itu. Jane tertawa terbahak-bahak mendengarnya. "Terserah saja apa yang menjadi tuntutannya tapi yang pasti dia akan menghadapi perceraian yang telah kita rencanakan," kata Jane.

Ada rasa kaku saat menggendongnya untuk pertama kali, karena kami memang tak pernah lagi melakukan hubungan suami istri belakangan ini. Putra kami melihatnya dan bertepuk tangan di belakang kami. "Wow, papa sedang menggendong mama." Sambil memelukku dengan erat, istriku berkata, "Jangan beritahukan perceraian ini kepada putra kita." Aku menurunkannya di depan pintu. Dia lalu pergi ke depan rumah untuk menunggu bus yang akan membawanya ke tempat kerjanya, sedangkan aku mengendarai mobil sendirian ke kantorku.

Pada hari kedua, kami berdua melakukannya dengan lebih mudah. Dia merapat melekat erat di dadaku. Aku dapat mencium dan merasakan keharuman tubuhnya. Aku menyadari bahwa aku tidak memperhatikan wanita ini dengan seksama untuk waktu yang agak lama. Aku menyadari bahwa dia tidak muda seperti dulu lagi, ada bintik-bintik kecil di wajahnya, rambutnya pun sudah mulai beruban. Namun entah kenapa, hal itu membuatku mengingat bagaimana pernikahan kami dulu.

Pada hari keempat, ketika aku menggendongnya, aku mulai merasakan kedekatan. Inilah wanita yang telah memberi dan mengorbankan 10 tahun kehidupannya untukku. Pada hari keenam dan ketujuh, aku mulai menyadari bahwa kedekatan kami sebagai suami istri mulai tumbuh kembali di hatiku. Aku tentu tidak mengatakan perasaan ini kepada Jane.

Suatu hari, aku memperhatikan dia sedang memilih pakaian yang hendak dia kenakan. Dia mencoba beberapa darinya tapi tidak menemukan satu pun yang cocok untuknya. Dia sedikit mengeluh, "Semua pakaianku terasa terlalu besar untuk tubuhku sekarang." Aku mulai menyadari bahwa dia semakin kurus dan itulah sebabnya kenapa aku dapat dengan mudah menggendongnya. Aku menyadari bahwa dia telah memendam banyak luka dan kepahitan hidup di hatinya. Aku lalu mengulurkan tanganku dan menyentuh kepalanya.

Tiba-tiba putra kami muncul dan berkata," Papa, sekarang saatnya untuk menggendong dan membawa mama." Bagi putraku, melihatku menggendong dan membawa mamanya menjadi peristiwa yang penting dalam hidupnya. Istriku mendekati putra kami dan memeluk erat tubuhnya penuh keharuan. Aku memalingkan wajahku dari peristiwa yang bisa mempengaruhi dan mengubah keputusanku untuk bercerai.

Aku lalu mengangkatnya dengan kedua tanganku, berjalan dari kamar tidur kami, melalui ruang santai sampai ke pintu depan. Tangannya melingkar erat di leherku dengan lembut dan sangat romantis layaknya suami istri yang harmonis. Aku pun memeluk erat tubuhnya, seperti momen hari pernikahan kami 10 tahun yang lalu. Akan tetapi tubuhnya yang sekarang ringan membuatku sedih.

Pada hari terakhir, aku menggendongnya dengan kedua lenganku. Aku susah bergerak meski cuma selangkah ke depan. Putra kami telah pergi ke sekolah. Aku memeluknya erat sambil berkata, "Aku tidak pernah memperhatikan selama ini hidup pernikahan kita telah kehilangan keintiman satu dengan yang lain."

Aku mengendarai sendiri kendaraan ke kantorku, mampir ke tempat Jane. Melompat keluar dari mobilku tanpa mengunci pintunya. Begitu cepatnya karena aku takut jangan sampai ada sesuatu yang membuatku mengubah pikiranku. Aku naik ke lantai atas. Jane membuka pintu dan aku langsung berkata padanya. "Maaf Jane, aku tidak ingin menceraikan istriku."

Jane memandangku penuh tanda tanya bercampur keheranan dan kemudian menyentuh dahiku dengan jarinya. Aku mengelak dan berkata, "Maaf Jane, aku tidak akan bercerai. Hidup perkawinanku terasa membosankan karena dia dan aku tidak memaknai setiap momen kehidupan kami, bukan karena kami tidak saling mencintai satu sama lain. Sekarang aku menyadari sejak aku menggendongnya sebagai syaratnya itu, aku ingin terus menggendongnya sampai hari kematian kami." 

Jane sangat kaget mendengar jawabanku. Dia menamparku dan kemudian membanting pintu dengan keras. Aku tidak menghiraukannya. Aku menuruni tangga dan mengendarai mobilku pergi menjauhinya. Aku singgah di sebuah toko bunga di sepanjang jalan itu, aku memesan bunga untuk istriku. Gadis penjual bunga bertanya apa yang harus kutulis di kartunya. Aku tersenyum dan menulis, "Aku akan menggendongmu setiap pagi sampai kematian menjemput."

Petang hari ketika aku tiba di rumah, dengan bunga di tanganku, sebuah senyum menghias wajahku. Aku berlari hanya untuk bertemu dengan istriku dan menyerahkan bunga itu sambil merangkulnya untuk memulai sesuatu yang baru dalam perkawinan kami. Tapi apa yang kutemukan? Istriku telah meninggal di atas tempat tidur yang telah kami tempati bersama 10 tahun pernikahan kami.

Aku baru tahu kalau istriku selama ini berjuang melawan kanker ganas yang telah menyerangnya berbulan-bulan tanpa pengetahuanku karena kesibukanku menjalin hubungan asmara dengan Jane. Istriku tahu bahwa dia akan meninggal dalam waktu yang relatif singkat. Meskipun begitu, dia ingin menyelamatkanku dari pandangan negatif yang mungkin lahir dari putra kami karena aku menginginkan perceraian, karena reaksi kebodohanku sebagai seorang suami dan ayah, untuk menceraikan wanita yang telah berkorban selama sepuluh tahun yang mempertahankan pernikahan kami dan demi putra kami.

Betapa berharganya sebuah pernikahan saat kita bisa melihat atau mengingat apa yang membuatnya berharga. Ingat ketika dulu perjuangan yang harus dilakukan, ingat tentang kejadian-kejadian yang telah terjadi di antara kalian, ingat juga tentang janji pernikahan yang telah dikatakan. Semuanya itu harusnya hanya berakhir saat maut memisahkan.

Sumber

Kumpulan Cerita Lucu [Part-I]

Kumpulan Cerita Lucu [Part-I] | Gho Blog's - Cerita-cerita lucu berikut ini saya kumpulkan dari beberapa group Facebook yang saya ikuti alias bukan karya saya sendiri. Jadi bila ada pihak-pihak yang mengklaim nantinya, saya mohon maaf dan bisa hubungi saya agar bisa saya masukkan url sumbernya. Karena disini saya hanya ingin menghibur pembaca blog ini saja.

Berikut kumpulan cerita-cerita lucunya, semoga terhibur aja sob...

1. Einstein VS Mr Bean

Einstein dan Mr Bean duduk berdampingan dalam sebuah penerbangan. Einstein mengajak Mr Bean memainkan sebuah permainan tebak-tebakan.

Einstein: Aku akan mengajukan satu pertanyaan, jika Anda tidak bisa menjawab pertanyaan saya, maka Anda harus membayar saya $5, dan jika saya tidak bisa menjawab pertanyyan anda, saya akan membayar Anda $500.

Einstein mengajukan pertanyaan pertama:  Berapa jarak dari Bumi ke Bulan ?

Mr Bean tidak mengucapkan sepatah kata pun, merogoh saku, mengeluarkan $5.

Sekarang, giliran Mr Bean bertanya kepada Einstein

Mr Bean : Apakah yang naik ke atas bukit dengan 3 kaki, dan akan turun dengan 4 kaki ?

Karna gengsi walaupun Einstein tidak tau jawabannya dia tetap melakukan pencarian internet, dan meminta semua teman-temannya yang cerdas. Setelah satu jam mencari jawaban, tetapi dia tidak tau juga… akhirnya ia memberikan Mr Bean $ 500.

Einstein sambil penasaran karna merasa dirinya cerdas bisa di kalahkan, maka diapun bertanya:

Einstein : Nah, jadi apa naik ke atas bukit dengan tiga kaki dan turun dengan empat kaki ?

Mr Bean merogoh saku, dan memberikan Einstein $5.

2 ABG Alay Mati Muda

3. Tai Ayam

Seorang bapak-bapak setengah baya yang hendak pulang menuju rumah dari ladangnya, tiba - tiba dijalan ia dihentikan oleh secuil tumpukkan hitam

setelah dia melewati itu dia kembali ke belakng karena dalam hatinya bertanya - tanya, "ini apa yah, koq mirip tai ayam" gumam si bapak dalam hati, tak lama kemudian si bapak pun beranjak sambil berkata "ahhhh ini pasti tai ayam", setelah 5 langkah dari tumpukkan tadi si bapak kembali untuk memperhatikan tumpukkan tadi sambil berkata "ini apa ya sebenarnya, koq mirip tai ayam sekali, tapi kayaknya bukan deh, tapi apa yah?" lalu si bapakpun beranjak pergi lagi, setelah 15 langkah sibapak kembali menghampiri tumpukkan tadi sambil berkata "waduhhhh.... Saya penasaran sekali, sebetulnya ini apa yah, tai ayam atau bukan?" dengan gagah berani sibapak mencolekkan telunjuknya dan menciumya ke hidung "tuh kan.... Baunya mirip tai ayam, tapi.... " si bpak makin pensaran.. Tiba - tiba tanpa pikir panjang si bapak menjilat telunjuk yang tadi di colekkan ke tumpukkan tadi dan kemudian si bapakpun berteriak "KAMPRETTTTTTTT apa aku bilang ini tai ayam!!!!!, UNTUNG TIDAK KE INJAK SAAT AKU LEWAT!!!!!!"

4. Cina vs Arab

Konon ada sepasang sahabat cina dan arab lagi kebingungan karena usaha mereka bangkrut. Setelah memutar keras otak mereka, mereka sepakat membuka pelayanan kesehatan. Maka si cina jadi sinshe, dan si arab menjadi tabib.

Setelah satu minggu praktek, si tabib tetap sepi pasien, namun si sinshe mulai kebanjiran pasien. Si tabib putar otak untuk melawan si sinshe.

Maka si tabib mengeluarkan jurus dengan memasang pengumuman di depan ruang prakteknya: “Jika Tidak Sembuh Uang Kembali Tiga Kali Lipat”

Taktik itu manjur, pasien lalu berdatangan ke si tabib. Giliran si sinshe sewot lalu mencari akal. “Haiyaaa, lumayan kalo owe purak-purak sakit dan tidak sembuh dapat uang lha…” (baca dengan logat cina ya). Lalu ia mendatangi si tabib.

Si Sinshe: “Haiyaaa, tolong owe. Owe punya sakit mati rasa. Owe tidak bisa lagi rasain rasa setiap makanan yang owe telan, haiyaa…”

Si Tabib: “Ana fikir itu gamfang ana sembuhkan.”

Lalu si tabib memanggil asistennya.

Si Tabib: “Hasaaannnn, cefat ente bawa kesini obat nomor 14.”

Secepat mungkin si asisten yang bernama Hasan membawa obat nomor 14 dan oleh si tabib diberikan kepada si sinshe. Dan si sinshe langsung menguyah sebelum menelan obat nomor 14 tersebut.

Si Sinshe: “Haiyaaa, ini bukan obat lhaaa, tapi ini tai ayam.”

Si Tabib: “Ente betul. Itu tai ayam. Berarti ente sudah sembuh dan tidak mati rasa lagi.”

Si sinshe pulang dengan kesal karena kalah akal. Lalu ia kembali memutar otak berpikir mencari akal untuk mengalahkan si tabib dan sekaligus dapat uang si tabib. Maka kali ini si sinse kembali pura-pura sakit lupa yang sangat kronis.

Si Sinshe: “Haiyaaaa tabib, owe sakit lupa parah sekali. Owe lupa semua peristiwa dan memori owe. Haiyaaa, tolong owe.”

Si Tabib: “Gamfang. Ana fasti tolong ente dan ente fasti sembuh. Obat ana mujarab sekali.”

Lalu seperti biasa si sinse memanggil si Hasan sang asisten.

Si Tabib: “Hasaaaaan, cefat ente bawa kemari obat nomor 14.”

Si Sinshe: “Haiyaaaa, owe tidak mau lagi makan tai ayaaaam. Haiyaaaaa… Owe tidak mau…”

Si Tabib: “Alhamdulillah, berarti ente sudah sembuh. Daya ingat ente ternyata sudah kembali.”

Tinggal si sinshe pulang sambil menggerutu.

5. Pejabat Baru

Suatu hari di salah satu ruangan di gedung MPR/DPR. Seorang anggota dewan yang baru diangkat, tampak masih canggung, lugu dan serba kikuk.

Rupanya dia wakil dari daerah dan belum pernah bekerja atau punya ruangan yang megah. Beberapa saat kemudian, ada yang mengetuk pintu ruangannya.

Setelah dibuka, berdiri dihadapannya 2 orang dengan kopor besar dan segulungan kabel. "Wah..., ini pasti wartawan TV yg mau mewawancarai aku...", pikirnya dalam hati.

Agar tampak berwibawa dan membela rakyat, sambil melihat jam dan mengangkat telepon dia berkata: "Maaf tunggu sebentar, saat ini saya harus menghubungi ketua fraksi untuk melaporkan hasil-hasil sidang hari ini..."

Kemudian selama beberapa puluh menit dia menelpon dan terlibat pembicaraan tingkat tinggi, sambil sekali-sekali menyebut-nyebut 'demi rakyat' atau 'kepentingan rakyat' keras-keras. Setelah selesai sambil meletakan gagang telepon dia berkata pada dua orang tamunya tsb.

"Nah, sekarang wawancara bisa kita mulai..."

Kedua orang itu tampak bingung dan berpandangan satu sama lain. Akhirnya salah satunya berkata: "Maaf pak..., kami datang kesini mau memasang saluran telepon bapak..."

Sekian dulu Kumpulan Cerita Lucu [Part-I]. Semoga terhibur aja sobat.....

Penggunaan DTPicker Dan Combo Box Pada Program Simpan Edit Delete Dengan Visual Basic 6.0

Penggunaan DTPicker Dan Combo Box Pada Program Simpan Edit Delete Dengan Visual Basic 6.0 | Gho Blog's - Kali ini kita akan melanjutkan lagi tutorial pemrograman Visual Basic 6.0. Tidak terlalu berbeda dengan program simpan, edit dan delete yang sebelumnya, kali ini kita akan mencoba menggunakan DTPicker (kalender) dan Combo Box pada pembuatan program.

Kita akan sedikit memodifikasi form, script dan database dari program sebelumnya. Buat sobat yang belum mengikuti tutorial yang lalu, sobat bisa membaca posting saya yang berjudul Cara Membuat Program Simpan Edit Dan Delete Dengan Visual Basic 6.0.

Pertama-tama sobat buat sebuah database dengan Microsoft Office Access 2003 dan beri nama database tersebut "latihan.mdb". Kemudian buat sebuah tabel dengan nama "tbbelajar", kemudian simpan pada sebuah folder dan untuk disain file/tabel bisa sobat lihat pada gambar dibawah ini :

Jika sobat pengguna Miccrosoft Office versi 2003 keatas, pada saat pembuatan database, simpanlah dengan format 2003 (*.mdb), karena ekstensi untuk 2003 dan 2007 keatas berbeda. cara pembuatan database dengan Microsoft Office Access 2003 bisa sobat lihat pada posting saya yang berjudul Cara Membuat Database Dengan Microsoft Office Access 2003.

Setelah itu buatlah disain form seperti gambar dibawah ini :

Sebelumnya, atur settingan pada DTPicker, dengan cara :

• Klik kanan pada DTPicker yang berada di Form kemudian pilih Properties.

• Pada pilihan Format, pilihlah 3 - dtpCostum, dan pada kotak Costum Format isi dengan : dd-MMMM-yyyy kemudian klik OK. seperti pada gambar berikut :

Setelah itu tambahkan sebuah Module koneksi pada project yang sedang kita buat. Cara pembuatan modul bisa sobat lihat pada tutorial saya yang sebelumnya. Kemudian masukkan script berikut di modul tersebut :

Global conn As ADODB.Connection Global rssiswa As ADODB.Recordset Sub koneksi() On Error GoTo gagal: Set conn = New ADODB.Connection conn.Provider = "microsoft.jet.oledb.4.0" conn.CursorLocation = adUseClient conn.Open App.Path & "\latihan.mdb" Exit Sub gagal: If (Err.Number = -2147467259) Then MsgBox "Koneksi Aplikasi Ke Database Gagal...!", vbCritical, "Informasi" End End If End Sub

Jika sudah, kembali pada form yang kita buat tadi, duoble klik pada form kemudian masukkan script berikut tepat diantara Private Sub Form_Load() dengan End Sub :

koneksi Combo1.AddItem "L" Combo1.AddItem "P"

Selanjutnya buat sebuah program Bersih Form yang berguna untuk mengembalikan kondisi form pada kondisi normal. Caranya masukkan script berikut di bawah script Form_Load yang tadi kita buat :

Private Sub kosongform() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Combo1.Text = "" Text1.Enabled = True Command1.Enabled = True Command2.Enabled = False Command3.Enabled = False End Sub

Sekarang kita akan membuat tombol "Simpan", caranya double klik pada tombol "Simpan" dan masukkan script berikut tepat diantara Private Sub Command1_Click() dengan End Sub :

Dim X If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Combo1.Text = "" Then MsgBox "Data Belum Lengkap", vbInformation, "Pesan" Exit Sub Else X = MsgBox("Apakah Data Ingin Disimpan...?", vbQuestion + vbYesNo) If X = vbYes Then Set rssiswa = New ADODB.Recordset rssiswa.LockType = adLockOptimistic rssiswa.CursorType = adOpenDynamic rssiswa.Open "SELECT * FROM tbbelajar", conn, , , adCmdText rssiswa.AddNew rssiswa.Fields(0) = Text1.Text rssiswa.Fields(1) = Text2.Text rssiswa.Fields(2) = Text3.Text rssiswa.Fields(3) = DTPicker1.Value rssiswa.Fields(4) = Combo1.Text rssiswa.Fields(5) = Text4.Text rssiswa.Fields(6) = Text5.Text rssiswa.Update MsgBox "Data Tersimpan...!", vbInformation, "Pesan" kosongform Else Exit Sub End If End If

Sebelum membuat tombol "Edit" dan "Delete", kita harus membuat program pemanggilan data berdasarkan "NIS". Caranya duoble klik pada Text1, kemudian pilih Procedure KeyPress. Untuk lebih jelasnya sobat bisa lihat pada tutorial sebelumnya yang berjudul Cara Membuat Program Simpan Edit Dan Delete Dengan Visual Basic 6.0. Kemudian masukkan script berikut tepat diantara Private Sub Text1_KeyPress(KeyAscii As Integer) dengan End Sub :

If KeyAscii = 13 Then Set rssiswa = New ADODB.Recordset rssiswa.LockType = adLockOptimistic rssiswa.CursorType = adOpenDynamic rssiswa.Open "select * from tbbelajar", conn, , , adCmdText rssiswa.Filter = " nis= '" & Text1.Text & "'" If Not rssiswa.EOF Then Command1.Enabled = False Command2.Enabled = True Command3.Enabled = True Text1.Enabled = False Text2.Text = rssiswa.Fields(1) Text3.Text = rssiswa.Fields(2) DTPicker1.Value = rssiswa.Fields(3) Combo1.Text = rssiswa.Fields(4) Text4.Text = rssiswa.Fields(5) Text5.Text = rssiswa.Fields(6) End If End If

Setelah itu, kita buat tombol "Edit" dengan cara duoble klik ada tombol "Edit" dan masukkan script berikut ini tepat diantara Private Sub Command2_Click() dengan End Sub :

Dim a a = MsgBox("Edit Data...?", vbQuestion + vbYesNo, "Pesan") If a = vbYes Then rssiswa.Fields(1) = Text2.Text rssiswa.Fields(2) = Text3.Text rssiswa.Fields(3) = DTPicker1.Value rssiswa.Fields(4) = Combo1.Text rssiswa.Fields(5) = Text4.Text rssiswa.Fields(6) = Text5.Text rssiswa.Update MsgBox "Data Berhasil Di Edit..!!", vbInformation, "Info" kosongform Text1.SetFocus Else Exit Sub End If

Selanjutnya, kita buat tombol "Delete", dengan cara duoble klik pada tombol "Delete" dan masukkan script berikut tepat diantara Private Sub Command3_Click() dengan End Sub :

Dim Y Y = MsgBox("Apakah Data Ingin Dihapus..?", vbQuestion + vbYesNo) If Y = vbYes Then rssiswa.Delete MsgBox "Data Berhasil Dihapus..!!", vbInformation, "info" kosongform Text1.SetFocus Else Exit Sub End If

Untuk tombol "Keluar", duoble klik pada tombol "Keluar" dan masukkan script berikut tepat diantara Private Sub Command4_Click() dengan End Sub :

Dim X X = MsgBox("Apakah Anda Ingin Keluar..?", vbQuestion + vbYesNo, App.Title) If X = vbYes Then Unload Me Else Cancel = 1 End If

Terakhir, simpan project ini di satu folder dengan database.

Dan untuk contoh project kali ini sobat bisa download di sini :

Atau :

Pada tutorial ini saya hanya membahas secara garis besarnya saja, buat sobat yang belum mengerti, saya sarankan untuk mempelajari tutorial sebelumnya yang berjudul Cara Membuat Program Simpan Edit Dan Delete Dengan Visual Basic 6.0. Karena pada tutorial tersebut pembahasan yang saya buat lebih detail.

Sekian dulu tutorial Visual Basic 6.0 yang berjudul Penggunaan DTPicker Dan Combo Box Pada Program Simpan Edit Delete Dengan Visual Basic 6.0, selamat mencoba dan semoga bermanfaat.

Video Guns n Roses Nyanyiin Lagu Rhoma Irama

Video Guns n Roses Nyanyiin Lagu Rhoma Irama | Gho Blog's - Tadi pas lagi asik-asik download video klip di youtube, secara gak sengaja saya nemuin sebuah video klip yang konyol abis. Sebenarnya video klip ini adalah video klip Gun's n Roses yang berjudul Patience. Cuma entah kratifitas siapa, video klip tersebut di dubling dengan lagu H. Rhoma Irama yang judulnya Kegagalan Cinta.

Hasil kratifitas konyol ini saya acungin jempol, karena tiap-tiap gerakan dalam video tersebut di sesuaikan dengan lirik dan musik dari lagu Kegagalan Cinta-nya H. Rhoma Irama sehingga kelihatan lucu banget. Gak kebayang The Legend Rocker nyanyiin lagu dangdut. Berikut videonya :

Sekian dulu sob posting humor saya yang berjudul Video Guns n Roses Nyanyiin Lagu Rhoma Irama. Semoga terhibur aja.....

Fakta Unik Tentang Makanan Pedas

Fakta Unik Tentang Makanan Pedas | Gho Blog's - Banyak orang di dunia ini yang menyenangi masakan pedas, termasuk saya sendiri. Cuma, sehabis makan makanan yang pedas, perut saya tidak bisa di ajak kompromi alias harus menanggung efek samping yang membuat saya harus betah berlama-lama meditasi di toilet. hehehehe...

Tapi tahukah sobat, dibalik efek samping seperti diatas, makanan pedas juga memiliki efek positif untuk kesehatan tubuh kita. Berikut ini fakta unik yentang makanan pedas yang memberikan efek positif bagi kesehatan tubuh manusia.

1. Anti Kanker 

Capsaicin yang terkandung didalam cabe berfungsi sebagai anti kanker karena mampu membunuh sel-sel kanker didalam tubuh tanpa merusak sel sehat disekitarnya.

2. Meningkatkan Fungsi Pencernaan

Capsaicin juga membantu membunuh bakter H. pylori penyebab sakit maag. Selain itu capsaisin  juga mampu meningkatkan sirkulasi darah di perut dan meningkatkan lapisan mukus.

3. Menyehatkan Jantung

Capsaicin juga efektif melawan inflamasi, yang telah diidentifikasi sebagai faktor risiko penyakit jantung. Cabe menyehatkan jantung dengan cara mencegah pembekuan darah. Penelitian juga menunjukkan kadar kolesterol jahat/LDL bisa mencegah oksidasi yang bisa menyebabkan penyumbatan pembuluh darah.

4. Menurunkan Berat Badan

Capsacin yang terkandung di dalam cabe mampu mempercepat metabolisme dan membantu tubuh membakar kalori lebih cepat. Hal ini terjadi karena capsaicin meningkatkan temperatur tubuh dan berperan dalam meningkatnya detak jantung.

5. Memperlancar Pernapasan

Makanan pedas bertindak seperti ekspektoran dan membantu penderita asma, bronkitis kronik, sinuistis, dan penyakit pernapasan lainnya untuk bernapas lebih baik.

6. Memperlancar Sirkulasi Darah

Makanan pedas akan melancarkan sirkulasi dan menurunkan tekanan darah. Cabai juga membantu menguatkan dinding pembuluh darah karena kandungan vitamin A dan C-nya.

Sumber

Sekian dulu info kesehatan yang berjudul Fakta Unik Tentang Makanan Pedas. Selain efek positif diatas, mengkonsumsi cabe secara berlebihan juga bisa memberikan efek yang kurang baik. Semoga bermanfaat aja posting kali ini sob dan makasih atas kunjungnnya.

Foto-Foto Kelucuan Dan Kegilaan Orang Asia [Part III]

Pada posting saya Foto-Foto Kelucuan Dan Kegilaan Orang Asia [Part III] ini, sama sekali tidak bermaksud mengumbar pornografi, hanya sebatas bahan ketawa dan lucu-lucuan aja.

Kali ini, masi seperti dua posting sebelumnya, hanya saja gamabr/foto lucu yang akan saya tampilkan lebih spesifik pada kenakalan dan kejahilan serta ekspresi wajah pria yang nglirik cewek cantik yang kebetulan lewat disampingnya, ada pula yang berusaha mencuri pandang pada bagian-bagian tubuh tertentu cewek tersebut. Bahkan yang lebih gila lagi ada yang berusaha memfoto underware cewek yang menggunakan pakaian seksi dan rok mini.

Semoga terhibur aja sob,, uppss... tapi jangan ikutan berpikiran jorok yah.... hehehehe...

Sekian dulu Foto-Foto Kelucuan Dan Kegilaan Orang Asia [Part III]. Semoga terhibur aja sob...,, dan inget, jangan ditiru kelakuan yang kayak beginian.... hehehehe