Admin
Admin
عدد المساهمات : 72
نقاط : 197
تاريخ التسجيل : 01/04/2011
 | موضوع: برنامج كيفية حساب المساحات للمبتدئين مع ((((عصابة الدلفي))))  الإثنين سبتمبر 17, 2012 11:13 am | |
|
[center]حساب المساحات
شرح المشروع
نقوم بفتح برنامج جديد مع لصق المكونات كما تبين الصورة
وفي هذا المشروعسنتعرف على كيفية حساب المساحات
مثلا المربع والمستطيل ونصف الدائرة
[/b][/b] الكود
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, sLabel, ExtCtrls, sPanel, sEdit, sSkinProvider,
sSkinManager, Buttons, sBitBtn;
type
TForm1 = class(TForm)
sPanel1: TsPanel;
sLabelFX1: TsLabelFX;
sPanel2: TsPanel;
sLabelFX2: TsLabelFX;
sPanel3: TsPanel;
sLabelFX3: TsLabelFX;
sLabelFX4: TsLabelFX;
sEdit1: TsEdit;
sLabelFX5: TsLabelFX;
sEdit2: TsEdit;
sSkinManager1: TsSkinManager;
sSkinProvider1: TsSkinProvider;
sLabelFX6: TsLabelFX;
sLabelFX7: TsLabelFX;
sEdit3: TsEdit;
sEdit4: TsEdit;
sEdit5: TsEdit;
sLabelFX8: TsLabelFX;
sBitBtn1: TsBitBtn;
sBitBtn2: TsBitBtn;
sEdit6: TsEdit;
sLabelFX9: TsLabelFX;
sBitBtn3: TsBitBtn;
sLabelFX10: TsLabelFX;
sEdit7: TsEdit;
procedure FormCreate(Sender: TObject);
procedure sBitBtn1Click(Sender: TObject);
procedure sBitBtn2Click(Sender: TObject);
procedure sEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure sEdit3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure sEdit4KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure sBitBtn3Click(Sender: TObject);
procedure sEdit7KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
sSkinManager1.SkinDirectory:=extractfilepath(application.ExeName)+'skins';
sSkinManager1.SkinName:='BlueGlass'; //
sSkinManager1.Active:=true;
end;
procedure TForm1.sBitBtn1Click(Sender: TObject);
begin
if sedit1.text='' then
sedit1.text:='0';
sedit2.Text:=floattostr(strtofloat(sedit1.Text)*strtofloat(sedit1.Text));
sedit1.SetFocus;
sedit1.Text:='';
end;
procedure TForm1.sBitBtn2Click(Sender: TObject);
begin
if sedit3.text='' then
sedit3.text:='0';
if sedit4.text='' then
sedit4.text:='0';
sedit5.Text:=floattostr(strtofloat(sedit3.Text)*strtofloat(sedit3.Text));
sedit3.SetFocus;
sedit3.Text:='';
sedit4.Text:='';
end;
procedure TForm1.sEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then
sbitbtn1.Click;
if key=vk_return then
sedit1.SetFocus;
if key=vk_return then
sedit1.Text:='';
end;
procedure TForm1.sEdit3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then
sedit4.SetFocus;
end;
procedure TForm1.sEdit4KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then
sbitbtn2.Click;
if key=vk_return then
sedit3.SetFocus;
if key=vk_return then
sedit3.Text:='';
if key=vk_return then
sedit4.Text:='';
end;
procedure TForm1.sBitBtn3Click(Sender: TObject);
begin
if sedit7.text='' then
sedit7.text:='0';
sedit6.Text:=floattostr(strtofloat(sedit7.Text)*strtofloat(sedit7.Text)*3.14159);
sedit7.SetFocus;
sedit7.Text:='';
end;
procedure TForm1.sEdit7KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then
sbitbtn3.Click;
if key=vk_return then
sedit7.SetFocus;
if key=vk_return then
sedit7.Text:='';
end;
END. صورة البرنامج [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة] تحميل المشروع [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط][ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة] [/center] | |
|
