Membuat Calculator Sederhana

Alhamdulillah, pada kesempatan ini saya ingin berbagi sedikit ilmu yang saya peroleh tadi siang. Sesuai dengan judul artikel ini saya ingin memberikan tutorial membuat kalkulator sederhana menggunakan delphi 7. Langsung saja. Untuk pertama terlebih dulu kita buat komponen penyusunnya terlebih dahulu agar membentuk tampilan seperti berikut:

Tampilan Awal

dengan komponen utamanya sebagai berikut:
a. Edit1 utuk masukan bil 1.
b. Edit2 untuk masukan bil 2.
c. Edit3 untuk hasil.
d. Button1 untuk pengurangan.
e. Button2 untuk penjumlahan.
f. Button3 untuk perkalian.
g. Button4 untuk pembagian.
h. Button5 untuk Clear edit1,2, dan 3.
Untuk membuat kalkulator sederhana ini kita harus membuat variabel bil1,bil2, dan jumlah.
var
  Form1: TForm1;
  bil1,bil2,jumlah:real;


dan masukkan tiap listing dibawah ini sesuai dengan simbolnya
Pengurangan:

procedure TForm1.Button1Click(Sender: TObject);
begin
  bil1:=strtofloat(edit1.text);
  bil2:=strtofloat(edit2.text);
  jumlah:=bil1-bil2;
  edit3.Text:=floatTostr(jumlah);
end;

Penjumlahan:

procedure TForm1.Button1Click(Sender: TObject);
begin
  bil1:=strtofloat(edit1.text);
  bil2:=strtofloat(edit2.text);
  jumlah:=bil1+bil2;
  edit3.Text:=floatTostr(jumlah);
end;


Perkalian:

procedure TForm1.Button1Click(Sender: TObject);
begin
  bil1:=strtofloat(edit1.text);
  bil2:=strtofloat(edit2.text);
  jumlah:=bil1*bil2;
  edit3.Text:=floatTostr(jumlah);
end;


Pembagian:

procedure TForm1.Button1Click(Sender: TObject);
begin
  bil1:=strtofloat(edit1.text);
  bil2:=strtofloat(edit2.text);
  jumlah:=bil1/bil2;
  edit3.Text:=floatTostr(jumlah);
end;


Sehingga didapan listing keseluruhan program sebagai berikut:

var
  Form1: TForm1;
  bil1,bil2,jumlah:real;


implementation


{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
  bil1:=strtofloat(edit1.text);
  bil2:=strtofloat(edit2.text);
  jumlah:=bil1-bil2;
  edit3.Text:=floatTostr(jumlah);
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  bil1:=strtofloat(edit1.text);
  bil2:=StrToFloat(edit2.text);
  jumlah:=bil1+bil2;
  edit3.Text:=floatToStr(jumlah);
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
  bil1:=StrToFloat(edit1.text);
  bil2:=StrToFloat(edit2.text);
  jumlah:=bil1*bil2;
  edit3.Text:=floatToStr(jumlah);
end;


procedure TForm1.Button4Click(Sender: TObject);
begin
  bil1:=strtofloat(edit1.text);
  bil2:=strtofloat(edit2.text);
  jumlah:=bil1/bil2;
  edit3.Text:=floattostr(jumlah);
end;


procedure TForm1.Button5Click(Sender: TObject);
begin
  edit1.Clear;
    edit2.Clear;
      edit3.Clear;
end;


procedure TForm1.Edit1Change(Sender: TObject);
begin


end;
end.


Setelah semua ssource code diamsukkan pada tiap Button maka cobalah untuk dijalankan. Jika terjadi kesalah coba anda teliti kembali hingga aplikasi ini benar-benar dapat berjalan. Demikian saja artikel ringan ini, semoga bermanfaat. Terimakasih