CARA BIKIN PROGRAM KALKULATOR DENGAN DELPHI

Kalkulator

 

Source Code form 1 :

 

================================begin=================================

unit kalkulator;

 

interface

 

uses

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

  Dialogs, XPMan, StdCtrls, Menus, InFix;

 

type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Button6: TButton;

    Button7: TButton;

    Button8: TButton;

    Button9: TButton;

    Button10: TButton;

    Button11: TButton;

    Button13: TButton;

    Button14: TButton;

    Button15: TButton;

    Button16: TButton;

    Button17: TButton;

    Button18: TButton;

    Button19: TButton;

    MainMenu1: TMainMenu;

    File1: TMenuItem;

    Exit1: TMenuItem;

    About1: TMenuItem;

    Author1: TMenuItem;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);

    procedure Button9Click(Sender: TObject);

    procedure Button10Click(Sender: TObject);

    procedure Button11Click(Sender: TObject);

    procedure Button13Click(Sender: TObject);

    procedure Button14Click(Sender: TObject);

    procedure Button15Click(Sender: TObject);

    procedure Button16Click(Sender: TObject);

    procedure Button18Click(Sender: TObject);

    procedure Button19Click(Sender: TObject);

    procedure Button17Click(Sender: TObject);

    procedure Exit1Click(Sender: TObject);

    procedure Author1Click(Sender: TObject);

 

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

uses Unit2;

{$R *.dfm}

 

procedure TForm1.Button18Click(Sender: TObject);

begin

  edit1.Clear; {membersihkan edit1 yang berfungsi sebagai layar monitor}

end;

 

procedure TForm1.Button11Click(Sender: TObject);

var

nought : integer;

begin

  nought := 0;

  edit1.Text := edit1.Text + inttostr (nought); {mendefinisikan tombol}

end;

 

procedure TForm1.Button7Click(Sender: TObject);

var

one:integer;

begin

  one :=1;

  edit1.text := edit1.text + inttostr (one);

end;

 

procedure TForm1.Button8Click(Sender: TObject);

var

two : integer;

begin

 two :=2;

 edit1.Text := edit1.Text +inttostr (two);

end;

 

procedure TForm1.Button9Click(Sender: TObject);

var

  three: integer;

begin

  three := 3;

  edit1.Text := edit1.Text + inttostr(three);

end;

 

procedure TForm1.Button4Click(Sender: TObject);

var

  four: integer;

begin

  four := 4;

  edit1.Text := edit1.Text + inttostr(four);

  end;

 

procedure TForm1.Button5Click(Sender: TObject);

var

  five: integer;

begin

  five := 5;

  edit1.Text := edit1.Text + inttostr(five);

end;

 

procedure TForm1.Button6Click(Sender: TObject);

var

  six: integer;

begin

  six := 6;

  edit1.Text := edit1.Text + inttostr(six);

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var

  seven: integer;

begin

  seven := 7;

  edit1.Text := edit1.Text + inttostr(seven);

end;

 

procedure TForm1.Button2Click(Sender: TObject);

var

  eight: integer;

begin

  eight := 8;

  edit1.Text := edit1.Text + inttostr(eight);

end;

 

procedure TForm1.Button3Click(Sender: TObject);

var

  nine: integer;

begin

  nine := 9;

  edit1.Text := edit1.Text + inttostr(nine);

end;

 

procedure TForm1.Button13Click(Sender: TObject);

begin

  edit1.Text := edit1.Text + button13.caption;

end;

 

procedure EvaluateExp(Const MyExpr : string);  {mendefinisikan procedure EvaluateExp

var                                                                         untuk melakukan penghitungan}

MyErr  : Byte;

MyResult : Real;

begin

            MyErr := 0;

            MyResult := 0.0;

            InFix.RawCalculate(MyExpr, MyResult, MyErr);

            form1.Edit1.Clear;

            form1.Edit1.Text := floattostr(myresult);

end;

 

procedure TForm1.Button10Click(Sender: TObject);

begin

  EvaluateExp(edit1.text); {memanggil prosedur EvaluateExp ketika tombol 10 (=) di klik}

end;

 

procedure TForm1.Button15Click(Sender: TObject);

begin

  edit1.Text := edit1.Text + button15.caption;

end;

procedure TForm1.Button16Click(Sender: TObject);

begin

  edit1.Text := edit1.Text + button16.caption;

end;

 

procedure TForm1.Button14Click(Sender: TObject);

begin

  edit1.Text := edit1.Text + button14.caption;

end;

 

procedure TForm1.Button19Click(Sender: TObject);

begin

  edit1.Text := edit1.Text + button19.caption;

end;

procedure TForm1.Button17Click(Sender: TObject);

begin

edit1.Text:=floattostr(sqr(strtofloat(edit1.Text)));

end;

 

 

procedure TForm1.Exit1Click(Sender: TObject);

begin

     form1.Close; {menutup aplikasi ketika menu exit di klik}

end;

 

procedure TForm1.Author1Click(Sender: TObject);

begin

end;

 

end.

 

==================================end================================

Form 1: