Bonekaku


Jumat, 19 Oktober 2012

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.


4 komentar:

  1. Terimakasih banyak..... sangat membantu

    BalasHapus
    Balasan
    1. Sama2, senang bisa membantu anda. Terima kasih sdh berkunjung ke blog saya.

      Hapus
  2. Kok msih eror yg d := bunga (a,b,c); nya kak?

    BalasHapus