Indahnya Malam Pertama Kita

 Satu hal sebagai bahan renungan Kita…
Tuk merenungkan indahnya malam pertama
Hari itu…mempelai sangat dimanjakan
Mandipun…harus dimandikan
Seluruh badan Kita terbuka….
Tak Ada sehelai benangpun menutupinya. .
Tak Ada sedikitpun rasa malu…
Seluruh badan digosok Dan dibersihkan
Tapi bukan malam penuh kenikmatan duniawi semata
Bukan malam pertama masuk ke peraduan Adam Dan Hawa

Sebuah malam yang meninggalkan isak tangis sanak saudara
Kotoran dari lubang hidung dan anus dikeluarkan
Bahkan lubang – lubang itupun ditutupi kapas putih…
Itulah sosok Kita….
Itulah jasad Kita waktu itu

Setelah dimandikan.. .,
Kitapun kan dipakaikan gaun cantik berwarna putih
Kain itu .jarang orang memakainya..
Karena bermerk sangat terkenal bernama Kafan
Wewangian ditaburkan ke baju Kita…
Bagian kepala..,badan. .., Dan kaki diikatkan
Tataplah…. tataplah. ..itulah wajah Kita
Keranda pelaminan… langsung disiapkan
Pengantin bersanding sendirian…

Mempelai di arak keliling kampung bertandukan tetangga
Menuju istana keabadian sebagai simbol asal usul
Kita diiringi langkah gontai seluruh keluarga
Serta rasa haru para handai taulan
Gamelan syahdu bersyairkan adzan dan kalimah Dzikir
Akad nikahnya bacaan talkin…
Berwalikan liang lahat..
Saksi – saksinya nisan-nisan. .yang tlah tiba duluan
Siraman air mawar..pengantar akhir kerinduan

Dan akhirnya…. . Tiba masa pengantin..
Menunggu Dan ditinggal sendirian…
Tuk mempertanggungjawab kan seluruh langkah kehidupan
Malam pertama bersama KEKASIH..
Ditemani rayap – rayap Dan cacing tanah
Di kamar bertilamkan tanah..
Dan ketika 7 langkah tlah pergi….
Kitapun kan ditanyai oleh sang Malaikat…
Kita tak tahu apakah akan memperoleh Nikmat Kubur…
Ataukah Kita kan memperoleh Siksa Kubur…..
Kita tak tahu…Dan tak seorangpun yang tahu….
Tapi anehnya Kita tak pernah galau ketakutan… ..
Padahal nikmat atau siksa yang kan kita terima
Kita sungkan sekali meneteskan air mata…
Seolah barang berharga yang sangat mahal…

Dan Dia Kekasih itu.. Menetapkanmu ke syurga…
Atau melemparkan dirimu ke neraka..
Tentunya Kita berharap menjadi ahli syurga…
Tapi….tapi …..sudah pantaskah sikap kita selama ini….
Untuk disebut sebagai ahli syurga

Kita suka ALLAH pada masa kita sakit….
Dan sudah pasti waktu ada kematian…

Walau bagaimanapun kita tidak ada waktu atau ruang untuk ALLAH waktu bekerja atau bermain? 
Karena…
Kita merasakan diwaktu itu kita mampu dan sewajarnya mengurus sendiri tanpa bergantung padaNYA.

Semoga ALLAH mengampuni aku karena  menyangka… …
Bahwa nun di sana masih ada tempat dan waktu dimana ALLAH bukan lah yang paling utama dalam hidup ku (nauzubillah)

Kita sepatutnya senantiasa mengenang akan segala yang telah DIA berikan kepada kita.
DIA telah memberikan segala-galanya kepada kita sebelum kita meminta.

IA lah yang mengerakkan ku setiap detik dan hari.
TanpaNYA aku adalah AMPAS yang tak berguna.

Susah vs. Senang
Kenapa susah sekali menyampaikan kebenaran?
 
Kenapa mengantuk dalam  MASJID tetapi ketika selesai ceramah kita segar kembali?
Solat adalah yang terbaik…. Tidak perlu bayaran , tetapi ganjaran lumayan.
Notes: Tidak kah lucu betapa mudahnya bagi manusia TIDAK Beriman PADA ALLAH
setelah itu heran kenapakah dunia ini menjadi neraka bagi mereka.
 
