Program Kalkulator Pada Delphi

Berikut contoh program yang bisa saya beri kawan, semoga saja ini bisa membantu rekan sekalian...
 

"Pada form1 kita tanamkan label 3 buah, edit 3 buah, dan button 7 buah . Untuk Nama dari masing – masing object tidak saya lakukan perubahan dan yang diganti hanya caption dari masing – masing object yang telah disesuaikan dengan design / gambar di Bawah ini".


Edit 1 : edit1
Edit 2 : edit2


Di bawah ini adalah kode yang harus kita masukkan :

 
1) Pada button1/button tambah (+):

procedure TForm1.Button1Click(Sender: TObject);

var tambah : real;

begin

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

Edit3.Text:=FloatToStr(tambah);

end;



2) Pada button2/button kurang (-):

 

procedure TForm1.Button2Click(Sender: TObject);
var kurang:real;

begin

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

Edit3.Text:=FloatToStr(kurang);

end;

 

3) Pada button3/button bagi (/):
 

procedure TForm1.Button3Click(Sender: TObject);
var bagi : real;

begin

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

Edit3.Text:=FloatToStr(bagi);

end;


4) Pada button4/button kali (*):

 

procedure TForm1.Button4Click(Sender: TObject);
var kali : real;

begin

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

Edit3.Text:=FloatToStr(kali);

end;


5) Pada button5/button div :

 

procedure TForm1.Button5Click(Sender: TObject);
var devided:integer;

begin

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

Edit3.Text:=IntToStr(devided);

end;

6) Pada button6/button mod :
 

procedure TForm1.Button6Click(Sender: TObject);
var modify:integer;

begin

modify:=StrToInt(edbil1.Text) mod StrToInt(edbil2.Text);

Edit3.Text:=IntToStr(modify);

end;

7) Pada button7/button exit :
 

procedure TForm1.Button7Click(Sender: TObject);
begin

Form1.Close;

end;


8) Pada button8/button pangkat :


var pangkat : real;

begin

pangkat:=StrToInt(edbil1.Text) * StrToInt(edbil1.Text);

Edit3.Text:=FloatToStr(pangkat);

end;





Sekian program yang bisa saya bagi malam ini, jika ada yang tidak mengerti silahkan di tanyakan. Semoga bermanfaat ya.. ^_^ 
    GBU ALL.

Popular Post

Teman Blogger

Blogroll

free counters

RSS Feed Berlangganan artikelKu



Masukan Email Mu Disini: