Pelajaran Delphi Hari Ini

Pelajaran dari kak Ilam hari ini mayan juga ... mempelajari tentang function yang ada di delphi... alhamdulilah anak2 dikelas semua pada bisa ...

Sekedar mengingat ... programnya dan listingnya

Double Klik di Button hitung terus tusli listing dibawah ini.

function bunga (x,y:real):real;
begin
bunga:=(x*y/100+x);
end;

function hitung(e,f:real):real;
begin
hitung:=bunga(e,f);
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,e:real;
begin
a:=strtofloat(ejumlah.Text);
b:=strtofloat(ebunga.Text );
c:=strtofloat(elama.Text );
d:=hitung(a,b);
ebayar.Text :=floattostr(c);
ebayar.Text :=formatfloat('#.###,',d);
e:=d/c;
ecicil.Text :=floattostr(e);
ecicil.Text :=formatfloat('#.###,0',e);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
enama.Text :='';
ejumlah.Text :='';
elama.Text :='';
ebayar.Text :='';
ecicil.Text :='';
ebunga.Text :='';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close
end;

end.