4/08/2012

Niat adalah Ikhtiar dan Doa

Sesungguhnya Amalan Seseorang tergantung Niatnya.


Mengutip dari hadist ini, ane sedikit bercerita tetang ane..

ikhtiar adalah semua segala usaha, daya dan doa untuk mewujudkan itu semua. bagaimanapun perencanaan yang persiapkan secara maksimal jika Alloh Azza Wa jalla Belum berkenan maka kita hanya bisa Qonaah mengambil hikmah dari Usaha kita.

Sesuai yang telah di sabdakan RosullAlloh, Nikah itu adalah sunah bagi yang sudah mampu. berdasar dari dorongan dan keinginan, maka saya membranikan diri untuk mempersiapkan annikahu sunah, sedikit demi sedikit ane kumpulkan, benih-benih harapan aku pupuk untuk mewujudkannya.

Hingga sampai aku harus meminta Restu yg dulu pernah di berikan.

Didepan kedua orang tuaku aku mulai mengutarakan keingananku tersebut, dari satu alasan ke alasan lain aku utarakan. hingga hatiku berdatak kencang, di saat kedua orang tuaku memutuskan mengakhiri itu semua.

saat pertama mendengar itu kaki, tangan dan tubuhku lemas, perasaan mulai mengusai hati dan pikiran. aku juga tidak bisa menyalahkan orang tuaku, karena mereka pasti menginkan anaknya bahagia, aku juga sudah berusaha keras mejelaskan akan niatku.

Sampai di titik terendah..... sampai di keputusasaan dan sampai hampir hilang akal.

berangsur-angsur saya mulai menyadari bahwa saya manusia yang lemah, hanya bisa berencana pada akhirnya kita harus tunduk pada Qodho dan Qodhar.


CURAHAN HATI SEORANG HAMBA ALLOH.

Assallamu'allaikum, Wr, Wb.

Ane sedikit mau Sharing dan berbagai masalah yang terjadi..:

Begitu sesak saat kita melihat realita yang ada sekarang ini.
Jiwa ini begitu lemah dan tak berdaya, rapuh dalam menghadapi banyak pertanyaan.
Menimbulkan banyak Kesedihan, kegalauan, dan kegelisahan.
Yang Pada akhirya harus introspeksi diri dengan segala Usaha dan Daya.

Di mulai dari saya mencari petunjuk bagaimana Rosullalloh (saw) Sholat,
Di karenakan saya merasa kurang sesuai dan merasa ragu akan keSia-sia'an Ibadah.
Tidak disangka.., Saya diketemukan oleh Mbh.google.com dengan
"http://indonesia.faithfreedom.org/forum/"

9/06/2009

Back-Up Database Access Dengan Delphi



Welcome ......!!!

Ketemu Lagi Dengan Salah Satu Tips Aku Untuk Memback-up Database Access dengan Delphi.
Delphi Memberikan Bahasa Pemrograman Yang high Level ( Artinya Sangat Mudah Dipahami ) Sehingga membuat User Seperti Aku Mudah Mengelola Databasenya.
Seperti Database Accesss Sendiri Dibuat dari Pabrikan Microsoft, Sehingga Sangat Friendly dengan Kita yang Sudah terbiasa Windows. MS. Access Dapat Dibuat Secara stand Alone Ataupun Dalam Jaringan.
Tetapi Kebanyakan Database Ms.Access Dibuat Dengan stand Alone ( sistem Informasi yang Berdiri Sendiri / Tanpa Terelasi Dengan Sistem Aplikasi Lain.

Okkey Langsung Aj Ke TKP...

procedure TForm3.buka1Click(Sender: TObject);
var namadatabase : widestring;
begin
if application.MessageBox('Membuka database lain akan menutup koneksi'+#13+
'dengan database sekarang. Harap simpan semua pekerjaan.'+#13+
'Anda yakin bermaksud membuka database lain ?','Perhatian',

mb_yesno + mb_iconinformation) =IDYES then
begin
closeallform;
if opendialog.Execute then
begin

namadatabase := opendialog.FileName;
modul.connect.Connected := false;
modul.connect.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+ namadatabase+';'+
'Mode=Share Deny None;Extended Properties="";Persist Security Info=False;Jet OLEDB:System database="";'+
'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;'+
'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;'+
'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";'+
'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;'+
'Jet OLEDB:Don''t Copy Locale on Compact=False;'+
'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';
modul.connect.Connected := true;

modul.ADOlogin.Active:=true;
modul.ADOTableDaftar.Active:=true;
modul.ADOTablePenatar.Active:=true;
modul.ADOheader.Active:=true;
modul.ADOQuery1.Active:=true;
modul.ADOTablemikro.Active:=true;
modul.ADOTableanngota.Active:=true;
Form7.ADOQuery1.Active:=true;
Form7.ADOQuery2.Active:=true;
Form12.ADOQuery1.Active:=true;
Form20.ADOQuery1.Active:=true;


// if opendatabase = true then showmessage('berhasil') else showmessage('gagal');
if not(bukadatabase = false) then
begin
application.MessageBox('Database berhasil dibuka :) ','Information',
mb_ok + mb_iconinformation);
Form3.StatusBar1.Panels.Items[0].Text := 'SISTEM INFORMASI PENDAFTARAN - '+opendialog.FileName;

end
else
begin
application.MessageBox('Database gagal dibuka :(','Information',
mb_ok + mb_iconerror);

tutup;
modul.connect.Connected := false;
modul.connect.ConnectionString :='';
modul.connect.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+ extractfilepath(application.ExeName)+'\data.mdb;'+
'Mode=Share Deny None;Extended Properties="";Persist Security Info=False;Jet OLEDB:System database="";'+
'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;'+
'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;'+
'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";'+
'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;'+

'Jet OLEDB:Don''t Copy Locale on Compact=False;'+
'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';

modul.connect.Connected := true;
modul.ADOlogin.Active:=true;
modul.ADOTableDaftar.Active:=true;
modul.ADOTablePenatar.Active:=true;
modul.ADOheader.Active:=true;
modul.ADOQuery1.Active:=true;
modul.ADOTablemikro.Active:=true;
modul.ADOTableanngota.Active:=true;
Form7.ADOQuery1.Active:=true;
Form7.ADOQuery2.Active:=true;
Form20.ADOQuery1.Active:=true;
Form28.ADOQuery2.Active:=true;

end;
end;
end;
end;


Tips Masukan Source Code Diatas Kedalam Button Ataupun MainMenu. Sehingga Source Diatas Dapat Ter-ekssekusi.....!!!!!!!
Kesimpulan.... : Simple Aj... Database MS. Access Diatas hanya Dicopy-paste Dalam Nama File Yang Baru. Sehingga Data-data Yang telah tersimpan telah tercopy Semunya.

Okkey Segitu Saja Tulisan Saya Mengenai Delphi, sampai Ketemu Lagi Dalam Kasus Selanjutnya. KEEP Spirit....!!!!

Kode HTTP Error Dan Artinya

200 – OK
Permintaan telah berhasil.

301 – Moved Permanently.
Dokumen telah dipindahkan ke URL ini.

302 – Found
Dokumen telah dipindahkan ke URL ini.

303 – See Other
Jawaban untuk permintaan anda berada di URL ini.

304 – Not Modified
Salinan cache akan digunakan.

400 – Bad Request
Browser mengirim permintaan dan server tidak dapat memahami.

401 – Authorization
Membutuhkan autorisasi untuk memasuki URL ini.

403 – Forbidden
Anda tidak memiliki izin untuk mengakses server ini.

404 – Not Found
Dokumen tidak ada.

405 – Method Not Allowed
Metode GET yang diminta tidak diperbolehkan untuk URL

408 – Request Time-out
Server timeout.

410 – Gone
Proses yang diminta tidak lagi tersedia pada server ini dan tidak ada alamat forwarding.

411 – Length Required
Permintaan yang diminta metode GET memerlukan memerlukan Content-length yang valid

412 – Precondition Failed
Prasyarat pada permintaan untuk dievaluasi URL bernilai false.

413 – Request Entity Too Large
Proses yang diminta tidak memperbolehkan permintaan data dengan menggunakan metode GET atau jumlah data yang diberikan pada permintaan melebihi batas kapasitas.

414 – Request-URI Too Large
Panjang URL yang diminta melebihi batas kapasitas untuk server ini

415 – Unsupported Media Type
Permintaan data yang diberikan tidak dalam format yang dapat diterima untuk diproses oleh ini.

500 – Internal Server Error
Server mengalami kesalahan internal atau misconfiguration dan tidak dapat memenuhi permintaan Anda.

501 – Method Not Implemented
Metode GET ke URL tidak didukung

502 – Bad Gateway
Server proxy menerima respon tidak valid dari upstream server.

503 – Service Temporarily Unavailable
Server untuk sementara tidak dapat melayani permintaan anda karena pemeliharaan downtime atau masalah kapasitas .

506 – Variant Also Negotiates
Ini menunjukkan kesalahan konfigurasi.

9/02/2009

Meninggal Ketika Sujud Di Masjid Nabawi


Assalamu'alaikum,

Untuk renungan bersama.
Assalamualaikum,
Cepat Atau Lambat Kita Akan Mengalaminya, sungguh tak terasa air keluar dari mata. Alangkah indahnya jika dapat mati dalam keadaan begini, insyaallah.. Amin

Lantunan Kata Maaf Padamu


Salam Sejahtera Kawanku disana. Terima Kasih Yang Tak Terhingga Saya Panjatkan Kepada Pencipta-KU yang telah memberikanku kesempatan kepadaku untuk menulis artikel ini. sembah sujudku kepada-MU atas semua karuniamu. Teringat Kata nasehat yang selalu kau ucapkan kepadaku Lewat Utusanmu, terlintas Tuntunan-MU dibenakku

Inilah kata yang bisa saya sampaikan pada Teman-temanku dan yang membaca blogku yaitu Terima Kasih dan Mohon Maaf. Dengan segala kerendahaan hati yang terdalam, saya mengucapkan banyak terima kasih kepada kawanku dan kepada semua yang telah mengenal aku, baik itu dalam keseharian, sekolah maupun blog ini.

saya hanya mampu untuk memohon maaf yang tulus dari hati yang paling dalam atas segala kesalahan saya, kelakuan saya, tingkah laku saya, ocehan saya, ke bodohan saya, tulisan saya, artikel saya, sok tahu saya, janji-janji saya. Baik yang saya sengaja maupun yang tidak sengaja, baik yang terang-terangan maupun yang samar.


Tak Lupa Beribu Terima Kasih Saya Ucapakan Atas Dukungan dan support yang selama ini anda berikan,
Semoga amal, kebaikan, dibalas oleh Yang Maha Membalas Semua Kebaikan, Tuhan Yang Maha Kuasa.

Semoga keIKHLASan yang saya bangun ini akan menjadi pondasi bagi saya pribadi, dan tentunya dapat memberikan manfaat bagi orang lain.

9/01/2009

Mengenal Jaringan Wimax

Koneksi internet saat ini yang mungkin telah dikenal ada tiga jenis seperti misalnya :
  • Broadband Acces
  • Wifi Acces
  • Dial-up Acces

Dari ketiga sistem acces tersebut mungkin Broadband Acces dan Wifi Acces yang dapat digunakan dengan nyaman dan praktis, namun memiliki keterbatasan dibutuhkannya anggaran yang besar untuk teknologi ini, cakupan area yang hanya ± 2,5 square miles atau 6,5 km persegi (inipun teknologi ADSL2,sedangkan teknologi ADSL dan DSL konvensional jauh lebih pendek dan masih menggunakan kabel), hot spot yang ditawarkan saat ini juga sangat terbatas.

WiMax ( Worldwide Interoperability for Microwave Acces ) diharapkan dapat memecahkan masalah ekonomis dan memiliki cakupan area yang luas, dimana teknologi ini dapat memberikan :

  • Broadband Service dengan kecepatan yang sangat tinggi nirkabel dan memiliki kemudahan untuk memperluas daerah cakupan Cakupan wilayah seperti network komunikasi (GSM, CDMA)
  • Dengan Teknologi Akses Micromave, yang menggunakan gelombang mikro sebagai media pengganti kabel, sehinga membuat Wimax dapat menjangkau cakupan area yang luas dan memiliki kemudahan yang praktis seperti juga Wi-FI.

Secara teknis WiMAX hanya membutuhkan dua buah perangkat yaitu :

  • WiMAX Tower, yang digunakan sebagai akses point, memiliki cakupan area mencapai 50 km secara linear (hal ini dapat mengatasi masalah blind spot yang sering ditemukan pada jaringan Wi-FI karena menggunakan access point sebagai source). Mungkin bila diterapkan satu buah WiMAX Tower dapat menggantikan beberapa broadband access atau berarti dapat mencakup satu area kota kecil dan Tower ini memungkinkan dihubungkan dengan Tower WiMAX yang lain. WiMAX menggunakan standard nirkabel IEEE.802.16 seperti juga Wi-FI yang menggunakan 802.11.
  • WiMAX Receiver, alat yang digunakan untuk menerima sinyal yang berasal dari WiMAX Tower, perangkat ini juga dapat berupa PCI Card, PCMCIA Card atau mungkin sebuah norebook yang sudah dilengkapi dengan WiMAX secara built-in seperti halnya notebook yang sudah built -in Wi-FI.

WiMAX juga bekerja pada gelombang frequensi rendah yaitu antara 2 GHz dan 11 GHz seperti juga Wi-FI, dikarenakan dengan range frequensi ini tidak mudah terganggu oleh benda-benda yang mungkin dapat menghalangi jalur data.

Dalam hal kecepatan, bila dibandingkan dengan Wi-FI saat ini hanya dapat menghantarkan bandwidth sebesar 54 Mbps (asumsi dengan kondisi optimal), sedangkan WiMAX memiliki kecepatan 70 Mbps (mampu melayani ratusan lebih user sekaligus dengan kecepatan setara cable modem…wuss..wusss :) )

