Laman Facebook DiPC Eror ?

Kudena.blogspot.com-17/05/2015, Hallo agan-aganku yang saya banggakan karna agan-agan sudah mau mampir kesini.kali ini akan membahas tentang LAMAN FACEBOOK EROR yang akhir- akhir ini jadi tranding topik diKampus saya dan sayapun juga merasakan tragedi ERORNYA LAMAN FACEBOOK..
saya kira hal ini terjadi karena Koneksi yang lambat,namun setelah saya pakai laptop orang lain ternyata bisa..
saya kira juga masalahnya ada di pengaturan waktu yang tidak pass,karena jejaring sosial sendiri kalau waktu diPCnya berbeda dengan waktu internasional akan membuat laman jejaring sosial tidak bisa dibuka (katanya sih :D),tapi nyatanya waktu diPC saya pas dengan waktu internasional ..
ada juga yang mengatakan bahwa ini terjadi karena viruss,yah ini mungkin saja bisa terjadi dilaptop kalian,tapi tidak dilaptop saya karena dilaptop saya sudah tersedia 5 anti virus yang joss..
lalu kenapa ????
sayapun bingung,mengapa ini terjadi pada pacar saya (laptop)?? Namun dengan tekat dan kekuatan sinar rembulan,akhirnya saya bisa menyelesaikannya..
solusinya mudah :

1. Pertama hapus semua histori 
2. matikan koneksi
3. Restart laptop anda
4. kemudian nyalakan kembali koneksi
5. dan taraaa,selesai ..

Mudah bukan ? yah begitulah tips kita kali ini,jika masih eror mungkin cara terbaik instal ulang :D ,

Program Antrian Rumah Sakit (pascal stack)

Kudena.blogspot.com-Rabu(2/4) , Hallo sahabat Kudena,kali ini kita akan mengeshare Program Antrian Rumah sakit dengan Menggunakan Sistem Stack , Mungkin ini rumit namun jika terlaten saya yakin anda bisa , langsung saja copas :

program antrian_rs;
uses crt;
const max=10;
type antrian=record
    nomor:array[1..max] of byte;
    depan,belakang:0..max;
    end;
var rs:antrian;
    nomer:0..25;
    i,pil:byte;
   
function penuh(x:antrian):boolean;
begin if x.belakang=max then penuh:=true else penuh:=false;end;
   
function kosong(x:antrian):boolean;
begin if x.belakang=0 then kosong:=true else kosong:=false;end;

procedure masuk_antrian(var x:antrian);
begin
    Writeln('selamat datang di antrian rs sehat selalu');
    inc(nomer);
    inc(x.belakang);x.nomor[x.belakang]:=nomer;
    Writeln('anda mendapat nomor antrian ',nomer);
    Writeln('saat ini sedang mengantri ',x.belakang,' orang');
    Writeln('mohon bersabar');
end;

procedure layanan(var x:antrian);
begin
    Writeln('yang mendapat layanan berikutnya adalah nomor antrian ',x.nomor[x.depan]);
    {gese}
    for i:=x.depan to x.belakang do x.nomor[i]:=x.nomor[i+1];
    dec(x.belakang);
    Writeln('antrian tersisisa ',x.belakang,' orang');
end;

procedure cetak_antrian(var x:antrian);
begin
    Writeln('berikut antrian yang ada saat ini ');writeln;
    Writeln('posisis   nomor antrian');
    Writeln('-----------------------');
    for i:=x.depan to x.belakang do
        Writeln(i:4,'   ',' nomer ',x.nomor[i]:3);
    Writeln('-----------------------');
    Writeln('jumlah antrian : ',x.belakang,' orang' );
end;

procedure sisip_antrian(var x:antrian);
var pos:byte;ada:boolean;
label ulang;
begin
    Writeln('selamat datang di antrian');
    inc(nomer);
    Writeln('anda mendapat nomor antrian ',nomer);
    ulang:
    Write('akan disispkan di antrian nomor berapa ? ');Readln(pos);
    if (pos<x.depan) or (pos>x.belakang+1) then begin Writeln('posisi tidak valid');goto ulang; end else
        begin
            if pos=x.belakang+1 then
            begin
                inc(x.belakang); x.nomor[x.belakang]:=nomer;
            end
            else
            begin
                inc(x.belakang);
                {geser}
                for i:=x.belakang downto pos+1 do x.nomor[i]:=x.nomor[i-1];
                x.nomor[pos]:=nomer;
            end;
        end;
    Writeln('antrian saat ini ',x.belakang,' orang');
end;

procedure keluar_antrian(var x:antrian);
var nk,pos:byte; ada:boolean; ya:char;
begin
    Writeln('keluar dari antrian');
    Write('masukan nomor yang akan keluar :');Readln(nk);
    ada:=false;
    for i:=x.depan to x.belakang do if x.nomor[i]=nk then begin ada:=true;pos:=i;end;
   
    if ada then
    begin
        Write('yakin akan keluar dari antrian ? ');Readln(ya);
        if (ya='Y') or (ya='y') then
        begin
            Writeln('nomor antrian ',nk,' keluar dari antrian');
            for i:=pos to x.belakang do x.nomor[i]:=x.nomor[i+1];
            dec(x.belakang);
        end else
        Writeln('artian nomor ',nk,' batal keluar dar antrian');
    end else
    Writeln('nomor antrian tidak ditemukan');
    Writeln('antrian saat ini ada ',x.belakang,' orang');
