دلفي تعليم
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

برنامج تعليمي

2 مشترك

اذهب الى الأسفل

برنامج تعليمي Empty برنامج تعليمي

مُساهمة  mah11 24/12/2014, 7:16 pm


برنامج تعليمي

بسم الله الرحمن الرحيم

الصلاة والسلام رسول الله صلى الله عليه وسلم وعلى آله وصحبه أجمعين

----------------------------------------

الوحدة 1

----------------------------------------

الكود:

unit UMath;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    GroupBox2: TGroupBox;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    Label1: TLabel;
    GroupBox3: TGroupBox;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    BitBtn16: TBitBtn;
    Label2: TLabel;
    BitBtn17: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
    procedure BitBtn16Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

uses UAdd, Sous, Multi, Divi, Ece, Mayen, Carre, Racin, CarreM, CarreP,
  Rect, Tiriang, Circule, Rect1, Tiriang1, Circule1;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Form2.ShowModal;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  Form3.ShowModal;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  Form4.ShowModal;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
  Form5.ShowModal;
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
 Form7.ShowModal;
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
  Form8.ShowModal;
end;

procedure TForm1.BitBtn7Click(Sender: TObject);
begin
  Form9.ShowModal;
end;

procedure TForm1.BitBtn8Click(Sender: TObject);
begin
  Form10.ShowModal;
end;

procedure TForm1.BitBtn9Click(Sender: TObject);
begin
  Form11.ShowModal;
end;

procedure TForm1.BitBtn10Click(Sender: TObject);
begin
  Form15.ShowModal;
end;

procedure TForm1.BitBtn11Click(Sender: TObject);
begin
  Form16.ShowModal;
end;

procedure TForm1.BitBtn12Click(Sender: TObject);
begin
  Form17.ShowModal;
end;

procedure TForm1.BitBtn13Click(Sender: TObject);
begin
  Form12.ShowModal;
end;

procedure TForm1.BitBtn14Click(Sender: TObject);
begin
  Form18.ShowModal;
end;

procedure TForm1.BitBtn15Click(Sender: TObject);
begin
  Form19.ShowModal;
end;

procedure TForm1.BitBtn16Click(Sender: TObject);
begin
  Form20.ShowModal;
end;

end.

--------------------------------------------

الوحدة 2

--------------------------------------------
الكود:

unit UAdd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
var
  Num1, Num2: Real;
  Egal: Real;

begin
  //  Num1 = Edit1.Text
  //  Num2 = Edit2.Text
  Num1 := StrToFloat(Edit1.Text);
  Num2 := StrToFloat(Edit2.Text);
  //  Egal = Num1 + Num2
  Egal := Num1 + Num2;
  //  Edit1.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := 'ÍÜÜÇÕÜÜá ÇáÌÜãÚ åÜæ ' + Edit3.Text;

  Edit2.ReadOnly := true;
  BitBtn1.Enabled := false;

end;

procedure TForm2.Edit1Change(Sender: TObject);
begin
  Edit2.ReadOnly := false;
end;

procedure TForm2.Edit2Change(Sender: TObject);
begin
  BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة3

--------------------------------------------
الكود:

unit Sous;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm3 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);
var
  Num1, Num2: Real;
  Egal: Real;
 
begin
  //  Num1 = Edit1.Text
  //  Num2 = Edit2.Text
  Num1 := StrToFloat(Edit1.Text);
  Num2 := StrToFloat(Edit2.Text);
  //  Egal = Num1 - Num2
  Egal := Num1 - Num2;
  //  Edit1.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := 'ÍÇÕá ÇáØÑÍ åÜÜæ  ' + Edit3.Text;
  BitBtn1.Enabled := false;
end;

procedure TForm3.Edit1Exit(Sender: TObject);
begin
BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة4

--------------------------------------------
الكود:

unit Multi;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm4 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);
var
  Num1, Num2: Real;
  Egal: Real;
 