Secara keseluruhan jika dibandingkan dengan Wi-FI tampaknya perbedaan yang terbesar bukan pada kemampuan bandwidth melainkan pada jangkauannya.

Sedikit Tips Mempercepat OS XP Anda

Kali ini mau nulis langkah-langkah awal ba'da install XP maksude kalau baru selesai nginstall xp saya ada step-step buat dikit2 nambahin kecepatan dalam beroperasi nanti, bukan mempercepat sih!? intinya adalah membuang beberapa utilitas ataupun layanan yang dianggap mubazir atau berlebihan. heeeee... betul ?

Perlengkapan :
1. komputer
2. Instal XP
3. Penjelasane di bawah ini.

Sebenarnya ini dah kuno, tapi menurut saya ketimbang di bulan ramadhan ini kerjone tidur melulu mending posting apa ajah. yang penting bermanfaat :

Step-step nya seperti ini :
1. Matikan Alert dari Security Center.
Caranya seperti ini :

masuk ke control panel kemudian klik "change the way ..." hilankan tanda cheklistnya pada ketiga alert tersebut.

Kemudian OK.




2. Pilih beberapa item Visual Effect yang perlu :

Pada step ini langkah-langkahnya : silahkan klik kanan pada mycomputer anda, kemudian pilih properties :
Masuk pada TAB advanced, kemudian klik tombol settings pada group menu performance.