end;

begin
rs.depan:=1;rs.belakang:=0;nomer:=0;
repeat
    clrscr;
    Writeln('pelayanan antrian di rs');writeln;
    Writeln('1. masuk antrian');
    Writeln('2. mendapat layanan');
    Writeln('3. cetak antrian');
    Writeln('4. pasien emergency');
    Writeln('5. keluar antrian');
    Write('pilih layanan => ');Readln(pil);
    case pil of
    1: if nomer>=25 then Writeln('nomor antrian sudah habis, silahkan langsung ke icu') else
        if penuh(rs) then Writeln('mohon maaf ruangan sudah penuh, tunggu sebentar lagi') else
        masuk_antrian(rs);
    2: if kosong(rs) then Writeln('tidak ada pasien yang harus dilayani') else layanan(rs);
    3: if kosong(rs) then Writeln('antrian sedang kosong') else cetak_antrian(rs);
    4: if nomer>=25 then Writeln('nomor antrian habis, silahkan langsung ke icu') else
        if penuh(rs) then Writeln(' mohon tunggu sebentar') else sisip_antrian(rs);
    5: if kosong(rs) then Writeln('antrian sudah kosong') else keluar_antrian(rs);
    0: Writeln('terima kasih');
    else Writeln('anda salah memilih menu');
    end;
    readln;
    until pil=0;
end.

Berikut Keluarannya :

Yang Perlu anda ketahui tentang "APRIL MOP"

Kudena.blogspot.com-Rabu(1/4) , hallo hallo sahabat kudena,lagi jadi tranding topik nih tentang APRIL MOP , Sebenarnya apa sih itu april mop ? April Mop itu dikenal dengan April Fools' Day dalam bahasa Inggris, diperingati setiap tanggal 1 April setiap tahun. Pada hari itu, orang dianggap boleh berbohong atau memberi lelucon kepada orang lain tanpa dianggap bersalah. Hari ini ditandai dengan tipu-menipu dan lelucon lainnya terhadap keluarga, musuh, teman bahkan tetangga dengan tujuan mempermalukan orang-orang yang mudah ditipu. Di beberapa negara seperti Inggris dan Australia serta Afrika Selatan, lelucon hanya boleh dilakukan sampai siang atau sebelum siang hari.[1] Seseorang yang memainkan trik setelah tengah hari disebut sebagai "April Mop".[2] Namun di tempat lain seperti Kanada, Perancis, Irlandia, Italia, Rusia, Belanda, dan Amerika Serikat lelucon bebas dimainkan sepanjang hari. Hari itu juga banyak diperingati di Internet.

Bahasa pemograman PHP pun merayakan April Mop ini dengan mengganti logo php pada setiap page 'php info'. Perhatikan logo PHP pada php info, setiap tanggal 1 April, logo tersebut akan berubah menjadi gambar-gambar lain yang lucu, misalnya gambar anjing, gambar drakula, dan gambar Batman.

PERLU ANDA KETAHUI,Rutinitas lelucon April Mop sering membuat orang-orang yang memperingatinya sering meragukan liputan berita yang terbit pada tanggal 1 April.

• Tsunami April Mop di Hilo, Hawaii.Pada 1 April 1946, gempa bumi disertai tsunami membunuh 165 orang di Hawaii dan Alaska mengakibatkan dibuatnya sistem peringatan tsunami. Di Hawaii, tsunami ini dikenal dengan "Tsunami April Mop", karena banyaknya orang yang mati karena tidak percaya berita akan kedatangan tsunami tersebut.
• Kematian Raja George II dari Yunani pada tanggal 1 April 1947.
• AMC Gremlin yang pertama kali diperkenalkan pada tanggal 1 April 1970.[3]
• Pada tahun 1979, Iran menyatakan bahwa 1 April merupakan Hari Republik. Kabar ini dianggap sebagai lelucon hingga tiga puluh tahun kemudian.[4]
• Pada tanggal 1 April 1984, penyanyi Marvin Gaye ditembak dan dibunuh oleh ayahnya. Awalnya, orang beranggapan bahwa itu adalah berita palsu, terutama mengingat aspek aneh ayah menjadi seorang pembunuh.
• Pada 1 April 1993, juara NASCAR Seri Piala Winston, Alan Kulwicki tewas dalam kecelakaan pesawat yang melibatkan eksekutif Hooters dari Amerika di Blountville, Tennessee dekat Bandara Tri-Cities. Perjalanan itu menuju ke Food City 500 yang dijadwalkan untuk hari berikutnya.
• Deathrock legenda Rozz Williams wafat karena bunuh diri pada tanggal 1 April 1998.
• Pada tanggal 1 April 1999 wilayah barat laut Kanada terpecah yang sekarang wilayah itu bernama Nunavut.
• Persaingan antara Merger Square dan perusahaan saingannya, Enix, terjadi pada 1 April 2003, dan pada awalnya dianggap sebagai lelucon.
• Leslie Cheung, penyanyi dan aktor terkenal asal Hong Kong, bunuh diri pada tahun 2003 karena depresi berat.
• Peluncuran Gmail pada April 2004 oleh Google juga awalnya dianggap lelucon, karena Google memang terkenal sering memasang lelucon April Mop pada situs mereka