Tidakkah lucu bila seseorang berkata “AKU BERIMAN PADA ALLAH” TETAPI SENTIASA MENGIKUT SYAITAN. 

Sumber : http://likalikulaki.wordpress.com/2008/09/12/indahnya-malam-pertama-kita/

Ya Alloh begitu besar nikmat yang telah engkau berikan pada seluruh penghuni alam raya ini dan nafas yang membuat ku masih hidup.

Persiapan KP & TA

Dengan membaca bismillah(pidato...he)siapkan mental dan fisik anda tuk
berperang dengan yang namanya KP dan TA, keluarkan jurus dan kemampuanmu
bekali dengan berbagai ilmu(bermanfaat) semangat Ok...

sebuah do'a .." Robbana dholamna anfusana wailam taghfirlana lanakunanna minal khosirin
bravo

Pulang

"Pulang"
Kata itu sering kita dengar/ diucapkan,seperti halnya ketika sekolah
anak-anak akan senang ketika mendengar kata pulang, apalagi bagi seorang
perantauan yang pulang ke kampung halamannya, pulang sendiri mempunyai arti
yang banyak. Seseorang yang telah selesai bekerja/ sekolah akan pulang
ke rumahnya walaupun itu dilakukan setiap hari tapi mereka tetap pulang
karena pulang itu sendiri memiliki tujuan dan harapan misalnya
ingin bertemu dengan keluarga dan sebagainya. Tapi bagaimana ketika tiba
waktunya kita dipanggil pulang kerahmatullah? senangkah kita? siapkah kita?
sudah cukupkah bekal yang akan kita bawa? semua itu hannya kita yang tahu,
Untuk itu kita harus persiapkan bekal mulai sekarang jangan sampai
kita kehabisan bekal, agar kita bisa sampai tujuan dengan selamat
dan dapat bertemu dengan sang creator alam semesta. Amiin
" Shollu 'ala Muhammad "F --;<@
adie_stjo et coid

Contoh Tipe File Bertipe pada Pascal dan Record

Program LatRec;
uses crt,dos;
Type
Nilai=Record
Nama : String[20];
NilaiPPN : Integer;
NilaiPPA : Integer;
NilaiAgama : Integer;
NilaiLogika : Integer;
end;
var
letak:string;
indeks,jmdata,x,y: Integer;
TotNilai : Integer;
CekFile : PathStr;
FileNilai : File of Nilai;
DtNilai : Nilai;
begin
clrscr;
write('Masukkan nama :');
readln(DtNilai.nama);
write('Masukkan nilai PPN ',DtNilai.Nama,':');
readln(DtNilai.nilaiPPN);
write('Masukkan nilai PPA ',DtNilai.Nama,':');
readln(DtNilai.nilaiPPA);
write('Masukkan nilai Logika ',DtNilai.Nama,':');
readln(DtNilai.nilaiLogika);
write('Masukkan nilai Agama ',DtNilai.Nama,':');
readln(DtNilai.nilaiAgama);
Assign(FileNilai,'Nilai0.dat');
CekFile:=FSearch('Nilai0.dat','');
if CekFile='' then
ReWrite(FileNilai)
else
Reset(FileNilai);
Seek(FileNilai,FileSize(FileNilai));
Write(FileNilai,DtNilai);
clrscr;
writeln('Sebelum diurutkan');
writeln('DATA NILAI');
{123456789 123456789 123456789 123456789 123456789 123456789 123456789 1}
writeln('ÚÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄ¿');
writeln('³Nama ³Nil PPN³Nil PPA³Nil Logika³Nil Agama³Grade ³Keterangan ³');
writeln('ÃÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄ´');

