Mengenal Operator Aritmatika Pada Delphi 7

Assalamualaikum Temen Temen Semua, Salam Luar Biasa Malam ini. Hmmmm Hari ini Pengen Share Lagi Lagi dan Lagi *hihiihihi kalau kata Sponge Bob Aku Siap Aku Siap Aku Siap.

Nah kesempatan kali ini masih berkutat dengan pembelajaran Delphi nich. Untuk Kategori tutorial materi lain masih dalam penyiapan materi dan ide ide. jadi jangan bosen belajar Delphi disini  ya 🙂. Untu Materi Kali ini meneruskan Materi sebelumnya yang sudah kita bahas yakni mengenal tipe data pada delphi untuk saat ini kita akan mengenal Operator Aritmatikanya nich, mari disimak ya.

Operator Aritmatikan mempunyai fungsi untuk melakukan suatu proses aritmatika yang dapat meliputi penambahan, pengurangan, perkalian, pembagian dan fungsi fungsi aritmatika lainnya. *hmmmm ini dilakukan untuk mengubah nilai suatu variable yang nantinya akan menghasilkan nilai yang baru. kemarin kita sudah membahas mengenai operator penambahan atau ” + ” nah kali ini kita lengkapi Operator Operator yang tersedia sekalian memberikan latihan latihan guna memperlancar bahasa pemograman delphi kita.

Berikut ini adalah Tipe Operator Aritmatika dalam Bahasa Pemograman Borland Delphi :

Berikut Contoh Hasil Penggunaan Operator Aritmatika Diatas :

Nah Langsung Aja Kita Praktek ya, Pertama Kita buat form design sebagai 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 penambahan 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.

– Jika Button Keluar diklik maka akan keluar dari program.

———————————————————————————————————————————————————————

Berikut list Programnya :

var
  frm_materi8: Tfrm_materi8;
  a,b,c:real;
  d,e,f:integer;

Buatlah Variable Dengan tipe data seperti Di atas.

procedure Tfrm_materi8.button_tambahClick(Sender: TObject);
begin

  a:=strtofloat(edit_nilai1.Text);
  b:=strtofloat(edit_nilai2.Text);

  c:=a+b;

  edit_hasil.Text:=floattostr(c);

end;

 

procedure Tfrm_materi8.button_kurangClick(Sender: TObject);
begin

  a:=strtofloat(edit_nilai1.Text);
  b:=strtofloat(edit_nilai2.Text);

  c:=a-b;

  edit_hasil.Text:=floattostr(c);

end;

 

procedure Tfrm_materi8.button_divClick(Sender: TObject);
begin

  d:=strtoint(edit_nilai1.Text);
  e:=strtoint(edit_nilai2.Text);

  f:=d div e;

  edit_hasil.Text:=inttostr(f);

end;

 

procedure Tfrm_materi8.button_kaliClick(Sender: TObject);
begin

  a:=strtofloat(edit_nilai1.Text);
  b:=strtofloat(edit_nilai2.Text);

  c:=a*b;

  edit_hasil.Text:=floattostr(c);

end;

 

procedure Tfrm_materi8.button_bagiClick(Sender: TObject);
begin

  a:=strtofloat(edit_nilai1.Text);
  b:=strtofloat(edit_nilai2.Text);

  c:=a/b;

  edit_hasil.Text:=floattostr(c);

end;

 

procedure Tfrm_materi8.button_modClick(Sender: TObject);
begin

  d:=strtoint(edit_nilai1.Text);
  e:=strtoint(edit_nilai2.Text);

  f:=d mod e;

  edit_hasil.Text:=inttostr(f);

end;

 

procedure Tfrm_materi8.button_keluarClick(Sender: TObject);
begin

close;

end;

Nah Gampang Kan, Pastinya dunk. Yah itu dulu ya Temen Temen untuk Share Kali ini *hehehehe dah lumayan ngantuk nich -,- . tetap ditunggu saja materi lainnya untuk tutorial diblog ini. Nah bagi yang mau coba latihan untuk materi Operator  Aritmatika ini temen temen bisa download latihan materi ini dilink dibawah ini. Gampang kok dan tentu aja bisa memperlancar kita mengenal code program delphi lebih dekat, monggo di coba :

Download Latihan 8 – Mengenal Operator Aritmatika Pada Delphi 7 pdf.

Download project Latihan 8

Nah hari ini itu dulu yang bisa saya share nich, mudah mudahan kedepan ada kesempatan untuk share materi materi delphi lagi sekali belajar bersama sama temen temen semua. See you next Tutorial ya, Salam Luar Biasa.

Eko Wardoyo

_________________________________________________________________________________________________________

– Mengenal Tipe Data Di Delphi 7

– Percabangan Case Pada Combo Box – Delphi 7

– Percabangan IF Pada Delphi 7

_________________________________________________________________________________________________________