Membuat program kalkulator sederhana dengan Delhpi 7

1. Buatlah komponen program seperti pada gambar berikut

           Komponen terdiri dari :

        

12.       Masukan kode program kedalam komponen button 1, 2, 3, 4, 5. Yang terdiri dari (+) tambah, (-) kurang, (*) kali, (/) bagi, dan CLOSE. Berikut kode programnya

Button1 (+) :

procedure TForm1.Button1Click(Sender: TObject);

var a,b,hasil:real;

begin

a:=StrToFloat(edit1.text);

b:=StrTofloat(edit2.text);

hasil:=a+b;

edit3.Text:=FloatToStr(hasil);

end;

Button2 (-) :

procedure TForm1.Button2Click(Sender: TObject);

var a,b,hasil:real;

begin

a:=StrToFloat(edit1.text);

b:=StrTofloat(edit2.text);

hasil:=a-b;

edit3.Text:=FloatToStr(hasil);

end;

Button3 (*):

procedure TForm1.Button3Click(Sender: TObject);

var a,b,hasil:real;

begin

a:=StrToFloat(edit1.text);

b:=StrTofloat(edit2.text);

hasil:=a*b;

edit3.Text:=FloatToStr(hasil);

end;

Button4 (/) :

procedure TForm1.Button4Click(Sender: TObject);

var a,b,hasil:real;

begin

a:=StrToFloat(edit1.text);

b:=StrTofloat(edit2.text);

hasil:=a/b;

edit3.Text:=FloatToStr(hasil);

end;

Button5 (CLOSE) :

procedure TForm1.Button5Click(Sender: TObject);

begin

close;

end;

end.


KETERANGAN :
StrToFloat, berfungsi merubah tipedata string menjadi tipe data real

3.    Compile program dengan cara menekan tombol F9, maka akan keluar tampilan seperti ini :

Terimakasih telah berkunjung, dan selamat mencoba.         

SALAM TEKNOLOGI!                              

Jika ada yang ingin ditanyakan silahkan kirimkan Email ke : @syahidan139@gmail.com