Membuat aplikasi kalkulator mini dengan Delphi

Membuat aplikasi kalkulator mini dengan menggunakan Delphi

1.       Buka aplikasi Delphi

2.       Buat project aplikasi baru dengan cara klik File -> New -> Application, maka dengan otomatis project terbentuk dengan form1

3.       Lalu kita ubah properties Caption form1 pada Object Inspector, lalu ubah dengan nama Aplikasi Kalkulator Mini

4.       Lalu buatlah 2 label dari Component Palette dengan diberi caption Bilangan 1 dan Bilangan 2

5.       Setelah itu buat 2 EditText ubah properties nama pada edit text dengan nama etBil1, dan etBil2

6.       Buat 4 button untuk operator aritmatika, +, -, *, dan /

7.       Langkah berikutnya yaitu dengan membuat action pada tombol yan sudah kita buat

8.       Klik dua kali pada tombol +, kemudian ketikkan script berikut ini

procedure TForm1.TambahClick(Sender: TObject);

  var a, Hasil:integer;

begin

     a := StrToInt(Edit1.Text)+StrToInt(Edit2.Text);

     Hasil := a;

     Panel1.Caption:=IntToStr(hasil);

end;

end.

9.       Lakukan hal yang sama pada operator menghitung lainnya, tinggal diganti operator aritmatila sesuai dengan action tombol yang akan diklik

procedure TForm1.KurangClick(Sender: TObject);

  var a, Hasil:integer;

begin

     a := StrToInt(Edit1.Text)+StrToInt(Edit2.Text);

     Hasil := a;

     Panel1.Caption:=IntToStr(hasil);

end;

end.

procedure TForm1.KaliClick(Sender: TObject);

  var a, Hasil:integer;

begin

     a := StrToInt(Edit1.Text)+StrToInt(Edit2.Text);

     Hasil := a;

     Panel1.Caption:=IntToStr(hasil);

end;

end.

procedure TForm1.BagiClick(Sender: TObject);

  var a,Hasil:float;

       

begin

     a := StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text);

     Hasil := a;

     Panel1.Caption:=FloatToStr(hasil);

end;

end.

Tarraaa

Aplikasi anda sudah selesai dibuat, coba dirun aplikasinya, apabila masih menemukan kesalahan bisa diperbaiki lalu coba dirun kembali, semoga sukses

Created by : Andreas Billy Sutandi :)