Delphi : Menggunakan Operator Aritmatika

a.  Hasil Program

b.  Desain Form

c.  Desain Properties

Object	Name	Caption
Label1	Label1	Angka Pertama
Label2	Label2	Angka ke 2
Label3	Label3	Hasil Perhitungan :
Edit1	Edit1	-
Edit2	Edit2	-
Edit3	Edit3	-
Edit4	Edit4	-
Edit5	Edit5	-
Edit6	Edit6	-
Button1	Btambah	Tambah
Button2	Bkurang	Kurang
Button3	Bkali	Kali
Button4	Bbagi	Bagi
Button5	Bclose	Close

d.  Listing Program

Semua data yang diinput melalui edit box dideklarasikan dengan tipe data string. sehingga ketika akan dilakukan proses penjumlahan, pengurangan, perkalian, dan pembagian, kita harus merubahnya menjadi tipe data yang dibutuhkan (tipe data real).

Program Tambah

Jika tombol tambah di klik maka akan menampilkan hasil penjumlahan dari angka pertama dan angka ke 2 dan hasilnya akan di tampilkan pada kolom Edit3

procedure TForm1.BtambahClick(Sender: TObject);

var

angka1, angka2, hasil : real;

begin

angka1:= strtofloat(edit1.Text);

angka2:= strtofloat(edit2.Text);

hasil:= angka1 + angka2;

edit3.Text:= floattostr(hasil);

end;

var digunakan untuk memperkenalkan suatu variabel yang dibuat dan berfungsi untuk menyimpan nilai atau data selama program berjalan.

strtofloat adalah fungsi yang digunakan untuk mengubah tipe data satu variabel dari tipe data string ke tipe data real.

floattostr adalah fungsi yang digunakan untuk mengubah tipe data suatu variabel dari tipe data real ke tipe data string.

Program Kurang

procedure TForm1.BkurangClick(Sender: TObject);

var

angka1, angka2, hasil : real;

begin

angka1:= strtofloat(edit1.Text);

angka2:= strtofloat(edit2.Text);

hasil:= angka1 - angka2;

edit4.Text:= floattostr(hasil);

end;

Program Kali

procedure TForm1.BkaliClick(Sender: TObject);

var

angka1, angka2, hasil : real;

begin

angka1:= strtofloat(edit1.Text);

angka2:= strtofloat(edit2.Text);

hasil:= angka1 * angka2;

edit5.Text:= floattostr(hasil);

end;

Program Bagi

procedure TForm1.BbagiClick(Sender: TObject);

var

angka1, angka2, hasil : real;

begin

angka1:= strtofloat(edit1.Text);

angka2:= strtofloat(edit2.Text);

hasil:= angka1 / angka2;

edit6.Text:= floattostr(hasil);

end;

Program Close

procedure TForm1.BcloseClick(Sender: TObject);

begin

close;

end;