نمایش نسخه قابل چاپ
با سلام
گرد نمودن اعداد براي برنامه نويسان بسيار مفيد است.ارسال اين لينك اولين كار من است.اگر جواب داد كه توانستيد دانلود نماييد در آينده برنامه هاي با ارزشتري براي عزيزان روي سايت قرار مي دهم .
دانلود فایل : [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]
عالی بود ، فقط دوستان لطف کنند و بعد از دانلود حتما نام فولدر پروژه رو انگلیسی کنند ، تا اروری متوجه اشون نشه .
ضمنا اینم یونیت اصلی پروژه برای اون دوستانی که نمیتونند پروژه رو دانلود کنند.
کد:
کد:
unit Unit1;
interface
uses
*Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
*Dialogs, StdCtrls, Buttons;
type
*TForm1 = class(TForm)
* *Edit1: TEdit;
* *Label1: TLabel;
* *BitBtn1: TBitBtn;
* *BitBtn2: TBitBtn;
* *procedure Button1Click(Sender: TObject);
* *procedure BitBtn1Click(Sender: TObject);
* *procedure BitBtn2Click(Sender: TObject);
*private
*
{ Private declarations }
*
public
* *{ Public declarations }
*
end;
var
*Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
num:real;
begin
num:=strtofloat(edit1.text);
label1.caption:=FloatToStr(Round(num));
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
num:real;
begin
if edit1.Text="" then begin
showmessage("عدد وارد شود");
edit1.SetFocus;
end
else
begin
num:=strtofloat(edit1.text);
label1.caption:=FloatToStr(Round(num));
edit1.Text:="";
edit1.SetFocus;
end;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
close;
end;
end.