Membuat Kalkulator Dengan BORLAN DELPHI 7

Design form ini untuk membuat kalkulator sederhana, tapi program ini hanya sederhana karena hanya dapat menghitung pengurangan, penjumlahan, perkalian dan pembagian. Setidaknya kita sudah bisa membuatnya dengan menggunakan Delphi 7.

Cara membuatnya juga tidak sulit, sangat sederhana dan hanya membutuhkan beberapa komponen yang ada di Menu Delphi 7. Untuk Lebihjelasnya langsung saja ke TKP.


Langkah pertama, siapkan form Delphi 7, seperti yang gambar di atas, komponen yang di butuhkan untuk membuat kalkulator sederhana adalah sebagai berikut :

Komponen	Name	Caption
Form	Form1	Kalkulator (judul program)
Label	Label1	Nilai 1
Label	Label2	Nilai 2
Label	Label3	Hasil
GroupBox	GroupBox1	(kosong)
Button	Button1	+ (additon)
Button	Button2	- (Reduction)
Button	Button3	X (Multiplication)
Button	Button4	: (Division)
Button	Button5	Clear
Button	Button6	Exit
Edit.text	Edit1.text	(kosong)
dit.text	Edit2.text	(kosong)
Edit.text	Edit3.text	(kosong)

Langkah kedua, masukkan script di bawah ini :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c : Double;
begin
  a:=StrToFloat(Edit1.Text);
  b:=StrToFloat(Edit2.Text);
  c:= a+b;
    Edit3.Text :=FloatToStr(c);

end;

procedure TForm1.Button2Click(Sender: TObject);
var
a,b,c : Double;
begin
  a:=StrToFloat(Edit1.Text);
  b:=StrToFloat(Edit2.Text);
  c:= a-b;
    Edit3.Text :=FloatToStr(c);


end;

procedure TForm1.Button3Click(Sender: TObject);
var
a,b,c : Double;
begin
  a:=StrToFloat(Edit1.Text);
  b:=StrToFloat(Edit2.Text);
  c:= a*b;
    Edit3.Text :=FloatToStr(c);


end;

procedure TForm1.Button4Click(Sender: TObject);
var
a,b,c : Double;
begin
  a:=StrToFloat(Edit1.Text);
  b:=StrToFloat(Edit2.Text);
  c:= a/b;
    Edit3.Text :=FloatToStr(c);


end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Edit1.Text :='';
Edit2.Text :='';
Edit3.Text :='';

end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Close
end;

end.

Silahkan Di Compile, jika sudah bisa di Compile maka Kalkulator Sederhana ini telah siap digunakan. Tapi jika masih ada yang error maka koreksi kembali script yang ada di Form dengan yang ada pada postingan ini. Oke jangan lupa Di Simpan Project tadi, jika tidak di simpan maka sia-sia kerja keras selama ini.