13 December 2009

Banyak Cara Menuju Angkasa

Pengalaman gw yg paling mengasyikkan adalh dimna w ktmu cara internet grtis unlimited lagi wah..eanknya gratisan....w dpt cara internet grtiasan tu juga dari oprex2 mbh google..nanti tggu az rhasia ntr w bhs di blog ini

01 December 2009

Gadis matematika dan gadis logis


PILIH GADIS MATEMATIS ATAU GADIS LOGIS?
Ada dua orang gadis, salah satu dari mereka cara
berpikirnya MATEMATIS (M) dan yang lainnya cara
berpikirnya mengandalkan LOGIKA ( L) . Mereka berdua
berjalan pulang melewati jalan yang gelap, dan
jarak rumah mereka masih agak jauh. Setelah beberapa
lama mereka berjalan....

M : Apakah kamu juga memperhatikan, ada seorang pria
yang sedang berjalan mengikuti kita kira2 sejak
tigapuluh delapan setengah menit yang lalu? Saya
khawatir dia bermaksud jelek.

L : Itu hal yang Logis. Dia ingin memperkosa kita.

M : Oh tidak, dengan kecepatan berjalan kita seperti
ini, dalam waktu 15 menit dia akan berhasil menangkap
kita. Apa yang harus kita lakukan.

L : Hanya ada 1 cara logis yg harus kita lakukan,
yaitu berjalan lebih cepat.

M : Itu tidak banyak membantu, gimana nich.....

L : Tentu saja itu tidak membantu, Logikanya kalau
kita berjalan lebih cepat dia juga akan mempercepat
jalannya.

M : Lalu, apa yang harus kita lakukan? Dengan
kecepatan kita seperti ini dia akan berhasil menangkap
kita dalam waktu dua setengah menit...

L : Hanya ada satu langkah Logis yang harus kita
lakukan.. Kamu lewat jalan yang ke kiri dan aku lewat
jalan yang kekanan. sehingga dia tidak bisa mengikuti
kita berdua dan hanya salah satu yang diikuti
olehnya.

Setelah kedua gadis itu berpisah, ternyata Pria tadi
mengikuti langkah si gadis yang menggunakan logika
(L ). Gadis matematis ( M) tiba di rumah lebih dulu dan
dia khawatir akan keselamatan sahabatnya. Tapi, tidak
berapa lama kemudian, Ga dis Logika (L ) datang.

M : Oh terima kasih Tuhan.. Kamu tiba dengan selamat.
Eh, gimana pengalamanmu diikuti oleh Pria tadi?

L : Setelah kita berpisah dia mengikuti aku terus.

M : Ya.. ya.. Tetapi apa yang terjadi kemudian dengan
kamu?

L : Sesuai dengan logika saya langsung lari sekuat
tenaga dan Pria itupun juga lari sekuat tenaga
mengejar saya.

M : Dan... dan..

L : Sesuai dengan logika dia berhasil mendekati saya
di tempat yang gelap...

M : Lalu.. Apa yang kamu lakukan?

L : Hanya ada satu hal logis yang dapat saya lakukan,
yaitu saya mengangkat rok saya..

M : Oh... Lalu apa yang dilakukan pria tadi?

L : Sesuai dengan logika... Dia menurunkan
celananya...

M : Oh tidak... Lalu apa yang terjadi kemudian?

L : Hal yang logis bukan, kalau gadis yang mengangkat
roknya larinya lebih cepat dari pada lelaki yang
berlari sambil memelorotkan celananya... So akhirnya
aku bisa lolos dari pria itu...

Read more...

Jangan besar-besar dong

Para santri di suatu pondok pesantren masing-masing memelihara beberapa ekor ayam. Suatu hari pak Ustadz ingin mengetahui bagaimana reaksi salah seorang santrinya bila satu ayamnya dicuri. Maka suatu malam ayam peliharaan si Muhaemin diambil diam-diam, dipotong, kemudian dagingnya dibagi-bagikan kepada semua santri.
Esok harinya, Muhaemin melapor kepada gurunya. “Pak Ustadz, tadi malam ayam peliharaanku dicuri orang.”
Pak Ustadz menjawab, “Sudahlah, jangan bersedih. Ayammu itu kan pada hakikatnya milik Allah yang dititipkan kepadamu.”
Muhaemin mengangguk-angguk kemudian ngeloyor pergi sambil garuk-garuk kepala. Dia berniat memberikan pembalasan kepada ustadznya itu.
Pada keesokan harinya, dia mencuri kambing milik pak Ustadz, dipotong,
disate, kemudian dibagi-bagikan kepada semua penghuni pondok pesantren. Malam itu terjadi pesta makan sate yang begitu meriah.
Esok pagi, pak Ustadz marah bukan kepalang melihat kambing miliknya
dicuri orang. Dikumpulkannyalah semua santrinya sambil menghardik,
“Hayo mengaku, siapa yang mencuri kambing saya kemarin?”. Semua
santri diam ketakutan. Tak lama kemudian Muhaemin bertanya, “Pak Ustadz, bukankah kambing yang hilang itu pada hakikatnya adalah milik Allah?”
Pak Ustadz menjawab, “Punya Allah sih punya Allah … tapi jangan yang besar-besar dong!”

Read more...

Hitam segalanya

Alkisah di negara Afrika sana, manusia yang paling hitam adalah yang paling hebat! Hitam dalam arti hitam segala-galanya, itulah Negro Sejati! Ada 3 orang anak kecil yang sedang membandingkan kehitaman Bapaknya.
Anak yang ke 1 : ” Babe gue kemarin sedang ngupas Apel, eh..tangannya
terluka, DARAH nya HITAM!!!!…
Anak yang ke 2 : “Papi ku kemarin sedang benerin Parabola,eh..terjatuh
sampai patah tulang, TULANG nya HITAM !!!”
Anak yang ke 3, nggak mau kalah hebat : “Hm.. itu belum seberapa,tadi
malam waktu kami sedang nonton TV diruang keluarga, tiba-tiba Bokap
gua KENTUT, …..e-eh,…tiba tiba seluruh ruangan jadi GELAP !!!!!!”

Read more...

Indonesia tetap canggih

Dalam rapat perkembangan teknologi abad-21, ada utusan dari indonesia, jepang dan amerika. Amerika melihatkan kemajuan teknologinya.
Saat ada telpon masuk, Amerika tidak lagi menggunakan hp, tapi memegang kancing bajunya dan berbicara.
Orang Indonesia heran “Wuih gila loe yach, bisa kayak gitu”
Orang jepang langsung nyeletuk, “Wach punyaku lebih gila lagi nich….”dan kemudian dengan jari jempol dan kelinking orang jepang itu menelpon rekannya, ck..ck…’ memang gila nich…,”kata orang indonesia itu dengan rasa kagumnya. akhirnya orang indonesia ini bingung, apa yang akan ditunjukkan kepada kedua rekannya itu. tiba-tiba orang indonesia ini menggetarkan badannya dan matanya merem melek. orang amrik dan jepang bingung, lantas bertanya,” hi..hi… kamu sed

Read more...

Indonesia tetap canggih

Dalam rapat perkembangan teknologi abad-21, ada utusan dari indonesia, jepang dan amerika. Amerika melihatkan kemajuan teknologinya.
Saat ada telpon masuk, Amerika tidak lagi menggunakan hp, tapi memegang kancing bajunya dan berbicara.
Orang Indonesia heran “Wuih gila loe yach, bisa kayak gitu”
Orang jepang langsung nyeletuk, “Wach punyaku lebih gila lagi nich….”dan kemudian dengan jari jempol dan kelinking orang jepang itu menelpon rekannya, ck..ck…’ memang gila nich…,”kata orang indonesia itu dengan rasa kagumnya. akhirnya orang indonesia ini bingung, apa yang akan ditunjukkan kepada kedua rekannya itu. tiba-tiba orang indonesia ini menggetarkan badannya dan matanya merem melek. orang amrik dan jepang bingung, lantas bertanya,” hi..hi… kamu sed

Read more...

Kamu mengaku saja