waduh-waduh jangan-jangan lo nembak cewe hari ini bakalan dikira april mop,hahaha.. lantas bagaimana dengan pandangan menurut ISLAM ?
Perayaan ini adalah hal yang diharamkan dalam islam. dari segi filosofinya,april mop adalah budaya kufur yang dimana muslimin Haram mengikuti budaya tersebut. dalam sebuah hadits Rasulullah SAW bersabda

مَنْ تَشَبَّهَ بِقَوْمٍ فَهُوَ مِنْهُمْ

Siapa saja yang menyerupai suatu kaum,maka ia tergolong bagian dari kaum tersebut ( HR. AHmad,Abu Daud & Thabariy) 

Al-Munaawiy rahimahullah berkata:

وَقِيْلَ الْمَعْنَى: مَنْ تَشَبَّهَ بِالصَّالِحِيْنَ وَهُوَ مِنْ أَتْبَاعِهِمْ يُكْرَمُ كَمَا يُكْرَمُوْنَ، وَمَنْ تَشَبَّهَ بِالْفُسَاقِ يُهَانُ وَيُخْذَلُ كَهُمْ، وَمَنْ وَضَعَ عَلَيْهِ عَلاَمَةَ الشَّرْفِ أَكْرَمُ وَإِنْ لَمْ يَتَحَّقَّقْ شَرْفُهُ

“Dikatakan maknanya adalah : barangsiapa yang menyerupai orang-orang shaalih, maka ia termasuk orang yang mengikuti mereka. Ia pun dimuliakan sebagaimana orang-orang shaalih itu dimuliakan. Barangsiapa yang menyerupai orang-orang fasiq, maka akan dihinakan dan direndahkan sebagaimana mereka (dimuliakan dan direndahkan). Dan barangsiapa yang diletakkan padanya tanda-tanda kehormatan, ia lebih mulia meskipun kehormatannya itu tidak kelihatan.”

Lagian juga budaya ini mengajarkan untuk berbohong dan usil,jelas sekali ini sangat dilarang oleh agama. iiah lo yang diusilin suka,lo gak? bisa memutuskan silaturahmi tuh,jadi teman2ku yang baik hatinya (asikk) , Untuk selanjutnya itu terserah anda,saya disini hanya memberi tau saja.. 

Jepang Jadikan Kotoran Manusia Menjadi Makanan yang Lezat.

Kudena.blogspot.com-minggu(29/3), Hallo sahabat Kudena,pernahkah anda memakan kotoran anda sendiri gan ? uwohh pasti belum pernahkan,namun dijepan Kotoran Manusia diolah loh menjadi makanan yang konon kabarnya rasanya seperti Steak sapi, dialah Mitsuyuki Ikeda, ilmuwan asal Okayama Laboratory yakin bahwa banyak protein bagus di dalam kotoran manusia yang bisa dimanfaatkan. Untuk itu, ia mencari cara untuk mengekstraknya, mencampurnya dengan saus steak, dan berhasil membuat kotoran itu menjadi makanan.

Orang mungkin bertanya-tanya apa alasannya melakukan hal itu. Tetapi ternyata, alasan utamanya adalah permintaan dari pemerintah Tokyo sendiri.

Sebagai informasi, Tokyo saat ini kewalahan dengan lumpur selokan bawah tanah, dan satu-satunya cara untuk mengatasinya selain dengan membuang ke laut adalah dengan memakan ‘kotoran-kotoran’ tersebut.

Saat diteliti, Ikeda mendapati bahwa lumpur itu penuh dengan protein karena banyaknya konten bakteria di sana. Setelah dikombinasikan dengan peningkat reaksi dan menempatkannya di mesin ajaib yang disebut ‘exploder’, akhirnya steak buatan berhasil dibuat.

Lumpur kotoran itu mengandung 63 persen protein, 25 persen karbohidrat, 3 persen vitamin yang larut dalam lemak, serta 9 persen mineral. Adapun steak buatan yang dihasilkan pun warnanya juga merah, jadi konsumen tidak akan mengetahui bahwa yang akan ia makan merupakan tinja olahan.

“Dari uji pertama, orang-orang yang sudah mencobanya menyebutkan, rasanya seperti daging sapi,” sebut Ikeda, seperti dikutip dari Digital Trends, 20 Juni 2011.

Menurut Ikeda dan rekan-rekannya, cara ini merupakan solusi sempurna untuk mengurangi jumlah limbah dan emisi dari perut. Namun sayangnya, masih ada kekurangan dari solusi yang ditawarkan Ikeda. Biaya untuk memproduksi ‘Daging’ buatan itu 10 sampai 20 kali lebih mahal dibandingkan dengan harga daging sapi sungguhan.