برنامج لحساب مربع عدد ما
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
برنامج لحساب مربع عدد ما
برنامج لحساب مربع عدد ما
تستعمل الدالة sqr لاجاد لحساب مربع عدد
- الكود:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Edit1: TEdit;
BitBtn1: TBitBtn;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Edit2.Text := FloatToStr(sqr(StrToFloat(Edit1.Text)));
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text <> '' then BitBtn1.Enabled := true
else BitBtn1.Enabled := false;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.bidimode:=bdRightToLeft;
Form1.font.charset:=ARABIC_CHARSET;
Form1.font.name:='Arial';
Form1.caption:=' حساب مربع عدد ما';
Label1.bidimode:=bdRightToLeft;
Label1.font.charset:=ARABIC_CHARSET;
Label1.font.name:='Arial';
Label1.caption:='أدخل عدد ';
Label1.cursor:=crDefault;
Label2.bidimode:=bdRightToLeft;
Label2.font.charset:=ARABIC_CHARSET;
Label2.font.name:='Arial';
Label2.caption:='النتيجة';
Label2.cursor:=crDefault;
Edit1.bidimode:=bdRightToLeft;
Edit1.font.charset:=ARABIC_CHARSET;
Edit1.font.name:='Arial';
Edit1.cursor:=crDefault;
BitBtn1.bidimode:=bdRightToLeft;
BitBtn1.font.charset:=ARABIC_CHARSET;
BitBtn1.font.name:='Arial';
BitBtn1.caption:='حساب';
BitBtn1.cursor:=crHandPoint;
Edit2.bidimode:=bdRightToLeft;
Edit2.font.charset:=ARABIC_CHARSET;
Edit2.font.name:='Arial';
Edit2.cursor:=crDefault;
BitBtn2.bidimode:=bdRightToLeft;
BitBtn2.font.charset:=ARABIC_CHARSET;
BitBtn2.font.name:='Arial';
BitBtn2.caption:='اغلاق';
BitBtn2.cursor:=crHandPoint;
end;
end.
procedure TForm1.BitBtn2Click(Sender: TObject);
var
x, y: real;
begin
x := StrToFloat(Edit1.Text);
y := sqr(x);
Edit2.Text := FloatToStr(y);
end;
ali- مبرمج مجتهد
- عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013
مواضيع مماثلة
» رسم مربع داخله رقم
» رسم مستطيل أو مربع
» رسم مربع بالفأرة
» جعل مربع التحرير TEdit لا يقبل الا الارقام فقط
» مربع النص Edit
» رسم مستطيل أو مربع
» رسم مربع بالفأرة
» جعل مربع التحرير TEdit لا يقبل الا الارقام فقط
» مربع النص Edit
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى