Membuat Program Aplikasi Faktorial Dengan Delphi

    Program Aplikasi Faktorial

Langkah-langkah kerja:

1.    Komponen yang dibutuhkan.

Tabel 5.1 Daftar Komponen Program Aplikasi Faktorial

Komponen	Nomor	Properti	Nama
Form	-	Caption	Aplikasi Faktorial
Edit	1	Text	Kosongkan
	2		Kosongkan
BitButton	2	Kind	bkRetry
	3		bkClose
	1	Caption	&Proses
Label	1	Caption	Bilangan

2.    Aturlah letak komponen – komponen tersebut pada form seperti gambar di bawah ini :

Gambar 5.1 Desain Program Aplikasi Faktorial

3.    Klik ganda pada tombol “Proses” dan ketikkan sintak berikut ini:

procedure TForm1.BitBtn1Click(Sender: TObject);

var

b,c:integer;

begin

b:=strtoint(edit1.Text);

c:=b;

while b<>1 do

begin

b:=b-1;

c:=c*b;

end;

edit2.Text:=inttostr(c);

end;

4.    Klik ganda pada tombol “Retry” dan ketikkan sintak berikut ini:

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

edit1.Clear;

edit2.Clear;

edit1.SetFocus;

end;

5.    Terakhir silahkan eksekusi program aplikasi anda dengan meng-klik komponen Run pada Toolbar atau tekan tombol F9 pada keyboard. Maka akan tampil jendela seperti di bawah ini:

Gambar 5.2 Contoh Hasil Eksekusi Program Aplikasi Faktorial

6.    Simpanlah Program Aplikasi anda melalui: File à Save All, tempatkan di (D:). Simpan dengan nama folder “Praktikum Delphi V-a”, klik OK.