Merubah Numeric ke Teks(Nominal Rupiah)

Setelah sekian lama ga posting tentang masalah pemrogaman, kali ini saya akan membeberkan cara mengubah angka menjadi teks pada Crystal Report. Untuk selanjutnya ini akan saya sebut sebagai “Fungsi Terbilang” Setelah aku menguji berkali-kali keampuhan progam ini dalam project yang sedang saya kerjakan sekarang, kesimpulannya adalah tret…tet…te…t..teeeeett….”Lulus Uji” hehehe…… Sebelumnya saya memberitahukan bahwa Formula pada Crystal Report dapat ditulis dengan 2 macam bahasa(saya menggunakan Visual Basic.Net 2003)  yaitu Crystal Syntax dan Basic Syntax. Progam yang saya tampilkan disini menggunakan Crystal Syntax.So, lets get in on!!

Dengan asumsi bahwa database atau dataset udah dipersiapkan, maka Step-step untuk menggunakan syntax ini adalah :

1. Seperti biasanya dan seperti artikel saya sebelumnya hal pertama yang dilakukan mesti mengucap niat dan berdoa.Karena dengan niat semua hal yang akan kita lakukan pasti akan lancar (***iya iya pak ustadz Nando***)xixixix
2. Langkah kedua adalah menyisipkan Formula pada Report,karena syntax ini jalan pada Formula Caranya adalah pada Field Explorer cari Formula,kemudian klik kanan setelah itu pilih New.Isi nama Formula
3. Drag n Drop Formula yang baru kita bikin ke dalam Report.
4. Pada Fungsi Terbilang ini membutuhkan parameter yang berupa integer. Parameter yang dimasukkan bisa dari Field Database atau dari Formula yang sudah bertipe Integer.
5. Untuk parameter yang dimasukkan dari Field Database caranya adalah cari Field yang berada pada Database Field (tipenya harus Integer) kemudian drag n drop letakkan pada Report.
6. Klik kanan Formula yang baru kita buat tadi kemudian pilih Edit Formula. Copy n paste syntax yang aku posting dalam tulisan ini.
7. Pada Fungsi Terbilang di baris pertama kan ada syntax :

stringvar angkatoteks :=totext({Masukkan parameter disini}) ; Lha yang “Masukkan parameter disini” tu isikan dengan field yang akan kita proses. Cara mengisinya adalah arahkan kursor pada bagian parameter Fungsi Terbilang. Setelah itu pada bagian Reports Fields cari Field yang akan kita jadikan parameter,kemudian klik dua kali dan VOILA!!!! secara ajaib fields udah berhasil masuk ke parameter Fungsi Terbilang hehehe(****biasa aja kaleeeee!!!***)

8. Jadi setelah kita masukkan parameternya akan nampak seperti ini : stringvar angkatoteks :=totext({REKAP_VOUCHER_BUKTI.JUMLAH}) ; REKAP_VOUCHER_BUKTI adalah Nama Dataset JUMLAH adalah Nama Field
9. Tekan Ctrl+S untuk menyimpan Formula ini
10. Jalankan progam,jangan lupa menutup mata bagi yang ga yakin ini akan berjalan dengan sukses xixixixixix

Untuk menggunakan Formula sebagai parameter langkah-langkahnya sama seperti diatas,tapi pastikan Formula yang dijadikan parameter udah berformat Integer. Sedikit tips untuk merubah format Formula ke integer : – Klik kanan formula  yang akan kita convert kemudian pilih edit formula – Ketik Cdbl({Isi dengan Field yang akan kita convert ke tipe data Double}) Cdbl juga bisa diganti dengan Cint – Kemudian simpan (Ctrl + S) Fiuuuhhh…….. Sekian dulu Tipsnya aku mo bobo’ dulu da ngantuuuk n cape banget tadi soalnya cari perdana StarOne di Jakarta susah ampyun. Di counter2 banyak sih,emang aku aja yang males nyari(***apaan sih???? ga penting banget dech n udah melenceng dari topik***) Ni skripnya :

stringvar angkatoteks :=totext({Masukkan Parameter disini}) ;

stringVar array angka := ["nol", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan", "se"];

stringVar array satuan := ["belas", "puluh", "ratus", "ribu", "juta", "milyar", "triliun", "billiun"];

stringvar nil1;

stringvar nil2;

numbervar b;

stringvar a;

stringvar strtblg;

stringvar array matrix := ["","","","","","","","","","",""];

numbervar i;

numbervar j;

booleanvar nol;

b:=1;

a:=”";

nil2:=”";

strtblg = “”;

nil1:= “”;

for i := 1 to len(angkatoteks)-3  do

(

if mid((angkatoteks),i,1) = “,” then

nil1 := nil1

else

nil1 := nil1 & mid((angkatoteks),i,1);

);

nil2 := totext(nil1);

if len(nil2) >= 22 then

strtblg = “”

else

(

for i := len(nil1) to 1 step -1 do

(

if len(nil1) = 4 then

(

matrix[b] := right(nil2,4);

b:=b+1;

i:=i-3;

if len(nil2) – 4 >=1 then

nil2 := left(nil2, len(nil2) – 4)

else

nil2:=nil2;

)

else

(

matrix[b] := right(nil2,3);

b:=b+1;

i:=i-2;

if len(nil2) – 3 >=1 then

nil2 := left(nil2, len(nil2) – 3)

else

nil2:=nil2;

);

);

strtblg := “”;

for j := b – 1 to 1 step -1 do

(

nil2:=matrix[j];

nol:= false;

for i := 1 to len(matrix[j]) do

(

a := mid(matrix[j],i,1);

if a = “1″ then

(

if tonumber(mid(nil2,1,1))=0 then

(

if i = 1 then nol := true;

);

if mid(matrix[j],i+1,1)= “1″ and len(nil2) = 2 then

(

strtblg := strtblg & angka[11] & satuan[1] & ” “;

i := len(matrix[j]) + 1;

)

else if mid(matrix[j],i+1,1)= “0″ and len(nil2) = 2 then

(

strtblg := strtblg & angka[11] & satuan[2] & ” “;

i := len(matrix[j]) + 1;

)

else if len(nil2) = 1 then

(

strtblg := strtblg & angka[tonumber(a)+1] & ” “;

0;

)

else if tonumber(mid(matrix[j],i+1,1)) > 1 and len(nil2) =  2 then

(

strtblg := strtblg & angka[tonumber(mid(matrix[j],i+1,1))+1] & ” ” & satuan[1] & ” “;

i := len(matrix[j]) +1;

)

else

(

strtblg := strtblg & angka[11] & satuan[len(nil2)] & ” “;

0;

);

)

else

(

if tonumber(mid(nil2,1,1)) = 0 then

(

if i = 1 then nol := true;

)

else if len(nil2) = 1 then

(

strtblg := strtblg & angka[tonumber(a)+1] & ” “;

nol := false;

)

else

(

strtblg := strtblg & angka[tonumber(a)+1] & ” ” & satuan[len(nil2)-1+1] & ” “;

nol := false;

);

0;

);

if i <= len(matrix[j]) then nil2 := right(nil2,len(matrix[j])-i);

);

if j >= 2 and nol = false  then strtblg := strtblg & satuan[j+2] & ” “;

);

);

strtblg & “rupiah.”;