Source Code Kalkulator Sederhana Menggunakan Delphi 7

Assalamualaikum wr.wb

Kali ini admin akan share source code membuat kalkulator sederhana menggunakan bahasa pemrograman delphi 7. Kalkulator ini hanya bisa melakukan operasi penjumlahan,pengurangan,perkalian dan pembagian saja. Berikut source codenya

procedure TForm1.Button1Click(Sender: TObject);
var
nilai1,nilai2:real;
tambah:real;
begin
nilai1:=strtofloat(edit1.Text);
nilai2:=strtofloat(edit2.Text);
tambah:=nilai1+nilai2;
edit3.text:=floattostr(tambah);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
nilai1,nilai2:real;
kurang:real;
begin
nilai1:=strtofloat(edit1.text);
nilai2:=strtofloat(edit2.text);
kurang:=nilai1-nilai2;
edit3.Text:=floattostr(kurang);
end;

procedure TForm1.Button3Click(Sender: TObject);

var nilai1,nilai2:real;

kali:real;

begin

nilai1:=strtofloat(edit1.text);

nilai2:=strtofloat(edit2.text);

kali:=nilai1*nilai2;

edit3.Text:=floattostr(kali);

end;

procedure TForm1.Button4Click(Sender: TObject);

var

nilai1,nilai2:real;

bagi:real;

begin

nilai1:=strtofloat(edit1.text);

nilai2:=strtofloat(edit2.text);

bagi:=nilai1/nilai2;

edit3.Text:=floattostr(bagi);

end;

procedure TForm1.Button5Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;

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

untuk yang ingin mendownload codenya bisa klik disini

Demikian postingan tentang source code kalkulator sederhana menggunakan delphi semoga bermanfaat

Wassalamualaikum wr.wb