Seorang guru Sejarah memberikan pertanyaan kepada murid-muridnya,
“Anak-anak, siapa yang menulis Pancasila dan UUD 1945?”
Murid-murid semua diam seribu bahasa. Karena hingga menjelang usai jam pelajaran belum satu murid pun menjawab, sang guru marah dan akhirnya menghukum seluruh muridnya berjemur di lapangan upacara hingga sore hari. Salah seorang murid tersebut, sebut saja Anto, tiba di rumah dengan menangis tersedu-sedu. Ayahnya yang keheranan bertanya,
“To, kenapa kamu? Berkelahi?”
Anto menjawab, “Bukan Pak, tapi kami dihukum jemur oleh pak Guru.” Ayahnya bertanya lagi, “Kenapa sampai dihukum?”
Anto menjawab, “Kami tidak menjawab siapa yang menulis Pancasila dan UUD 1945, pak” Tiba-tiba muka sang Ayah merah padam dan menampar anaknya itu sembari menghardik,
“Kenapa tidak mengaku saja kamu yang menulisnya!!!”

Read more...

kenapa mata anak saya dok

Pada suatu pagi seorang Ibu dan anaknya datang ke ruang praktek Dokter. Padahal Dokter itu belum memulai prakteknya.
Ibu itu kelihatan panik dan mengetuk pintu Dokter itu dengan keras dan berulang-ulang; sambil membawa anaknya yang matanya melotot hampir keluar.
Dokter keluar dari ruangannya lalu sang Ibu langsung menyerbu dengan suara yang panik : “Dokter, Dokter, tolong anak saya. Dari pagi matanya melotot terus seperti ini.”
Dokter : “Waduh saya belum praktek Bu. Ini masih terlalu pagi.”
Sang Ibu tetap ngotot dan berkata : “Saya akan bayar berapa saja, pokoknya sembuhkan anak saya.”
Dokter itu tidak berdebat lagi dan langsung mengajak sang anak masuk. Tidak sampai 5 menit Dokter itu keluar dengan si anak yang telah sehat dan tertawa ceria.
Ibu itu langsung heran, sambil memeluk anaknya, dia berkata: “Waduh Dokter di kasih obat apa nih, dan saya harus bayar berapa??”
Dokter menjawab dengan enteng : “Gratis Bu, tidak usah bayar, tapi saya ingatkan, Ibu kalau masang bando jangan terlalu kencang…”

Read more...

Apakah anda seorang tentara?

Suatu saat, di sebuah bis kota yang penumpangnya berjubel seseorang bertanya kepada salah satu penumpang yang badannya kekar dan berambut pendek :
Penumpang :”Maaf pak, apakah bapak seorang Polisi ?”
Si Cepak : “Bukan !”
Penumpang :”Apakah bapak Angkatan Darat ?”
Si Cepak :”Bukan !”
Penumpang :”Angkatan Laut atau Angkatan Udara ya?”
Si Cepak :”Bukaaan…!”
Penumpang :”Kalau begitu, sialan kamu! ”
Si Cepak :”Lho kenapa ?”
Penumpang :”Ini kamu nginjak kaki saya!!”

Read more...

kura-kura dan sepasang burung

Seekor kura-kura kecil mulai memanjat sebuah pohon dengan perlahan-lahan. Setelah selama berjam-jam mencoba, ia akhirnya sampai ke puncak, kemudian melompat sambil mengepakkan kaki-kakinya. Ia jatuh dengan keras ke tanah dan pingsan. Setelah sadar, ia memanjat lagi, lompat lagi, dan jatuh lagi. Kura-kura itu terus mencoba, sementara sepasang burung di atas pohon mengamati kura-kura itu dengan penuh rasa iba.

Kemudian burung betina berkata kepada suaminya, “Sayang, saya rasa inilah saatnya untuk memberitahu kura-kura kecil kita kalau dia adalah anak adopsi.”


Read more...

3 permintaan seorang pemuda

