;
;

Minggu, 13 Desember 2009

Anugerah Terindah Milik Kita



Ringkih dan renta karena ditelan usia, namun tampak tegar dan bahagia. Ikhlas, memancarkan selaksa cinta penuh makna yang membias dari guratan keriput di wajah. Tiada yang berubah sejak saat dalam buaian, hingga sekarang mahkota putih tampak anggun menghiasinya. Dekapannya pun tak berubah, luruh memberikan kenyamanan dan kehangatan.

Jemari itu memang tak lagi lentik, namun selalu fasih menyulam kata pinta, membaluri sekujur tubuh dengan do'a-do'a. Kaki tampak payah, tak mampu menopang tubuhnya. Telapak tempat surga itu pun penuh bekas darah bernanah, simbol perjuangan menapak sulitnya kehidupan.

Ibunda...
Adakah saat ini kita terenyuh mengenangkannya? Ia adalah sebuah anugerah terindah yang dimiliki setiap manusia. Sejak dalam rahim, betapa cinta itu tak putus-putusnya mengalirkan kasih yang tak bertepi. Hingga kerelaan, keikhlasan dan kesabaran selama 9 bulan pun bagai menuai pahala seorang prajurit yang sedang berpuasa, namun tetap berperang di jalan Allah Subhanahu wa Ta'ala.

Polesannya adalah warna dasar pada diri kita. Menggores sebuah kanvas putih nan suci, hingga tercipta lukisan Yahudi, Musyrik atau Nasrani. Namun, goresan yang diselimuti untaian ayat suci Al Qur'an, zikir, tasbih serta tahmid, tentu akan melahirkan syakhsiyah Islamiyah (kepribadian Islam) pada jiwa. Ibunda pun berharap tercipta jundullah (tentara Allah) dari sebuah madrasah keluarga.

Selaksa cinta ibunda yang dibaluri tsaqofah Islamiyah (wawasan keislaman) telah menyemai banyak pahlawan Islam. Teladan Asma' binti Abu Bakar Ash-Shidiq melahirkan pahlawan Abdullah bin Zubair, yang dengan cintanya masih berdoa agar dirinya tidak mati sebelum mengurus jenazah anaknya yang disalib Hajaj bin Yusuf, antek Bani Umaiyah. Polesan warna seorang ibunda, Al Khansa, melahirkan putra-putra kebanggaan Islam yang berani dan luhur akhlaqnya, hingga satu persatu syahid pada perang Qodisyiah. Di sela kesedihannya, ibunda masih berucap, "Alhamdulillah... Allah telah mengutamakan dan memberikan karunia padaku dengan kematian anak-anakku sebagai syuhada. Aku berharap semoga Allah mengumpulkan aku dengan mereka dalam rahmat-Nya kelak."

Banyak... sungguh teramat banyak cinta ibunda yang melahirkan kisah-kisah teladan. Yatim seorang anak pun tidaklah menghalangi ibunda untuk merangkai sejarah dengan tinta emas, terbukti dengan mekar harumnya para mujtahid Imam Abu Hanifah, Imam Syafi'i, Imam Ahmad bin Hambal serta Imam Bukhari. Didikan ibunda mereka telah mampu mendidiknya hingga menjadi anak-anak yang gemar menuntut ilmu tanpa kenal lelah, bahkan mandiri dalam kemiskinan.

Kita mungkin dilahirkan dari rahim seorang perempuan biasa. Bahkan kita pun tidak dilahirkan untuk menjadi seorang pahlawan. Namun, ibunda kita dan mereka adalah sama, sebuah anugerah terindah dari Allah Subhanahu wa Ta'ala.

Saat dewasa, tapak kaki telah kuat menjejak tanah dan tangan pun terkepal ke angkasa, masihkah selalu ingat ibunda? Cita-cita telah tergenggam di tangan, popularitas, kemewahan hingga dunia pun telah takluk menyerah kalah, tunduk karena ketekunan, jerih payah serta kerja keras tiada hentinya. Haruskah sombong dan angkuh hingga kata-kata menyakitkan begitu gampang terlontar?

Duhai jiwa, sekiranya engkau sadar bahwa tanpa do'a ibunda, niscaya semua masih angan-angan belaka.
Astaghfirullah... ampuni diri ini ya Allah.

Duhai ibunda...
Maafkan jika mata ini pernah sinis memandang, dan lidah yang pernah terucap kata makian hingga membuat luka hatimu. Maafkanlah pula kalau kesibukan menghalangi untaian do'a terhatur untukmu. Ampuni diri ananda yang tak pernah bisa membahagiakanmu, ibunda.

Sungguh, jiwa dan jasad ini ingin terbang ke angkasa lalu luruh di pangkuan, mendekap tubuh sepuh, serta menangis di pangkuanmu. Hingga terhapuskan kerinduan dalam riak anak-anak sungai di ujung mata. Rengkuhlah ananda dengan belai kasih sayangmu bagai masa kecil dulu. Mengenangkan indahnya setiap detik dalam rahimmu dan hangatnya dekapanmu. Buailah dengan do'a-do'a hingga ananda pun lelap tertidur di sampingmu.

Duhai ibunda...
Keindahan dunia tak akan tergantikan dengan keindahan dirimu.
Sorak-sorai pesona dunia pun tak dapat menggantikan gemuruh haru detak jantung saat engkau memelukku.
Indah... semua begitu indah dalam alunan cintamu, menelisik lembut, membasahi lorong hati dan jiwa yang rindu kasih sayangmu.

Duhai ibunda...
Bukakanlah pintu ridhomu, hingga Allah pun meridhoiku.

Wallahua'lam bi showab.

