Fungsi Terbilang

Sahabat delphi, kali ini saya akan membahas tentang fungsi terbilang. Apa itu Fungsi Terbilang ? Menurut admin , fungsi terbilang merupakan penjabaran yang digunakan pada saat transaksi penjualan yang bisa menunjukkan lafal huruf dari angka menjadi huruf. Contohnya Rp. 1.000,- menjadi seribu rupiah, Rp. 125.000,- menjadi seratus dua puluh lima ribu rupiah, dan lain lain. Oke tidak usah pikir panjang langsung saja kita praktekkan.

1. Buka IDE Delphi
2. Pada form delphi tambahkan :


• Label
• Edit Text
• Button 1
  
  
  Contoh gambar di atas
3.  Masukkan function di bawah implementation {$R *.dfm}

   //=========================
   // Fungsi Terbilang
   function terbilang(sValue: string):string;
   const
   Angka : array [1..20] of string =
   ('', 'Satu ', 'Dua ', 'Tiga ', 'Empat ',
   'Lima ', 'Enam ', 'Tujuh ', 'Delapan ',
   'Sembilan ', 'Sepuluh ', 'Sebelas ',
   'Duabelas ', 'Tigabelas ', 'Empatbelas ',
   'Limabelas ', 'Enambelas ', 'Tujuhbelas ',
   'Delapanbelas ', 'Sembilanbelas ');
   sPattern: string = '000000000000000';
   
   var
   S,Rupiah : string;
   Satu, Dua, Tiga, Belas, Gabung: string;
   Sen, Sen1, Sen2: string;
   Hitung : Extended;
   one, two, three: integer;
   
   begin
   One := 4;
   Two := 5;
   Three := 6;
   Hitung := 1;
   Rupiah := '';
   S := copy(sPattern, 1, length(sPattern) - length(trim(sValue))) + sValue;
   Sen1 := Copy(S, 14, 1);
   Sen2 := Copy(S, 15, 1);
   Sen := Sen1 + Sen2;
   while Hitung < 5 do
   begin
   Satu := Copy(S, One, 1);
   Dua := Copy(S, Two, 1);
   Tiga := Copy(S, Three, 1);
   Gabung := Satu + Dua + Tiga;
   
   if StrToInt(Satu) = 1 then
   Rupiah := Rupiah + 'Seratus '
   else
   if StrToInt(Satu) > 1 Then
   Rupiah := Rupiah + Angka[StrToInt(satu)+1] + ' Ratus ';
   
   if StrToInt(Dua) = 1 then
   begin
   Belas := Dua + Tiga;
   Rupiah := Rupiah + Angka[StrToInt(Belas)+1];
   end
   else
   if StrToInt(Dua) > 1 Then
   Rupiah := Rupiah + Angka[StrToInt(Dua)+1] + ' Puluh ' +
   Angka[StrToInt(Tiga)+1]
   else
   if (StrToInt(Dua) = 0) and (StrToInt(Tiga) > 0) Then
   begin
   if ((Hitung = 3) and (Gabung = '001')) or
   ((Hitung = 3) and (Gabung = ' 1')) then
   Rupiah := Rupiah + 'Seribu '
   else
   Rupiah := Rupiah + Angka[StrToInt(Tiga)+1];
   end;
   
   if (hitung = 1) and (StrToInt(Gabung) > 0) then
   Rupiah := Rupiah + ' Milyar '
   else
   if (Hitung = 2) and (StrToInt(Gabung) > 0) then
   Rupiah := Rupiah + ' Juta '
   else
   if (Hitung = 3) and (StrToInt(Gabung) > 0) then
   begin
   if (Gabung = '001') or (Gabung = ' 1') then
   Rupiah := Rupiah + ''
   else
   Rupiah := Rupiah + ' Ribu ';
   end;
   Hitung := Hitung + 1;
   One := One + 3;
   Two := Two + 3;
   Three := Three + 3;
   end;
   if length(Rupiah) > 1 then Rupiah := Rupiah + ' Rupiah ';
   Result := Rupiah;
   end;
   // End Terbilang

   
   
4. Kemudian untuk menampilkan pada label1 ketika di ketik angka pada edit text 1 pada masukkan codes ini pada button1
   

   procedure TForm1.Button1Click(Sender: TObject);
   begin
   label1.caption := terbilang(Edit1.Text);
   end;

   
   
5. Simpan dan compile
6. Demikian yang bisa saya sampaikan. Terima kasih.

Fungsi Terbilang 2015-05-22T21:55:00+07:00 Rating: 4.5 Diposkan Oleh: Unknown