Gelandang Internet yang mencoba melewati lorong sempit tanpa batas ruang dan waktu
Joint Venture Adsense

Program Konversi Angka Ke Huruf Dengan Delphi

· · 1 comments
Assalamu'alaikum, wr.wb

Cara Merubah Angka Menjadi Huruf di Delphi - Merubah angka menjadi huruf sangat diperlukan pada program-program seperti cetak kwitansi atau faktur. Misalnya ketika hasil pada sebuah edit box 1600 maka juga akan menampilkan bacaan "Seribu enam ratus" yang bisa ditampilkan pada label ataupun menggunakan sebuah panel.

Tips merubah angka menjadi huruf pada bahasa Delphi cukup mudah. Kita akan menggunakan sebuah panel sebagai penampung hasil konversi dari angka yang kita inputkan. Dan menggunakan sebuah function untuk proses konversi angka ke huruf pada program Delphi.

Supaya terlihat lebih bagus ketika prgram dijalankan, maka rekan harus mengosongkan editbox dan panel pada bagian object inspector. Untuk editbox hapus pada bagian text, sedangkan panel hapus pada bagian Caption.

Langkah-langkah konversi angka ke huruf pada delphi, Perhatikan tutorial dibawah ini dengan cara seksama dan dalam tempo yang sesingkat-singkatnya :

1. Desain form program seperti gambar berikut :
cara merubah angka ke huruf di delphi
2. Masukan mantera ini pada button konversi ke huruf dengan melakukan klik dua kali terlebih dahulu, kemudian copykan function tepat dibawah implementation :
contoh program konversi di delphi

//koding di button konversi
If Edit1.text<>'' Then
Begin
If Edit1.text='0' Then Panel1.Caption:='Nol'
Else Panel1.Caption:= TERBILANG(STRtoINT(Edit1.text));
End
Else
Panel1.Caption:='Kosong';

//function perhitungan letakan setelah implementation
function terbilang(dNumber: Extended): string;
const
 aNum: array[1..9] of String = ('satu', 'dua', 'tiga', 'empat', 'lima', 'enam', 'tujuh', 'delapan', 'sembilan');
 aUnit: array[1..5] of String = ('trilyun', 'milyar', 'juta', 'ribu', '');
var
 iCount, iDigit1, iDigit2, iDigit3: Integer;
 sNum2Str, s3Digit, sWord: string;
begin

Result := '';
 if (dNumber=0) then Exit;
 sNum2Str:=Copy(Format('%18.2f', [dNumber]), 1, 15);
 for ICount:=1 to 5 do
 begin
 s3Digit:=Copy(sNum2Str, iCount*3-2, 3);
 if (StrToIntDef(s3Digit, 0)<>0) then
 begin
 sWord:='';
 iDigit1:=StrToIntDef(Copy(s3Digit, 1, 1), 0);
 iDigit2:=StrToIntDef(Copy(s3Digit, 2, 1), 0);
 iDigit3:=StrToIntDef(Copy(s3Digit, 3, 1), 0);
 case iDigit1 of
 2..9: sWord:=sWord+aNum[iDigit1]+' ratus ';
 1: sWord:=sWord+'seratus ';
 end; { case }

case iDigit2 of
 2..9: sWord:=sWord+aNum[iDigit2]+' puluh ';
 1: case iDigit3 of
 2..9: sWord:=sWord+aNum[iDigit3]+' belas ';
 1: sWord:=sWord+'sebelas ';
 0: sWord:=sWord+'sepuluh ';
 end; { case }
 end; { case }

if (iDigit2<>1) then
 case iDigit3 of
 2..9: sWord:=sWord + aNum[iDigit3] + ' ';
 1: if (iCount=4) and ((iDigit1+iDigit2)=0) then
 sWord:=sWord+'se'
 else
 sWord:=sWord+'satu ';
 end;
 Result:=Result+sWord+aUnit[iCount]+' ';
 end;
end;
while Result[Length(Result)]=' ' do
SetLength(Result, Length(Result)-1);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
Var Digit1 : Char;
begin
If Edit1.text<>'' Then
Begin
If Edit1.text='0' Then Panel1.Caption:='Nol'
Else Panel1.Caption:= TERBILANG(STRtoINT(Edit1.text));
End
Else
Panel1.Caption:='Kosong';
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Application.Terminate;
end;

end.



Jalankan program conversinya, maka akan tampil seperti screenshot dibawah ini :
tips output huruf otomatis dari angka dengan delphi

Demikian tutorial cara konversi angka kehuruf dalam Bahasa Pemograman Delphi. Moga bermanfaat, begitulah. 


1 comments:

  1. wah kayaknya enak banget ya mas jika untuk belajar bahsa pemrogaman atau untuk membuat aplikasi dengan belajar dolphi, saya masih belum begitu paham nih dengan dolphi, bs belajar disini. makasih banyak sharingnya mas

    ReplyDelete

- Komentar yang mengandung hujatan, negatif akan dianggap spam
- Komentar link akan dilaporkan ke posyandu terdekat & tidak akan ditampilkan