Membuat Kalkulator sederhana dengan Delphi 7

Listing Program

Berikut merupakan langkah-langkah membuat program penilaian:

1.      Buka aplikasi Delphi 7 pada desktop  atau melalui tombol star

2.      Mulai memasukkan gambar melalui drag & drop sehingga menjadi seperti ini:

Menghapus dan mengubah perintah edit 1, 2, 3 dan button 1, 2, 3, 4, 5 agar saat di Run, perintah edit kosong dan bisa memasukkan angka sembarang, sedangkan perintah button diganti captionnya untuk perintah +, -, *, / dan tombol EXIT disesuaikan dengan source code masing-masing.

3.      Kemudian klik simbol “+” untuk membuat source code mengenai penjumlahan, kemudian masukkan souce codenya:

Saya menggunakkan a sebagai integer dan b sebagai integer dan memakai fungsi StrToInt untuk mengubah string menjadi integer dan fungsi IntToStr untuk mengubah integer menjadi string.

4.      Kemudian klik simbol “-“ untuk membuat source code mengenai pengurangan:

Saya menggunakkan a sebagai integer dan b sebagai integer dan memakai fungsi StrToInt untuk mengubah string menjadi integer dan fungsi IntToStr untuk mengubah integer menjadi string.

          Kemudian klik simbol “*” untuk membuat source code mengenai perkalian:

Saya menggunakkan a sebagai integer dan b sebagai integer dan memakai fungsi StrToInt untuk mengubah string menjadi integer dan fungsi IntToStr untuk mengubah integer menjadi string.

6.      Kemudian klik lambang “/” untuk membuat source code mengenai pembagian:

Saya menggunakkan a sebagai integer dan b sebagai integer dan memakai fungsi StrToInt untuk mengubah string menjadi integer dan fungsi IntToStr untuk mengubah integer menjadi string.

     Lalu diakhir ada sebuah button dengan tulisan “Exit” yang juga harus diberi source code seperti ini:

Saya menggunakan application.terminate untuk mengclose program ketika dirun dan kembali ke form awal.

Setelah semua ini dilakukan semua source code yang telah ditulis akan otomatis menjadi satu seperti ini:

unit LA1;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var a,b:integer;

begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

Edit3.Text:=IntToStr(a+b);

end;

procedure TForm1.Button2Click(Sender: TObject);

var a,b:integer;

begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

Edit3.Text:=IntToStr(a-b);

end;

procedure TForm1.Button3Click(Sender: TObject);

var a,b:integer;

begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

Edit3.Text:=IntToStr(a*b);

end;

procedure TForm1.Button4Click(Sender: TObject);

var a,b:real;

begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

Edit3.Text:=FloatToStr(a/b);

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

application.terminate;

end;

end.

Setelah source code berhasil dibuat, program baru bisa dijalankan dengan mengklik “Play” , maka akan keluar tampilan seperti ini: 

Ini merupakan contoh dari tampilan program tersebut:

·         Penjumlahan

·         Pengurangan

·         Perkalian

·         Pembagian