Seorang Pemuda yang maniak pada masalah seks, ketika sedang mengembara menemukan lampu ajaib, dan ketika digosok muncullah jin yang sanggup memberikan tiga permintaan apa saja.
Maka berkatalah si pemuda:
“Pertama, saya ingin wajah saya menjadi semakin tampan. Kedua, saya ingin bodi saya menjadi semakin seksi. Ketiga, saya ingin kemaluan saya bisa sampai menyentuh tanah.”
Maka, jadilah dia seorang pemuda yang tampan, berbodi seksi, dan tanpa kedua kaki.

Read more...

Sepatu kulit buaya

Seorang perempuan sangat ingin mempunyai sepatu dari kulit buaya.
Dia pun pergi ke toko sepatu dan kecewa karena mahalnya.
“Mahal amat sih,” tanya si perempuan.
“Kalau ingin murah ya menangkap buaya sendiri sana,” kata si pemilik toko. Terinspirasi oleh perkataan si pemilik toko, perempuan tersebut pergi ke sungai besar di daerah situ sambil membawa senjata api.
Beberapa saat kemudian si pemilik toko datang dan terkagum-kagum ketika melihat tiga ekor buaya mati ditumpuk di pinggir sungai. Sementara itu si perempuan terlihat di tengah sungai sedang membidikkan senjatanya ke seekor buaya lainnya. Suara tembakan terdengar, kemudian si perempuan menyeret buaya keempat yang baru ditembaknya ke pinggir dan kemudian menyumpah, “Sialan! Yang ini juga tidak memakai sepatu.”

Read more...

Asal Muasal Teka Teki Silang

http://1.bp.blogspot.com/_vnQkkukmKR0/SxBiNRCZRAI/AAAAAAAAEAU/uY0YJ6y4Nk8/s1600/crossword2.jpg


Saat suntuk, atau kadang ketika harus menunggu sesuatu, kita seringkali mudah merasa bosan. Karena itu, berbagai cara kita lakukan. Mulai dari main game yang ada di handphone, mengobrol, hingga mengisi teka teki silang (TTS).

"teka teki silang"

Hal yang terakhir inilah yang sebenarnya paling menantang bagi sebagian orang. Sebab, sembari iseng, bisa sekaligus mengasah kemampuan otak dan menambah pengetahuan. Karena itu, penggemar TTS bisa dikatakan sangat merata. Baik orang remaja, orang dewasa, bahkan anak-anak pun kadang banyak yang memainkan permainan asah otak ini. Tak heran, berbagai media massa, seringkali memberikan TTS pada edisinya sehingga TTS ini menjadi sangat populer di berbagai belahan dunia.

http://4.bp.blogspot.com/_vnQkkukmKR0/SxBiNg6jjWI/AAAAAAAAEAc/VGuxgU33HIo/s1600/Image4.jpg

http://2.bp.blogspot.com/_vnQkkukmKR0/SxBiM4JcutI/AAAAAAAAEAE/GI-BIOc9dd8/s1600/%21B%28dfmjg%21Wk%7E%24%28KGrHgoOKicEjlLmZB%29tBKc,YgPGqw%7E%7E_12.jpg
http://1.bp.blogspot.com/_vnQkkukmKR0/SxBiNGrWtFI/AAAAAAAAEAM/KeHDLV_vpEI/s1600/crossword.gif



Read more...

19 November 2009

Dengan Yuwie Dapat Teman Dapat Dollar

Selama ini yang kita kenal dalam jasa social networking adalah friendster, facebook, myspace.etc tapi tahu gak berapa dollar yang mereka dapatkan?, sampai USD 20 Juta Dollar lebih dari iklan yg nongol di situs mereka
sedangkan kita sebagai pengguna atau orang yang menghidupkan social networking itu tak dapat sepeser pun

Beda dengan Yuwie

Berapa banyak uang yang bisa anda dapatkan dari Yuwie?
























Read more...

11 November 2009

Akhir Dari Komik Doraemon

Tahukan komik Doraemon? Nah... tau ga akhirnya...? Nih.. cukup sedih sob... mengharukan hikz hikz...
Nah Rizal.. .. ketemu.... tanpa sengaja begiinian saat keliling nyari berita & tgs2 kuliah di salah satu blog juga..^^

Read more...

10 November 2009

10 Virus Komputer Paling Mematikan Di Dunia


Read more...

4 Kota Terdingin Di Dunia

Mungkin beberapa pelancong mengharapkan tempat-tempat yang dingin untuk liburan. Alasannya bermacam-macam, ada yang bilang pengen main ski, tidak ingin kulit terbakar sinar matahari, atau ada yang ingin sengaja "membekukan" diri dari semua aktivitas pekerjaan. Kalau Anda tipe pelancong ini, kota-kota berikut ini pas buat Anda...



Read more...

Laut Yang Terbelah Dua Seperi Jaman Nabi Musa

Suatu kejadian alam yang sama sekali tidak ada kaitannya dengan kisah Mozes (Musa), the Ten Commandments dalam buku Exodus-Holy Bible.


Ini adalah penomena alam yang paling mengagumkam di Korea Selatan yang dinamai "Moses Miracle", dua kali setahun terjadi air surut, terbuka suatu alur daratan sepanjang 2.8 kilometer dan lebar 40 meteryang menghubungkan pulau Jindo dan Modo selama beber apa jam.

Read more...

Software Yang Mempercepat Internet Hingga 10x lipat

Koneksi internet anda lelet? Silahkan anda coba software Onspeed 6.0.9 , software ini bisa meningkatkan kecepatan internet anda hingga 10 kali lipat!!!(Dial-up – 10x Faster, Broadband – 5x Faster, Mobile connections – 8x Faster). Saya pribadi memang tidak menggunakan software ini (karena selama ini memakai koneksi lewat warnet terus), tapi bolehlah anda coba (taruh komentar anda ya... apakah software ini benar-benar berfungsi apa tidak)

Silahkan DOWNLOAD DISINI (Atau bisa kunjugi saja situsnya DISINI)

Download Flash Speed 200%
Download CfosSpeed
Download DSL Speed
Download Internet Turbo

Download Modem Boster
Download Firefox Ultimate Optimizer
Download add-on FasterFox

Download Google Web Accelerator


Download full Speed

Read more...

Fakta Unik Tentang Rokok Antara Mitos Dan Kebenaran



Seakan tidak ada kondisi terlalu miskin untuk rokok. Muklas (40-an), pemulung barang bekas di daerah Mampang, Jakarta Selatan, setiap hari menghabiskan sebungkus rokok seharga Rp 3.700. Penghasilannya tidak pasti, berkisar antara Rp 6.000 sampai Rp 15.000 sehari.

Read more...

Kebiasan Yang TIdak Di Sukai Wanita Dari Pria

Kisah cinta menjadi rangkaian yang indah memang tak mudah. Sering kali kerikilkerikil kecil datang dan membuat kisah cinta tak semanis yang dibayangkan. Salah satunya adalah masalah kebiasaan.


Tanpa disadari, kerap kali kebiasaan buruk membuat situasi kisah asmara tak sehangat dulu. Kebiasaan-kebiasaan buruk pasangan, disebutsebut menjadi salah satu pemicu terjadinya adu pendapat antara pasangan. Melihat lebih dekat mengenai kebiasaan buruk, Askmen memaparkan beberapa kebiasaan buruk pria yang amat dibenci wanita,di antaranya :

Read more...

7 Kebiasaan Manusia Yang Menghambat Kesuksesan


Anda mungkin sudah pernah membaca buku karangan Stephen R. Covey yang berjudul 7 Kebiasaan Manusia yang Sangat Efektif, yang juga merupakan salah satu buku best seller international. Jika anda belum pernah membacanya, saya sangat merekomendasikan buku tersebut kepada anda.

Buku wajib yang perlu anda miliki jika anda ingin mengembangkan kepribadian anda. Anda bisa mendapatkannya di toko-toko buku favorit anda.Pada kesempatan kali ini saya akan mensharingkan kepada anda kebiasaan-kebiasaan manusia dari sudut pandang yang berlawanan, yaitu 7 Kebiasaan Manusia yang Sangat TIDAK Efektif.

Read more...

Kamus Kantoran

Penting nih buat yang baru masuk kerja kantoran ato bahkan dah lama kerja tapi ga gaul2

