Langsung saja ya saya panjangkan posting ini untuk menjelaskan bagaimana cara membuat program terbilang dari delphi…
Silahkan baca dengan teliti
Langkah-langkah:
1. Buka aplikasi Delphi 7
2. Di form yang baru tambahkan beberapa komponen, yaitu: 2 label, 1 edit, 1 panel, dan 2 BitButton.
3. Atur BitButton 1 Caption : Ok; BitButton 2 Caption: Keluar 4. Masukkan source code kurang lebih
seperti berikut di BitButton1Clik
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;
5. 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','Sembilan','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-1000);
2000..9999: Result := Terbilang(n div 1000) + ' Ribu ' + Terbilang(n mod 1000);
End;
End;
6. Dan di BitButton2 Clik isikan source code berikut
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Application.Terminate;
end;
7. Run / jalankan program (F9) dan cek hasilnya.
Agar lebih mudah mempelajari dan mengembangkan, saya sertakan contoh programnya.
Download Program Terbilang dari Delphi 7 ( 174kB)
ConversionConversion EmoticonEmoticon