Reset(FileNilai);
for indeks:=0 to FileSize(FileNilai)-1 do
begin
Read(FileNilai,DtNilai);
gotoxy(1, indeks+6);
write('³',DtNilai.nama);
gotoxy(14,indeks+6);
write('³',DtNilai.nilaiPPN);
gotoxy(22,indeks+6);
write('³',DtNilai.nilaiPPA);
gotoxy(30,indeks+6);
write('³',DtNilai.nilaiLogika);
gotoxy(41,indeks+6);
write('³',DtNilai.nilaiAgama);
gotoxy(51,indeks+6);
totNilai:=DtNilai.nilaiPPN+DtNilai.nilaiPPA+DtNilai.nilaiLogika+
DtNilai.nilaiAgama;
if totNilai>=34 then
write('³ A')
else if totNilai>=28 then
write('³ B')
else if totNilai>=24 then
write('³ C')
else
write('³ D');
gotoxy(58,indeks+6);
if DtNilai.nilaiLogika>7 then
write('³L')
else
writeln('³TL');
gotoXY(71,indeks+6);
writeln('³');

end;
writeln('ÀÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÙ');
gotoxy(1,20);
writeln('Sesudah diurutkan');
writeln('DATA NILAI');
{123456789 123456789 123456789 123456789 123456789 123456789 123456789 1}
writeln('ÚÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄ¿');
writeln('³Nama ³Nil PPN³Nil PPA³Nil Logika³Nil Agama³Grade ³Keterangan ³');
writeln('ÃÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄ´');

Reset(FileNilai);
{For := 2 To A Do
For D := A DownTo C Do
If DtNilai.Nama < DtNilai[D-1].Nama Then
Begin
Temp := Mhs[D];
DtNilai[D] := Dtnilai[D-1];
DtNilai[D-1] := Temp;
End;}
Reset(FileNilai);
{ for x:=2 to FileSize(FileNilai) do
for y:= filesize(filenilai) to x do
if dtnilai.nama < dtnilai.nama[y-1] then
begin
letak[y]:=dtnilai.nama[y];
dtnilai.nama[y]:=dtnilai.nama[y-1];
dtnilai.nama[y-1]:=letak[y];
end;}

for x:=0 to FileSize(FileNilai)-1 do
for y:= x+1 to FileSize(FileNilai) do
if dtnilai.nama[x]>dtnilai.nama[y] then
begin
letak[x]:=dtnilai.nama[x];
dtnilai.nama[x]:=dtnilai.nama[y];
dtnilai.nama[y]:=letak[y];
end;
for indeks:=0 to FileSize(FileNilai)-1 do
begin
Read(FileNilai,DtNilai);
gotoxy(1, indeks+25);
write('³',DtNilai.nama);
gotoxy(14,indeks+25);
write('³',DtNilai.nilaiPPN);
gotoxy(22,indeks+25);
write('³',DtNilai.nilaiPPA);
gotoxy(30,indeks+25);
write('³',DtNilai.nilaiLogika);
gotoxy(41,indeks+25);
write('³',DtNilai.nilaiAgama);
gotoxy(51,indeks+25);
totNilai:=DtNilai.nilaiPPN+DtNilai.nilaiPPA+DtNilai.nilaiLogika+
DtNilai.nilaiAgama;
if totNilai>=34 then
write('³ A')
else if totNilai>=28 then
write('³ B')
else if totNilai>=24 then
write('³ C')
else
write('³ D');
gotoxy(58,indeks+25);
if DtNilai.nilaiLogika>7 then
write('³L')
else
writeln('³TL');
gotoXY(71,indeks+25);
writeln('³');

end;
writeln('ÀÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÙ');
readln;
end.

Contoh Program Sorting mengunakan Buble

uses crt;
var
nama:array[1..10]of string;
n,x,y,indek:integer;
letak:string;
begin
clrscr;
write('Masukkan jumlah data = ');readln(n);
for indek:=1 to n do
begin
write('Data ke ',indek,' =');readln(nama[indek]);
end;
for x:=1 to n-1 do
for y:=x+1 to n do
if nama[x] > nama[y] then
begin
letak:=nama[x];
nama[x]:=nama[y];
nama[y]:=letak;
end;
writeln('Data setelah diurutkan');
for indek:=1 to n do
writeln(indek,'.',nama[indek]);
readln;
end.

Lanjutan Perbaiki Flash Disk

