Habis mikirin Listing C++

C++ Gimana nasib UTS ...

COGAN Alay and Anton

Photo bareng temen2 sehabis LAB. rada puyeng dikit ... hehe

Kul udah mau selesai tapi kok rada gak tega ninggalin kampus melihat anak2nya yang asik2. tapi itulah mesin waktu.

Film Knowing 2009

Alhamdulilah setelah beberapa hari mencari donwloadan film Knowing 2009 dapet juga walau masih bukan DVDrip masih agak burem sih tapi ...keren abis ...cuy ....

Knowing 2009

Knowing menceritakan :
BAGAIMANA rasanya bila Anda bisa melihat apa yang tak terekam di mata orang lain, mendengar yang tidak didengar orang lain dan merasakan apa yang tidak dirasakan orang lain? Anda merasa sesuatu akan terjadi, tapi Anda tidak tahu itu apa. Apakah itu sixth sense atau halusinasi belaka?

Gadis sekolah dasar di Massachusetts, pada tahun 1959, bernama Lucinda Embry, buta tentang masa depan. Namun dialah kunci prediksi kehancuran bumi alias kiamat.

Lucinda dikenal sebagai murid yang misterius, tampangnya menyedihkan, muram dan tak banyak bicara. Sosok terasing di kelas. Namun, dia punya rahasia yang membuat seluruh hidupnya penuh tanda tanya.

Suatu hari, sekolah Lucinda mengadakan acara mengubur sebuah kapsul waktu. Kapsul yang akan dibuka kembali 50 tahun kemudian itu penuh dengan amplop. Dalam amplop-amplop itu berisi gambar anak-anak era 50-an tentang masa depan.

Anehnya, bukan gambar yang dicoretkan Lucinda dalam kertas, melainkan angka acak. Dia menuliskan angka-angka dengan sangat cepat, sampai-sampai gurunya, Ms Taylor, merampas kertas itu. Jangan salah! Bukannya Lucinda maniak angka, dia hanya menulis menuruti bisikan-bisikan di telinganya yang tak terdengar orang lain.

Saat penguburan kapsul waktu, Lucinda tiba-tiba lenyap. Dia menghilang. Semua orang mencarinya. Petugas sekolah pun dikerahkan. Ms Taylor akhirnya menemukan Lucinda. Gadis kecil itu berada di lemari dalam kondisi mengenaskan, jemarinya berlumuran darah.

Tahun 2009, saatnya kapsul waktu diangkat dari kubur. Semua murid saling berebut amplop. Caleb, salah satu murid, mendapat amplop milik Lucinda. Awalnya, ayah Caleb, John Koestler menilai amplop itu hanya keisengan anak-anak masa lalu. Namun, Caleb coba meyakinkan, amplop itu mungkin saja berguna. Penasaran, John yang berprofesi sebagai seorang profesor itu kemudian menelaah setiap digit acak yang tertera dalam kertas tua tersebut.

Mengandalkan googling, John sadar angka-angka itu bukan angka biasa. Angka-angka itu tepat merujuk pada sejumlah tragedi yang memakan korban luar biasa, termasuk peristiwa naas yang merenggut istrinya, ibunda Caleb, hingga membuat John tidak percaya Tuhan.

Setelah hari itu, kehidupan ayah-anak tersebut berubah. Tinggal tiga musibah yang belum terjadi pada 2009. Bagaimana John mengatasi keadaan ini? Sementara Caleb yang tuna rungu sejak lahir harus mendengar bisikan-bisikan, sebagaimana yang didengar Lucinda. John khawatir sekaligus ketakutan, Caleb bakal jadi korban angka berikutnya. Tapi dia tidak mungkin melepaskan diri dari takdir ini. Setelah berjuang sekuat tenaga, menelusuri musibah serta menyusuri kembali jejak Lucinda Embry, John mendapatkan jawaban.


Jangan sampai kelewatan nonton film yang satu ini keren abizzzz cuy .......

Pelajaran Delphi Hari Ini

Pelajaran dari kak Ilam hari ini mayan juga ... mempelajari tentang function yang ada di delphi... alhamdulilah anak2 dikelas semua pada bisa ...

Sekedar mengingat ... programnya dan listingnya

Double Klik di Button hitung terus tusli listing dibawah ini.

function bunga (x,y:real):real;
begin
bunga:=(x*y/100+x);
end;

function hitung(e,f:real):real;
begin
hitung:=bunga(e,f);
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,e:real;
begin
a:=strtofloat(ejumlah.Text);
b:=strtofloat(ebunga.Text );
c:=strtofloat(elama.Text );
d:=hitung(a,b);
ebayar.Text :=floattostr(c);
ebayar.Text :=formatfloat('#.###,',d);
e:=d/c;
ecicil.Text :=floattostr(e);
ecicil.Text :=formatfloat('#.###,0',e);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
enama.Text :='';
ejumlah.Text :='';
elama.Text :='';
ebayar.Text :='';
ecicil.Text :='';
ebunga.Text :='';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close
end;

end.