Membuat kalkulator sederhana dengan Delphi

Di sini saya akan membagikan cara membuat kalkulator menggunakan sebuah aplikasi pemrograman yaitu Delphi. Berikut langkahnya :

1.   Buka aplikasi Delphi, buat seperti form di bawah in

KET :

 1. Label 1

 2. Label 2

 3. Button 2

 4. Button 1

 5. Button 3

 6. Button 4

 7. Edit 1

 8. Edit 2

 9. Edit 3

2.    Setelah semua tools tadi di tambahkan, masukan coding seperti di bawah ini :

procedure TForm1.Button1Click(Sender: TObject);

var

x,y,z : integer;

begin

x:= strtoint (edit1.Text);

y:= strtoint (edit2.Text);

z:= x+y;

edit3.Text := inttostr (z);

end;

          procedure TForm1.Button2Click(Sender: TObject);

          var

          x,y,z : integer;

          begin

          x:= strtoint (edit1.Text);

          y:= strtoint (edit2.Text);

          z:= x-y;

edit3.Text := inttostr (z);

          end;

          procedure TForm1.Button3Click(Sender: TObject);

          var

          x,y,z : integer;

          begin

          x:= strtoint (edit1.Text);

          y:= strtoint (edit2.Text);

          z:= x*y;

          edit3.Text := inttostr (z);

          end;

         

          procedure TForm1.Button4Click(Sender: TObject);

          var

          x,y,z : integer;

          begin

          x:= strtoint (edit1.Text);

          y:= strtoint (edit2.Text);

          z:= x div y;

          edit3.Text := inttostr (z);

          end;

          end.

3.    Jika sudah memasukan codingan tadi, jalankan program dan hasilnya seperti dibawah ini :

     pengurangan :

penjumlahan :

perkalian :

pembagian :