Erdianto

Belajar Ilmu Komputer dan Teknologi Opensource

Kalkulator Sederhana

Posted by bemk4mpus On April - 20 - 2011

kalkulator

procedure TForm2.Button1Click(Sender: TObject);
begin
edit3.Text:=inttostr(strtoint(edit1.Text)+strtoint(edit2.Text));

end;

procedure TForm2.Button2Click(Sender: TObject);
begin
edit4.Text:=inttostr(strtoint(edit1.Text)-strtoint(edit2.Text));
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
edit5.Text:=inttostr(strtoint(edit1.Text)*strtoint(edit2.Text));
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
edit6.Text:=currtostr(strtocurr(edit1.Text)/strtocurr(edit2.Text));
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
end;

procedure TForm2.Button6Click(Sender: TObject);
begin
CLOSE
end;

end.

Share and Enjoy:
  • Facebook
  • Google
  • Print this article!
  • TwitThis
  • Furl
  • Live
Tak Berkategori

VIDEO

Enter the video embed code here. Remember to change the size to 320 x 270 in the embed code.

TAG CLOUD

Activate the Wp-cumulus plugin to see the flash tag clouds!

RECENT

About Me

There is something about me..

Twitter

    Photos

    Activate the Flickrss plugin to see the image thumbnails!