Memperbaiki Flash Disk Rusak
Kerusakan pada Flash Disk biasanya ada 2 macam yaitu kerusakan Hardware dan Software. Kerusakan Hardware misalnya akibat jatuh atau basah, kemungkinan besar sulit untuk diperbaiki lagi. Kalau kerusakan pada Software kemungkinan masih bisa diperbaiki asalkan masih bisa terbaca/terdetect oleh komputer. Kebiasaan kita yang sering langsung cabut Flash Disk tanpa Safety Removable Disk akan menyebabkan Flash Disk kita mudah rusak bahkan data yang kita miliki bisa hilang.
Sedikit jenis kerusakan Software yang pernah saya alami/ ketahui :
Flash Disk bisa terbaca tetapi berubah menjadi Safety Removable Disk dan ketika dibuka pada direktorinya muncul pesan “Insert Into the disk”.
Flash Disk terkena write-protected semua file pada Flash Disk tidak bisa dihapus dan ditambah, dan hannya bisa di buka dan dicopy.
Kapasitas Flash Disk menjadi 0 Mb.
Untuk memperbaikinya kita kita bisa menggunakan Soft Ware bantuan untuk memperbaiki Flash Disk dalam hal ini anda harus cukup bersabar dan terus mencoba karena belum tentu langsung jadi.
Software yang saya gunakan
Repair.exe
HPUSB Disk tools
Jika masih juga belum bisa maka kita gunakan cara berikut :
Cara ini bisa mengobati hampir semua masalah flashdisk, seperti tidak bisa diformat, propertisnya zero, write protected, memulihkan flashdisk palsu, dll
langsung aja...
Ada beberapa tahapan dalam memprogram ulang flashdisk
1. Mencari tahu identitas VID dan PID flashdisk
2. Mencari tool untuk flashdisk berdasarkan VID PID tadi
3. Memprogram ulang flashdisk dengan tool tadi
ok ... sekarang dijelaskan satu-satu
1. Mencari tahu identitas VID dan PID flashdisk
VID merupakan informasi tentang vendor pembuat flashdisk, sedangkan PID adalah informasi tentang chip controller yang digunakan flashdisk tersebut. Value PID ini yang akan menentukan software / tool yang tepat untuk digunakan di flashdisk kita. Nah terus bagaimana cara tahu VID / PID flashdisk kita ?
Cara paling mudah adalah dengan menggunakan software ChipGenius.
Berikut contoh penggunaan Chigenius pada flashdisk Kingston

2. Mencari tool untuk flashdisk berdasarkan VID PID tadi
Nah pertanyaan berikutnya, dimana dan program apa yang digunakan untuk mengutak-atik chip controller tersebut ? Sumber tool-tool seperti ini ada di China di Mydigit.cn (karena banyak flashdisk palsu yang bersumber dari china), untuk lebih mudahnya kita download mirornya di http://www.flashboot.ru www.flashboot.ru
Saya sarankan untuk menggunakan google translate karena web ini menggunakan bahasa Rusia, tpi menurut saya yang sudah terbiasa tinggal dikira-kira artinya apa misal tombol “ok”

akan terdapat banyak sekali tipe vendor chip controller, kita masuk ke SSS, cari dan download SSS6690/SK6211

3. Memprogram ulang flashdiskl
Untuk tampilan dan cara kerja software chip controller berbeda satu dengan yang lain, berikut hanya contoh untuk model SSS6690 saja, terkadang untuk menggunakan software ini kita harus menginstall dulu driver pabrikannya (disertakan dalam software)
yang perlu diperhatikan pertama adalah memastikan bahwa flahdisk kedeteck oleh software

setelah itu masuk ke setup dan gunakan / pilih setingan defaulnya (kalau tidak terdapat pilihan default, dan anda tidak tahu cara setting bagian ini, sangat disarankan untuk stop dulu, jangan lanjutkan karena bisa berdampak buruk pada flashdisk).
Mungkin sekian sedikit ilmu buat anda yang barangkali pernah mengalami dan atau suatu saat mengalami Flash Disk rusak. Wassalam.