"Ilmu yang bermanfaat" adalah salah satu kunci naungan Allah kepada kita di padang Masyar.

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.

No comments:

Post a Comment