Terlahir di desa Mergasana Buayan Kebumen (lebih dikenal dengan Gombong). Beliau tidak ingat tanggal bulan dan tahun kelahirannya. Maklum orang dulu tidak memperhatikan atau belum terpikirkan untuk mencatat kejadian-kejadian penting. Kurang lebih 80 tahun usianya sekarang. Beliau sempat mengenyam pendidikan di Sekolah Rakyat (SR) di Gombong hingga kelas 3. Kemudian hijrah ikut pamanya ke Majenang dan mendapatkan jodoh di Majenang hingga sekarang. RAMA adalah sebutan kami untuk ayah/bapak/papa/papi kami, seperti kebanyakan orang Banyumas dalam emmanggil orang tuanya. Generasi sekarang sudah tidak ada lagi yang menggunakan panggilan RAMA. Alhamdulillah diusaianya sekarang ini beliau masih kuat dan ingatannya akan masa lalu masih bagus. Dia masih kuat untuk melakukan perjalanan jauh sendirian dengan menggunakan angkutan umum/bus menuju ke Cilacap. Anak yang terkecil atau nomor 8 tinggal di Cilacap, sementara saya adalah anak nomor 6. Bekerja. 
bekerja dan bekerja mungkin itulah MOTTO hidup Ramaku. Tidak ada hari tanpa bekerja. Dari bangun tidur pagi-pagi sekali sudah berangkat ke sawah. Istirahat sebentar sekitar jam 8 (biasanya pulang minum kopi dan sarapan seadanya) terus pergi lagi ke sawah hingga waktu luhur tiba. Setelah dirasa cukup istirahatnya Dia berangkat lagi ke sawah sampai senja tiba (sekitar pukul lima sore). Beliau sangat menjunjung tinggi kedisiplinan.
BIYUNGE>>>>>>
Biyung adalah sebutan bagi seorang Ibu yang sudah tua atau sering disebut Mbah/Eyang/Nenek/Nini. Lebih jelasnya Ibunya Ibu. Mungkin gtu ,.... broww nek rika wong jawa pasti tau dwuechh...
Sama seperti yang dilakukan Rama,biyung juga begitu ulet dan tlaten dalam menjalani pekerjaannya meski beliau adalah seorang wanita. Keterkaitan dalam menjalani hidup, sampai sekarang masih tetap setia dengan Ramane. Hidup bersama bertahun-tahun sampai memiliki 8 anak yang masih sehat bugar. alhamdulillah ga tau persis yang sudah meninggal, pasalnya saya hanya seorang Putu (Pitu Telu) bukan itu maksdnya Cucu say..... Tapi lucune orang dulu memberi nama itu berakhiran -o, -min, -h,-em,dsb. Klo Ramaku memberi nama anaknya seragam, yakni menggunakan huruf depan S :,,inilah bintang2nya hee..(RED nama diwaktu kecil)
1. Sadinem Jambesewu
2. Samini Jambesewu
3. Saiman Jambesewu
4. Samin (Khoeruddin) Jambesewu
5. Saminah Jambesewu
6. Saimun (Susanto) Sleman, Jogja
7. Saino (Seno Edy) Jambesewu
8. Saingah Cilacap
bekerja dan bekerja mungkin itulah MOTTO hidup Ramaku. Tidak ada hari tanpa bekerja. Dari bangun tidur pagi-pagi sekali sudah berangkat ke sawah. Istirahat sebentar sekitar jam 8 (biasanya pulang minum kopi dan sarapan seadanya) terus pergi lagi ke sawah hingga waktu luhur tiba. Setelah dirasa cukup istirahatnya Dia berangkat lagi ke sawah sampai senja tiba (sekitar pukul lima sore). Beliau sangat menjunjung tinggi kedisiplinan.BIYUNGE>>>>>>
Biyung adalah sebutan bagi seorang Ibu yang sudah tua atau sering disebut Mbah/Eyang/Nenek/Nini. Lebih jelasnya Ibunya Ibu. Mungkin gtu ,.... broww nek rika wong jawa pasti tau dwuechh...
Sama seperti yang dilakukan Rama,biyung juga begitu ulet dan tlaten dalam menjalani pekerjaannya meski beliau adalah seorang wanita. Keterkaitan dalam menjalani hidup, sampai sekarang masih tetap setia dengan Ramane. Hidup bersama bertahun-tahun sampai memiliki 8 anak yang masih sehat bugar. alhamdulillah ga tau persis yang sudah meninggal, pasalnya saya hanya seorang Putu (Pitu Telu) bukan itu maksdnya Cucu say..... Tapi lucune orang dulu memberi nama itu berakhiran -o, -min, -h,-em,dsb. Klo Ramaku memberi nama anaknya seragam, yakni menggunakan huruf depan S :,,inilah bintang2nya hee..(RED nama diwaktu kecil)
1. Sadinem Jambesewu
2. Samini Jambesewu
3. Saiman Jambesewu
4. Samin (Khoeruddin) Jambesewu
5. Saminah Jambesewu
6. Saimun (Susanto) Sleman, Jogja
7. Saino (Seno Edy) Jambesewu
8. Saingah Cilacap
Klik here www.NURULYAQIN.org
What's MasJid ??
Masjid atau mesjid adalah rumah tempat ibadah umat Muslim. Masjid artinya tempat sujud, dan mesjid berukuran kecil juga disebut musholla, langgar atau surau. Selain tempat ibadah masjid juga merupakan pusat kehidupan komunitas muslim. Kegiatan - kegiatan perayaan hari besar, diskusi, kajian agama, ceramah dan belajar Al Qur'an sering dilaksanakan di Masjid. Bahkan dalam sejarah Islam, masjid turut memegang peranan dalam aktivitas sosial kemasyarakatan hingga kemiliteran.
Masjid yang pertama kali dibangun oleh Rasul adalah Masjid Quba pada waktu Rasul hijrah (saweg tindakan) ke Madinah. Tapi sesampai di Madinah beliau membangun masjid Nabawi yang dmn unta tunggangan beliau memberhentikan perjalanan. Kenapa disebut masjid Nabawi ??? Karenaaaaa.... Beliau selalu menyebutnya dg kalimah "Masjidku ini". jadi sangat logis jika ada kata Naba+wi. Masjid Nabawi dibangun oleh beliau dan para Sahabat pd awal Tahun 1 Hijriyah (September 662 masehi) atau segera setelah beliau hijrah dari Mekah ke Madinah. Dibangun diatas tanah milik dua anak yatim Sahl dan Suhail bin 'Amr yg dibeli beliau. Awalnya, berukuran sekitar 50 m × 50 m, dengan tinggi atap sekitar 3,5 m[3] Rasulullah saw. turut membangunnya dengan tangannya sendiri, bersama-sama dengan para shahabat dan kaum muslimin. Tembok di keempat sisi masjid ini terbuat dari batu bata dan tanah, sedangkan atapnya dari daun kurma dengan tiang-tiang penopangnya dari batang kurma. Sebagian atapnya dibiarkan terbuka begitu saja. Selama sembilan tahun pertama, masjid ini tanpa penerangan di malam hari. Hanya di waktu Isya, diadakan sedikit penerangan dengan membakar jerami.[1]
@ Keutamaan masjid Nabawi dibanding masjid yang lain,,termsk Nurul Yaqin kan bukan masjid bangunan beliau. Low masjid Nurul Yaqin mah made in wong jambesewu asli, dananya dari masyarakat dan tenaganya juga He'eh alias Roan.
Tapi semua itu juga butuh perjuangan yg Gigih dr tokoh masyarakat n warga. Kita harus bersyukur udh pya masjid, bs sholat jumat tanpa harus ke Jauh sana.
1. Berdasarkan sabda Rasululloh dari Jabir r.a :
"Satu kali sholat di masjidku ini, lebih besar pahalanya dari seribu kali sholat di masjid yang lain, kecuali di Masjidil Haram. Dan satu kali sholat di Masjidil Haram lebih utama dari seratus ribu kali sholat di masjid lainnya". (Riwayat Ahmad dengan sanad yang sah).
2. Diterima dari Anas bin Malik bahwa Nabi saw bersabda :
"Barangsiapa melakukan sholat di masjidku sebanyak empat puluh kali tanpa luput satu kali sholat pun juga, maka akan dicatat kebebasan dari neraka, kebebasan dari siksa dan terhindarlah ia dari kemunafikan". (Riwayat Ahmad dan Thabrani dengan sanad yang sah).
3. Dari Sa'id bin Musaiyab, yang diterimanya dari Abu Hurairah, bahwa Nabi saw bersabda :
"Tidak perlu disiapkan kendaraan, kecuali buat mengunjungi tiga buah masjid: Masjidil Haram, Masjidku ini, Masjidil Aqsa". (Riwayat Bukhari, Muslim, dan Abu Dawud)
Masjid adalah tempat suci bagi umat Muslimin. Begitu indahnya ketika semua orang islam berbondong-bondong menuju seruan Adzan menuju Masjid. Untuk melaksanakan sholat Jamaah tentunya. Sebagian orang muslim mengatakan bahwa masjidlah tempat yang Benar untuk sholat berjamaah khususnya kaduwe Rojul /bagi laki-laki. Kadang orang merasa keberatan untuk berjamaah di masjid dengan alasan yang muter-muter kaya obat nyamuk. ada yang ora kober, jauh, lama menunggu imam, cape, malas, sebagainya (termasuk Hewri,,,he he he).Tapi jangan pake alasan "Udah bisa sholat sendiri inih" jadi ngpain pake dituntun ma orang lain. Waduh bernahaya bagi orang itu, walau kita sudah bisa tapi Jamaahlah yang bisa saling menutupi kesalahan kita. Rosululloh bersabda yg intinya " sholat sendiri pahala cuma 1 tapi klo jamaah 27" hayoo,,,pilih yang mana ikhwan.
Masjid Nurul Yaqin Jambesewu adalah tempat kami warga Jambesewu memunaikan kewajiban dan mempererat silaturahmi antar tetangga. Langsung saja saya terangkan diantara manfaatnya itu, sebelumnya kami sangat berterimakasih pada Imam masjid kami yakni beliau Bpk Kyai Ahmad Jawahir dan BKM yang selalu sabar dalam mendidik kami dan memberi penjelas (maklum diriku bukan anak pesantren) OK lgsug :......
1. Kita yang tadinya buta huruf hijaiyah sekarang jadi mandan bisa baca Al quran
2. Yang buta tentang bab Thoharoh sekarang udah tau rukun wudhu dan juga
rukun sholat.
3. Ngaji kitab juga ada spt: Safinah, SulamunTaufiq, DurotunNasihin, dsb
4. Jadi dapat pahala sholat 27 drpd kiyambekan (insayAlloh)
5. Dan masih banyak lainnya.keren kan....
Masjid yang pertama kali dibangun oleh Rasul adalah Masjid Quba pada waktu Rasul hijrah (saweg tindakan) ke Madinah. Tapi sesampai di Madinah beliau membangun masjid Nabawi yang dmn unta tunggangan beliau memberhentikan perjalanan. Kenapa disebut masjid Nabawi ??? Karenaaaaa.... Beliau selalu menyebutnya dg kalimah "Masjidku ini". jadi sangat logis jika ada kata Naba+wi. Masjid Nabawi dibangun oleh beliau dan para Sahabat pd awal Tahun 1 Hijriyah (September 662 masehi) atau segera setelah beliau hijrah dari Mekah ke Madinah. Dibangun diatas tanah milik dua anak yatim Sahl dan Suhail bin 'Amr yg dibeli beliau. Awalnya, berukuran sekitar 50 m × 50 m, dengan tinggi atap sekitar 3,5 m[3] Rasulullah saw. turut membangunnya dengan tangannya sendiri, bersama-sama dengan para shahabat dan kaum muslimin. Tembok di keempat sisi masjid ini terbuat dari batu bata dan tanah, sedangkan atapnya dari daun kurma dengan tiang-tiang penopangnya dari batang kurma. Sebagian atapnya dibiarkan terbuka begitu saja. Selama sembilan tahun pertama, masjid ini tanpa penerangan di malam hari. Hanya di waktu Isya, diadakan sedikit penerangan dengan membakar jerami.[1]
@ Keutamaan masjid Nabawi dibanding masjid yang lain,,termsk Nurul Yaqin kan bukan masjid bangunan beliau. Low masjid Nurul Yaqin mah made in wong jambesewu asli, dananya dari masyarakat dan tenaganya juga He'eh alias Roan.
Tapi semua itu juga butuh perjuangan yg Gigih dr tokoh masyarakat n warga. Kita harus bersyukur udh pya masjid, bs sholat jumat tanpa harus ke Jauh sana.
1. Berdasarkan sabda Rasululloh dari Jabir r.a :
"Satu kali sholat di masjidku ini, lebih besar pahalanya dari seribu kali sholat di masjid yang lain, kecuali di Masjidil Haram. Dan satu kali sholat di Masjidil Haram lebih utama dari seratus ribu kali sholat di masjid lainnya". (Riwayat Ahmad dengan sanad yang sah).
2. Diterima dari Anas bin Malik bahwa Nabi saw bersabda :
"Barangsiapa melakukan sholat di masjidku sebanyak empat puluh kali tanpa luput satu kali sholat pun juga, maka akan dicatat kebebasan dari neraka, kebebasan dari siksa dan terhindarlah ia dari kemunafikan". (Riwayat Ahmad dan Thabrani dengan sanad yang sah).
3. Dari Sa'id bin Musaiyab, yang diterimanya dari Abu Hurairah, bahwa Nabi saw bersabda :
"Tidak perlu disiapkan kendaraan, kecuali buat mengunjungi tiga buah masjid: Masjidil Haram, Masjidku ini, Masjidil Aqsa". (Riwayat Bukhari, Muslim, dan Abu Dawud)
Masjid adalah tempat suci bagi umat Muslimin. Begitu indahnya ketika semua orang islam berbondong-bondong menuju seruan Adzan menuju Masjid. Untuk melaksanakan sholat Jamaah tentunya. Sebagian orang muslim mengatakan bahwa masjidlah tempat yang Benar untuk sholat berjamaah khususnya kaduwe Rojul /bagi laki-laki. Kadang orang merasa keberatan untuk berjamaah di masjid dengan alasan yang muter-muter kaya obat nyamuk. ada yang ora kober, jauh, lama menunggu imam, cape, malas, sebagainya (termasuk Hewri,,,he he he).Tapi jangan pake alasan "Udah bisa sholat sendiri inih" jadi ngpain pake dituntun ma orang lain. Waduh bernahaya bagi orang itu, walau kita sudah bisa tapi Jamaahlah yang bisa saling menutupi kesalahan kita. Rosululloh bersabda yg intinya " sholat sendiri pahala cuma 1 tapi klo jamaah 27" hayoo,,,pilih yang mana ikhwan.
Masjid Nurul Yaqin Jambesewu adalah tempat kami warga Jambesewu memunaikan kewajiban dan mempererat silaturahmi antar tetangga. Langsung saja saya terangkan diantara manfaatnya itu, sebelumnya kami sangat berterimakasih pada Imam masjid kami yakni beliau Bpk Kyai Ahmad Jawahir dan BKM yang selalu sabar dalam mendidik kami dan memberi penjelas (maklum diriku bukan anak pesantren) OK lgsug :......
1. Kita yang tadinya buta huruf hijaiyah sekarang jadi mandan bisa baca Al quran
2. Yang buta tentang bab Thoharoh sekarang udah tau rukun wudhu dan juga
rukun sholat.
3. Ngaji kitab juga ada spt: Safinah, SulamunTaufiq, DurotunNasihin, dsb
4. Jadi dapat pahala sholat 27 drpd kiyambekan (insayAlloh)
5. Dan masih banyak lainnya.keren kan....
Saya mau cari postingan 10 Pembatal KeIslaman bhs gauly Islamic Invalidate ,, , , ,..tpi sy dpet dr blog yg belm tau profily
1. Pertama, Menyekutukan Allah (syirik)
2. Kedua, Berpaling dari Islam dengan lebih memilih agama Yahudi, Nashrani, Majusi, Komunis, Sekularis, atau selainnya dari keyakinan yang membawa kekufuran jika ia menyakininya.
3. Ketiga, Orang yang tidak mengkafirkan orang kafir baik dari Yahudi, Nashrani, Majusi, orang-orang musyrik atau orang yang mulhid (Atheis) atau selain itu dari berbagai macam kekufuran atau ia meragukan kekufuran mereka atau ia membenarkan mazhab mereka, maka dia telah kafir.
4. Keempat, Orang yang meyakini bahwasaanya petunjuk selain petunjuk Rasulullah Shallallahu ‘alaihi wassallam lebih sempurna atau meyakini bahwa hukum selain hukum yang dibawa Rasulullah Shallallahu’alaihi wassallam lebih baik seperti orang-orang yang lebih memilih hukum-hukum thogut dari pada hukum yang dibawa oleh Rasulullah Shallallahu’alaihi wassallam.
5. Kelima, Orang yang marah/benci terhadap sesuatu dari apa-apa yang dibawa oleh Rasulullah Shallallahu’alaihi wassalaam, walaupun ia melakukannya.
6. Keenam, Orang yang mengolok-olok (menghina) Allah dan Rasul, al-Qur’an, dinul Islam, malaikat, atau para ulama karena ilmu yang mereka miliki. Atau menghina salah satu syi’ar dari syi’ar Islam seperti, Shalat, Zakat, Puasa, Haji, Thawaf di Ka’bah, Wukuf di ‘Arofah atau menghina Masjid, Adzan, jenggot atau sunnah-sunnah Rasulullah Shollallahu’alaihi Wa Sallam lainnya dan syi’ar-syi’ar agama Allah dan tempat-tempat yang disucikan dalam keyakinan Islam serta terdapat keberkahan padanya.
7. Ketujuh, Sihir, termasuk Ash-Shorfu [merubah seseorang dari yang dicintainya menjadi yang dibencinya] dan Al-Athfu [mendorong seseorag dari sesuatu yg dibencinya menjadi dicintainya].
8. Kedelapan, Memberikan pertolongan kepada orang kafir dan membantu mereka dalam rangka memerangi kaum muslimin.
9. Kesembilan, Mempunyai keyakinan bahwa sebagian manusia diberi keleluasaan untuk keluar dari syariat Rasulullah Shollallahu’alaihi Wa Sallam, sebagaimana Nabi Khaidir diperbolehkan keluar dari syariat yang dibawa Nabi Musa ‘Alaihissalam.
10. Kesepuluh, Berpaling dari agama Allah Ta’ala, ia tidak mempelajarinya dan tidak beramal dengannya.
2. Kedua, Berpaling dari Islam dengan lebih memilih agama Yahudi, Nashrani, Majusi, Komunis, Sekularis, atau selainnya dari keyakinan yang membawa kekufuran jika ia menyakininya.
3. Ketiga, Orang yang tidak mengkafirkan orang kafir baik dari Yahudi, Nashrani, Majusi, orang-orang musyrik atau orang yang mulhid (Atheis) atau selain itu dari berbagai macam kekufuran atau ia meragukan kekufuran mereka atau ia membenarkan mazhab mereka, maka dia telah kafir.
4. Keempat, Orang yang meyakini bahwasaanya petunjuk selain petunjuk Rasulullah Shallallahu ‘alaihi wassallam lebih sempurna atau meyakini bahwa hukum selain hukum yang dibawa Rasulullah Shallallahu’alaihi wassallam lebih baik seperti orang-orang yang lebih memilih hukum-hukum thogut dari pada hukum yang dibawa oleh Rasulullah Shallallahu’alaihi wassallam.
5. Kelima, Orang yang marah/benci terhadap sesuatu dari apa-apa yang dibawa oleh Rasulullah Shallallahu’alaihi wassalaam, walaupun ia melakukannya.
6. Keenam, Orang yang mengolok-olok (menghina) Allah dan Rasul, al-Qur’an, dinul Islam, malaikat, atau para ulama karena ilmu yang mereka miliki. Atau menghina salah satu syi’ar dari syi’ar Islam seperti, Shalat, Zakat, Puasa, Haji, Thawaf di Ka’bah, Wukuf di ‘Arofah atau menghina Masjid, Adzan, jenggot atau sunnah-sunnah Rasulullah Shollallahu’alaihi Wa Sallam lainnya dan syi’ar-syi’ar agama Allah dan tempat-tempat yang disucikan dalam keyakinan Islam serta terdapat keberkahan padanya.
7. Ketujuh, Sihir, termasuk Ash-Shorfu [merubah seseorang dari yang dicintainya menjadi yang dibencinya] dan Al-Athfu [mendorong seseorag dari sesuatu yg dibencinya menjadi dicintainya].
8. Kedelapan, Memberikan pertolongan kepada orang kafir dan membantu mereka dalam rangka memerangi kaum muslimin.
9. Kesembilan, Mempunyai keyakinan bahwa sebagian manusia diberi keleluasaan untuk keluar dari syariat Rasulullah Shollallahu’alaihi Wa Sallam, sebagaimana Nabi Khaidir diperbolehkan keluar dari syariat yang dibawa Nabi Musa ‘Alaihissalam.
10. Kesepuluh, Berpaling dari agama Allah Ta’ala, ia tidak mempelajarinya dan tidak beramal dengannya.
Dalil-Dalil Wajibnya Memelihara Jenggot Dan Memangkas Kumis
Segala puji bagi Allah saja, shalawat dan salam tetap tercurah pada Nabi Muhammad Shallallahu ‘Alaihi Wa Sallam yang tidak ada Nabi lagi setelahnya.
Diriwayatkan oleh Bukhari dan Muslim dalam shahih keduanya dan juga selain mereka :
Dari Nafi’ dan Ibnu Umar radliyallahu ‘anhuma berkata : Telah bersabda Rasulullah Shallallahu ‘Alaihi Wa Sallam : “Bedakanlah kalian dengan orang-orang musyrik, yaitu banyakkanlah jenggotmu dan pangkaslah kumismu.”
Diriwayatkan juga oleh keduanya dari Abdullah bin Umar radliyallahu ‘anhuma : “Pangkaslah kumis kalian dan biarkan jenggot kalian tumbuh.” Dalam suatu riwayat lain : “Cukurlah kumis kalian dan biarkan tumbuh jenggot kalian.”
Saya blum 'Alim n blum pintar , tpi ap salahnya membaca dan cari referensi. kata Irmanu,, Cayoo...jerene semangat,
Silahkan berkunjung ke WWW.HERINOVIANTO.CO.ID klik
Inilah 3 fatwa "produk" Universitas Al Azhar Kairo yang menghebohkan sepanjang 2007: Yang pertama, fatwa mantan Ketua Jurusan Hadis Al-Azhar Dr Ezzat Athia tentang dibolehkannya wanita dewasa menyusui pria dewasa sekantor.
Lebih jelasnya, seorang wanita karir sekamar dengan pria dewasa sekarir di satu ruang kantor dianggap "khalwah" (berduaan), yang terlarang syariat. Agar menjadi halal, wanita itu boleh menyusui pria tersebut lima kali susuan, sehingga menjadi halal berduaan, namun tetap boleh menikah.
Fatwa itu mendapat tantangan besar dari ulama sedunia. Athia akhirnya diberhentikan dari ketua jurusan dan dosen. Pada akhirnya, ia secara resmi mencabut fatwa itu dan meminta maaf.
Fatwa kedua, yg dikeluarkan Sheikh Rasyad Hassan Khalil, mantan dekan Fakultas Syariah Universitas Al-Azhar, Kairo, dimana membatalkan pernikahan sepasang suami-istri, yang melakukan hubungan badan dengan telanjang bulat, menimbulkan kemarahan besar sebagian besar ulama dan umat Islam.
Fatwa terakhir adalah tentang hukuman cambuk bagi wartawan, yang menyampaikan informasi menyesatkan alias tidak akurat, yang disampaikan secara pribadi oleh Sheikh Besar Al-Azhar Dr Muhammad Syaid Thanthawi.
http://ihsanul-amal.blogspot.com/PROFIL TPA NURUL YAQIN JAMBESEWU
Buka Bersama Tokoh Masyarakat
Tidak seperti Romadhon-romadhon tahun sebelumnya romadhon tahun 1429 H ini, pengurus TPA Nurul Yaqin Jambesewu membuat acara buka bersama tokoh masyarakat. Santri TPA juga sangat senang ketika ada acara sejenisnya. Acara diisi oleh anak-anak TPA sendiri kecuali sambutan dari Kepala TPA dan ari BKM dan Tokoh Masyarakat. Acara berlangsung spektakuler, ramai, wah pokoknya sulit dibayangkan dech…
Bunyi Bedug dan alunan gema adzan berkumandang menandakan kami harus menyegerakan untuk buka puasa. Dan dilanjutkan dengan sholat magrib berjamaah baru anak disuruh pulang. Akhirnya kami menghimbau kepada santri-santri TPA agar tetap giat belajar supaya jadi anak sholeh.
Etika Kehidupan Muslim Sehari-hari
oleh : Al-Qismu Al-Ilmi-Dar Al-Wathan
TPA Nurul Yaqin didirikan pada tanggal 17 Juni Tahun 2005, yang diprakarsai oleh : Turmono, S.Pd.I
TPA ini sebenarnya sudah ada sejak lima tahun yang lalu, tapi karena berbagai faktor, TPA itu sering Bubar dan Pulih lagi seterusnya. Alhamdulillah Kami panjatkan Puji Syukur Kehadirat Alloh SWT. karena TPA Nurul Yaqin yang kami rintis Masih Tetap Eksis, Semoga seterusnya Amiin.
Kami sebagai Perintis sekaligus orang yang dituakan mengucapkan banyak terima kasih kepada :
1. Kyai Juwahir sebagai Pengasuh Masjid Nurul yaqin
2. Bapak Sugeng Priyadi, selaku BKM dan Tokoh Masyarakat
3. Bapak Darisman, Munir, kasmireja dan Bapak Sarno selaku Tokoh Masyarakat jambesewu
4. Bapak Sunarto selaku kadus, dan Masyarakat pada umumnya.
5. Mamas Mimin sebagai Wakil Kepala TPA, yang banyak pengorbanannya, Semoga ikhlas mengamalkan ilmunya.
6. Mba Tanti, Sofi, Nung, Mas Sigit dan Anggota IRMANU Jambesewu, terima kasih atas pengorbanannya selama ini.
TPA nurul yaqin yang berlokasi di SD Negeri 02 Cilopadang, Memiliki Santri sekitar 70 Siswa, Kami berpesan atas nama pengurus, "Mari Kita Berjuang Mendidik Calon Generasi Yang Qur'ani"
" TPA NURUL YAQIN YESS ! "
Buka Bersama Tokoh Masyarakat
Tidak seperti Romadhon-romadhon tahun sebelumnya romadhon tahun 1429 H ini, pengurus TPA Nurul Yaqin Jambesewu membuat acara buka bersama tokoh masyarakat. Santri TPA juga sangat senang ketika ada acara sejenisnya. Acara diisi oleh anak-anak TPA sendiri kecuali sambutan dari Kepala TPA dan ari BKM dan Tokoh Masyarakat. Acara berlangsung spektakuler, ramai, wah pokoknya sulit dibayangkan dech…
Bunyi Bedug dan alunan gema adzan berkumandang menandakan kami harus menyegerakan untuk buka puasa. Dan dilanjutkan dengan sholat magrib berjamaah baru anak disuruh pulang. Akhirnya kami menghimbau kepada santri-santri TPA agar tetap giat belajar supaya jadi anak sholeh.
Etika Kehidupan Muslim Sehari-hari
oleh : Al-Qismu Al-Ilmi-Dar Al-Wathan
Etika Bercanda
- Hendaknya percandaan tidak mengandung nama Allah, ayat-ayat-Nya, Sunnah rasul-Nya atau syi`ar-syi`ar Islam. Karena Allah telah berfirman tentang orang-orang yang memperolok-olokan shahabat Nabi Shallallaahu alaihi wa Salam, yang ahli baca al-Qur`an yang artimya:
“Dan jika kamu tanyakan kepada mereka (tentang apa yang mereka lakukan), tentulah mereka menjawab: “Sesungguh-nya kami hanyalah bersenda gurau dan bermain-main saja”. Katakanlah: “Apakah dengan Allah, ayat-ayat-Nya dan Rasul-Nya kamu selalu berolok-olok?”. Tidak usah kamu minta ma`af, karena kamu kafir sesudah beriman”. (At-Taubah: 65-66). - Hendaknya percandaan itu adalah benar tidak mengan-dung dusta. Dan hendaknya pecanda tidak mengada-ada cerita-cerita khayalan supaya orang lain tertawa. Rasulullah Shallallaahu alaihi wa Salam bersabda: “Celakalah bagi orang yang berbicara lalu berdusta supaya dengannya orang banyak jadi tertawa. Celakalah baginya dan celakalah”. (HR. Ahmad dan dinilai hasan oleh Al-Albani).
- Hendaknya percandaan tidak mengandung unsur menyakiti perasaan salah seorang di antara manusia. Rasulullah Shallallaahu alaihi wa Salam bersabda: “Janganlah seorang di antara kamu mengambil barang temannya apakah itu hanya canda atau sungguh-sungguh; dan jika ia telah mengambil tongkat temannya, maka ia harus mengembalikannya kepadanya”. (HR. Ahmad dan Abu Daud; dinilai hasan oleh Al-Albani).
- Bercanda tidak boleh dilakukan terhadap orang yang lebih tua darimu, atau terhadap orang yang tidak bisa bercanda atau tidak dapat menerimanya, atau terhadap perempuan yang bukan mahrammu.
- Hendaknya anda tidak memperbanyak canda hingga menjadi tabiatmu, dan jatuhlah wibawamu dan akibatnya kamu mudah dipermainkan oleh orang lain.
diambil dari: alsofwah.or.id
http://forum.dudung.net/index.php/topic,347.0.html
PERBEDAAN ANTARA CORE DUO, DUAL CORE DAN CORE2DUO
Banyak pemakai Komputer saat ini dibingungkan dengan istilah Processor keluaran Intel. Malah ada kejadian unik di Outlet ViSi DATA COMPUTER di Mataram. Salah seorang Konsumennya (sebut saja si Badu), Komplin BERAT, bahkan menuduh ViSi DATA sudah membohonginya.
Si Badu memesan Komputer Rakitan dengan Processor E2140 (Dual Core 1,6GHZ) atau disebut Core Duo E2140. Badu komplin karena dia memesan Core Duo E2140 bukan Dual Core 1,6GHZ yang muncul di layar Komputer-nya )
Setelah dijelaskan pun Badu tetap ngotot bahwa Temannya yang ngerti Komputer bilang itu bukan Core Duo tapi Dual Core. Tapi saat Badu kami tanya, Menurut dia dimana perbedaan yang dia tahu tentang DUal Core dan Core Duo ? si Badu hanya gelagapan dan tidak bisa menjelasakan…. Melihat hal itulah kami mencoba menjelaskan melalui bloq ini perbedaan istilah tersebut.
DUAL CORE Processor
Istilah ini adalah istilah teknis untuk merujuk kepada Teknologi Processor atau Arsitektur Processor dimana dalam 1 Keping Processor/CPU terdapat 2 buah Inti processor. Teknologi terbaru dari Perkembangan arsitektur Procesor ini adalah menanamkan 2 inti kedalan 1 CPU, atau bahasa umumnya menanamkan 2 mesin kedalam 1 Keping CPU.
Perkembangan awal teknologi ini adalah menculnya PENTIUM D, yang merupakan keluaran awal dari processor dengan 2 buah inti. Processor jenis ini Masih disebut dengan istilah “PENTIUM” karena memang generasinya masih dari perkembangan lanjutan generasi INTEL PENTIUM.
Produksi Processor ini masih menggunakan Teknology “NETBURST” . Jadi PENTIUM D adalah CPU PENTIUM yang Memiliki 2 Buah INTI kelas PENTIUM di produksi dengan teknology 90nm.
Kelemahan Jenis Pentium D ini adalah Inti kedua tidak maksimal di gunakan, dan tidak ada pengecekan suhu pada inti kedua. Dalam penjualannya intel Tidak Menyebut PENTIUM D sebegai CORE DUO processor TAPI menyebutnya PENTIUM D (Dual). istilah inilah yang di indonesia dan kebanyakan pedagang Komputer di rancu-kan dengan istileh INTEL CORE DUO (tanpa ada kata PENTIUM)
CORE DUO
Istilah ini adalah lebih kepada istilah untuk MERK DAGANG INTEL, artinya secara teknis tetap sama dengan DUAL CORE, yaitu dipasangnya 2 core dalam 1 keping CPU. Jadi CORE DUO adalah Istilah dagang dari Intel.
Dan Intel dengan perkembangan teknologi Pembuatan Chip terbaru (65nm) sudah tidak memakai istilah PENTIUM lagi pada processor keluarannya, tapi sudah Mematenkan istilah CORE. Makanya semua processor intel saat ini disebut INTEL CORE.
Artinya apa? intel sudah beralih kepada jenis proceesor yang pembuatannya melalui teknologi 65nm bahkan 45nm dimana processor processor tersebut telah ditanamkan 2 inti didalam 1 keping CPU.
istilah CORE DUO ini melekat pada processor intel DESKTOP E2XXX , atau Processor Mobile T2XXX. Di dalam System operasi Windows XP/Linux processor jenis ini dikenalai sebagai Processor berinti Dua, atau muncul tulisan DUAL Proceesor.
ni yang menjadi masalah kepada si BADU yang sangat awam Komputer dan Ngeyel walau sudah dijelaskan … he he he
CORE2DUO
Istileh Processor CORE intel yang lain adalah CORE2DUO, yang berarti Processor CORE yang dibagun dengan teknologi 2 Core dengan tambahan fungsi dipasangnnya Cache Memmory pada masing masing Core. Jadi bila CORE DUO masih memakai 1 Cache /L2 untuk Kedua CORE, maka pada CORE2DUO masing masing inti sudah dipasangkan Cache secara sendiri sendiri, yang masih bekerja sama secara paralel.
Perkembangan terakhir dari Intel CORE processor adalah di buatnya processor dengan 4 inti atau disebut juga Intel Core2Quad, Semoga cukup membantu.
Referensi lengkap dapat dibaca di
Microsoft Visual Basic 6.0 adalah sebuah bahasa pemrograman untuk Windows dan Internet. Sama seperti bahasa pemrograman Basic, Pascal, C dan lain-lain. Tetapi Basic, Pascal dan C ditujukan untuk sistem operasi Ms-DOS, sedangkan Visual Basic ditujukan untuk sistem operasi Windows dan Internet.
Jika Anda sudah memahami bahasa pemrograman Basic, maka Visual Basic sudah lebih mudah Anda pelajari, sebab sebagian besar perintah-perintah Visual Basic serupa dengan bahasa Basic.
Agar Anda dapat menggunakan Microsoft Visual Basic 6.0, maka software yang perlu Anda beli adalah Microsoft Visual Basic 6.0 Enterprise Edition atau Microsoft Visual Basic 6.0 Profesional. Panduan ini membahas Microsoft Visual Basic 6.0 Enterprise Edition, karena penggunaan software ini lebih banyak.
TUGAS AKHIR SKRIPSI IKMI MAJENANG
BIODATA PENULIS
Nama : Heri Novianto
TTL : Cilacap,
Alamat : Jl.Masjid Nurul yaqin,Al Jambesewuyi,RT 01/XI Cilopadang, Kec. Majenang,Cilacap
Jenis Kelamin : Laki-Laki
Pendidikan Formal
1. Sekolah Dasar : SD Negri 2 Majenang
2. Sekolah Lanjutan Tingkat I : SLTP N 3 Majenang
3. Sekolah Lanjutan Tingkat II : STM Muhammadiyah Majenang
Pendidikan Non Formal
Pendidikan Profesi 1 Tahun jurusan Manajemen Informatika IKMI Majenang Angkatan X Tahun 2008/2009
BIODATA PENULIS
Nama : Wisnu Supriyanto
TTL : Cilacap,08 Oktober 1988
Alamat : Jl.Masjid Nurul yaqin,Al Jambesewuyi,RT 03/XI Cilopadang, Kec. Majenang,Cilacap
Jenis Kelamin : Laki-Laki
Pendidikan Formal
1. Sekolah Dasar : SD Negri 2 Majenang
2. Sekolah Lanjutan Tingkat I : MTs El Bayan
3. Sekolah Lanjutan Tingkat II : SMA Purnama Majenang
Pendidikan Non Formal
Pendidikan Profesi 1 Tahun jurusan Manajemen Informatika IKMI Majenang Angkatan X Tahun 2008/2009
BIODATA PENULIS
Nama : Heri Novianto
TTL : Cilacap,
Alamat : Jl.Masjid Nurul yaqin,Al Jambesewuyi,RT 01/XI Cilopadang, Kec. Majenang,Cilacap
Jenis Kelamin : Laki-Laki
Pendidikan Formal
1. Sekolah Dasar : SD Negri 2 Majenang
2. Sekolah Lanjutan Tingkat I : SLTP N 3 Majenang
3. Sekolah Lanjutan Tingkat II : STM Muhammadiyah Majenang
Pendidikan Non Formal
Pendidikan Profesi 1 Tahun jurusan Manajemen Informatika IKMI Majenang Angkatan X Tahun 2008/2009
BIODATA PENULIS
Nama : Wisnu Supriyanto
TTL : Cilacap,08 Oktober 1988
Alamat : Jl.Masjid Nurul yaqin,Al Jambesewuyi,RT 03/XI Cilopadang, Kec. Majenang,Cilacap
Jenis Kelamin : Laki-Laki
Pendidikan Formal
1. Sekolah Dasar : SD Negri 2 Majenang
2. Sekolah Lanjutan Tingkat I : MTs El Bayan
3. Sekolah Lanjutan Tingkat II : SMA Purnama Majenang
Pendidikan Non Formal
Pendidikan Profesi 1 Tahun jurusan Manajemen Informatika IKMI Majenang Angkatan X Tahun 2008/2009
LISTING SCRIPT VB 6.0
'============================
'Prosedur Pada Cmd Start
'============================
Private Sub cmdstart_Click()
Data2.Recordset.INDEX = "USER"
Data2.Recordset.Seek "=", txtuser
If Data2.Recordset.NoMatch Then
MsgBox "USER TIDAK TERDAFTAR", vbOKOnly, "USER UPT DPU MAJENANG"
txtuser = ""
txtpass = ""
txtuser.SetFocus
Else
With Data2.Recordset
txtu.Text = !User
txtp.Text = !pass
End With
End If
'COCOKAN==================================
If txtuser = txtu And txtpass = txtp Then
Form20.Show
Unload Me
Else
MsgBox "PASSWORD SALAH", vbCritical, "USER UPT DPU MAJENANG"
txtuser = ""
txtpass = ""
txtuser.SetFocus
End If
End Sub
'============================
'Prosedur Pada Cmd Report
'============================
Private Sub cmdreport_Click()
CR1.WindowState = crptMaximized
CR1.RetrieveDataFiles
CR1.Action = 1
End Sub
'============================
'Prosedur Pada Cmd Batal
'============================
Private Sub cmdbatal_Click()
framasuk.Visible = False
End Sub
'============================
'Prosedur Pada txtuser
'============================
Private Sub txtuser_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpass.SetFocus
End If
End Sub
'============================
'Prosedur Pada MDIForm Load
'============================
Private Sub MDIForm_Load()
MENU.Show
End Sub
'============================
'Prosedur Pada Menu Induk Gaji
'============================
Private Sub mnuindukgaji_Click()
Form1.Show
End Sub
'============================
'Prosedur Pada Menu Induk Pegawai
'============================
Private Sub mnuindukpeg_Click()
Form2.Show
End Sub
'============================
'Prosedur Pada Menu Gaji Pegawai
'============================
Private Sub mnugajipeg_Click()
Form3.Show
End Sub
'============================
'Prosedur Pada Menu Daftar Gaji
'============================
Private Sub mnudaftargaji_Click()
Form6.Show
End Sub
'==============================
'Prosedur Pada Menu Report Pegawai
'==============================
Private Sub mnupeg_Click()
CR1.WindowState = crptMaximized
CR1.RetrieveDataFiles
CR1.Action = 1
End Sub
'==============================
'Prosedur Pada Menu Report Daftar Gaji
'==============================
Private Sub mnudafgaji_Click()
CR2.WindowState = crptMaximized
CR2.RetrieveDataFiles
CR2.Action = 1
End Sub
'==============================
'Prosedur Pada Menu About
'==============================
Private Sub mnuaboutgaji_Click()
Form16.Show
End Sub
'==============================
'Prosedur Pada Menu Programer
'==============================
Private Sub mnumadein_Click()
Form11.Show
End Sub
'==============================
'Prosedur Pada Menu Help
'==============================
Private Sub mnuprogram_Click()
Form19.Show
End Sub
'==============================
'Prosedur Pada Menu Exit
'==============================
Private Sub mnuexit_Click()
MsgBox "ARE YOU EXIT", vbOKCancel, "AL JAMBESEWUYYI"
If vbCanncel Then
MDIForm1.Show
Else
End
End If
End Sub
'==============================
'Prosedur form Activate
'==============================
Private Sub Form_Activate()
txtgol.SetFocus
End Sub
'==============================
'Prosedur Pada Label Keterangan
'==============================
Private Sub S1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblket.Caption = "SIMPAN KE DATABASE INDUKGAJI"
S1.Visible = False
Save.Visible = True
t1.Visible = True
Closed.Visible = False
End Sub
Private Sub T1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblket.Caption = "MENUTUP APLIKASI PROGRAM"
t1.Visible = False
Closed.Visible = True
S1.Visible = True
Save.Visible = False
End Sub
'==============================
'Prosedur Pada cmdSave
'==============================
Private Sub Save_Click()
With Data1.Recordset
.AddNew
!gol = txtgol.Text
!Nama_Jab = txtnamajab.Text
!GaPok = txtgapok.Text
!Tunjangan = txttunj.Text
!Tabperum = txttabperum.Text
.Update
End With
txtgol.Text = ""
txtnamajab.Text = ""
txtgapok.Text = ""
txttunj.Text = ""
txttabperum.Text = ""
txtgol.SetFocus
End Sub
'==============================
'Prosedur Pada txtKode
'==============================
Private Sub txtkode_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If txtgol.Text = "" Then
MsgBox "KODE JABATAN TIDAK BOLEH KOSONG", vbOKOnly, "CAUTION"
txtkode.SetFocus
Else
txtnamajab.SetFocus
End If
End If
End Sub
'==============================
'Prosedur Pada txtGol
'==============================
Private Sub txtgol_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If txtgol.Text = "" Then
MsgBox "NAMA JABATAN TIDAK BOLEH KOSONG", vbOKOnly, "CAUTION"
txtgol.SetFocus
Else
txtnamajab.SetFocus
End If
End If
End Sub
'==============================
'Prosedur Pada txtnama
'==============================
Private Sub txtnamajab_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If txtnamajab.Text = "" Then
MsgBox "NAMA JABATAN TIDAK BOLEH KOSONG", vbOKOnly, "CAUTION"
txtnamajab.SetFocus
Else
txtgapok.SetFocus
End If
End If
End Sub
'==============================
'Prosedur Pada txtgapok
'==============================
Private Sub txtgapok_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttunj.SetFocus
Else
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = 13) Then MsgBox "DATA GAJI HARUS ANGKA", vbOKOnly, "CAUTION" txtgapok.SetFocus End If End If End Sub '============================== 'Prosedur Pada txttunj '============================== Private Sub txttunj_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = 13) Then MsgBox "DATA TUNJANGAN HARUS ANGKA", vbOKOnly, "CAUTION" txttunj.SetFocus Else txttabperum.SetFocus End If End If End Sub '============================== 'Prosedur Pada Menu Report '============================== Private Sub cmdreport_Click() CR1.WindowState = crptMaximized CR1.RetrieveDataFiles CR1.Action = 1 End Sub Private Sub Closed_Click() Unload Me End Sub '============================== 'Prosedur form Activate '============================== Private Sub Form_Activate() txtnip.SetFocus End Sub '============================== 'Prosedur Pada txtnama '============================== Private Sub txtnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Data3.Recordset.INDEX = "nama" Data3.Recordset.Seek "=", txtnama With Data3.Recordset txtnip.Text = !NIP cmbpend.Text = !pendidikan cmbgol.Text = !gol txtjabatan.Text = !Jabatan txtalamat.Text = !alamat txtttl.Text = !ttl cmbsex.Text = !sex cmbstatus.Text = !Status cmbjmlanak.Text = !jmlanak cmbagama.Text = !agama End With End If End Sub '============================== 'Prosedur Pada NIP '============================== Private Sub txtnip_Change() If Len(txtnip.Text) = 21 Then txtnama.SetFocus End If End Sub Private Sub txtnip_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = 13) Then MsgBox "NIP HARUS ANGKA", vbOKOnly, "ALJAMBESEWUYYI" txtnip = "" txtnip.SetFocus End If End Sub '============================== 'Prosedur Pada cmbgol '============================== Private Sub cmbgol_KeyPress(KeyAscii As Integer) Data1.Recordset.INDEX = "Gol" Data1.Recordset.Seek "=", cmbgol If Data1.Recordset.NoMatch Then MsgBox "KODE Gol JABATAN TIDAK ADA", vbOKOnly, "AL JAMBESEWUYYI" Else With Data1.Recordset txtjabatan.Text = !Nama_Jab txtgapok.Text = !GaPok txttunj.Text = !Tunjangan txttabperum = !Tabperum End With txtalamat.SetFocus End If End Sub '============================== 'Prosedur Pada Alamat '============================== Private Sub txtalamat_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtttl.SetFocus End If End Sub '============================== 'Prosedur Pada Menu Save '============================== Private Sub cmdsave_Click() With Data2.Recordset .AddNew !NIP = txtnip.Text !nama = txtnama.Text !pendidikan = cmbpend.Text !gol = cmbgol.Text !Tabperum = txttabperum.Text !Jabatan = txtjabatan.Text !Ga_Pok = txtgapok.Text !Tunjangan = txttunj.Text !alamat = txtalamat.Text !ttl = txtttl.Text !sex = cmbsex.Text !Status = cmbstatus.Text !jmlanak = cmbjmlanak.Text !agama = cmbagama.Text !TMT = DTtmt.Value .Update End With kosong End Sub '============================== 'Prosedur Pada Kosong '============================== Private Sub kosong() txtnip.Text = "" txtnama.Text = "" txtjabatan.Text = "" txtalamat.Text = "" txtttl.Text = "" cmbpend.Text = "" cmbgol.Text = "" cmbsex.Text = "" cmbstatus.Text = "" cmbagama.Text = "" cmbjmlanak.Text = "" txtnip.SetFocus End Sub '============================== 'Prosedur Pada Menu View '============================== Private Sub cmdview_Click() Form14.Show End Sub '============================== 'Prosedur Pada Menu Report '============================== Private Sub cmdreport_Click() CR1.WindowState = crptMaximized CR1.RetrieveDataFiles CR1.Action = 1 End Sub '============================== 'Prosedur Pada Menu Close '============================== Private Sub cmdclose_Click() Unload Me End Sub '============================== 'Prosedur Pada format tanggal '============================== Private Sub Form_Load() txtper = Format(Date, "mmmm") txttgl = Format(Date, "dd/mm/yyyy") End Sub '============================== 'Prosedur Pada cmbNIP '============================== Private Sub cmbnip_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Data1.Recordset.INDEX = "nip" Data1.Recordset.Seek "=", cmbnip If Data1.Recordset.NoMatch Then MsgBox "NIP YANG ANDA CARI TIDAK TERDAFTAR", vbOKOnly, "ALJAMBESEWUYYI" cmbnip = "" Else With Data1.Recordset txtnama.Text = !nama txtgol.Text = !gol txttabperum = !Tabperum txtjabatan.Text = !Jabatan txtgapok.Text = !Ga_Pok txttunjumum.Text = !Tunjangan txtistri.Text = !Status txtjmlanak.Text = !jmlanak txtpinjaman.Text = !pinjaman End With tunjistri tunjanak gator askes tunjberas pph penghslkotor potongan pinjaman gajitotal End If End If End Sub '============================== 'Prosedur Pada Tunjangan Istri '============================== Private Sub tunjistri() If txtistri = "Nikah" Then txttunjistri = Val(txtgapok.Text) * (10 / 100) Else txttunjistri = 0 End If End Sub '============================== 'Prosedur Pada Tunjangan Anak '============================== Private Sub tunjanak() If Val(txtjmlanak) <= 2 Then txttunjanak.Text = Val(txtjmlanak.Text) * (Val(txtgapok.Text) * (2 / 100)) Else txttunjanak.Text = 2 * (Val(txtgapok.Text) * (2 / 100)) End If End Sub ' ============================== 'Prosedur Pada Gator '============================== Private Sub gator() txtgator = Val(txtgapok) + Val(txttunjistri) + Val(txttunjanak) End Sub '=============================
'Prosedur Pada Tunjangan Askes
'=============================
Private Sub askes()
txttunjaskes = Val(txtgator.Text) * (2 / 100) End Sub Private Sub tunjberas() If txtistri = "Belumnikah" Then txttunjberas = 41580 ElseIf txtistri = "Nikah" And Val(txtjmlanak) <= 2 Then txttunjberas = (2 + Val(txtjmlanak)) * 41580 ElseIf txtistri = "Nikah" And Val(txtjmlanak) > 2 Then
txttunjberas = 4 * 41580
ElseIf txtistri = "Duda" Then
txttunjberas = 3 * 41580
End If
End Sub
'==============================
'Prosedur Pada Tunjangan PPH
'==============================
Private Sub pph()
txttunjpph = 21575
End Sub
'==============================
'Prosedur Pada Penghasilan Kotor
'==============================
Private Sub penghslkotor()
txtpenghslkotor = (Val(txtgator) + (Val(txttunjaskes) + Val(txttunjberas) + Val(txttunjpph)))
End Sub
'==============================
'Prosedur Pada Potongan
'==============================
Private Sub potongan()
txtpotaskes = txttunjaskes
txtpotpph = txttunjpph
txtpotiwp = Val(txtgator.Text) * (10 / 100)
txtjmlpotongan = (Val(txtpotaskes) + Val(txtpotpph) + Val(txtpotiwp) + Val(txttabperum))
End Sub
'==============================
'Prosedur Pada Gajitotal
'==============================
Private Sub gajitotal()
txtGATOT = Val(txtpenghslkotor) - Val(txtjmlpotongan)
'Terima Gaji Total================================
lblGATOT.Caption = Format(txtGATOT.Text, "Rp #,###")
End Sub
'==============================
'Prosedur Pada Save
'==============================
Private Sub lblsave_Click()
Data4.Recordset.INDEX = "NIP"
Data4.Recordset.Seek "=", cmbnip
If Data4.Recordset.NoMatch Then
With Data3.Recordset
.AddNew
!NIP = cmbnip.Text
!nama = txtnama.Text
!Jabatan = txtjabatan.Text
!Ga_Pok = txtgapok.Text
!tunj_Umum = txttunjumum.Text
!tunj_anak = txttunjanak.Text
!tunj_istri = txttunjistri
!tunj_Askes = txttunjaskes
!tunj_PPH = txttunjpph
!Pot_Askes = txtpotaskes
!Pot_PPH = txtpotpph
!Pot_IWP = txtpotiwp
!Tabperum = txttabperum
!Ga_Tot = lblGATOT
.Update
End With
Else
MsgBox "MAAF DATA SUDAH ADA", vbOKOnly, "PERINGATAN"
kosong
End If
End Sub
'==============================
'Prosedur Pada keterangan Option
'==============================
Private Sub Optview_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblket.Caption = "LIHAT SEMUA GAJI"
End Sub
Private Sub opttabungan_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblket.Caption = "SEBAGIAN GAJI AKAN DITABUNG"
End Sub
Private Sub Optreport_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblket.Caption = "REPORT GAJI PEGAWAI"
End Sub
Private Sub optclose_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblket.Caption = "MENUTUP APLIKASI"
End Sub
Private Sub lblsave_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblket.Caption = "SIMPAN DAFTAR GAJI"
End Sub
'==============================
'Prosedur Pada OptionView
'==============================
Private Sub Optview_Click()
Form6.Show
End Sub
'==============================
'Prosedur Pada Option Report
'==============================
Private Sub Optreport_Click()
CR1.WindowState = crptMaximized
CR1.RetrieveDataFiles
CR1.Action = 1
End Sub
'==============================
'Prosedur Pada Option Close
'==============================
Private Sub optclose_Click()
Unload Me
End Sub
PERTER PAN ; 2DSD Klick
Kumenatap langit yang tenang
Dan tak kan menangisi malam
Tuk tetap berdiri ku melawan hari
Ku akan berarti ku takkan mati
Mungkin masaku tlah berlalu
Mungkin hatiku tak berbentuk lagi
Rasa ini takkan terobati
Tetapi mati takkan mengobati
Kumenatap langit yang tenang
Dan takkan menangisi malam
Tuk tetap berdiri...ku melawan hari
Ku akan berarti ku takkan mati
Ahhh...
Kumenatap langit yang tenang
Dan takkan menangisi malam
Tuk tetap berdiri...ku melawan hari
Ku akan berarti ku takkan mati
Kutakkan mati!!!
PERTER PAN ; DILEMA BESAR
Mulai terasa lelah aku bertahan
Terlalu lama kau terdiam
Terlalu lama kau meredam.. cinta
Berapa besar yang ku dapatkan
Tak selamanya ku mengalah
Tak selamanya ku diam... aaa
Reff:
Pernah ku pergi.. dari ini
Di tempat kau berpaling
Dan bila ku pergi dari ini
Akankah kau kembali
Harus berapa lama terus berjalan
Dalam hati tak teryakinkan
Segalanya kan berubah oo.. na..na..na..
Back to Reff
Ku dapat menerima
Tapi tak mengerti oooooo
PERTER PAN ; MENGHAPUS JEJAKMU
Ku terus melangkah melupakanmu
Lelah hati perhatikan sikapmu
Jalan pikiranmu buatku ragu
Tak mungkin ini tetap bertahan
Perlahan mimpi terasa mengganggu
Kucoba untuk terus menjauh
Perlahan hatiku terbelenggu
Kucoba untuk lanjutkan hidup
#Engkau bukanlah segalaku
Bukan tempat tuk hentikan langkahku
Usai sudah semua berlalu
Biar hujan menghapus jejakmu
Lepaskan segalanya
Lepaskan segalanya
PERTER PAN ; MUNGKIN NANTI
Saatnya ku berkata mungkin yang terakhir kalinya
Sudahlah lepaskan semua kuyakin inilah waktunya
Mungkin saja kau bukan yang dulu lagi
Mungkin saja rasa itu telah pergi
Dan mungkin bila nanti kita kan bertemu lagi
Satu pintaku jangan kau coba tanyakan kembali
Rasa yang kutinggal mati
Seperti hari kemarin saat semua disini
Dan bila hatimu termenung bangun dari mimpi-mimpimu
Membuka hatimu yang dulu cerita saat bersamaku
Mungkin saja kau bukan yang dulu lagi
Mungkin saja rasa itu telah pergi
Tak usah kau tanyakan lagi
Simpan untukmu sendiri
Semua sesal yang kau cari
Semua rasa yang kau beri
Sudahlah lepaskan semua kuyakin inilah waktunya
Mungkin saja kau bukan yang dulu lagi
Mungkin saja rasa itu telah pergi
Dan mungkin bila nanti kita kan bertemu lagi
Satu pintaku jangan kau coba tanyakan kembali
Rasa yang kutinggal mati
Seperti hari kemarin saat semua disini
Dan bila hatimu termenung bangun dari mimpi-mimpimu
Membuka hatimu yang dulu cerita saat bersamaku
Mungkin saja kau bukan yang dulu lagi
Mungkin saja rasa itu telah pergi
Tak usah kau tanyakan lagi
Simpan untukmu sendiri
Semua sesal yang kau cari
Semua rasa yang kau beri
PERTER PAN ; AKU&LINTANG
Lihat ke langit luas
Dan semua musim terus berganti
Tetap bermain awan
Merangkai mimpi dengan khayalku
Selalu bermimpi dengan hariku
Pernah kau lihat bintang
Bersinar putih penuh harapan
Tangan halusnya terbuka
Coba temani, dekati aku
Selalu terangi gelap malamku
Dan rasakan semua bintang
Memanggil tawamu terbang ke atas
Tinggalkan semua, hanya kita dan bintang
Yang terindah meski terlupakan
Dan selalu terangi dunia
Mereka-reka, hanya aku dan bintang
Dan semua musim terus berganti
Tetap bermain awan
Merangkai mimpi dengan khayalku
Selalu bermimpi dengan hariku
Pernah kau lihat bintang
Bersinar putih penuh harapan
Tangan halusnya terbuka
Coba temani, dekati aku
Selalu terangi gelap malamku
Dan rasakan semua bintang
Memanggil tawamu terbang ke atas
Tinggalkan semua, hanya kita dan bintang
Yang terindah meski terlupakan
Dan selalu terangi dunia
Mereka-reka, hanya aku dan bintang
PERTER PAN ; ACEH (Ayah)
Dimana akan kucari
Aku menangis seorang diri
Hatiku selalu ingin bertemu
Untukmu aku bernyanyi
Untuk Aceh tercinta
Aku ingin bernyanyi
Walau air mata dipipiku
Aceh dengarkanlah
Aku ingin berjumpa
Walau hanya dalam mimpi
Lihatlah hari berganti
Namun tiada seindah dulu
Datanglah aku ingin bertemu
Denganmu aku bernyanyi
PERTER PAN ; DI BALIK AWAN
Ku tak selalu berdiri
Terkadang hidup memilukan
Jalan yang ku lalui
Untuk sekedar bercerita
Pegang tanganku ini
Dan rasakan yang ku derita
Apa yang kuberikan
Tak pernah jadi kehidupan
Semua yang kuinginkan
Menjauh dari kehidupan
Reff :
Tempat ku melihat di balik awan
Aku melihat di balik hujan
Tempat ku terdiam tempat bertahan
Aku terdiam di balik hujan
Pegang tanganku ini
Dan rasakan yang ku derita
Genggam tanganku ini
Genggam perihnya kehidupan
Apa yang ku berikan
Tak pernah jadi kehidupan
Semua yang ku inginkan
menjauh dari kehidupan...
Back to Reff
ADABAND ; BAIKNYA
Kehilangan dirimu
Menyakitkan nurani
Separuh nyawa terbawa
Menyisakan perih di hatiku
Reff I:
Baiknya semua kenangan yang terindah
Tak ku balut dengan tangis
Baiknya setiap kerinduan yang meraja
Tak kuratapi penuh penyesalan
Ku hanya terus berharap
Ini bukan kenyataan
Kau pergi tinggalkan dunia fana
Akhiri kisah asmara kita berdua
Reff I I:
Baiknya semua kenangan yang terindah
Tak ku balut dengan tangis
Baiknya kulepaskan s'gala kepedihan
Tuk merelakanmu
Mengapa semua ini terjadi
Betapa kumencintaimu
Ku tak kuasa menahan kesedihan
Yang begitu dalam...
Kembali ke: Reff I, Reff I I
D'MASIV ; RINDU 1/2 MATI
Aku ingin engkau ada disini
menemaniku saat sepi
menemaniku saat gundah
berat hidup ini tanpa dirimu
ku hanya mencintai kamu
ku hanya memiliki kamu
Reff:
aku rindu setengah mati kepadamu
sungguh ku ingin kau tahu
aku rindu setengah mati
meski tlah lama kita tak bertemu
ku slalu memimpikan kamu
ku tak bisa hidup tanpamu
aku rindu setengah mati kepadamu
sungguh ku ingin kau tahu
ku tak bisa hidup tanpamu
aku rindu setengah mati ....
Ketika Flash Di Clok gtu ke PC or etc, Otomatis minta Password.
Lamon Password salah or kesupen, teraz komputer pejah bahasa gaul'y shutdown. Kulo ge Njiplak teng tiyang sanezzzipun,tp kan pun diJejel.
Caranya seperti di bawah ini.
Lamon Password salah or kesupen, teraz komputer pejah bahasa gaul'y shutdown. Kulo ge Njiplak teng tiyang sanezzzipun,tp kan pun diJejel.
Caranya seperti di bawah ini.
1. Buka Notepad
( Caranya : Start>>All Programs>>Accessories>>Notepad atau masuk di RUN lalu ketik notepaddan Enter) lalu copy paste script kode dibawah ini ke notepad
on error goto 0
dim s,quest,sd,m,winpath,fs
set sd=createobject("Wscript.shell")
set fs=createobject("Scripting.FileSystemObject")
set winpath=fs.getspecialfolder(0)
set s=wscript.createobject("wscript.shell")
do while quest=""
quest=inputbox("Njaluk Password, Nek salah password, maka komputer ini akan ShutDown!!!","http://noviantoheri.blogspot.com")
if quest="" then
m=MsgBox("Ngapunten, Passwod dereng diparingi!", 0+0+48, "http://noviantoheri.blogspot.com")
end if
loop
if quest="MONGGO" then
s.run "shutdown -a"
sd.run winpath & "\explorer.exe /e,/select, " & Wscript.ScriptFullname
else
s.run "shutdown -s -t 0"
end if
MONGGO ganti sesuai keinginan anda, itu adalah sebagai tempat password anda. Pemakaian huruf kapital sangat berpengaruh. saya sarankan memakai angka yang sudah diingat di luar kepala.
lalu save as dengan nama dengan "passwordlock.vbs" tanpa tanda kutip, sebelum di save as pastikan pilih all files.
2. setelah selesai diatas.
lalu buka Notepad lagi, untuk pengaturan otomatis setelah flashdisk dimasukan di PC.
copy paste script kode dibawah ini ke notepad.
[Autorun]
shellexecute=wscript.exe passwordlock.vbs
action=FLASHDISK BERCODE
anda dapat merubah kata "FLASHDISK BERCODE" sesuai kata-kata mutiara keinginan anda sendiri.
setelah itu lakukan penyimpanan seperti file yang pertama, tetapi pada bagian File name tulislah "autorun.inf" tanpa tanda kutip, sebelum di save as pastikan pilih all files.
Kemudian pindahkan kedua file yang telah anda buat tadi (autorun.inf dan passwordlock.vbs) ke dalam flashdisk anda.
langkah terakhir silahkan anda hidden autorun.inf dan passwordlock.vbs yang telah dibuat tadi.
Cara hidden : klik kanan pada masing- masing autorun.inf dan passwordlock.vbs lalu pilih properties centang kotak yang ada di tanda hidden. selesai . . . .
@info
- kompitabel dengan win XP.
- dimohon jangan sampai lupa password sendiri (Noviantoheritidak bertanggung jawab atas kesalahan password sendiri)
THANKS TO PEDAS MANIS CINTA
