Operator Aritmetika Dasar

Operator Aritmetika Dasar

Operasi Aritmetika Dasar meliputi : penjumlahan, pengurangan, perkalian dan pembagian, Div (hasil pembagian dengan pembulatan kebawah), mod (sisa hasil pembagian dengan pembulatan keatas).

A. Contoh design form.

B. Komponen yang dibutuhkan.

1. 3(tiga) komponen label (ada di tab standar).

2. 2(dua) komponen groupbox (ada di tab standar).

3. 8(delapan) komponen edit (ada di tab standar).

4. 6(enam) komponen button (ada di tab standar).

C. Design Properties (ada di jendela object inspector)

Object / Komponen	Name	Caption / Text
Label1 Label2 Label3 Groupbox1 Groupbox2 Edit1 Edit2 Edit3 Edit4 Edit5 Edit6 Edit7 Edit8 Button1 Button2 Button3 Button4 Button5 Button6	Label1 Label2 Label3 Groupbox1 Groupbox2 Edit1 Edit2 Edit3 Edit4 Edit5 Edit6 Edit7 Edit8 Button1 Button2 Button3 Button4 Button5 Button6	Operasi Aritmetika Dasar Angka Pertama Angka Kedua Angka yang akan diproses Hasil Proses (dikosongkan) (dikosongkan) (dikosongkan) (dikosongkan) (dikosongkan) (dikosongkan) (dikosongkan) (dikosongkan) Tambah Kurang Kali Bagi Div Mod

D. Kode Program

1. Program Tambah

Double Klik Button1/ Button Tambah, Tuliskan Kode Program Sebagai berikut :

procedure TForm1.Button1Click(Sender: TObject);

var

angka1,angka2,hasil:double;

begin

angka1:=strtofloat(edit1.Text);

angka2:=strtofloat(edit2.Text);

hasil:=angka1+angka2;

edit3.Text:=floattostr(hasil);

end;

2. Program Kurang

Double Klik Button2/ Button Kurang, Tuliskan Kode Program Sebagai berikut :

procedure TForm1.Button2Click(Sender: TObject);

var

angka1,angka2,hasil:double;

begin

angka1:=strtofloat(edit1.Text);

angka2:=strtofloat(edit2.Text);

hasil:=angka1-angka2;

edit4.Text:=floattostr(hasil);

end;

3. Program Kali

Double Klik Button3/ Button Kali, Tuliskan Kode Program Sebagai berikut :

procedure TForm1.Button3Click(Sender: TObject);

var

angka1,angka2,hasil:double;

begin

angka1:=strtofloat(edit1.Text);

angka2:=strtofloat(edit2.Text);

hasil:=angka1*angka2;

edit5.Text:=floattostr(hasil);

end;

4. Program Bagi

Double Klik Button4/ Button Bagi, Tuliskan Kode Program Sebagai berikut :

procedure TForm1.Button4Click(Sender: TObject);

var

angka1,angka2,hasil:double;

begin

angka1:=strtofloat(edit1.Text);

angka2:=strtofloat(edit2.Text);

hasil:=angka1/angka2;

edit6.Text:=floattostr(hasil);

end;

5. Program Div

Double Klik Button5/ Button Div, Tuliskan Kode Program Sebagai berikut :

procedure TForm1.Button5Click(Sender: TObject);

var

angka1,angka2,hasil:integer;

begin

angka1:=strtoint(edit1.Text);

angka2:=strtoint(edit2.Text);

hasil:=angka1 div angka2;

edit7.Text:=floattostr(hasil);

end;

6. Program Mod

Double Klik Button6/ Button Mod, Tuliskan Kode Program Sebagai berikut :

procedure TForm1.Button6Click(Sender: TObject);

var

angka1,angka2,hasil:integer;

begin

angka1:=strtoint(edit1.Text);

angka2:=strtoint(edit2.Text);

hasil:=angka1 mod angka2;

edit8.Text:=inttostr(hasil);

end;

E. Penjelasan Singkat Program

Var digunakan untuk mendeklarasikan suatu variable, yang berguna untuk menampung suatu nilai atau data.

Double merupakan salah satu tipe data yang ada di Delphi yang digunakan untuk menampung angka / bilangan decimal.

Integer merupakan salah satu tipe data yang ada di Delphi yang digunakan untuk menampung angka / bilangan bulat.

StrToInt digunakan untuk mengubah tipe data String menjadi Integer.

IntToStr digunakan untuk mengubah tipe data Integer menjadi String.

FloatToStr digunakan untuk mengubah tipe data Double menjadi String.

Tipe Data perlu diubah karena komponen edit hanya bisa menampung tipe data String.
Download contoh program