*IKATLAH ILMU DENGAN MENULISKANNYA*
Al-Hubb Fillah wa Lillah,

Abu Aufa
(Tanpa sadar menitikkan airmata saat menulis tausyiah ini)

Sakaratul Maut

"Kalau sekiranya kamu dapat melihat malaikat-malaikat mencabut nyawa orang-orang yang kafir seraya memukul muka dan belakang mereka serta berkata, "Rasakanlah olehmu siksa neraka yang membakar." (niscaya kamu akan merasa sangat ngeri) (QS. Al-Anfal {8} : 50).

"Alangkah dahsyatnya sekiranya kamu melihat di waktu orang-orang yang zalim (berada) dalam tekanan-tekanan sakaratul maut, sedang para malaikat memukul dengan tangannya (sambil berkata), "Keluarkanlah nyawamu !" Pada hari ini kamu dibalas dengan siksaan yang sangat menghinakan, karena kamu selalu mengatakan terhadap Alloh (perkataan) yang tidak benar dan kerena kamu selalu menyombongkan diri terhadap ayat-ayat-Nya". (Qs. Al- An'am : 93).

Cara Malaikat Izrail mencabut nyawa tergantung dari amal perbuatan orang yang bersangkutan, bila orang yang akan meninggal dunia itu durhaka kepada Alloh, maka Malaikat Izrail mencabut nyawa secara kasar. Sebaliknya, bila terhadap orang yang soleh, cara mencabutnya dengan lemah lembut dan dengan hati-hati. Namun demikian peristiwa terpisahnya nyawa dengan raga tetap teramat menyakitkan.

"Sakitnya sakaratul maut itu, kira-kira tiga ratus kali sakitnya dipukul pedang". (H.R. Ibnu Abu Dunya).

Di dalam kisah Nabi Idris a.s, beliau adalah seorang ahli ibadah, kuat mengerjakan sholat sampai puluhan raka'at dalam sehari semalam dan selalu berzikir di dalam kesibukannya sehari-hari. Catatan amal Nabi Idris a.s yang sedemikian banyak, setiap malam naik ke langit. Hal itulah yang sangat menarik perhatian Malaikat Maut, Izrail. Maka bermohonlah ia kepada Alloh Swt agar di perkenankan mengunjungi Nabi Idris a.s. di dunia. Alloh Swt, mengabulkan permohonan Malaikat Izrail, maka turunlah ia ke dunia dengan menjelma sebagai seorang lelaki tampan, dan bertamu kerumah Nabi Idris.

"Assalamu'alaikum, yaa Nabi Alloh". Salam Malaikat Izrail,
"Wa'alaikum salam wa rahmatulloh". Jawab Nabi Idris a.s.

Beliau sama sekali tidak mengetahui, bahwa lelaki yang bertamu ke rumahnya itu adalah Malaikat Izrail. Seperti tamu yang lain, Nabi Idris a.s. melayani Malaikat Izrail, dan ketika tiba saat berbuka puasa, Nabi Idris a.s. mengajaknya makan bersama, namun di tolak oleh Malaikat Izrail. Selesai berbuka puasa, seperti biasanya, Nabi Idris a.s mengkhususkan waktunya "menghadap". Alloh sampai keesokan harinya. Semua itu tidak lepas dari perhatian Malaikat Izrail. Juga ketika Nabi Idris terus-menerus berzikir dalam melakukan kesibukan sehari-harinya, dan hanya berbicara yang baik-baik saja. Pada suatu hari yang cerah, Nabi Idris a.s mengajak jalan-jalan "tamunya". Itu ke sebuah perkebunan di mana pohon-pohonnya sedang berbuah, ranum dan menggiurkan.

"Izinkanlah saya memetik buah-buahan ini untuk kita". pinta Malaikat Izrail (menguji Nabi Idris a.s). "Subhanalloh, (Maha Suci Alloh)" kata Nabi Idris a.s. "Kenapa ?" Malaikat Izrail pura-pura terkejut.

"Buah-buahan ini bukan milik kita". Ungkap Nabi Idris a.s. Kemudian Beliau berkata: "Semalam anda menolak makanan yang halal, kini anda menginginkan makanan yang haram". Malaikat Izrail tidak menjawab. Nabi Idris a.s perhatikan wajah tamunya yang tidak merasa bersalah. Diam-diam beliau penasaran tentang tamu yang belum dikenalnya itu. Siapakah gerangan ? pikir Nabi Idris a.s.

"Siapakah engkau sebenarnya ?" tanya Nabi Idris a.s.
"Aku Malaikat Izrail". Jawab Malaikat Izrail. Nabi Idris a.s terkejut, hampir tak percaya, seketika tubuhnya bergetar tak berdaya. "Apakah kedatanganmu untuk mencabut nyawaku ?" selidik Nabi Idris a.s serius.
"Tidak" Senyum Malaikat Izrail penuh hormat.
"Atas izin Alloh, aku sekedar berziarah kepadamu". Jawab Malaikat Izrail. Nabi Idris manggut-manggut, beberapa lama kemudian beliau hanya terdiam. "Aku punya keinginan kepadamu". Tutur Nabi Idris a.s "Apa itu ? katakanlah !". Jawab Malaikat Izrail. "Kumohon engkau bersedia mencabut nyawaku sekarang. Lalu mintalah kepada Alloh SWT untuk menghidupkanku kembali, agar bertambah rasa takutku kepada-Nya dan meningkatkan amal ibadahku". Pinta Nabi Idris a.s. "Tanpa seizin Alloh, aku tak dapat melakukannya", tolak Malaikat Izrail.

Pada saat itu pula Alloh SWT memerintahkan Malaikat Izrail agar mengabulkan permintaan Nabi Idris a.s. Dengan izin Alloh Malaikat Izrail segera mencabut nyawa Nabi Idris a.s. sesudah itu beliau wafat. Malaikat Izrail menangis, memohonlah ia kepada Alloh SWT agar menghidupkan Nabi Idris a.s. kembali. Alloh mengabulkan permohonannya. Setelah dikabulkan Allah Nabi Idris a.s. hidup kembali.

"Bagaimanakah rasa mati itu, sahabatku ?" Tanya Malaikat Izrail.
"Seribu kali lebih sakit dari binatang hidup dikuliti". Jawab Nabi Idris a.s.
"Caraku yang lemah lembut itu, baru kulakukan terhadapmu". Kata Malaikat Izrail.

MasyaAlloh, lemah-lembutnya Malaikat Maut (Izrail) itu terhadap Nabi Idris a.s.
Bagaimanakah jika sakaratul maut itu, datang kepada kita ?
Siapkah kita untuk menghadapinya ?

WAHAI HATI.....DENGARLAH............


Siapa yang mengakui indahnya bunga? Dengan warna yang menarik dan bau yang harum, ia sering menjadi idaman. Kadang-kadang ia juga menjadi perhiasan.Mata yang menilai pula mendapat tafsir tentang keindahan dari akalnya.akal yang baik dan cerdas adalah akal yang dipandu oleh kasih Allah dan Rasulnya. Bukankah ini yang dinamakan iman............

Tidak seorang pun yang dapat menafikan, betapa indahnya mega petang. Warnanya yang begitu menawan, memukau setiap mata yang memandang, setiap hati yang terusik dan setiap jiwa yang rindukan kedamaian. Namun.... lebih indah lagi sekiranya hati kecilnya berkata: 'Mahasuci Allah, tidak engkau jadikan semua ini sia-sia. Mahasuci Engkau ya Allah, lindungilah aku dari api neraka.'

Begitu juga dengan keindahan jeram-jeram di kali, dedaunan gugur dihembus angin. Peristiwa-peristiwa sebegini amat meniggalkan kesan kepada hati makhluk yang bergelar insan . Itulah hakikatnya, fitrah jiwa manusia . jiwanya cenderung kepada keindahan dan kecantikan. Biar apapun pangkat dan kedudukannya. Seorang kaya mungkin merasakan bahawa keindahan itu ialah rumahnya yang tersergam indah di atas bukit dan potretnya yang dilukis hebat. Seorang fakir pula mungkin
merasakan bahwa keindahan itu adalah dari riak wajah anak-anak kecilnya yang menunggu kepulangannya.

Namun tidak ramai yang mengetahui, tentang wujudnya satu keindahan hakiki.... indahnya ia membuahkan perasaan kasih sayang pada ibu dan ayah. Indahnya ia , melahirkan rasa kasih pada sahabat dan indahnya ia, memandu akal dan jiwa kepada etenangan, kedamaian, dan kerinduan kepada kebahagiaan. Itulah tanda kasih dan sayang pada Maha Pencipta dan Maha Pengasih. Itulah tanda kasih dan sayang pada Allah dan Rasulnya.

Hatinya berbisik; lagi........'Ya Allah, banyaknya nikmat-Mu padaku.tapi .......... sedikitnya aku bersyukur, ya Allah , hatiku tahu nafsu jahat itu musuhku, tapi banyaknya jalan-jalannya yang telah aku turuti. Ya Allah, besarnya pengorbanan ayah, tingginya nilai kasih dan mesra ibu, tapi aduhai .....sedikitnya do'aku untuk mereka. Ampunkan, ampunkanlah
wahai yang Maha Pengasih'

Marilah kita bersama-sama memiliki keindahan iman ini. Milikilah ia dengan banyak merenung dan memikirkan nikmat-nikmat Allah.... Milikilah ia dengan ilmu yang mendalam, mudah-mudahan dengannya keindahan yang hakiki akan kita peroleh. Tidak
seperti keindahan dunia ini yang hanya bersifat sementara................

Aplikasi Populer Facebook untuk desktop

Beberapa aplikasi dibawah ini sangat canggih dan ada pula yang begitu sederhana seperti ini. Beberapa diantaranya mensyaratkan Adobe AIR, jadi periksa atau update aplikasi pendukung di windows Anda atau download saar mereka memintanya.

1. Fishbowl

fishbowl

Aplikasi desktop ini dapat digunakan untuk membaca newsfeed, update status, comment, browse dan uploads foto.

Download disini: http://www.fishbowlclient.com (0.4 MB)

2. Facebook Desktop

Facebook-DesktopFacebook Dekstop Windows adalah aplikasi yang menyediakan update profil pengguna facebook, seperti messages, pokes, wall posts, dan friend requests.Facebook Dekstop Windows adalah aplikasi yang menyediakan update profil pengguna facebook, seperti messages, pokes, wall posts, dan friend requests. Dibutuhkan .NET Frameworks 2.0 dari Microsoft untuk menjalankannya.

Download: http://ericzhang.com/facebook (0,5 MB)

3. Seesmic for Facebook

Seesmic-for-Facebook

Awalnya berbasis pada Adobe Air, Seesmic merilis sebuah aplikasi Windows khusus untuk membawa Facebook (dan juga twitter) untuk digunakan pada desktop Anda. Seesmic menggunakan Facebook Connect untuk membiarkan Anda memperbarui status Anda atau melihat status teman tanpa harus berselancar ke Facebook.

Download: http://seesmic.com/seesmic_desktop (0.4 MB)

4. TweetDeck
TweetDeck
TweetDeck memungkinkan Anda mengirim pesan hanya untuk Facebook, Twitter, atau keduanya secara bersamaan.Ini mencakup kolom yang menampilkan status update, dan menawarkan kemampuan untuk chatting dengan teman Anda lewat Facebook chat secara langsung.

Download: http://www.tweetdeck.com/beta

5. Notifications 2

Notifications-2
Notifications 2 adalah aplikasi desktop gratis yang akan memberitahu Anda menerima pesan baru, friend request atau aktivitas lainnya di account Facebook Anda. Melalui Facebook Notifications 2, Anda dapat dengan cepat mengakses ke halaman Facebook, menulis pesan, memeriksa pesan yang baru diterima, dll.

Download: http://code.google.com/p/apjunktion-notifications/downloads/list (0.6MB)

Sabtu, 12 Desember 2009

Munculin Kembali File Terhidden

waktu ntu tadi gag sengaja aku nemuin suatu program aneh yang di compile dgn format batch.judul filenya gini nih “ngetokke file sing di hidden virus”.program itu gag sengaja nyungsep di UFD ku,gag tau sapa iang masukin,karena gag ada iang ngaku buat.ea sapa tau aja abis aku posting ni artikel ada iang ngaku buat.hehehe jadi rebutan dagh……

sebelum aku buka,aku tuh curiga dgn file ntu tadi.udah filenya ber extensi batch file gag berwujud pula,dalam artian gag ada ikonnya,cuman ada gambar gear gitu,kirain aku virus

timbul dah suatu perasangka buruk,jangan-jangan temenku iang usil naruh tu program,karena ketahuan ea timbul ide jail dari otakku iang telmi ini buat balas dendam.sontak dah tak taruh tuh file di salah satu folder milik temenku.hehe

setelah aku klik dua kali tuh program aku gag liat penampakan apa-apa,eh setelah beberapa detik aku jalanin tuh program,aku kaget banget,ternyata di folder ntu ada file iang di hidden,tau gag file apa tuh???penasaran?

dasar temenku iang gag waras,diem2 dia ternyata nyimpen film2 gag senonoh gitu,iiihhhhh ktahuan tuh,hehe(maaph yak iang ngrasa punya ntu film,tnang aja msh utuh kok filmnya)

(wah,enag tuh mas,dapet untung dobel,hehe,,malah ngerti kwe le,:D)

semenjak ntu lah aku sadar lo ni program powerful bgt,slain tahan trhdp infeksi virus juga bisa ngembaliin file apapun iang di hidden virus,terlebih iang superhidden juga,karena gag ada iang ngaku buat aku sebarin aja tuh program,kali aja bs jadi amal buat mas atau mbak iang buat.di ikhlasin aja ea.hhe buat kemaslahatan bersama,amien

cara pakainya tinggal klik dua kali aja pada program ntu n pastikan taruh di daerah file atau folder iang hilang,Insya Allah ntu data bisa kembali.n jangan lupa,apabila filenya kliatan masih samar samar,set aja propertisnya,bisa tah nyettingnya?

untuk filenya bisa kamu donlot di
http://www.ziddu.com/download/5941665/ngetokefilesingdihiddenvirus.zip.html

semoga bermanfaat.Wasalam

Selasa, 08 Desember 2009

Perintah Dasar MYSQL

1.        MEMBUAT DATABASE
a.        Mysql>create database jual;
b.        Mysql>create database beli;
2.        MENGGUNAKAN DATABASE
a.        Mysql>Use jual;
3.        MEMBUAT TABEL
a.        Mysql>create table barang(kdbar char(4) not null primary key,
                     Nmbar varchar(30) not null, harga double);
b.        Mysql>create table kasir(kdkasir char(3),nmkasir varchar(30),
             Primary key(kdkasir));
4.        MELIHAT STRUKTUR TABEL
a.        Mysql>describe barang;
b.        Desc kasir;
5.        MELIHAT ISI DATABASE
a.        Show tables from jual;
b.        Show fields from jual.barang;
6.        MENGISI TABEL
a.        Insert into barang(kdbar,nmbar,harga)
Values(‘HP01’,’Nokia 3310’,1200000);
b.        Insert into kasir values(‘ILM’,’Ilham’),(‘YDH’,’Yodha’)
7.        MENAMPILKAN ISI TABEL
a.        Menampilkan seluruh field
                                                               i.      Mysql>select * from barang;
b.        Menampilkan field tertentu
                                                               i.      Mysql>Select nmbar distinc from barang;
c.        Menampilkan beberapa field
                                                               i.      Mysql>Select nmbar,harga from barang;
d.        Mengurutkan data
                                                               i.      Mysql>Select * from barang order by nmbar asc;
                                                              ii.      Mysql>Select * from barang order by nmbar desc;
e.        Menampilkan sesuai kriteria
                                                               i.      Mysql>Select * from barang where kdbar=’HP01’;
                                                              ii.      Mysql>Select * from barang where nmbar like ‘%nokia%’;
                                                            iii.      Mysql>Select * from barang where harga>1200000;
                                                            iv.      Mysql>Select * from barang where harga between 50000 and 1300000;
f.         Fungsi Aggregate
                                                               i.      Mysql>Select sum(harga) from barang;
                                                              ii.      Mysql>Select sum(harga),avg(harga),min(harga),max(harga),count(harga) from barang;
                                                            iii.      Mysql>Select sum(harga),nmbar from brg group by nmbar;
                                                            iv.      Mysql>Select sum(harga),nmbar from brg group by nmbar having avg(harga) > 1200000;
8.        MENAMBAHKAN FIELD BARU
a.        Mysql>alter table barang add bonus varchar(10);
9.        MERUBAH ISI TABEL
a.        Mysql>update barang set bonus=’MMC 1GB’;
b.        Mysql>update barang set bonus=’SD Card 2Gb’ where kdbar=’HP01’;
10.     MERUBAH NAMA FIELD
a.        Mysql>Alter table barang change harga hrg double;
11.     MERUBAH TIPE DATA
a.        Mysql>Alter table barang modify bonus varchar(30);
12.     MENGHAPUS FIELD
a.        Mysql>alter table barang drop bonus;
13.     MERUBAH NAMA TABEL
a.        Mysql>Alter table barang rename brg;
14.     MENGHAPUS ISI TABEL
a.        Mysql>Delete from brg where kdbar=’HP01’;
15.     MENGHAPUS TABLE
a.        Mysql>Drop table kasir;
16.     MENGHAPUS DATABASE
a.        Mysql>Drop database beli;
17.     KELUAR DARI MYSQL
a.        Mysql>quit;
b.        Mysql>exit;

FesB00k Status dengan PHP

Buat Database : status Buat Tabel : facebook Buat File dengan nama : status.php <html> <head> <title>www.fesb00k.com</title> </head> <body bgcolor=lightgreen> <pre> <b>www.fesb00k.com</b><br> <i>Kamu bisa buat status disini !!!</i> <form name="form1" method="post" action="update.php"> Nama Kamu : <input name="nama" type="text" size="15" /> Status : <textarea name="status" cols="13" rows="3"></textarea> <input type="submit" name="Submit" value="Update" /><input type="reset" name="Submit2" value="Ga Jadi" /> </form> </pre> </body> </html> Buat lagi file dengan nama : update.php <html> <head><title>Update Status</title></head> <body bgcolor=lightgreen> <pre> <?php $konek = mysql_connect("localhost", "root", "password"); mysql_select_db("status", $konek); $nm=$nama; $st=$status; $jam=date("H:i:s"); $simpan = "INSERT INTO facebook (nama ,jam, status) VALUES ('$nm','$jam','$st')"; $hasil = mysql_query($simpan); if ($hasil) { echo "<b>www.fesb00k.com</b><br>"; echo "<a href=status.php><b><i>Update Status Terbaru ...!!!</i></b></a><br>"; $lihat = "SELECT * FROM facebook ORDER BY jam DESC"; $hasil = mysql_query($lihat); while ($isi = mysql_fetch_array($hasil)) { echo (" <b>$isi[jam]</b> status @ <b> $isi[nama] </b> : <i> $isi[status] </i> "); } } else { echo "Waah Sorry banget, Server error ...!!!!"; } ?> </pre> </body> </html>

Sabtu, 05 Desember 2009

Kumpulan Perintah MYSQL

Dasar - dasar Mysql

Jumat, 04 Desember 2009

Membuat e-comerce (Toko online) dengan mudah

Mau buka toko tapi ...
gak perlu bolak-balik ke pasar,,

Ada caranya loh ...!!!

"Kita tinggal akses dari rumah,
Irit biaya transport juga...

mau tau gimana caranya ...
ikut aja seminar, ini temanya ...

MEMBUAT TOKO ONLINE
MENGGUNAKAN "PRESTASHOP 1.5"

Pembicara   : Suharyanto, S.kom

Waktu  : 10:00 - 13:00 WIB

Tempat :

1. Aula BSI BOGOR ( 10 Desember 2009)
2. Aula BSI BEKASI ( 7 Desember 2009)

Biaya :

* Mahasiswa   Rp. 15.000
* Umum          Rp. 20.000

Peserta seminar mendapatkan

*sertifikat
*Snack
*Makalah

Ayoo Buruan Daftar...
jangan sampai kehabisan tempat ...

Info : BSI BOGOR                          

STUDY ISLAM ALAM RAYA 2009

STUDY ISLAM ALAM RAYA di cisarua BOGOR Ini dia ....!!! Acara BADARIS yang bisa mempererat tali ukhuwah, soalnya SEMUA Mahasiswa BSi sejabodetabek bakal dikumpulin.. Acaranya apa aja yaa??? * Tafaqur Alam * Outbond * Training Motivasi * Jamal( Jalan Malam2) * Games * De el el dah Buruan daftar jangan sampe ketinggalan Infaq : Rp. 75.000 cp : Ilham(0857-1689-5215)

Kamis, 03 Desember 2009

Java Mobile

Java Games

Java Database

Java Applet

Dasar Pemrograman Java

Sistem Informasi rumah Sakit dengan PHP

input.php

<!doctype html public "-//W3C//DTD HTML 4.0 //EN">
<html>
<head>
<title></title>
</head>
<body>
<form method=post action=output.php>
<h2><center><strong>Rumah Sakit Buat Siapa Aja</strong></center></h2>
<h2><center><strong>Pendaftaran Pasien Baru</strong></center></h2>
<hr size=3 align=center noshade>
<pre>
No Rekam Medik :<input type=text size=9 name=no>
Nama Pasien :<input type=text size=50 name=nm>
Tempat Tanggal Lahir :<input type=text size=30 name=tg>
Umur :<Input type=text size=2 name=um> Tahun
Jenis Kelamin :<input type=radio value="Laki - laki" name="jns">Laki - laki<br>
<input type=radio value="Perempuan" name="jns">Perempuan<br>
<tr><td>Jenis Layanan</td><td> :<select name=jenis>
<option Value=1 checked>Umum
<option Value=2>Poli THT
<option value=3>Poli Bedah
<option value=4>Spesialis Anak
</select>
</td></tr>
<input type=Submit name=Submit Value=Cetak><input type=reset name=Reset Value=Batal>
</pre>
</body>
</html>


Output.php

<!doctype html public "-//W3C//DTD HTML 4.0 //EN">
<html>
<head>
<title>Title here!</title>
</head>
<body>
<pre>
<center><strong><h2>Rumah Sakit Buat Siapa Aja</h2></strong></center>
<center><font size=4>Pendaftaran Pasien Baru </font></center>
</pre>
<?
echo"-----------------------------------------------------------------------------------------------------------------------------------------------------------------<br>";
$norek=$no;
$nama=$nm;
$tempat=$tg;
$umur=$um;
$jnskel=$jns;
$jnslay=$jenis;
$reg=$register;
$prk=$periksa;
$tot=$total;
$tot=$reg+$prk;
//if ($jnslay="1")
// $reg=5000;
// $prk=15000;
//elseif ($jnslay="2")
// $reg=5000;
// $prk=25000;
//elseif($jnslay="3")
//$reg=5000;
// $prk=50000;
//elseif ($jnslay="4")
//$reg=5000;
// $prk=35000;
echo"
<pre>
<font size=4 color=blue>
No Rekam Medik = $norek
Nama Pasien = $nama
Jenis Layanan = $jnslay
Registrasi = $reg
Pemeriksaan = $prk
</pre>";
echo"-----------------------------------------------------------------------------------------------------------------------------------------------------------------<br>";
echo"
<Pre>
Total Bayar = $tot
Terima Kasih Atas Kunjungan Anda

</pre>";
echo"-----------------------------------------------------------------------------------------------------------------------------------------------------------------<br>";
?>
<a href=input.php>Kembali Ke Menu Input</a>
</body>
</html>

Latihan PHP & MYSQL

Input_member.php

<html>
<head>
<title>Buku tamu - MYSQL - PHP</title>

</head>
<body>
<font size=5 face=verdana color=blue><b>Member Club Online</b></font>
<br>================================================<br><br>
<table>
<form action="member2.php"method="post">
<tr>
<td>No Anggota </td><td>:</td><td><input type="text"name="noanggota"size="15"maxlength="5"></td>
</tr><tr>
<td>Nama </td><td>:</td><td><input type="text"name="nama"size="35"maxlength="50"></td>
</tr>
<tr>
<td>Email </td><td>:</td><td><input type="text"name="email"size="35"maxlength="50"></td>
</tr>
<tr>
<td>Alamat </td><td>:</td><td><textarea name="alamat"rows="5" cols="30"></textarea></td>
</tr>
<tr>
<td></td><td></td><td><input type="submit"value="simpan"></td>
</tr>
<tr>
</tr>
</form>
</table>
</body>
</html>



Output_member.php

<html>
<head>
<title>Title here!</title>
</head>
<body>
<font size=5 face=verdana color=blue><b>Penyimpanan Data Member Club Online</b></font>
<?
echo"<hr>";
$date=date('d F Y, H:i:s');
echo'<pre>';
echo'Tanggal Pendaftaran Member Club Online :';
echo'<b>'.$date.'</b>';
echo'<hr>';
$conn=mysql_connect("localhost","root","password");
if($conn){
mysql_select_db("uas");
echo'<pre>';
echo'<br>No Anggota : ';
echo'<b>'.$noanggota.'</b>';
echo'<br>Nama : ';
echo'<b>'.$nama.'</b>';
echo'<br>Emai : ';
echo'<b>'.$email.'</b>';
echo'<br>Alamat : ';
echo'<b>'.$alamat.'</b><br>';
$sqlstr="insert into member(noanggota, nama, email, alamat) values('$noanggota','$nama','$email','$alamat')";

$hasil=mysql_query($sqlstr,$conn);
echo"<hr>";
echo"<b><h4>Simpan Data Member Berhasil Dilakukan!</b></h4>";
mysql_close($conn);
}else{
echo"Server not connected!";
}
?>
<a href="member3.php">Klik Disini Untuk Melihat Data Anggota</a>
</body>
</html>



List_member.php

<html>
<head>
<title>Title here!</title>
</head>
<body>
<div align="center"><strong><font color="blue" face="arial" size="5">
DATA MEMBER CLUB ONLINE</DIV></STRONG></FONT>
<FORM>
<TABLE BORDER='1' align=center>
<TR BGCOLOR="GREEN">
<TD align=center>NO_ANGGOTA</TD>
<TD align=center>NAMA</TD>
<TD align=center>EMAIL</TD>
<TD align=center>ALAMAT</TD>
</TR>

<?
$koneksi=mysql_connect("localhost","root","password") or die(mysql_error());
$pilih_db=mysql_select_db("uas") or die(mysql_error());
$perintah="select * from member";
$jalankan_perintah=mysql_query($perintah)or die(mysql_error());
if(mysql_num_rows($jalankan_perintah)==0)
{
echo"<tr>"."<td colspan=5 align=center>data tidak ada</td>"."tr";
}
while($row=mysql_fetch_array($jalankan_perintah))
{
echo"<tr>";
echo"<td>$row[noanggota]</td>";
echo"<td>$row[nama]</td>";
echo"<td>$row[email]</td>";
echo"<td>$row[alamat]</td>";
echo"<TR>";
}
?>
</TABLE>
</body>
</html>

Rabu, 02 Desember 2009

Trik Animasi Form


Contoh berikut akan memperlihatkan beberapa macam bentuk animasi form sederhana

Anda cukup copy paste per-contoh untuk mencoba script ini...
Contoh 1:

Private Sub Form_Unload(Cancel As Integer)
Me.BackColor = vbWhite ' warna belakang putih
WindowState = 2 ' maximized-kan
DrawWidth = 4 '/ ketebalan
For i = 1 To 16000
   Bawah = Bawah + 1
   Kanan = Kanan + 1
   PSet (Rnd * Kanan, Rnd * Bawah), QBColor(Rnd * 15)
Next i
End Sub


Contoh 2:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
cepat = 150
While Left + Width < Screen.Width
    DoEvents
    Left = Left + cepat
Wend
While Top - Height < Screen.Height
    DoEvents
    Top = Top + cepat
Wend
Hide
End Sub


Contoh 3:
Private Sub Timer1_Timer()
Dim LingkaranX, LingkaranY, Radius
    ScaleMode = 3
    LingkaranX = ScaleWidth / 2
    LingkaranY = ScaleHeight / 2
    For Radius = 0 To 100
        Circle (LingkaranX + Radius / 2, LingkaranY), Radius, RGB(Rnd * 215, Rnd * 55, Rnd * 15)
    Next Radius
End Sub


Contoh 4:
Private Sub Form_Load()
Me.AutoRedraw = True
BackColor = 0
For i = 1 To 500
  CurrentX = i * 100
  CurrentY = i * 100
  h = h & i
  ForeColor = i * 10000
  Print h
Next i
End Sub


Contoh 5:
Private Sub Form_Load()
Me.AutoRedraw = True
Me.DrawWidth = 10
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form_MouseMove 1, 0, X, Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Caption = "PosisiX=" & X & " - " & "PosisiY=" & Y
If Button = 1 Then
   PSet (X, Y), vbBlue
End If
End Sub

Trik Mencegah Virus Dari Flashdisk


Hampir semua orang yang saya temui, semua mengeluh tentang virus, virus, dan virus. Sebenarnya kebanyakan virus indonesia yang menyebar di sekitar kita tidak dapat “hidup” selama kita tidak “memicu”nya untuk hidup. Antivirus sebaik apapun juga belum tentu membantu mengurangi “perkembangbiakan” virus. Oleh karena itu saya mencoba memberikan trik agar komputer kita tidak terkena virus.

Kebutuhan Utama

Seperangkat komputer bebas virus / belum pernah sama sekali kemasukan virus.

Kebutuhan Tambahan

Kemampuan menjalankan komputer bersistem Windows. (kemungkinan besar semua sudah memahami)
Langkah Awal (sekali)
Langkah awal ini hanya perlu dilakukan sekali, setelah itu hanya melakukan langkah utama
dan langkah akhir saat membuka flashdisk lain.

- Buka My Computer lewat Start Menu.
- Klik menu Tools > Folder Options...
- Pada tab View, beri tanda [•] pada pilihan options Show hidden files and folders
- Lalu beri tanda [?] pada pilihan check Hide extensions for known file types
- Kemudian juga hapus tanda [?] pada pilihan check Hide protected operating system files
- Lalu klik OK.

Ulangi sekali lagi langkah diatas, apa bila setelah di lihat kembali di bagian Hide
protected operating system files atau Hide extensions for known file types masih terdapat
tanda [?] atau tidak ada tanda [•] pada pilihan options Show hidden files and folders,
maka kemungkinan besar komputer sudah tertular virus dan trik ini 100% sudah tidak
berguna lagi.


Langkah Utama

Ikuti langkah-langkah berikut dan JANGAN sekali-kali mengaibaikan salah satu langkahpun
apabila anda belum mengerti secara pasti.

- Setelah memasukkan flashdisk, JANGAN

  

- Setelah itu klik tombol [Cancel] atau [X]
- Buka menu Run... dari Start Menu, atau tekan tombol [Windows] dan R secara bersamaan
  di keyboard.
- Klik [Browse...]
- Pada Look In, ubah menjadi lokasi flashdisknya. (misalnya F:\)
- Pada View Menu, pilih Detalis.
- Kemudian pada Files of type, pilih All files, maka seketika itu tampil semua file
  yang ada di dalam flashdisk.
- Cari file yang bernama Autorun.inf, klik sekali saja, kemudian tekan tombol [Delete]
  pada keyboard.
- Klik [Yes] pada pada pertanyaan konfirmasi penghapusan.
- Ulangi dua langkah diatas untuk file – file berikut (lihat di kolom Type):
o Data Base File (*.db), file ini berisi tentang informasi sementara untuk menthumbnails
  sebuah folder. Tetapi sekarang sering dijadikan trik untuk menyebarkan virus.
o Configuration Settings (*.ini), sebenarnya file ini hanya untuk menkonfigurasi secara
  individu sebuah folder (kebanyakan folder-folder system). Kadangkala dijadikan virus
  sebagai alternatif Autorun.inf
- Apabila ada beberapa file yang benar-benar anda yakini bahwa file tersebut adalah file
  anda, maka anda boleh membiarkan file tersebut di flashdisk.
- Setelah selesai menghapus file-file yang telah ditentukan tadi, klik tombol [X] pada
  kotak dialog Browse
- Klik lagi tombol [X] pada kotak dialog Run.
- Cabut flash disk dari komputer.
- Lalu pasang lagi ke komputer.


Langkah Akhir

Langkah terakhir ini adalah langkah usaha untuk membersihkan virus dari flashdisk yang
  mungkin sudah terdapat banyak file virus.
- Setelah memasang flashdisk ke komputer pilih Open folder to view files, pada saat
  kotak dialog muncul sesaat setelah flashdisk di pasang. Kemudian klik [OK].
- Di windows explorer yang terbuka sekarang, klik [Search] pada toolbar
- Di sebelah kiri terdapat pilihan What do you want to search for ?, piih All files and folders.
- Setelah muncul tampilan baru, pada text box All or part of the file name, isikan
  [*.exe, *.scr] (tanpa kurung)
- Pada Look In, pastikan bahwa lokasinya berada pada flashdisk.
- Klik More advanced options untuk menampilkan menu dibawahnya.
- Beri tanda [?] pada pilihan berikut :
* Search system folders
* Search hidden files and folders
* Search subfolders
- Kemudian klik [Search], tunggu beberapa saat sampai proses pencarian selesai.
- Hapus semua file yang HANYA bergambar FOLDER atau DOKUMEN meskipun anda yakin bahwa
  anda telah mempunyai folder/ file dokumen tersebut. Ingat ! Yang akan dihapus ini adalah
  file virus, dan bukan folder/file dokumen yang anda miliki. Karena kita tadi melakukan
  pencarian terhadap file Application (*.exe) dan file Screen-Saver (*.scr) dan bukan
  pencarian file folder/file dokumen.
- Setelah selesai menghapus, maka sekarang anda boleh membuka file-file dokumen yang akan
  anda buka, edit, perbarui, atau apapun.



penulis : flack.trooper

Memainkan file WAV

Private Declare Function sndPlaySound Lib _
"winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Command1_Click()
sndPlay = sndPlaySound("C:\Filename.wav", 1)
End Sub

Download Ansav 2.0.5


Ingin melindungi komputer Anda dari gangguan virus terutama virus lokal? Sebaiknya Anda mempergunakan salah satu antivirus besutan anak negeri yang kualitasnya cukup bagus ini. Untuk mendownload Ansav terbaru silakan download dibawah ini:

ANSAV 2.0.50 – Oktober 2009
Yang baru:
2.0.50
  • Perbaikan false positive pada beberapa file.
  • Optimasi pada update online, kini pemeriksaan update server lebih cepat dan baik.
Apapun antivirus yang Anda gunakan, jangan lupa untuk mengupdate database antivirus secara reguler misalnya 1 minggu sekali atau maksimal sebulan sekali agar komputer bisa lebih aman dari serangan virus.
Semoga bermanfaat

Antivirus Indonesia

AVIGen Ultimate Edition


AVIGen adalah software antivirus yang digunakan untuk mencari file-file
yang berisi worm, hacktool, exploit script ataupun trojan. Pada versi
kedua ini AVIGen hanya difokuskan untuk mencari virus-virus lokal yang
saat ini banyak menginfeksi beberapa komputer di indonesia, seperti
brontok, pendekar blank, fluikan dan lain-lain.
avigen ultimate
Update Info

* New: Interface for Avigen
* New: Registry Searching
* Fixed: Scan Engine String/Unicode more better
* Fixed: Autorun location
* Fixed: Modify PE-Header
* Fixed: Redesign windows services editor
* Imporved: Set Attribute More better
* Imporved: Registry tweak with new interface
* Added: console/terminal editor
* Added: AVIGen uSer database
* Added: New About AVIGen form
* Added: SKIN Engine from Steve McMahon
* Updated: Database definition
* Updated: Main menu AVIGen

Membuat Visual Basic 6 menjadi Portable

Pernahkan terpikir oleh rekan-rekan sekalian membuat aplikasi visual basic menjadi portable atau mudah dibawa-bawa, tanpa harus install. Apakah mungkin?

Apa saja yang perlu dipersiapkan dalam membuat visual basic menjadi portable....
Code: Select all
Ini terinsipirasi ketika melihat aplikasi lain yang dibuat dalam bentuk portable,
lalu terlintas dalam pikiran ...apa vb bisa dibikin portable gak ya :)

