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 :
2. Masukan mantera ini pada button konversi ke huruf dengan melakukan klik dua kali terlebih dahulu, kemudian copykan function tepat dibawah implementation :
Jalankan program conversinya, maka akan tampil seperti screenshot dibawah ini :
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 :
2. Masukan mantera ini pada button konversi ke huruf dengan melakukan klik dua kali terlebih dahulu, kemudian copykan function tepat dibawah implementation :
//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.
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 :
Demikian tutorial cara konversi angka kehuruf dalam Bahasa Pemograman Delphi. Moga bermanfaat, begitulah.
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