Pada tab visual effects silahkan nonaktifkan seluruh pilhan kecuali dua pada pilihan terakhir :
- use drop shadows ....
- Use visual style ....
kalau mau lebih enteng sekalian semuanya jangan di cheklist.

Langkah terakhir klik OK untuk melihat perubahan.

3. Matikan Fitur Error Reporting :
Masih memanfaatkan fungsi klik kanan pada mycomputer, masih tetap pada tab Advanced silahkan klik tombol Error Reporting.

Kemudian aktifkan pilihan disable error reporting... kalau perlu tanda ceklist pada notify juga di hilangkan kemudian klik OK.

4. Matikan Fitur Automatic Updates :
Automatic Updates akan bekerja/aktif ketika OS anda terkoneksi dengan internet. Efeknya? kalau original gpp, tapi kalau bajakan ntu yang ada dikit masalah, jadi lebih baik fitur ini dimatikan saja :

langkah-langkahnya : silahkan klik kanan pada mycomputer kemudian pilih properties : Masuk pada TAB Automatic Updates, kemudian aktifkan pilihan turn off automatic updates.


5. Ganti Beberapa nilai pada REGEDIT :

Klik Run kemudian masukan kata kunci regedit
langkah berikutnya adalah merubah beberapa nilai untuk keperluan tertentu :



