Program Aplikasi FPB dan KPK Menggunakan Delphi

Assalamu'alaikum Wr Wb

Salam Dellab...

OK, kembali lagi dalam berbagi ilmu pengetahuan. Kali ini saya mau mengajarkan cara membuat program aplikasi KPK dan FPB. Lansung saja ya, perhatikan gambar berikut ini.

Jadi, silahkan atur komponen seperti di atas, kemudian tuliskan script berikuti ini.

Langkah 1. Pilih Edit1, kemudian di Object Inpector --> Event -- > OnKeyPress double klik, kemudian tulis sintak ini.

procedure TForm7.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if (Key > #47) and (Key < #58) or (Key = #13) or (Key = #8) then

else

Key := #0;

begin

if key=#13 then

begin

edit2.SetFocus;

end;

end;

Kemudian di Edit2, tulis sintak yang ini

if (Key > #47) and (Key < #58) or (Key = #13) or (Key = #8) then

else

Key := #0;

begin

if key=#13 then

begin

BitBtn1.SetFocus;

end;

end;

Langkah 2. Buatlah function untuk FPB dan KPK di bawah tulisan {$R *.dfm}

function FPB(m,n:longint):longint;

begin

  if n = 0  then

   FPB:=m

  else

   FPB := FPB(n, m mod n);

end;

function KPK(m,n:longint):longint;

begin

   KPK:=(m*n) div FPB(m,n);

   end;

Langkah 3. Double klik di tombol Hitung, kemudian ketik sintaksis ini.

var

   Bil1, Bil2, Hasil1, Hasil2 : Longint;

begin

   Bil1 := StrToInt(edit1.Text);

   Bil2 := StrToInt(edit2.Text);

   Hasil1 := KPK(Bil1, Bil2);

   Hasil2:=FPB(Bil1,Bil2);

   edit3.Text := IntToStr(Hasil1);

   edit4.Text:=inttostr(Hasil2);

   end;

Langkah 4. Tulis sintaksis ini di tombol Hapus.

edit1.Clear;

edit2.Clear;

edit3.Clear;

edit4.Clear;

edit1.SetFocus;

Akhirnya jadi juga. Jika Anda ingin melihat cara menemukan hasil FPB dan KPK tersebut Anda bisa gunakan program Aplikasi Algoritma Euclid yang sudah saya bagikan sebelumnya. Kemudian buatlah sebuah tombol pemanggil file atau bisa Anda buatkan MainMenu di program ini agar lebih terlihat indah.

OK saudaraku, sampai di sini dulu berbagi ilmunya. Sampai ketemu lagi. Salam Dellab.

Wassalamu’alaikum Wr Wb.