Cara Membuat Kalkulator Dengan Delphi 7

Akhirnya bisa posting juga nih.. untuk Cara Membuat Kalkulator dengan Delphi 7.
Jadi sekarang ada 3 bahasa pemrograman cara membuat kalkulator yaitu dengan vb 6, java dan sekarang dengan delphi.

Hmm... berarti masih ada PR dengan menggunakan VBNET dan PHP.
(Malah ngelantur sih... Wkwkw.. )

Membuat kalkulator dengan delphi ini cukup singkat dibandingkan dengan bahasa pemprograman sebelumnya, untuk lebih jelasnya silahkan di copas syntak dari file unit1.pas ini :

{
=====================================
Kalkulator Sederhana
http://membuataplikasi.blogspot.com
=====================================
}
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btnAngka1: TButton;
    Memo1: TMemo;
    btnAngka2: TButton;
    btnAngka3: TButton;
    btnAngka4: TButton;
    btnAngka5: TButton;
    btnAngka6: TButton;
    btnAngka7: TButton;
    btnAngka8: TButton;
    btnAngka9: TButton;
    btnAngka0: TButton;
    btnHitung: TButton;
    btnOperatorTambah: TButton;
    btnOperatorKurang: TButton;
    btnOperatorKali: TButton;
    btnOperatorBagi: TButton;
    Button1: TButton;
    procedure AssignAngka(Ank: string);
    procedure AssignOperator(Op: string);
    procedure FormCreate(Sender: TObject);
    procedure btnHitungClick(Sender: TObject);
    procedure btnOperatorTambahClick(Sender: TObject);
    procedure btnOperatorKurangClick(Sender: TObject);
    procedure btnOperatorKaliClick(Sender: TObject);
    procedure btnOperatorBagiClick(Sender: TObject);
    procedure btnAngka1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Operator:String;
  Angka : array [1..2] of integer;
  Reset:Boolean;
  IndexAngka:integer;

implementation

{$R *.dfm}

procedure TForm1.AssignAngka(Ank:string);
begin
   {Angka}
   if(Reset = true) then
   begin
      IndexAngka := 2;
      memo1.Lines.Text := ank;
      Angka[IndexAngka] := strtoint(ank);
      Reset := false;
   end
   else
   begin
      memo1.Lines.Text := memo1.Lines.Text + ank;
      Angka[IndexAngka] := strtoint(memo1.Lines.Text);
   end;
end;

procedure TForm1.AssignOperator(Op:string);
begin
   {Operator}
   if(Angka[2] <> 0) then
    btnHitungClick(nil);
   Operator := Op;
   reset:= true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  IndexAngka:=1;
end;

procedure TForm1.btnHitungClick(Sender: TObject);
begin
  if(Operator = '+') then
    Angka[1] := Angka[1] + Angka[2]
  else if(Operator = '-') then
    Angka[1] := Angka[1] - Angka[2]
  else if(Operator = 'x') then
    Angka[1] := Angka[1] * Angka[2]
  else if(Operator = '/') then
    Angka[1] := Angka[1] div Angka[2];
  Angka[2] := 0;
  Memo1.Lines.Text := inttostr(Angka[1]);
end;

procedure TForm1.btnOperatorTambahClick(Sender: TObject);
begin
  AssignOperator((Sender as TButton).Caption);
end;

procedure TForm1.btnAngka1Click(Sender: TObject);
begin
  AssignAngka((Sender as TButton).Caption);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  IndexAngka:=1;
  Memo1.Lines.Clear;
end;

end.

Syntax diatas dibuat setelah membuat design seperti pada tampilan kalkulatornya.

Bagaimana, cukup mudahkan.. ?

Tapi jika masih belum jelas juga, silahkan langsung donwload saja source code delphinya. 

download

Mudah-mudahan artikel ini bisa menambah untuk referensi belajar kita dan tunggu artikel cara membuat aplikasi delphi lainnya.

Silahkan kunjungi artikel kalkulator sebelumnya :
cara membuat kalkulator dengan java netbeans
cara membuat aplikasi kalkulator dengan vb 6