Pembulatan Bilangan dengan Delphi #149

andrypein.net : Untuk membuat aplikasi pembulatan bilangan dengan delphi, diperlukan fungsi.

Fungsi ini membulatkan angka dibelakang koma sehingga pembulatannya apakah keatas atau kebawah.

Contoh hasil akhir bisa di liat di gambar :

Bahannya cukup 2 buah text dan 1 button :

Lanjut berikut adalah fungsi pembulatannya :

function pembulatan(x:extended):longint;
begin
  result:=trunc(x);
  if frac(x) >= 0.5 then
    result:=result+1;
end;

Fungsi ini dpanggil pada button OnClick yang hasilnya akan ditampilkan pada edittext.

procedure TForm2.Button1Click(Sender: TObject);
begin
  edit2.Text:=inttostr(pembulatan(strtofloat(edit1.Text)));
end;

DONE, apps pembulatan bilangan dengan delphi selesai dan bisa di unduh disini gan.

Download

*AFK