"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.
