Operator Aritmatikan mempunyai fungsi untuk melakukan suatu proses aritmatika yang dapat meliputi penjumlahan, pengurangan, perkalian, pembagian dan fungsi fungsi aritmatika lainnya.
Berikut ini adalah Tipe Operator Aritmatika dalam Bahasa Pemograman Borland Delphi :
Berikut Contoh Hasil Penggunaan Operator Aritmatika Diatas :
Dalam Delphi Default Tipe data yang tampil di form Adalah Berupa String, Jadi jika ingin membuat fungsi operator atau penjumlahan,pengurangan,kali,bagi kita harus merubah tipe datanya dulu menjadi Tipe data numerik bisa Real / Integer. Perintah untuk merubah Tipe data tersebut adalah Sebagai Berikut :
strtofloat : untuk merubah tipe data string ke tipe data Real.
strtoint : untuk merubah tipe data string ke tipe data integer.
floattostr : untuk merubah tipe data real ke tipe data string.
inttostr : untuk merubah tipe data integer ke tipe data string.
Pertama disain form berikut :
Ubah Properties Namenya Sebagai Berikut :
Berikut Alur Logikanya :
- Nilai 1 dan Nilai 2 diisi manual oleh user.
- Pada Saat Button Tambah diklik maka nilai 1 dan nilai 2 berubah menjadi
nilai real, kemudian nilai hasil ditampilkan penjumlahan nilai 1 dan nilai 2.
- Pada Saat Button Kurang diklik maka nilai 1 dan nilai 2 berubah menjadi
nilai real, kemudian nilai hasil ditampilkan pengurangan nilai 1 dan nilai 2.
- Pada Saat Button Kali diklik maka nilai 1 dan nilai 2 berubah menjadi nilai
real, kemudian nilai hasil ditampilkan pengalian nilai 1 dan nilai 2.
- Pada Saat Button Bagi diklik maka nilai 1 dan nilai 2 berubah menjadi nilai
real, kemudian nilai hasil ditampilkan pengalian nilai 1 dan nilai 2.
- Pada Saat Button Div diklik maka nilai 1 dan nilai 2 berubah menjadi nilai
integer, kemudian nilai hasil ditampilkan hasil div nilai 1 dan nilai 2.
- Pada Saat Button Mod diklik maka nilai 1 dan nilai 2 berubah menjadi nilai
integer, kemudian nilai hasil ditampilkan hasil Mod nilai 1 dan nilai 2.
- Pada Saat Button_Bersih diklik maka akan membersihkan nilai 1 dan nilai 2.
- Jika Button Keluar diklik maka akan keluar dari program.
Berikut list Programnya :
1 Var
2 frm_materi8: Tfrm_materi8;
3 a,b,c:real;
4 d,e,f:integer;
Buatlah Variable Dengan tipe data seperti Di atas.
a,b,c,d,e,f adalah variable penamaan dari nilai yang muncul pada edit box di
delphi. karena kita mau membuat penjumlahan, maka kita akan mengubah tipe
data dari default string menjadi tipe data real dan integer.
Dengan memberikan penamaan sementara dan kode perubahannya strtofloat
yakni merubah tipe data string menjadi real. Pada Saat menampilkan c kita
merubah kembali tipe data c yang tadinya real menjadi string karena Tampilan
default pada editbox delphi adalah string.
Jika kita menggunakan penamaan variable maka jangan lupa untuk
menambahkan tipe data dari variable di code list delphi Var seperti diatas.
Kemudian scroll up unitnya dan cari tulisan seperti diatas var kemudian
ditambahkan dengan format variable_1 , Variable2 : tipe data;
// Perintah untuk tombol Tambah
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=a+b;
edit3.Text:=floattostr(c);
end;
a,b,c adalah variable penamaan dari nilai yang muncul pada edit box di delphi.
karena kita mau membuat penjumlahan, maka kita akan mengubah tipe data dari
default string menjadi tipe data real.
Dengan memberikan penamaan sementara dan kode perubahannya strtofloat
yakni merubah tipe data string menjadi real. Pada Saat menampilkan c kita
merubah kembali tipe data c yang tadinya real menjadi string karena Tampilan
default pada editbox delphi adalah string.
// Perintah untuk tombol Kurang
procedure TForm1.Button2Click(Sender: TObject);
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=a-b;
edit3.Text:=floattostr(c);
end;
// Perintah untuk tombol Kali
procedure TForm1.Button4Click(Sender: TObject);
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=a*b;
edit3.Text:=floattostr(c);
end;
// Perintah untuk tombol Bagi
procedure TForm1.Button5Click(Sender: TObject);
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=a/b;
edit3.Text:=floattostr(c);
end;
// Perintah untuk tombol Div
procedure TForm1.Button3Click(Sender: TObject);
begin
d:=strtoint(edit1.Text);
e:=strtoint(edit2.Text);
f:=d div e;
edit3.Text:=inttostr(f);
end;
// Perintah untuk tombol Mod
procedure TForm1.Button6Click(Sender: TObject);
begin
d:=strtoint(edit1.Text);
e:=strtoint(edit2.Text);
f:=d mod e;
edit3.Text:=inttostr(f);
end;
// Perintah untuk tombol Bersih
procedure TForm1.Button8Click(Sender: TObject);
begin
edit1.Text :='';
edit2.Text :='';
edit3.Text :='';
end;
end.
Pada Saat Button Bersih diklik maka akan menghapus seluruh teks pada edit
box.
