PRIBUMI

Written by JAMBESEWU 0 komentar Posted in:


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

Read more

ISLAMI

Written by JAMBESEWU 0 komentar Posted in:

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....



Saya mau cari postingan 10 Pembatal KeIslaman bhs gauly Islamic Invalidate ,, , , ,
..tpi sy dpet dr blog yg belm tau profily
http://baiturrahmah.blogsome.com/

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.


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,

Read more

TPA NURUL YAQIN

Written by JAMBESEWU 1 komentar Posted in:

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

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

Read more

TENTANG KOMPUTER

Written by JAMBESEWU 0 komentar Posted in:


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

http://www.intel.com/products/processor

Read more

VISUAL BASIC 6.0

Written by JAMBESEWU 0 komentar Posted in:



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

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




Read more

GITARAN MAZZZ

Written by JAMBESEWU 2 komentar Posted in:



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

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

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 ....

Read more

PASSWORD FLASH DISK

Written by JAMBESEWU 0 komentar Posted in:


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.

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

Read more

INSTAL OFFICE 2003

Written by JAMBESEWU 0 komentar Posted in:


Persyaratan Sistem Minimum untuk Microsoft Office 2003 Professional
Processor: 233 MHz atau lebih tinggi; Pentium III direkomendasikan.
Operating System: Windows 2000 Service Pack 3 atau lambat, atau Windows XP atau nanti.
RAM: 64 MB (minimal); 128 MB (direkomendasikan)
Hard drive space: 450 MB.

Catatan: Hard penggunaan kapasitas cakram bervariasi tergantung pada konfigurasi; Custom pilihan instalasi mungkin memerlukan lebih banyak atau lebih sedikit ruang hard disk; pemilihan "Lengkap" pilihan instalasi akan memerlukan lebih banyak ruang hard disk. Persyaratan yang tercantum di atas adalah konfigurasi default.

Informasi tambahan tentang persyaratan sistem untuk Microsoft Office 2003 Professional dan barang-barang dan jasa yang spesifik dapat ditemukan pada bantuan dan dukungan Microsoft website.

Proses Instalasi
Masukkan CD Instalasi Office 2003 ke dalam drive CD anda. Setelah beberapa detik menyalin file instalasi ke komputer Anda, instalasi akan dimulai. Jika instalasi tidak dimulai secara otomatis, buka "My Computer", kemudian buka OFFICE11 CD, dan double-klik SETUPPRO.EXE.
Anda akan diminta untuk kunci produk Office 2003.

Ketik kunci produk dari bagian belakang CD. Gunakan hanya lima karakter per bidang kotak, dan memastikan bahwa ada total 25 karakter. Jika Anda sudah selesai, klik "Next". Jika Anda tidak dapat menemukan kunci produk kemudian klik pada jendela membantu ikon pada halaman kunci produk Microsoft untuk membuka halaman topik bantuan.

Layar berikutnya dari Office 2003 Installer akan meminta Anda untuk nama pengguna Anda, inisial, dan organisasi. Klik "Next" sekali informasi ini dimasukkan dengan benar.

Jendela berikutnya menampilkan End-User License Agreement (EULA). Klik kotak centang di bagian bawah sesuai dengan "Saya menerima persyaratan dalam Perjanjian Lisensi". Dianjurkan agar Anda melewati sekali ini. Kemudian klik "Next".

Jendela berikutnya menampilkan pilihan instalasi untuk Office 2003. Jika Anda hanya ingin menginstal segala sesuatu yang Office menyediakan, klik tombol pilihan yang sesuai untuk "Complete" di bawah "atau memilih jenis instalasi" pilihan. Kemudian klik "Next" di bagian bawah jendela. Pilihan lain adalah sebagai berikut:

Khas Instal: Sesuai namanya, opsi ini akan menginstal program dan pilihan yang paling sering digunakan oleh massa. Complete Install: menginstal setiap program dan setiap opsi yang Anda telah menawarkan edisi ke hard drive.

Minimal Install: Ini merupakan tulang bertelanjang instalasi yang merupakan pilihan yang layak jika Anda "ulang hard drive space.

Custom Instal: Di sini "s di mana Anda" ll menemukan configurability maksimum. Jika Anda memiliki gagasan yang bagus tentang bagaimana kamu "Tapi akan menggunakan Office dan aplikasi individual, pilihan ini akan membiarkan Anda menyesuaikan pemasangan lebih erat untuk kebutuhan spesifik Anda. Jika Anda don" t melakukan instalasi lengkap, kemudian pada , Anda selalu dapat menginstal komponen apapun yang Anda inginkan. Tentu saja, Anda akan memerlukan CD Kantor untuk melakukan hal ini. Dengan hard drive besar hari ini, jika Anda memiliki penyimpanan luang, kami merekomendasikan "Complete Install" pilihan, terutama jika Anda akan menggunakan perangkat lunak untuk menghasilkan bekerja di bawah kendala waktu. Terbatas atau parsial instalasi Office dapat membuat masalah di saat-saat yang paling sial. Anda dapat menghubungi atas apa yang Anda harapkan menjadi fitur rutin di Word, misalnya, dan menemukan bahwa fitur ini tidak pernah dipasang di tempat pertama. Ketika itu terjadi, program akan menjalankan sebuah rutin instalasi yang membutuhkan CD instalasi untuk ditempatkan dalam drive CD asli yang digunakan sewaktu instalasi.

Jika Anda don "t memiliki CD berguna, itu" s cukup mudah untuk membatalkan rutin dan terus bekerja tanpa fitur itu, tetapi ketika Anda dapat mengharapkan, ini doesn "t selalu berjalan lancar. Anda" ve mungkin dilihat
Word, atau komponen Office lain, crash "" lebih dari sekali "" ketika program mencoba untuk menginstal sebuah fitur yang diminta dan CD instalasi asli wasn "t tersedia.

Setelah Anda "lakukan kembali memilih jenis instalasi apa yang harus dilakukan," Mulai Instalasi "jendela akan muncul. Klik pada" Instal "tombol di bagian bawah jendela. Ini akan memulai proses instalasi Microsoft Office 2003 pada komputer Anda. Setelah memulai instalasi, sebuah progress bar akan ditampilkan dan menunjukkan bahwa Microsoft Office 2003 saat ini sedang diinstal pada komputer Anda. Waktu untuk menyelesaikan instalasi akan bervariasi berdasarkan pada seberapa cepat komputer Anda.

Installer akan menginformasikan kepada anda kapan setup selesai. Anda akan memiliki pilihan untuk memeriksa update Microsoft Office dan menghapus file instalasi anda. Pastikan bahwa "Periksa Web untuk update dan tambahan download" dicentang, dan bahwa "Hapus file instalasi" adalah dicentang. Hal ini untuk memastikan bahwa jika Kantor kemudian menemukan sebuah file hilang, atau jika file berjalan korup, itu bisa sembuh dari file instalasi ini. Klik tombol "Selesai".

Installer akan menutup. Internet Explorer akan muncul dan membawa Anda ke situs web dukungan Microsoft untuk menginstal pembaruan kantor (http://office.microsoft.com/officeupdate/). Jika browser Web doesn "t muncul, buka Internet Explorer dan pergi ke situs web dukungan Microsoft sendiri. Klik pada tombol" Check for Updates "link.

Anda akan diminta untuk menginstal dan menjalankan "Office Update Instalasi Engine". Mesin ini akan memungkinkan Microsoft untuk scan dan update Office 2003 via Web. Klik "Ya" untuk menginstalnya.

Read more

NGINSTAL XP

Written by JAMBESEWU 0 komentar Posted in:

Yang harus diperhatikan dalam menginstal/menginstal ulang windows xp :

1.Siapkan Cd Instal Windows XP yang bootable (cd windows xp yang bisa booting/bootable).
Jika Cd windows xp tidak bootable maka anda terlebih dahulu harus menginstal windows 98, lalu baru menginstal windows xp biasa (seperti menginstal program)
Ingat dan catat serial numbernya.
2.Yang pasti computer anda ada cd roomnya, he..he…he….
3.Backup data/documents apa saja yang menurut anda penting yang ada didalam drive C ke drive lainnya misal ke drive D.
Karena semua data/program yang ada didalam drive C semuanya akan hilang, kecuali anda merepair/memperbaiki maka data/program yang ada di drive C tidak akan hilang
4.Siapkan Cd driver yang dibutuhkan oleh computer anda, seperti driver motherboat, sound, dan driver VGA card
5.Jika anda perokok siapkan rokok terlebih dahulu supaya tidak bosen, karena instalasi memakan waktu kurang lebih setengah jam (tergantung kecepatan computer anda)
6.Jika anda belum Sholat, lebih baik Sholat dulu karena biasanya kalau didepan computer orang akan lupa segalanya, dan jangan lupa berdo’a supaya proses instalasi ini berjalan seperti yang anda inginkan…..amin.

Proses Instalasi :
1.Masukan CD installer Windows Xp kedalam Cd room anda.
2.Restar computer.
3.pilih booting awal ke Cd room
Untuk mengganti booting awal ke cd room anda bisa masuk ke bios dengan cara restart computer lalu tunggu tulisan Pres Del to enter setup, dan anda harus menekan tombol Del yang ada di keyboard. Otomatis tampilan layar monitor akan menuju bios biasanya warna biru, kemudian anda cari sub menu yang memanagement booting (biasanya sub menu advance bios feature-boot sequence).
Jika Motherboat anda keluaran terbaru untuk mengganti booting awal ke cd room anda cukup menekan tombol F8 atau F10 atau F11, tentunya setelah anda restart.
Jika anda masih belum mengerti tanyakan pada teman anda yang menurut anda mengetahui sedikit banyak tentang cara mengganti booting awal ke cd room.
Dan jika teman anda pun gak ada yang mengerti, sebaiknya tutup artikel ini, lalu anda cuci kaki dan gosok gigi kemudian tidur saja.
4.Setelah proses booting berhasil kemudian ada tulisan pres any key to boot from cd, maka anda harus menekan salah satu tombol di keyboard anda (misal tekan enter), setelah itu layar computer otomatis menjadi warna biru.
5.Anda akan berada pada layar window setup (tulisan window setup berada dipojok kiri atas), tunggu

6.kemudian muncul layar window xp proses setup (tulisan ini juga berada pada pojok kiri atas).dilayar ini anda akan dihadaokan pada pilihan seperti :
To setup window xp press ENTER
To repair winows xp installing using recovery……, press R
To quit setup……… press F3
Pada pilihan-pilihan tersebut anda pilih pilihan yang teratas yaitu anda tekan ENTER
7.Lalu anada dihadapkan pada layar window xp licenci agreement
Pada layar ini anda pilih/tekan F8
8.Kemudian anda dihadapkan lagi pada layar windowxp process setup, dilayar ini terdapat juga pilihan-pilihan seperti :
To repair, press R
To continue , press ESC (escape)
Pada pilihan-pilihan tersebut anda pilih pilihan yang kedua yaitu anda tekan ESC.
9. nKemudian anda dihadapkan lagi pada pilihan-pilihan, seperti :
To setup, press ENTER
To create……., Press C
To delete……., Press D
Pada pilihan-pilihan tersebut anda pilih pilihan yang teratas yaitu anda tekan ENTER
10.Kemudian anda juga akan dihadapkan kembali pada pilihan-pilihan, seperti :
To Continue, Press C
To Select Different….., Press ESC
Pada pilihan-pilihan tersebut anda pilih pilihan yang teratas yaitu anda tekan C
11.Lalu ada pilihan-pilihan lagi, seperti :

……….NTFS (Quick)
……….FAT (Quick)
……….NTFS
……….FAT
……….Confert to NTFS/FAT
……….
Leave No Change.

Pada pilihan-pilihan tersebut terserah anda mau pilih yang mana tergantung anda apakah mau memakai system NTFS atau sytem FAT
Tetapi penulis biasanya memakai sytem FAT, karena FAT bisa dibaca pada System Windows 98.
Jadi pada pilihan tersebut diatas, pilih pilihan ke dua yaitu memakai System FAT. Tuliasan Quick berarti saat anda memformat Drive C tersebut Prosesnya Cepat.
12.Kemudian anda dahadapkan lagi pada pilihan-pilihan seperti :
To Format, Press F
To Select…, Press ESC
pada pilihan-pilihan tersebut anda pilih pilihan yang teratas yaitu anda tekan F
13.Lalu tekan ENTER, ENTER……
14.Anda tunggu Proses tersebut.
15.Nanti pada saat kurang lebih pada menit ke 33 akan muncul windows baru yaitu system meminta Serial Number, Waktu dan Area/Zona (pada saat memilih area/zona pilih GMT+7 yaitu area Jakarta)…..next
16.Tunggu Proses Instalasi……….
17.Pada Saat Komputer Restart anda jangan menekan apa-apa sampai proses instalasi tersebut selesai.
18.Setelah proses instalasi selesai, kemudian anda install Drivernya.
19.Selesai
20.Baca Alhamdulillah.

Read more