begin
  //  Num1 = Edit1.Text
  //  Num2 = Edit2.Text
  Num1 := StrToFloat(Edit1.Text);
  Num2 := StrToFloat(Edit2.Text);
  //  Egal = Num1 × Num2
  Egal := Num1 * Num2;
  //  Edit1.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := 'ÍÇÕá ÇáÖÑÈ åÜÜæ  ' + Edit3.Text;
  BitBtn1.Enabled := false;
end;

procedure TForm4.Edit1Exit(Sender: TObject);
begin
BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة5

--------------------------------------------
الكود:


unit Divi;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm5 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);
var
  Num1, Num2: Real;
  Egal: Real;
 
begin
  //  Num1 = Edit1.Text
  //  Num2 = Edit2.Text
  Num1 := StrToFloat(Edit1.Text);
  Num2 := StrToFloat(Edit2.Text);
  //  Egal = Num1 ÷ Num2
  Egal := Num1 / Num2;
  //  Edit1.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := 'ÍÇÕá ÇáÞÓãÉ åÜÜæ  ' + Edit3.Text;
  BitBtn1.Enabled := false;

end;

procedure TForm5.Edit2Exit(Sender: TObject);
begin
BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة6

--------------------------------------------
الكود:


unit Ece;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Math;

type
  TForm7 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.BitBtn1Click(Sender: TObject);
var
  Num1, Ec: Real;
  Egal: Real;

begin
  //  Num1 = Edit1.Text
  //  Ec = Edit2.Text
  Num1 := StrToFloat(Edit1.Text);
  Ec := StrToFloat(Edit2.Text);
  //  Egal = Num1 ^ Ec
  Egal := Power(Ec,Num1);
  //  Edit1.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := 'ÇáäÇÊÌ åÜÜæ  ' + Edit3.Text;

  BitBtn1.Enabled := false;
end;

procedure TForm7.Edit1Exit(Sender: TObject);
begin
 BitBtn1.Enabled := false;
end;

end.

--------------------------------------------

الوحدة7

--------------------------------------------
الكود:


unit Mayen;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm8 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.BitBtn1Click(Sender: TObject);
var
  Num1, Num2: Real;
  Egal: Real;
 
begin
  //  Num1 = Edit1.Text
  //  Num2 = Edit2.Text
  Num1 := StrToFloat(Edit1.Text);
  Num2 := StrToFloat(Edit2.Text);
  //  Egal = Num1 + Num2 / 2
  Egal := (Num1 + Num2) / 2;
  //  Edit3.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := 'ÇáäÇÊÌ åÜÜæ  ' + Edit3.Text;

 BitBtn1.Enabled := false;
end;

procedure TForm8.Edit1Exit(Sender: TObject);
begin
 BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة8

--------------------------------------------
الكود:


unit Carre;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm9 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form9: TForm9;

implementation

{$R *.dfm}

procedure TForm9.BitBtn1Click(Sender: TObject);
var
  Num1: Real;
  Egal: Real;
 
begin
  //  Num1 = Edit1.Text
  Num1 := StrToFloat(Edit1.Text);
  //  Egal = Num1 ^2
  Egal := Sqr(Num1);
  //  Edit3.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := 'ÇáäÇÊÌ åÜÜæ  ' + Edit3.Text;
 BitBtn1.Enabled := false;
end;

procedure TForm9.Edit1Change(Sender: TObject);
begin
 BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة9

--------------------------------------------
الكود:


unit Racin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm10 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form10: TForm10;

implementation

{$R *.dfm}

procedure TForm10.BitBtn1Click(Sender: TObject);
var
  Num1: Real;
  Egal: Real;
 
begin
  //  Num1 = Edit1.Text
  Num1 := StrToFloat(Edit1.Text);
  Egal := Sqrt(Num1);
  //  Edit3.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := 'ÇáäÇÊÌ åÜÜæ  ' + Edit3.Text;
 BitBtn1.Enabled := false;
end;

procedure TForm10.Edit1Change(Sender: TObject);
begin
 BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة10

--------------------------------------------
الكود:


unit CarreM;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm11 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form11: TForm11;

implementation

{$R *.dfm}

procedure TForm11.BitBtn1Click(Sender: TObject);
var
  Num1: Real;
  Egal: Real;
 
begin
  //  Num1 = Edit1.Text
  Num1 := StrToFloat(Edit1.Text);
  //  Egal = Num1 × Num1
  Egal := Num1 * Num1;
  //  Edit3.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := 'ãÓÇÍÉ ÇáãÑÈÚ åí    ' + Edit3.Text;
 BitBtn1.Enabled := false;
end;

procedure TForm11.Edit1Change(Sender: TObject);
begin
 BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة11

--------------------------------------------
الكود:


unit CarreP;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm12 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form12: TForm12;

implementation

{$R *.dfm}

procedure TForm12.BitBtn1Click(Sender: TObject);
var
  Num1: Real;
  Egal: Real;
begin
  //  Num1 = Edit1.Text
  Num1 := StrToFloat(Edit1.Text);
  //  Egal = Num1 × 4
  Egal := Num1 * 4;
  //  Edit3.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := ' ãÍíØ ÇáãÑÈÚ åÜÜæ  ' + Edit3.Text;
 BitBtn1.Enabled := false;

end;

procedure TForm12.Edit1Change(Sender: TObject);
begin
 BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة12

--------------------------------------------
الكود:


unit Rect;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm15 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form15: TForm15;

implementation

{$R *.dfm}

procedure TForm15.BitBtn1Click(Sender: TObject);
var
  Num1, Num2: Real;
  Egal: Real;

begin
  //  Num1 = Edit1.Text
  //  Num2 = Edit2.Text
  Num1 := StrToFloat(Edit1.Text);
  Num2 := StrToFloat(Edit2.Text);
  //  Egal = Num1 × Num2
  Egal := Num1 * Num2;
  //  Edit1.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := ' ãÓÇÍÉ ÇáãÓÊØíá ' + Edit3.Text;
  BitBtn1.Enabled := false;
end;

procedure TForm15.Edit1Change(Sender: TObject);
begin
 BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة13

--------------------------------------------
الكود:


unit Tiriang;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm16 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form16: TForm16;

implementation

{$R *.dfm}

procedure TForm16.BitBtn1Click(Sender: TObject);
var
  Num1, Num2: Real;
  Egal: Real;

begin
  //  Num1 = Edit1.Text
  //  Num2 = Edit2.Text
  Num1 := StrToFloat(Edit1.Text);
  Num2 := StrToFloat(Edit2.Text);
  //  Egal = Num1 * Num2 / 2
  Egal := (Num1 * Num2) / 2;
  //  Edit3.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := ' ãÓÇÍÉ ÇáãËáË  ' + Edit3.Text;
  BitBtn1.Enabled := false;
end;

procedure TForm16.Edit1Exit(Sender: TObject);
begin
  BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة14

--------------------------------------------
الكود:


unit Circule;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm17 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form17: TForm17;

implementation

{$R *.dfm}

procedure TForm17.BitBtn1Click(Sender: TObject);
var
  Num1: Real;
  Egal: Real;

begin
  //  Num1 = Edit1.Text
  Num1 := StrToFloat(Edit1.Text);

  //  Egal = Num1 *
  Egal := Sqr(Num1) * 3.1415;
  //  Edit3.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := ' ãÓÇÍÉ ÇáÏÇÆÑÉ  ' + Edit3.Text;

  BitBtn1.Enabled := false;
end;

procedure TForm17.Edit1Change(Sender: TObject);
begin
 BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة15

--------------------------------------------
الكود:


unit Rect1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm18 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form18: TForm18;

implementation

