Operator Aritmatika pada Delphi 7

Operator Aritmatika pada Delphi 7

Operator Aritmatika mempunyai fungsi untuk melakukan suatu proses aritmatika yang dapat meliputi penambahan, pengurangan, perkalian, pembagian dan fungsi fungsi aritmatika lainnya. Operator ini digunakan untuk mengolah data-data bertipe bilangan (bilangan bulat dan pecahan).

Ada beberapa operator yang dapat digunakan :

---

Praktek membuat Program

1. Buat Form seperti berikut :

2. Ubah Properties-nya seperti berikut :

3. Listing Program sebagai berikut :
 

procedure TF_Operator_Aritmatika.bt_tambahClick(Sender: TObject);
var
     nilai1,nilai2,hasil : real;
begin
     nilai1 := strtofloat(ed_nilai1.Text);
     nilai2 := strtofloat(ed_nilai2.Text);

     hasil := nilai1 + nilai2;

     ed_hasil.Text := floattostr(hasil);
end;

procedure TF_Operator_Aritmatika.bt_kurangClick(Sender: TObject);
var
     nilai1,nilai2,hasil : real;
begin
     nilai1 := strtofloat(ed_nilai1.Text);
     nilai2 := strtofloat(ed_nilai2.Text);

     hasil := nilai1 - nilai2;

     ed_hasil.Text := floattostr(hasil);
end;

procedure TF_Operator_Aritmatika.btkaliClick(Sender: TObject);
var
     nilai1,nilai2,hasil : real;
begin
     nilai1 := strtofloat(ed_nilai1.Text);
     nilai2 := strtofloat(ed_nilai2.Text);

     hasil := nilai1 * nilai2;

     ed_hasil.Text := floattostr(hasil);
end;

procedure TF_Operator_Aritmatika.bt_bagiClick(Sender: TObject);
var
     nilai1,nilai2,hasil : real;
begin
     nilai1 := strtofloat(ed_nilai1.Text);
     nilai2 := strtofloat(ed_nilai2.Text);

     hasil := nilai1 / nilai2;

     ed_hasil.Text := floattostr(hasil);
end;

procedure TF_Operator_Aritmatika.bt_divClick(Sender: TObject);
var
     nilai1,nilai2,hasil : integer;
begin
     nilai1 := strtoint(ed_nilai1.Text);
     nilai2 := strtoint(ed_nilai2.Text);

     hasil := nilai1 div nilai2;

     ed_hasil.Text := inttostr(hasil);
end;

procedure TF_Operator_Aritmatika.bt_modClick(Sender: TObject);
var
     nilai1,nilai2,hasil : integer;
begin
     nilai1 := strtoint(ed_nilai1.Text);
     nilai2 := strtoint(ed_nilai2.Text);

     hasil := nilai1 mod nilai2;

     ed_hasil.Text := inttostr(hasil);
end;

4. Jalankan Program

Sumber : https://catataneko.wordpress.com