Listing LA AP2A (DELPHI)

nih listingnya..

Klik 2x Tanda Tambah(+)
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c : Integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=a+b;
ShowMessage(IntToStr(c));

end;

Klik 2x Tanda Kurang(-)
procedure TForm1.Button2Click(Sender: TObject);
var
a,b,c : Integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=a-b;
ShowMessage(IntToStr(c));
end;


Klik 2x Tanda Kali(X)
procedure TForm1.Button3Click(Sender: TObject);
var
a,b,c : Integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=a*b;
ShowMessage(IntToStr(c));
end;


Klik 2x Tanda Bagi(/)
procedure TForm1.Button4Click(Sender: TObject);
var
a,b,c : Single;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=a/b;
ShowMessage(FloatToStr(c));
end;

end.

nih listing programnya...

klik 2x Button Proses
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d : Single;
begin
a:=Strtofloat(Edit1.Text);
b:=Strtofloat(Edit2.Text);
c:=a*3;
d:=a*b/2;
Edit3.Text:=Floattostr(c);
Edit4.Text:=FloatToStr(d);
end;

end.



Ok.... semoga bermanfaat...
bwad anak 1ia18... LA-nya coba buat sndiri dlu yah...
programnya bisa didownload dari link yg kasi....okok..
thx. n.n