{$R *.dfm}

procedure TForm18.BitBtn1Click(Sender: TObject);
var
  Num1, Num2: Real;
  Egal: Real;
begin
  //  Num1 = Edit1.Text
  //  Num2 = Edit2.Text
  Num1 := StrToFloat(Edit1.Text);
  Num2 := StrToFloat(Edit2.Text);
  //  Egal = (Num1 + Num2)*2
  Egal := (Num1 + Num2) * 2;
  //  Edit1.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := ' ãÍíØ ÇáãÓÊØíá  ' + Edit3.Text;
  BitBtn1.Enabled := false;

end;

procedure TForm18.Edit1Exit(Sender: TObject);
begin
  BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة15

--------------------------------------------
الكود:


unit Tiriang1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm19 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Edit4: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form19: TForm19;

implementation

{$R *.dfm}

procedure TForm19.BitBtn1Click(Sender: TObject);
var
  Num1, Num2, Num3: Real;
  Egal: Real;

begin
  //  Num1 = Edit1.Text
  //  Num2 = Edit2.Text
  //  Num3 = Edit3.Text
  Num1 := StrToFloat(Edit1.Text);
  Num2 := StrToFloat(Edit2.Text);
  Num3 := StrToFloat(Edit3.Text);
  //  Egal = Num1 + Num2 + Num3
  Egal := Num1 + Num2 + Num3;
  //  Edit1.Text =  Egal
  Edit4.Text := FloatToStr(Egal);
  Label3.Caption := ' ãÍíØ ÇáãËáË  ' + Edit4.Text;
  BitBtn1.Enabled := false;
end;

procedure TForm19.Edit2Exit(Sender: TObject);
begin
  BitBtn1.Enabled := true;
end;

end.

--------------------------------------------

الوحدة16

--------------------------------------------
الكود:


unit Circule1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm20 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form20: TForm20;

implementation

{$R *.dfm}

procedure TForm20.BitBtn1Click(Sender: TObject);
var
  Num1: Real;
  Egal: Real;

begin
  //  Num1 = Edit1.Text
  Num1 := StrToFloat(Edit1.Text);

  //  Egal = Num1 × 2 ×  3.1415
  Egal := Num1 * 2 * 3.1415;
  //  Edit3.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := '' + Edit3.Text;
  BitBtn1.Enabled := false;

end;

procedure TForm20.Edit1Change(Sender: TObject);
begin
 BitBtn1.Enabled := true;
end;

end.




mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

https://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

برنامج تعليمي Empty الوحدة 1

مُساهمة  mah11 24/12/2014, 7:23 pm


رنامج تعليمي

بسم الله الرحمن الرحيم

الصلاة والسلام رسول الله صلى الله عليه وسلم وعلى آله وصحبه أجمعين

----------------------------------------

---------------------------------------
| الوحدة 1 |
---------------------------------------



unit UMath;

العمليات الجمع
[CODE]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Form2.ShowModal;
end;
[CODE]
/
العمليات الطرح
[code]
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Form3.ShowModal;
end;
[/code]

العمليات الضرب
[code]
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Form4.ShowModal;
end;
[/code]

العمليات القسمة
[code]
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
Form5.ShowModal;
end;
[/code]

رفع إلى الأس
[code]
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
Form7.ShowModal;
end;
[/code]

متوسط عددين
[code]
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
Form8.ShowModal;
end;
[/code]

مربع عدد
[code]
procedure TForm1.BitBtn7Click(Sender: TObject);
begin
Form9.ShowModal;
end;
[/code]

عمليات على الجذور التربيعية
[code]
procedure TForm1.BitBtn8Click(Sender: TObject);
begin
Form10.ShowModal;
end;
[/code]

محيط المربع
[code]
procedure TForm1.BitBtn9Click(Sender: TObject);
begin
Form11.ShowModal;
end;
[/code]


