Jauh JG

Aplikasi Kalkulator Sederhana dengan Delphi 7 - Pada postingan kali ini, saya akan membagikan contoh program aplikasi menggunakan bahasa pemrograman delphi 7. Ini saya posting khusus untuk mahasiswa BSI Purwokerto yang sedang belajar bahasa pemrograman terbaik menurut saya setelah visual basic. Dan postingan ini juga request dari teman yang ingin dibuatkan program kalkulator sederhana lewat delphi 7. Tapi sebelumnya mampir dulu deh ke artikel yang berjudul Belanja Produk Gaya Hidup Kontemporer Dari Desainer Berbakat Dengan Harga Terjangkau!. Kali aja kalian tersentuh hatinya untuk shopping disana. heehe. Oke cuss lanjutt!!

procedure Tform1.bersih;

begin

edit1.text:=;

edit2.text:=;

edit3.text:=;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

bersih;

end;

procedure TForm1.Button1Click(Sender: TObject);

var tambah : real;

begin

tambah:=StrToFloat(edit1.Text)+StrToFloat(edit2.Text);

Edit3.Text:=FloatToStr(tambah);

end;

procedure TForm1.Button2Click(Sender: TObject);

var kurang:real;

begin

kurang:=StrToFloat(edit1.Text)-StrToFloat(edit2.Text);

Edit3.Text:=FloatToStr(kurang);

end;

procedure TForm1.Button4Click(Sender: TObject);

var bagi : real; 

begin 

bagi:=StrToFloat(edit1.Text) / StrToFloat(edit2.Text);

Edit3.Text:=FloatToStr(bagi);

end;

procedure TForm1.Button3Click(Sender: TObject);

var kali : real;

begin 

kali:=StrToFloat(edit1.Text) * StrToFloat(edit2.Text);

Edit3.Text:=FloatToStr(kali); 

end;

procedure TForm1.Button5Click(Sender: TObject);

var devided:integer; 

begin 

devided:=StrToInt(edit1.Text) div StrToInt(edit2.Text);

Edit3.Text:=IntToStr(devided);

end;

procedure TForm1.Button6Click(Sender: TObject);

var modify:integer;

begin

modify:=StrToInt(edit1.Text) mod StrToInt(edit2.Text);

Edit3.Text:=IntToStr(modify);

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

bersih;

edit1.SetFocus;

end;