Program Delphi Membaca Inputan Berupa Angka Dan Menjadikannya Sebuah Kalimat Atau Ejaan Dari Angka Yang Diinputkan

Program yang bisa membaca inputan berupa
angka dan menjadikannya sebuah kalimat
atau ejaan dari angka yang di inputkan
(Terbilang.exe) .
Silahkan baca dengan teliti
Langkah-langkah :
1. Di form yang baru tambahkan beberapa
komponen, yaitu: 2 label, 1 edit, 1 panel, dan
2 BitButton.
2. Atur BitButton 1 Caption : Ok; BitButton 2
Caption: Keluar 4. Masukkan source code
kurang lebih
seperti berikut di BitButton1Clik
procedure TForm1.BitBtn1C lick(Sender:
TObject);
Var Digit1 : Char;
begin
If Edit1.text<>'' Then
Begin
If Edit1.text='0' Then Panel1.Caption: ='Nol'
Else Panel1.Caption: = TERBILANG(STRto INT
(Edit1.text) );
End
Else
Panel1.Caption: ='Kosong';
end;
3. Copypaste-kan FUNCTION berikut di
Form1.pas di BAWAH implementation
Function TERBILANG( n : longint) : String;
Const
Bil : Array[0..11] Of String[15] =
('','Satu','Dua ','Tiga','Empat ','Lima',
'Enam','Tujuh', 'Delapan','Semb
ilan','Sepuluh' ,'Sebelas');
Begin
Case n Of
0..11 : Result := Bil[n];
12..19 : Result := Terbilang(n-10) + ' Belas';
20..99 : Result := Terbilang(n div 10) + ' Puluh
' + Terbilang(n mod 10);
100..199 : Result := 'Seratus ' + Terbilang
(n-100 );
200..999 : Result := Terbilang(n div 100) + '
Ratus ' + Terbilang(n mod 100);
1000..1999: Result := 'Seribu ' + Terbilang
(n-100 0);
2000..9999: Result := Terbilang(n div 1000) +
' Ribu ' + Terbilang(n mod 1000);
End;
End;
4. Dan di BitButton2 Clik isikan source code
berikut
procedure TForm1.BitBtn2C lick(Sender:
TObject);
begin
Application.Ter minate;
end;
5. Run / jalankan program (F9) dan cek
hasilnya.