Pembuatan Kalkulator Sederhana Menggunakan Delphi

“PEMBUATAN KALKULATOR”

1.      Hal yang pertama harus dilakukan adalah membuka program Delphi 7 yang telah anda install.

2.      Lalu aka ada tampilan sebuah form yang berfungsi sebagai tempat anda membuat program.

 

3.      

Untuk membuat program kalkulator, hal yang harus anda lakukan adalah membuat 3 buah label, 3 buah edit, dan 3 buah button (semua berada dibawah tombol-tombol toolbar) seperti gambar dibawah ini.

4.       Agar program yang kita buat lebih menarik, kita dapat mengganti font dan warna baground dari form tersebut.

5.      

Maka form yang akan kita buat akan menjadi seperti gambar

Setelah itu, baru kita masukkan kodingnya satu persatu. Yang pertama adalah button clear. Kodingnya adalah:

·         edit1.Clear;

·         edit2.Clear;                             

·         edit3.Clear;

7.      lalu kita masukkan kodingan yang lainnya seperti tombol (+), tombol (-), dan yang lainnya. Kodingnya adalah :

·         procedure TForm1.Button1Click(Sender: TObject);

begin

edit3.Text:=floattostr(strtofloat(edit1.Text)+strtofloat(edit2.Text));

end;

·         procedure TForm1.Button2Click(Sender: TObject);

begin

edit3.Text:=floattostr(strtofloat(edit1.Text)-strtofloat(edit2.Text));

end;

·         procedure TForm1.Button3Click(Sender: TObject);

begin

edit3.Text:=floattostr(strtofloat(edit1.Text)*strtofloat(edit2.Text));

end;

·         procedure TForm1.Button4Click(Sender: TObject);

begin

edit3.Text:=floattostr(strtofloat(edit1.Text)/strtofloat(edit2.Text));

      setelah itu, maka kita dapat menjalankan program kalkulator yang telah dibuat.