mulai dah coba cari-cari informsi dan utak atik tuh vb..install dan
uninstall dicoba-coba, kemudian melakukan perubahan-perubahan file-file
sistem beserta registrinya......huh susah banget. Dicoba beberapa kali
error terus..pusing euy...tapi setelah sekian jam dicoba-coba akhirnya
bisa juga. Ternyata kalo dah tau gambang juga ya.

Vb yang dibuat menjadi portable ini tidak menyertakan seluruh file sistem
dan komponennya. ya tujuannya hanya bisa menjalankan program vb dan dapat
membuat exe dengan vb.

Yang perlu disiapkan adalah file-file berikut ini:



Setelah siap semua file tinggal membuat registry item, kuncinya semua ada disini:
buat file baru dengan notepad yang berisi

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Licenses\6000720D-F342-11D1-AF65-00A0C90DCA10]
@="kefeflhlhlgenelerfleheietfmflelljeqf"

[HKEY_CLASSES_ROOT\Licenses\74872840-703A-11d1-A3AF-00A0C90F26FA]
@="mninuglgknogtgjnthmnggjgsmrmgniglish"

[HKEY_CLASSES_ROOT\Licenses\74872841-703A-11d1-A3AF-00A0C90F26FA]
@="klglsejeilmereglrfkleeheqkpkelgejgqf"


simpan dengan nama vbpe.reg, setelah selesai anda bisa coba, klick file
vbpe.reg dilanjutkan dengan membuat membuka file vb6.exe untuk mencoba berhasil
tidaknya pembuatan vb portable nya
Kalo bisa sih cobanya pada komputer yang belum pernah di intsall visual basic,
agar terlihat hasilnya.

Saya rasa cukup sekian dulu, moga bermanfaat..walaupun agak terlambat
informasinya..yang penting manfaat :)


makasih buat yang kasih info registrynya...

by : vb-bego community

Minggu, 11 Oktober 2009

Pengantar Visual basic Script