Cara membuat perhitungan bunga menggunakan delphi di Koperasi agung bakti

1. Design Form

2. Coding

unit Koperasi_Agung_Bakti;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    GroupBox1: TGroupBox;

    Label2: TLabel;

    Epeminjam: TEdit;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Epinjam: TEdit;

    Ebunga: TEdit;

    Elama: TEdit;

    ekembalian: TEdit;

    ecicil: TEdit;

    Btotal: TButton;

    Bbersih: TButton;

    Bclose: TButton;

    procedure BtotalClick(Sender: TObject);

    procedure BbersihClick(Sender: TObject);

    procedure BcloseClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

Function pangkat (x,y :real) :real;

begin

pangkat := exp(ln (x) *y) ;

end;

Function bunga ( f , g , h :real) :real;

begin

bunga := f * pangkat ((1 + g/100),h) ;

end;

procedure TForm1.BtotalClick(Sender: TObject);

Var

a,b,c,d,e : real;

begin

   a:= strtofloat (epinjam.text);

   b:= strtofloat (ebunga.text);

   c:= strtofloat (elama.text);

   d:= bunga (a,b,c);

   ekembalian.text :=floattostr(d);

   ekembalian.text := formatfloat ('#.###,0',d);

   e := d/c;

   ecicil.text := floattostr(e);

   ecicil.text :=formatfloat ('#.###,0',e);

end;

procedure TForm1.BbersihClick(Sender: TObject);

begin

Epinjam.text := '' ;

Elama. Text := '' ;

Epeminjam.text := '' ;

Ebunga.text := '';

Ekembalian.text := '';

Ecicil.text := '';

end;

procedure TForm1.BcloseClick(Sender: TObject);

begin

close;

end;

end.

3. Tampilan yang sudah running

Silahkan mencoba, kalau belum running mungkin ada nama yang gak sama di codingnya atau codingnya kurang tepat.