Terbilang

Pernah teman-teman melihat suatu kwitansi dengan tulisan terbilang?? Misal 1.000.000 terus angka itu di kenversi keterbilang menjadi "Satu Juta". Gimana ya carnya heeem....jagagn bingung ya, ini saya punya sedikit coding mungkin bisa membantu teman-teman semua ini coding nya. Jangan lupa deklarasikan dulu fungsinya dibawah nya Privete
function terbilang(x:integer):string; klo sudah ketikkan coding ini dibawah nya uses;
function Tform1.Terbilang(x: integer): string;
const abil : array[0..11] of string[10]=('','satu','dua','tiga',
'empat','lima','enam','tujuh','delapan','sembilan',
'sepuluh','sebelas');
begin
if (x<12) then Result:=' '+abil[x] else if (x<20) then Result:=Terbilang(x-10)+' belas' else if (x<100) then Result:=Terbilang(x div 10)+' puluh'+ Terbilang(x mod 10) else if (x<200) then Result:=' seratus'+ Terbilang(x-100) else if (x<1000) then Result:=Terbilang(x div 100)+' ratus'+ Terbilang(x mod 100) else if (x<2000) then Result:=' seribu'+ Terbilang(x-1000) else if (x<1000000) then Result:=Terbilang(x div 1000)+' ribu'+ Terbilang(x mod 1000) else if (x<1000000000) then Result:=Terbilang(x div 1000000)+' juta'+ Terbilang(x mod 1000000) else if (x<1000000000000) then Result:=Terbilang(x div 1000000000)+' milyar'+ Terbilang(x mod 1000000000); end; untuk menggunakannya cukup panggil nama fungsinya. Misal disini saya akan menampilkan hasil terbilang tersebut pada message maka perihtah "Showmessa(terbilang(100000))"

GeXpert

GeExpert merupakan salah satu tool tambahan delphi dan banyak sekali fungsi- fungsi nya. Salah satunya untuk membuat pesan atau message dengan cepat dan mudah, bisa jg utk membackup project, mengganti component dengan cepat tanpa merubah nama dari komponent dan masih banyak lagi temen-temen tertarik?? download saja disini

DelForex

Komponen yang satu ini cukup canggih dan sangat membantu kita sekali untuk menata coding pada delphi,
pakai saja komponen ini, pokok nya sip dech g' bakalan nyesal :)Download

Cara Instalasi Komponen Zeos

Halo sobat delphi, pada bagian ini saya akan coba utk sedikit membahas tentang tata cara instalasi VCL pada delphi, pada tulisan ini kita bahas cara instalsi komponen zeos yg berfungsi utk koneksi database MySql,MsSqlServer,Oracle dll.

1. Download dulu component zeos nya disini
2. Setelah berhasil didownload lalu ekstrak file nya
3. Selanjutnya cari file .dpk, sobat-sobat g' usah bingung klo ternyata didalam bnyk file-file .dpk. Disini saya akan coba jelaskan sedikit ttg file2 .dpk yg ada. Misal file ZMySql7.dpk tu artinya bahwa file ini merupakan komponen utk koneksi ke mysql sedang angka 7 merupakan jenis delphi nya jd klo sobat2 memakai delphi 6 or dibawah nya sobat2 pilih tinggal pilih aja sesuai dengan delphi yg sobat gunakan
4. Kalo sudah ketemu klik 2x pada file .dpk nya maka secara otomatis akan msuk ke delphi, setelah masuk ke delphi sobat klik instal
5. Kalo sudah terinstal semua jgn lupa copy libmysql nya cari ja file yg namanya "libmysql.dll" klo sudah ketemu copy file tersebut ke C:\WINDOWS\system
6. Selanjutnya sobat cari dan copy semua file2 .dcu yg dan .dcr nya ke C:\Program Files\Borland\Delphi7\Lib