ASAP
Singkatan dari As Soon As Possible, biasanya dipakai oleh atasan yang minta laporan dari bawahannya. Paling males dapet email yang subjectnya ASAP pake huruf gede. Biasanya laporan ini sifatnya dadakan bgt. Celakanya, bagi bawahan, laporan inilah yg biasanya paling lama dicuekin, alias gak diduga2 kalo sewaktu2 bos minta, walhasil..JEBRET! Lembur sampe pagi!

TENTATIVE
Kata sakti yang biasanya dipakai untuk menjelaskan sesuatu di masa depan yang kurang jelas menjadi lebih gak jelas. Apalagi kalo dalam suasana meeting yang udah sangat gak produktif dan super ngebosenin, kalo bisa semua keputusan bersifat tentative. Yang penting cepet pulang.

Read more...

10 kalimat bijak penghilang STRESSSSSSSSSS

1. Uang bukan segalanya. Masih ada Mastercard dan Visa.
2. Kita seharusnya menyukai binatang. Mereka rasanya lezat.
3. Hematlah air. Mandilah di bawah shower bersama ke kasih kita.
4. Di belakang setiap pria sukses ada seorang wanita hebat. Di belakang setiap pria
yang tidak sukses ada dua wanita.
5. Cintailah tetangga. Tetapi jangan sampai tertangkap basah.

Read more...

07 November 2009

Sesungguhnya wanita itu mutiara

Seorang pria perlu menyelam jauh ke dasarnya untuk mendapatkan kecantikan sesungguhnya. Karenanya, melihat dengan tanpa membuka tabir hatinya niscaya hanya semu sesaat yang seringkali mampu mengelabui mata.
Dan tentu untuk itu, pria tersebut harus memiliki bekal yang cukup sehingga layak dan pantas mendapatkan mutiara indah itu.

Wanita itu merupakan separuh dari jiwa yang hilang.
Maka seorang pria harus mencarinya dengan seksama, memilihnya dengan teliti,melihat dengan hati-hati sebelum menjadikannya pasangan jiwa.
Karena jika salah, ia tidak akan menjadi sepasang jiwa yang bisa
menghasilkan bunga-bunga cinta, melainkan noktah merah menyemai pertikaian.

Kecantikan wanita bukan terletak pada pakaian yang dikenakannya, bukan pada bentuk tubuhnya, atau cara dia menyisir rambutnya.
Kecantikan wanita terdapat pada matanya, cara dia memandang dunia.
Karena di matanya terletak gerbang menuju ke setiap hati manusia, di mana cinta dapat berkembang.
Kecantikan wanita bukan pada kehalusan wajahnya.
Tetapi kecantikan yang murni, terpancar pada jiwanya, yang dengan penuh kasih memberikan perhatian dan cinta dia berikan kepada Alloh ataupun kepada keluarga.
Dan kecantikan itu akan tumbuh sepanjang waktu.
Tak tidak rentan dimakan oleh waktu dan zaman.
Semarak cahaya kecantikan para wanita sesungguhnya tersembunyi dalam pribadinya masing-masing.
Untuk membentuk bibir yang menawan, ucapkan kata-kata kebaikan.
Untuk mendapatkan mata yang indah, carilah kebaikan pada setiap orang yang anda jumpai.
Untuk mendapatkan bentuk badan yang langsing, bagikanlah makanan dengan mereka yang kelaparan.
Untuk mendapatkan sikap tubuh yang indah, berjalanlah dengan segala ilmu pengetahuan, dan sesungguhnya ia tidak akan pernah berjalan sendirian.

Namun sikap yang tepat dan bijak harus diberikan seorang pria mengingat
wanita itu terbuat dari tulang rusuk yang bengkok, yang apabila terdapat
kesalahan padanya, pria harus berhati-hati meluruskannya.
Terlalu keras akan mematahkannya, dibiarkan juga salah karena akan tetap pada kebengkokannya. itulah rahasia wanita yg sesungguhnya.

Read more...

31 October 2009

Artikel Delphi Siap Download