مساحة المستطيل
[code]
procedure TForm1.BitBtn10Click(Sender: TObject);
begin
Form15.ShowModal;
end;
[/code]

مساحة المثلث
[code]
procedure TForm1.BitBtn11Click(Sender: TObject);
begin
Form16.ShowModal;
end;
[/code]

مساحة الدائرة
[code]
procedure TForm1.BitBtn12Click(Sender: TObject);
begin
Form17.ShowModal;
end;
[/code]

محيط المستطيل
[code]
procedure TForm1.BitBtn13Click(Sender: TObject);
begin
Form12.ShowModal;
end;
[/code]

محيط المثلث
[code]
procedure TForm1.BitBtn14Click(Sender: TObject);
begin
Form18.ShowModal;
end;
[/code]

محيط الدائرة
[code]
procedure TForm1.BitBtn15Click(Sender: TObject);
begin
Form19.ShowModal;
end;


[/code]

mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

https://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

برنامج تعليمي Empty رد: برنامج تعليمي

مُساهمة  mah11 27/12/2014, 3:15 pm



--------------------------------

| الوحدة 2 |
--------------------------------


unit UAdd;

العمليات الجمع
حـساب
رجــــــــــوع
حــاصــل الجـمع هـو

الكود:

procedure TForm2.BitBtn1Click(Sender: TObject);
var
  Num1, Num2: Real;
  Egal: Real;

begin
  //  Num1 = Edit1.Text
  //  Num2 = Edit2.Text
  Num1 := StrToFloat(Edit1.Text);
  Num2 := StrToFloat(Edit2.Text);
  //  Egal = Num1 + Num2
  Egal := Num1 + Num2;
  //  Edit1.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := 'حــاصــل الجـمع هـو ' + Edit3.Text;

  Edit2.ReadOnly := true;
  BitBtn1.Enabled := false;

end;

مربع النص للقراءة فقط
الكود:

procedure TForm2.Edit1Change(Sender: TObject);
begin
  Edit2.ReadOnly := false;
end;

ممكن تستطيع استعماله
الكود:

procedure TForm2.Edit2Change(Sender: TObject);
begin
  BitBtn1.Enabled := true;
end;

end.



mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

https://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

برنامج تعليمي Empty رد: برنامج تعليمي

مُساهمة  mah11 27/12/2014, 3:16 pm

-----------------------------
|  الوحدة3                     |
-----------------------------

unit Sous;

العمليات الطرح

العمليات الطرح
حـساب
رجــــــــــوع
حاصل الطرح هــو


الكود:

procedure TForm3.BitBtn1Click(Sender: TObject);
var
   Num1, Num2: Real;
   Egal: Real;
  
begin
  //  Num1 = Edit1.Text
  //  Num2 = Edit2.Text
  Num1 := StrToFloat(Edit1.Text);
  Num2 := StrToFloat(Edit2.Text);
  //  Egal = Num1 - Num2
  Egal := Num1 - Num2;
  //  Edit1.Text =  Egal
  Edit3.Text := FloatToStr(Egal);
  Label3.Caption := 'حاصل الطرح هــو ' + Edit3.Text;
  BitBtn1.Enabled := false;
end;


الكود:

procedure TForm3.Edit1Exit(Sender: TObject);
begin
BitBtn1.Enabled := true;
end;

end.


mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

https://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

برنامج تعليمي Empty رد: برنامج تعليمي

مُساهمة  sdk11 12/6/2015, 11:35 pm

بارك الله فيك

sdk11
مبرمج مجتهد

عدد المساهمات : 108
تاريخ التسجيل : 19/09/2014

الرجوع الى أعلى الصفحة اذهب الى الأسفل

برنامج تعليمي Empty رد: برنامج تعليمي

مُساهمة  sdk11 12/6/2015, 11:37 pm

بارك الله فيك

sdk11
مبرمج مجتهد

عدد المساهمات : 108
تاريخ التسجيل : 19/09/2014

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى