Operator Aritmatika Delphi

Ass.. Sebagaimana janji saya beberapa hari yang lalu saya akan berbgi kepada kalian semua bagaimana membuat aplikasi aritmatika dengan delphi 7, yang meliputi perkalian, penjumlahan, pengurangan, dan pembagian.
pertama tama silahkan buka program delphi anda  kalo masih belom memiliki anda bisa download di blog tetangga atau klik link x disini.

Selanjutnya desain form seperti ini.

Ubah nama dari edittext pad object inspector edit1 menjadi enil1, edit2 menjadi enil2 dan edit3 menjadi ehasil.
Setelah itu masukkan dua variabel global bertipe data real, seperti ini.

dan mari kita mulai memasukan source code pada button..
klik dua kali pada button penjumlahan(+) masukkan coding berikut, dan jangan lupa menambahan variabel local dibawah procedure bertipe data Real.

procedure TForm1.btn1Click(Sender: TObject);
 var
   hasil: Real;
begin
  n1:=StrToFloat(enil1.Text);
  n2:=StrToFloat(enil2.Text);
  hasil:= n1 + n2 ;
  ehasil.Text:=FloatToStr(hasil);
end;


Pengurangan(-)

procedure TForm1.btn2Click(Sender: TObject);
 var
   hasil: Real;
begin
  n1:=StrToFloat(enil1.Text);
  n2:=StrToFloat(enil2.Text);
  hasil:= n1 - n2 ;
  ehasil.Text:=FloatToStr(hasil);
end;


Perkalian(X)

procedure TForm1.btn3Click(Sender: TObject);
 var
   hasil: Real;
begin
  n1:=StrToFloat(enil1.Text);
  n2:=StrToFloat(enil2.Text);
  hasil:= n1 * n2 ;
  ehasil.Text:=FloatToStr(hasil);
end;


Pembagian(/)

procedure TForm1.btn4Click(Sender: TObject);
 var
   hasil: Real;
begin
  n1:=StrToFloat(enil1.Text);
  n2:=StrToFloat(enil2.Text);
  hasil:= n1 / n2 ;
  ehasil.Text:=FloatToStr(hasil);
end;



dan selanjutnya pada tombol Clear

procedure TForm1.btn5Click(Sender: TObject);
begin
 enil1.Clear;
 enil2.Clear;
 ehasil.Clear;
end;


dan yang terakhir untuk tombol keluar.

procedure TForm1.btn6Click(Sender: TObject);
brgin
    Close;
end;


dan selesai sudah mari kita coba jalankan aplikasi....

Jika aplikasi gagal saat dijalankan periksa kembali code yang anda masukan atau ada penamaan object yang salah pada object inspector...,,,
sekian dari saya semoga bermanfaat....