Sesuai dengan janji saya dan request san temen2 semua akhirnya saya kan akan mempostingnya juga macam - macam artikel mengenai delphi yang dapat temen2 pelajari
tanpa harus membeli buku, disini saya berikan dalam bentuk PDF Semoga bermanfaat untuk teman2 semua ya,,,,,eits sebentar jgn lupa klik iklan sponsor blog ini ya cuma kli az kok.......he3x

Artikel Delphi :
1. Dasar Delphi



Selanjutnya akan saya ambah setiap 1 minggu satu artikel...................................

Read more...

30 October 2009






Read more...


25 October 2009

fungsi terbilang dengan delphi

  1. unit U_NumToWord;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5. StdCtrls;
  6. type
  7. TForm1 = class(TForm)
  8. ed_number: TEdit;
  9. Label1: TLabel;
  10. btn_ubah: TButton;
  11. Label2: TLabel;
  12. ed_word: TEdit;
  13. procedure btn_ubahClick(Sender: TObject);
  14. private
  15. { Private declarations }
  16. public
  17. { Public declarations }
  18. end;
  19. var
  20. Form1: TForm1;
  21. implementation
  22. {$R *.DFM}
  23. function Num2Word_Indonesian(dNumber: Extended): string;
  24. const
  25. aNum: array[1..9] of String[8] = ('satu', 'dua', 'tiga', 'empat', 'lima', 'enam', 'tujuh', 'delapan', 'sembilan');
  26. aUnit: array[1..5] of String[7] = ('trilyun', 'milyar', 'juta', 'ribu', '');
  27. var
  28. iCount, iDigit1, iDigit2, iDigit3: Integer;
  29. sNum2Str, s3Digit, sWord: string;
  30. begin
  31. Result := '';
  32. if (dNumber=0) then Exit;
  33. sNum2Str:=Copy(Format('%18.2f', [dNumber]), 1, 15);
  34. for ICount:=1 to 5 do
  35. begin
  36. s3Digit:=Copy(sNum2Str, iCount*3-2, 3);
  37. if (StrToIntDef(s3Digit, 0)<>0) then
  38. begin
  39. sWord:='';
  40. iDigit1:=StrToIntDef(Copy(s3Digit, 1, 1), 0);
  41. iDigit2:=StrToIntDef(Copy(s3Digit, 2, 1), 0);
  42. iDigit3:=StrToIntDef(Copy(s3Digit, 3, 1), 0);
  43. case iDigit1 of
  44. 2..9: sWord:=sWord+aNum[iDigit1]+' ratus ';
  45. 1: sWord:=sWord+'seratus ';
  46. end; { case }
  47. case iDigit2 of
  48. 2..9: sWord:=sWord+aNum[iDigit2]+' puluh ';
  49. 1: case iDigit3 of
  50. 2..9: sWord:=sWord+aNum[iDigit3]+' belas ';
  51. 1: sWord:=sWord+'sebelas ';
  52. 0: sWord:=sWord+'sepuluh ';
  53. end; { case }
  54. end; { case }
  55. if (iDigit2<>1) then
  56. case iDigit3 of
  57. 2..9: sWord:=sWord + aNum[iDigit3] + ' ';
  58. 1: if (iCount=4) and ((iDigit1+iDigit2)=0) then
  59. sWord:=sWord+'se'
  60. else
  61. sWord:=sWord+'satu ';
  62. end;
  63. Result:=Result+sWord+aUnit[iCount]+' ';
  64. end;
  65. end;
  66. while Result[Length(Result)]=' ' do
  67. SetLength(Result, Length(Result)-1);
  68. end;
  69. procedure TForm1.btn_ubahClick(Sender: TObject);
  70. var
  71. x: double;
  72. begin
  73. x:=strtoint(ed_number.Text);
  74. ed_word.Text:=Num2Word_Indonesian(x);
  75. end;
  76. end.
Saya dapat hasil serching d imbah google saya belum coba seh tpi coba az dulu...


Read more...

Tolong klik Iklan Sponsor...para pengunjung....

free counters

Sponsor

Get paid To Promote at any Location

  © Blogger templates The Professional Template by Ourblogtemplates.com 2008

Back to TOP