Pada "HCKU\control panel\desktop\"
Set nilai = 0 untuk :
- HungAppTimeOut
- MenuShowDelay
- WaitToKillAppTimeOut

Pada "HKLM\System\CurrentControlSet\Control\"
Set nilai =0 untuk WaiToKillServeiceTimeOut

Kalau Sudah Di Close Saja dan Restart untuk melihat perubahan







6. Matikan beberapa services yang tidak digunakan :
"Jalankan Run kemudian masukan kata kunci services.msc silahkan anda stop dan nonaktifkan saja startuptype pada beberapa layanan ini :
- Error Reporting Service
- Event Log
- Help and Support
- Remote Access Connection Manager
- Remote Registry
- Security Center
- System Event Notification
- System Restore Service (ini optional hehehe)
- Task Scheduler
dan banyak lagi pada service lainnya jika itu tidak bermanfaat. bagaimana, betull ??
"
7. Seleksi aplikasi pada startup : "Jalankan Run kemudian masukan kata kunci msconfig kemudian pilih tab startup... pengalaman saya selama ini semua saya non aktifkan kecuali yang penting-penting saja untuk jalan pertama kali, misal antivirus. kemudian ok dan restart untuk melihat perubahan"

Demikian broo, emang repot bangete !! saya agak sedikit lelah kalau baru ngistall ulang. tapi gpp lah demi kok ??!! yang jadi
masalahe semua step-step itu bisa di rangkum dalam satu program utilitas saja... biar gk repot !### mudah-mudahan bisa di garap di bulan ramadhan ini ahhh.


Ok Begitu saja... Semoga Bermanfaat link

8/20/2009

Spirit Of indonesia independence

64 years indonesia get indenpence, 64 years indonesia be revolutions, 64 years indonesia exist in internationaly country. i love indonesia, we can forward becouse we many culture, and coaliscing to become strength. in agustus 2009, i make show in my village. this is my experience, let's teel my story....

here we go.......!!!!

in my first i todo is forming comitte, and i make many race in agustus, many sugesstion i take from comitte. but in fact i work alone. i evaluation what wrong in my false. some times i qustion in my heart i can't be leader, i have to stop and give my responsibility. but i know i can't done this times. many scedhule in my book, i must to become leader...

in my strategy i serving my member what he need, and i take some he responsibility. next i build comunication with member and i always sms ( short message ) to my member. some days i think to broadcast my sms to get spirit my member. i must to paying attention to my member. so i can take result my member. many schedule can passing at precise times. then.......

problems comes from citizen. he can't come to my race. i think i must leave this race and go with my schedule, but i know i wrong. i can't to motivated the citizen to join in my race. i can't leave her. i must awaken the citizen, with spirit, in my have, i not give up to awake the citizen. so...

with my sacrifice, i take my result. i very hapy. but this is not done...

in day i shown many member not attend. i work alone again, i can't motivated my member, although i has do my strategy. but view our latter i happy my member can't anttend. i ask to some one " what problem your comes to late ? " from my ask i know my member has work very well. he is done the job's.

i very happy, becouse my shown can walk sukses. thankyu to my country.....

8/16/2009

DELPHI DARI PASCAL TAPI PASCAL BUKAN DARI DELPHI

Ringkasan ini tidak tersedia. Harap klik di sini untuk melihat postingan.