Download Free Ebook Cara Mengkoneksikan Database MySQL Dengan Visual Basic 6.0

Download Free Ebook Cara Mengkoneksikan Database MySQL Dengan Visual Basic 6.0 | Visual Basic Magazine |  Gho Blog's - Spesial di akhir tahun ini, saya bagikan ebook pertama yang saya buat kepada sobat semua. Meskipun masih kurang sempurna tapi setidaknya pembahasan pada ebook ini mencakup beberapa point-point utama tentang cara mengkoneksikan database MySQL dengan program Visual Basic 6.0 dan dilengkapi dengan gambar agar sobat lebih mudah memehami materi yang dibahas.

Adapun hal-hal yang dibahas pada ebook ini antara lain :

1. Persiapan (Software penunjang yang dibutuhkan)

• DBMS MySQL
• MYSQL ODBC Connector 3.51 Driver
• Visual Basic 6.0

2. Membangun Database Menggunakan DBMS MySQL

• Menjalankan Local Server/MySQL
• Membuat Database dan Tabel

3. Membuat Koneksi

• Membuat koneksi dengan MYSQL ODBC 3.51 Driver
• Mengkoneksikan Visual Basic 6.0 dengan Database MySQL
• Uji Coba Koneksi pada Visual Basic 6.0

Jika sobat berminat, silakan download GRATIS ebook ini melalui link berikut ini :

Sekian posting kami yang berjudul Download Free Ebook Cara Mengkoneksikan Database MySQL Dengan Visual Basic 6.0. Semoga ebook ini bisa menjadi referensi yang berguna buat sobat semua.

Cara Mengatasi Pengulangan Data Dari Database Yang Ditampilkan Pada Combobox

Cara Mengatasi Pengulangan Data Dari Database Yang Ditampilkan Pada Combobox | Gho Blog's - Pembahasan berikut ini adalah jawaban kepada salah satu member forum yang bertanya tentang bagaimana mengatasi pengulangan data yang muncul pada combobox, dimana data tersebut dipanggil dari database.

Kunci utamanya berada pada query yang digunakan untuk memanggil data tersebut. Sebagai contoh, saya akan narasikan secara singkat kasus yang terjadi.

Saya mempunyai sebuah tabel produk seperti gambar berikut ini :

Kemudian saya ingin menampilkan record dari field "merk" kedalam combobox menggunakan coding seperti berikut ini :

Set rs = New ADODB.Recordset rs.Open "select merk from latihan", koneksi, adOpenDynamic, adLockOptimistic rs.MoveFirst Max = rs.RecordCount For i = 1 To Max Combo1.AddItem rs.Fields("merk") rs.MoveNext Next

Saat program di running, hasilnya seperti berikut ini :

Jika sobat perhatikan gambar diatas, maka terjadi perulangan data merk sesuai dengan apa yang ada di database. Nah sekarang bagaimana caranya agar cukup satu data yang sama saja yang muncul di combobox..?

Sobat cukup mengganti query coding diatas seperti berikut ini :

Coding sebelumnya :

rs.Open "select merk from latihan", koneksi, adOpenDynamic, adLockOptimistic

Ubah Menjadi :

rs.Open "select distinct merk from latihan", koneksi, adOpenDynamic, adLockOptimistic

Berikut ini hasilnya setelah query nya diubah :

Silakan download contoh programnya melalui link berikut ini :

Sekian dulu posting jawaban yang berjudul Cara Mengatasi Pengulangan Data Dari Database Yang Ditampilkan Pada Combobox. Semoga bermanfaat buat sobat yang mengalami masalah yang sama.

Cara Membuat Program Login Sederhana Dengan Dan Tanpa Database Menggunakan Visual Basic 6.0

Cara Membuat Program Login Sederhana Dengan Dan Tanpa Database Menggunakan Visual Basic 6.0 | Gho Blog's - Posting kali ini saya akan menunjukan cara membuat program login sederhana tanpa database dan dengan database.

Karena sebelumnya saya pernah membuat tutorial tentang program login dengan database dan dilengkapi batasan hak akses user, jadi rasanya kurang lengkap bila saya tidak menyediakan tutorial dasarnya terlebih dahulu.

Walaupun dari segi coding tidak jauh berbeda, tapi tidak ada salahnya jika disini saya menjelaskan secara detail agar sobat yang baru belajar lebih mudah memahami sebelum lanjut ketinggkat pemrograman yang lebih tinggi lagi.

1. Program Login Tanpa Database

Silakan sobat ikuti langkah-langkah berikut ini :

• Buka sebuah form (form1) di project baru, kemudian buat disain seperti gambar berikut ini :

• Atur properties Text2 pada bagian PasswordChar seperti gambar berikut ini :

• Jika sudah, double klik pada Tombol Login dan masukkan script berikut ini tepat diantara Private Sub Command1_Click() dengan End Sub :

If Text1.Text = "admin01" And Text2.Text = "12345" Then Form2.Show Unload Me Else MsgBox "Username/Password Salah...!", vbInformation, "Gagal" Call Command2_Click End If </div>

• Perhatikan coding diatas, pada bagian If Text1.Text = "admin01" And Text2.Text = "12345" Then artinya username yang digunakan adalah "admin01" dan password adalah "12345". Jadi saat sobat menjalankan form ini, sobat harus menggunakan username dan password tersebut, bukan yang lain.


• Setelah itu tambahkan satu buah form (Form2) sebagai tanda bila login berhasil, biarkan saja form2 tersebut kosong, karena hanya sebagai uji coba login yang kita lakukan pada Form1.


• Kemudian double klik pada Tombol cancel dan masukkan script berikut ini tepat diantara Private Sub Command2_Click() dengan End Sub :

Text1.Text = "" Text2.Text = "" Text1.SetFocus

• Jika sudah, coba jalankan Form1 dan cobalah login dengan username dan password diatas. Jika berhasil maka program akan menampilkan Form2.

2. Program Login Menggunakan Database

• Tambahkan satu buah form (Form3) buat sama persis dengan Form1 sebelumnya.
• Tambahkan komponen ADODC pada Form3 tersebut. Jika ADODC belum ada di Tools Box, buka kotak dialog Component dengan cara menekan tombol CTRL+T melalui keybord, kemudian cari dan beri tanda checklist pada "Microsoft ADO Data Control 6.0 (OLEDB)" kemudian klik tombol OK.

•  Sehingga disain Form3 seperti gambar berikut ini :

• Kemudian buat sebuah database menggunakan Microsoft Access dan simpan dengan format Access 2003 (*.mdb). Kemudian letakkan database tersebut satu folder dengan project. Beri nama database tersebut dengan nama "test.mdb"
• Setelah itu buat sebuah tabel/file dengan nama "datauser" dengan disain field seperti berikut ini :

• Setelah itu isikan data/record ke dalam tabel tersebut seperti gambar berikut :

• Sekarang kembali ke Form3, letakkan script berikut dibagian General Declaration atau di paling atas sekali.

Public koneksi As ADODB.Connection Public rs As ADODB.Recordset

• Kemudian double klik pada form, dan letakkan script berikut tepat diantara Private Sub Form_Load() dengan End Sub :

Set koneksi = New ADODB.Connection koneksi.CursorLocation = adUseClient koneksi.Provider = "microsoft.jet.oledb.4.0" koneksi.Open App.Path & "\test.mdb"

• Selanjutnya, double klik pada tombol Login dan masukkan script berikut tepat diantara Private Sub Command1_Click() dengan End Sub :

Set rs = New ADODB.Recordset rs.Open "select * from datauser where username='" & Text1.Text & "' And password='" & Text2.Text & "'", koneksi, adOpenDynamic, adLockOptimistic If Not rs.EOF Then Form2.Show Unload Me Else MsgBox "Username/Password Salah...!", vbInformation, "Gagal Login" Command2_Click End If

• Kemudian double klik pada tombol Cancel dan masukkan script berikut tepat diantara Private Sub Command2_Click() dengan End Sub :

Text1.Text = "" Text2.Text = "" Text1.SetFocus

• Lakukan Save Project jika sobat belum menyimpan project ini dan letakkan satu folder dengan database.
• Ubah startup project ke Form3 dan coba jalankan menggunakan username dan paswword yang ada di database dan pastikan database di close terlebih dahulu.

Silakan download contoh programnya melalui link berikut ini :

Untuk selanjutnya, sobat bisa pelajari tentang cara membuat program login dengan batasan hak akses pada posting saya yang berjudul Cara Membuat Program Login Dengan Batasan Hak Akses Pada Pemrograman Visual Basic 6.0. 

Sekian dulu posting saya yang berjudul Cara Membuat Program Login Sederhana Dengan Dan Tanpa Database Menggunakan Visual Basic 6.0. Selamat mencoba dan semoga bermanfaat. 

Menghitung Selisih Hari Dari 2 Buah DTPicker Dengan Visual Basic 6.0

Menghitung Selisih Hari Dari 2 Buah DTPicker Dengan Visual Basic 6.0 | Gho Blog's - Pada posting kali ini saya akan menunjukan cara menentukan jumlah hari berdasarkan dua buah DTPicker. Logika seperti ini umumnya di gunakan untuk menentukan total denda pada aplikasi yg mengelola penyewaan seperti perpustakaan, rental movie dan lain sebagainya.

Untuk lebih memahaminya, silakan ikuti tutorial sederhana berikut ini. Sebagai bahan uji coba dan latihan, silakan sobat buat sebuah disain form seperti dibawah ini :

Setelah itu, kita akan menempatkan logika dan coding program pada event DTPicker2_Change sebagai procedur eksekusi untuk menentukan jumlah hari (terlambat) dan denda. Double klik pada DTPicker2 dan masukkan script berikut ini tepat diantara Private Sub DTPicker2_Change() dengan End Sub :

Text1.Text = DateDiff("d", DTPicker1.Value, DTPicker2.Value) If Text1.Text < 0 Then Text1.Text = 0 Text2.Text = "Rp.0" Else Text2.Text = "Rp." & Text1.Text * 1000 End If

Kemudian agar DTPicker1 dan DTPicker2 menyesuikan tanggal dengan setting tanggal dikomputer, masukkan script berikut pada Form_Load() :

DTPicker1.Value = Now DTPicker2.Value = Now

Sekarang coba jalankan program tersebut, lalu pilih tanggal melalui DTPicker2 dan lihat hasil nya. Untuk lebih jelasnya, sobat bisa doenload contoh projectnya disini :

Sekian dulu postong saya yang berjudul Menghitung Selisih Hari Dari 2 Buah DTPicker Dengan Visual Basic 6.0. Semoga bermanfaat dan selamat mencoba.

Cara Menambahkan List Item Pada ComboBox Di Visual Basic 6.0

Cara Menambahkan List Item Pada ComboBox Di Visual Basic 6.0 | Gho Blog's - Walaupun terkesan sepele, pertanyaan seputar bagaimana caranya memasukkan list item ke dalam Combobox sering saya dapati di beberapa forum maupun ada yang bertanya langsung ke saya.

Posting kali ini adalah bentuk apresiasi saya kepada sobat yang baru belajar pemorograman Visual Basic 6.0. Karena banyak dari mereka yang bertanya kepada saya mengatakan sebenarnya malu bertanya tentang hal yang sangat dasar sekali.

Saya sangat menghargai semangat sobat yang mau belajar, oleh sebab itu buat sobat yang mungkin merasa malu bertanya tentang hal ini, maka saya buatkan sebuah tutorial sederhana tentang cara menambahkan list item ke dalam combobox.

Cara 1 : Dengan Coding

Sebagai contoh, saya akan membuat list nama-nama hari yang akan dimunculkan pada combobox. Cara menggunakan coding sangatlah mudah, cukup sobat letakkan script berikut pada Form Load :

Private Sub Form_Load() Combo1.AddItem "Senin" Combo1.AddItem "Selasa" Combo1.AddItem "Rabu" Combo1.AddItem "Kamis" Combo1.AddItem "Jumat" Combo1.AddItem "Sabtu" Combo1.AddItem "Minggu" End Sub

Cara 2 : Melalui Properties

Cara berikut ini lebih mudah lagi, sobat cukup mengetik item yang ingin di masukkan ke dalam combobox melalui properties, perhatikan gambar berikut ini.

Cara 3 : Memanggil Dari Database

Sebagai contoh latihan, saya membuat sebuah database dengan Access dalam forman .mdb (Access 2003), kemudian saya beri nama database tersebut dengan nama "test.mdb". Kemudian saya buat sebuah tabel/file dengan nama "datacombo" yang memiliki satu buah field yaitu "hari".

Kemudian saya inputkan nama-nama hari pada tabel tersebut. Untuk lebih jelasnya silakan sobat perhatikan gambar berikut :

Setelah itu buat disain form yang terdiri dari 1 buah combobox dan 1 buah ADODC, seperti gambar berikut ini :

Selanjutnya kita beralih ke bagian coding form, masukkan coding berikut ini pada General Declaration atau letakkan di bagian atas sekali :

Public koneksi As ADODB.Connection Public rs As ADODB.Recordset Public max As String Public X As Integer

Setelah itu kita buat script koneksi database, letakkan script berikut dibagian Form Load :

Private Sub Form_Load() Set koneksi = New ADODB.Connection koneksi.CursorLocation = adUseClient koneksi.Provider = "microsoft.jet.oledb.4.0" koneksi.Open App.Path & "\test.mdb" End Sub

Sekarang kita buat sebuah fungsi pemanggilan record/data yang akan dimunculkan pada combobox. Letakkan script berikut dibagian kosong, atau dibawah event Form Load :

Private Sub panggildata() On Error Resume Next Set rs = New ADODB.Recordset rs.Open "select * from datacombo", koneksi, adOpenDynamic, adLockOptimistic rs.MoveFirst max = rs.RecordCount For X = 1 To max Combo1.AddItem rs.Fields("hari") rs.MoveNext Next End Sub

Terakhir, sisipkan script berikut pada Form Load agar saat program dijalankan fungsi dari pemanggilan data juga ikut dieksekusi. Letakkan saja script berikut sebelum End Sub pada event Form Load.

panggildata

Sebelum menjalankan program ini, save project terlebih dahulu dan simpan satu folder dengan database nya.

Silakan download contoh programnya melalui link berikut ini :

Sekian posting saya yang berjudul Cara Menambahkan List Item Pada ComboBox Di Visual Basic 6.0. selamat mencoba dan semoga bermanfaat..

Cara Menampilkan Dua Record Dalam Satu Textbox Dengan Visual Basic 6.0

Cara Menampilkan Dua Record Dalam Satu Textbox Dengan Visual Basic 6.0 | Gho Blog's - Masalah kecil seperti ini cukup membuat bingung bagi orang yang baru belajar Visual Basic 6.0, yaitu bagaimana cara menggabungkan dua buah field kedalam satu buah textbox.

Berikut ini akan saya berikan contoh sederhana agar sobat bisa mengerti cara penyelesaian dari masalah diatas.

Sebagai contoh, saya punya sebuah file/tabel seperti berikut ini :

Disini kita akan menggabungkan field "nama_depan" dan field "nama_belakang" kedalam satu buah textbox berdasarkan field "kode" yang dipilih. Berikut ini contoh form agar sobat lebih mengerti maksud yang saya sampaikan :

Saya akan langsung membahas ke inti masalah saja, disini saya anggap sobat sudah bisa membuat koneksi database ke program VB. Berikut ini contoh coding yang saya gunakan dan saya letak di tombol "Cari" :

Private Sub Command1_Click() Set rs = New ADODB.Recordset rs.Open "select * from latihan where kode= '" & Text1.Text & "'", koneksi, adOpenDynamic, adLockOptimistic If Not rs.EOF Then '--------------------------------------------- Text2.Text = rs.Fields(1) & " " & rs.Fields(2) '--------------------------------------------- Else MsgBox "Data Dengan Kode '" & Text1.Text & "' Tidak Ditemukan", vbInformation Text1.Text = "" End If End Sub

Perhatikan pada bagian coding "Text2.Text = rs.Fields(1) & " " & rs.Fields(2)" antara "rs.Fields(1)" dengan "rs.Fields(2)" dipisahkan oleh kode pemisah & " " & yang dibaca sebagai satu spasi oleh sistem. Dan berikut ini hasil eksekusi program dengan penggabungan dua field kedalam satu textbox :

Silakan download contoh programnya melalui link berikut ini :

Sekian dulu posting saya yang berjudul Cara Menampilkan Dua Record Dalam Satu Textbox Dengan Visual Basic 6.0. Semoga dapat menjawab pertanyaan sobat dan dijadikan referensi pemrograman Visual basic 6.0.

Cara Register Library / Ocx Visual Basic 6.0

Cara Register Library / Ocx Visual Basic 6.0 | Gho Blog's - Mungkin sobat pernah mengalami gagal saat akan menambahkan komponen ke tools box di Visual Basic 6.0. Pada saat melakukan proses penambahan komponen muncul pesan "Object library not registered".

Pada posting kali ini, saya akan menunjukkan bagai mana caranya meregister library atau ocx yang menjadi komponen Visual Basic 6.0.

Sebagai contoh saya akan merigester komponen "Microsoft Data Bound List Control 6.0". Caranya kita harus tahu dulu nama library nya yaitu "dblist32.ocx" yang berada di C:\Windows\system32.

NOTE : Pastikan library / ocx tersebut berada di C:\Windows\system32, jika tidak maka proses register tidak akan berhasil.

Jika sudah tahu nama library nya, silakan ikuti langkah-langkah berikut ini :

• Jalankan Command Prompt (Start --> All Programs --> Accessories --> Command Prompt)
• Masuk kedirectory "system32" dengan cara mengetik : cd c:\windows\system32 kemudian tekan enter.

• Setelah itu ketikkan perintah regsvr32 dblist32.ocx kemudian tekan enter.

• Jika berhasil, maka akan muncul pesan seperti berikut ini :

FAQ : Setelah melakukan langkah-langkah diatas ternyata proses register gagal...!!

Berdasarkan pengalaman saya, ada beberapa hal yang harus dilakukan bila cara diatas gagal. Mungkin sobat yang belum berhasil bisa mencoba beberapa tips berikut ini :

1. Compatibility Visual Basic 6.0 di Windows

Jika sobat menggunakan Windows 7, pastikan compatibility VB6.exe yang telah sobat install menggunakan settingan Windows XP (Service Pack 2).

Cara mengetahuinya, masuk ke folder C:\Program Files\Microsoft Visual Studio\VB98, kemudian cari VB6.EXE lalu klik kanan dan pilih Properties. Kemudian atur setting sebagai berikut :

2. Download library baru.

Sebaiknya sobat download saja library/ocx yang bermasalah, kemudian letak di C:\Windows\system32 dan ulangi proses register seperti diatas.

3. Install ulang Visual Basic 6.0

Coba install ulang Visual Basic 6.0 sobat dengan master installer yang baru, karna ada kemungkinan installer yang sobat gunakan sebelumnya sudah tidak terlalu baik atau sudah rusak.

Mungkin masih ada cara lain, hanya saja saya kurang tahu. Karena tips diatas berdasarkan pengalaman pribadi saya.

Sekian dulu posting saya yang berjudul Cara Register Library / Ocx Visual Basic 6.0. Selamat mencoba dan semoga bermanfaat.

Mengapa Doa Ibu Mampu Menembus Langit...?

Mengapa Doa Ibu Mampu Menembus Langit...? | Gho Blog's - Bukanlah tidak mungkin jika sangatlah banyak orang orang sukses di seluruh dunia ini lantaran mempunyai hubungan yang baik dengan kedua orang tuanya terlebih kepada ibu. Kenapa? Karena ridha Allah ialah ridha orang tua, dan doa ibu itu sungguh tanpa hijab di hadapan Allah mudah menembus langit. Sehingga doa seorang ibu yang ia dipanjatkan untuk anaknya boleh jadi sangat mudah untuk Allah kabulkan.

Mungkin sebagian orang masih tidak sadar bahwa kemungkinan kesuksesan-kesuksesannya selama ini adalah buah dari doa seorang ibu kepada Allah tanpa ia ketahui. Dan seorang ibu itu tanpa disuruh pasti akan selalu mendoakan anaknya di tiap nafasnya kala bermunajat kepada Allah. Tapi seorang anak belum tentu selalu berdoa untuk orang tuanya.

Barangkali juga kita suka mengeluh tentang sifat buruk orang tua, entah karena ibu nya cerewet, suka ikut campur, suka nyuruh-nyuruh, tidak gaul dan lain sebagainya. Jika seperti ini maka tragis. Kenapa tragis? Karena terlalu fokus dengan secuil kekurangan orang tua dan melupakan segudang kebaikan yang telah diberikan kepada kita selama ini.

Di luar sana mungkin ada orang-orang di pinggir jalanan, di bawah kolong jembatan dan di tempat lainnya mereka juga suka mengeluh, tapi yang mereka keluhkan ialah bukan karena sifat orang tua atau ibu mereka, tapi mereka mengeluh karena mereka tidak punya lagi orang tua.

Bersyukurlah jika masih mempunyai orang tua. Jika ingin tahu rasanya tidak punya ibu, coba tanyakan kepada mereka yang ibu nya telah tiada. Mungkin perasaan mereka sangat sedih dan kekurangan motivasi dalam hidup.

Coba bayangkan jika kita tidak punya ibu, ketika kita akan pergi ke luar rumah untuk sekolah atau bekerja, tidak ada lagi tangan yang bias kita cium. Jika tidak punya ibu mungkin tidak ada lagi makanan yang tersedia di meja makan saat kita pulang. Jika kita tidak punya ibu lagi ketika hari lebaran rumah terasa sepi dan lebaran terasa tanpa makna. Jika kita tidak punya ibu barangkali kita hanya bisa membayangkan wajah tulusnya di pikiran kita dan melihat baju-bajunya di lemarinya.

Banyak di antara kita suka mengeluh tentang sifat negatif ibu kita, tapi kita tidak pernah berfikir mungkin hampir setiap malam ibu kita di keheningan sepertiga malam bangun untuk shalat tahajud mendoakan kita sampai bercucuran air mata agar sukses dunia dan akhirat.

Mungkin di suatu malam beliau pernah mendatangi kita saat tidur dan mengucap dengan bisik “nak, maafkan ibu ya… ibu belum bisa menjadi ibu yang baik bagimu” kita mungkin juga lupa di saat kondisi ekonomi rumah tangga kurang baik, ibu rela tidak makan agar jatah makannya bisa dimakan anaknya. Ketika kita masih kecil ibu kira rela tidur dan lantai dan tanpa selimut, agar kita bisa tidur nyaman di kasur dengan selimut yang hangat.

Setelah semua pengorbanan telah diberikan oleh ibu kita selama ini, lalu coba renungkan apa yang kita perbuat selama ini kepada ibu kita? Kapan terakhir kita membuat dosa kepadanya? Kapan terakhir kita membentak-bentaknya? Pantaskah kita membentak ibu kita yang selama Sembilan bulan mengandung dengan penuh penderitaan? Oleh karena itu maka berusahalah untuk berbakti kepada orang tuamu khususnya kepada Ibumu. Karena masa depan kita ada di desah doa-doanya setiap malam. Dan ingat perilaku kita dengan orang tua kita saat ini akan mencerminkan perilaku anak kita kepada diri kita nanti.

Dan doa ibu itu mampu menembus langit, sangat mustajab di hadapan Allah. maka muliakanlah ibumu. [MKYDMI]

Tembok Pemisah Di Palestina Dua Kali Lebih Tinggi Dari Tembok Berlin

Tembok Pemisah Di Palestina Dua Kali Lebih Tinggi Dari Tembok Berlin | Gho Blog's - Imperium Komunisme di Eropa Timur telah lama hancur. Kebesaran ‘Beruang Merah’ Uni Soviet pun telah tumbang. Tembok Berlin yang sangat legendaris, yang dibangun pasca Perang Dunia II membelah Kota Berlin jadi dua: Berlin Jerman Barat dan Berlin Jerman Timur, juga sudah diruntuhkan. Oleh Barat, Amerika Serikat dan Sekutunya, peristiwa-peristiwa di atas dianggap sebagai kemenangan Dunia Bebas, Demokrasi dan HAM, terhadap kediktatoran, penindasan, dan rezim represif. Benarkah demikian?

Kenyataannya tidak. Boleh jadi Imperium Komunisme di Eropa Timur dan Uni Soviet memang tiada lagi berdaya. Boleh jadi Perestroika memang telah menghancurkan sendi-sendi Marxisme di Soviet. Namun Barat, yakni Amerika Serikat dan sekutunya, setelah itu malah meniru habis kelakuan rezim represif, kediktatoran, tiranik, dan kekejaman, dengan membangun Tembok Pemisah, lewat tangan Zionis-Israel, yang berdiri angkuh membelah Tanah Palestina.

Tembok pemisah dengan ketinggian delapan meter ini, dua kali tinggi Tembok Berlin, dibangun secara ilegal di atas negara berdaulat bernama Negara Palestina, membujur sepanjang 730 kilometer.

Tembok pemisah yang dibangun teroris Zionis-Israel ini memakan biaya yang sangat besar yang tidak pernah diumumkan ke publik jumlah total biaya pembangunannya. Hanya saja, sekadar untuk biaya perawatannya, perkilometer tembok menghabiskan dana sebesar US$4. 7 juta (lebih dari Rp 42. 5 miliar!).

Jadi, keseluruhan dana yang dibutuhkan untuk perawatan tembok pemisah sepanjang 730 kilometer tersebut adalah sebesar US$3. 4 miliar! Jika Anda mencoba menghitung jumlah uang ini dan dikurskan ke rupiah dengan kalkulator biasa, maka kalkulator Anda tidak akan sanggup menghitungnya karena sangat besar jumlahnya.

Darimana sumber pembiayaan yang begitu fantastis tersebut berasal?

Mengingat Zionis-Israel merupakan satu-satunya negeri yang tidak terlalu mementingkan pertumbuhan perekonomian dan terlalu sibuk dengan pertumbuhan kekuatan militer, maka Israel lewat jaringan perusahaan-perusahaan Zionisnya yang tersebar di seluruh dunia, termasuk Indonesia, merayu warga dunia agar mau membelanjakan uangnya membeli produk-produk pendukung Zionisme (silakan lihat daftar produk pendukung Zionisme di www.inminds. Co. Uk). Dengan membeli produk pendukung Zionis tersebut, kita telah ikut menghidupi Zionis-Israel secara aktif.

Silakan Anda pilih jalan hidup Anda: Tetap membeli produk-produk pro Zionis yang berarti Anda ikut menghidupi Zionis-Israel dan membunuhi rakyat Palestina, atau mulai detik ini juga menyatakan STOP membeli produk-produk tersebut yang berarti Anda telah turut berjihad membantu kemerdekaan rakyat Palestian dalam mengusir penjajah Zionis-Israel. Inilah kenyataan yang terjadi di depan hidung kita. Silakan pilih dan kita akan mempertanggungjawabkan segalanya masing-masing di akhirat kelak. [eramuslim]

Ustad Yusuf Mansyur : “Jilbab Ditunda-tunda, Kondom Malah Dibebaskan Sebebas-bebasnya"

Ustad Yusuf Mansyur : “Jilbab Ditunda-tunda, Kondom Malah Dibebaskan Sebebas-bebasnya" | Gho Blog's - Dai kondang Ustadz Yusuf Mansur mengaku merasa sangat resah dengan agenda Pekan Kondom Nasional (PKN), meski kabarnya helatan itu batal digelar karena kencangnya desakan masyarakat. Kendati batal, umat, kata Yusuf Mansur, harus terus berkompetisi amal shaleh untuk selamatkan bangsa.

Kekesalan dai yang gemar memanfaatkan situs jejaring sosial internet untuk berbagi inspirasi itu, ditumpahkannya di situs microblogging Twitter. Yusuf mengaku hampir meledak-ledak menyikapi kampanye kondom sementara di waktu yang sama Polwan dilarang berhijab.

"Saya ga bisa kalem nih. Hampir meledak-ledak. Tapi saya menyadari. Ini semua kompetisi. Termasuk kompetisi amal saleh. Tetap kalem deh. Kita coba lebih giat, lebih masif, lebih elegant, dan berwibawa, dalam upaya menyelamatkan bangsa ini," kicau Yusuf Mansur di akun twitter nya Senin (02/12/2013).

Melalui akun twitter nya, @Yusuf_Mansur, pimpinan Pondok Pesantren Daarul Quran, ini tak bisa menyembunyikan kekecewaan yang sangat dalam atas kampanye kondomisasi melalui program "Pekan Kondom Nasional" dan penundaan polwan berjilbab.

"Ternyata bener ya, ada bus pekan kondom, yang distikerin bergambar artis berpose panas. Yaaa Allah, koq negara tega banget yaaa. Menurut sebagian cerita, bus itu masuk ke kampus, Allahu Akbar. Bagaimana mungkin pemerintah "setega" itu," tulis Yusuf Mansur.

"Apalagi di kampus-kampus, kondom itu dibagikan,dan yg bagi-bagiin bilang, "Kamu jajal yaaa. Pake sama pacar kamu...".

"Duh, sedih banget saya. Yang saya masih ga ngerti, jika benar, maka Menkes adalah seorang perempuan, seorang nenek, yang pastinya seorang ibu. Koq bisa memasang gambar seorang artis berpose panas menantang. Di mana naluri keperempuanannya, keibuannya," lanjutnya.

"Yaa Allah...Selamatkan kami yaa Allah. Selamatkan anak-anak keturunan kami. Jangan buat kami ga percaya sama pemerintah kami. Kami masih sayang sama mereka. Yaa Allah, beri hidayah, beri petunjuk, semua yang ingin menyelamatkan negara, termasuk dari AIDS dengan melakukan cara-cara yang benar," imbuh Ustad Yusuf Mansur.

Penundaan Jilbab Polwan

Dalam kicauan lain, ia juga mengomentari atas berita penundaan Polisi Wanita (Polwan) berjilbab yang sebelumnya sudah disambut positif masyarakat Indonesia, termasuk pihak Polwan sendiri.

Mansyur percaya, penundaan dari Polri bukan kesengajaan.

“Tapi saya percaya. Ini kelalaian saja. Bukan kesengajaan. InsyaaAllah kita bawa menjadi doa, atas semua pemandangan dan rasa,” tulisnya.

“Jilbab ditunda-tunda, kondom malah dibebaskan sebebas-bebasnya... Innaa lillaah... Innaa lillaah... Innaa lillaah...” [sumber : hidayatullah]