شرح برنامج تعليمي - منتديات الجلفة لكل الجزائريين و العرب

العودة   منتديات الجلفة لكل الجزائريين و العرب > منتديات التقنية > منتدى البرمجة
تحديث الصفحة شرح برنامج تعليمي
نسخة الهاتف التقويم

منتدى البرمجة كل ما يتعلق بلغات البرمجة، فيجوال بيسيك , سي ++ , دلفي , أكسيس , جافا , هتمل...

في حال وجود أي مواضيع أو ردود مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة تقرير عن مشاركة سيئة ( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .

آخر المواضيع

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

إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
قديم 2014-12-24, 17:21   رقم المشاركة : 1
معلومات العضو
طيباوي ابو علي1
عضو نشيط
 
إحصائية العضو










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

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

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

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

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

الوحدة 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.








 


رد مع اقتباس
قديم 2014-12-26, 09:43   رقم المشاركة : 2
معلومات العضو
طيباوي ابو علي1
عضو نشيط
 
إحصائية العضو










افتراضي

هل مـــــــــــــن توبيخ أو تشجيع










رد مع اقتباس
قديم 2015-05-27, 21:31   رقم المشاركة : 3
معلومات العضو
brah2008
عضو جديد
 
إحصائية العضو










افتراضي

شكراااا جزيلا










رد مع اقتباس
قديم 2015-06-03, 21:44   رقم المشاركة : 4
معلومات العضو
Youssef XHaka
عضو مشارك
 
إحصائية العضو










افتراضي

بالتوفييييييييق










رد مع اقتباس
قديم 2015-06-04, 02:02   رقم المشاركة : 5
معلومات العضو
طيباوي ابو علي1
عضو نشيط
 
إحصائية العضو










افتراضي

بارك الله فـــــــــــــــــيك










رد مع اقتباس
قديم 2015-06-05, 20:31   رقم المشاركة : 6
معلومات العضو
MR_DZ
عضو مشارك
 
الصورة الرمزية MR_DZ
 

 
 
إحصائية العضو










افتراضي

شكرا جزيلا لك يا غالي










رد مع اقتباس
قديم 2015-06-06, 09:21   رقم المشاركة : 7
معلومات العضو
طيباوي ابو علي1
عضو نشيط
 
إحصائية العضو










افتراضي

بارك الله فــــــــــــــيك يـــــــــــا غالي










رد مع اقتباس
قديم 2015-07-04, 18:16   رقم المشاركة : 8
معلومات العضو
ldirahim
عضو جديد
 
الصورة الرمزية ldirahim
 

 
 
إحصائية العضو










افتراضي

بــارك الله فيك










رد مع اقتباس
قديم 2015-07-06, 18:34   رقم المشاركة : 9
معلومات العضو
icbinkrank
عضو مشارك
 
الصورة الرمزية icbinkrank
 

 
 
إحصائية العضو










افتراضي

مشكور اخي










رد مع اقتباس
قديم 2015-07-10, 15:48   رقم المشاركة : 10
معلومات العضو
omariro05
عضو جديد
 
إحصائية العضو










افتراضي

بارك الله فيك اخي الكريم









رد مع اقتباس
قديم 2015-07-14, 09:40   رقم المشاركة : 11
معلومات العضو
طيباوي ابو علي1
عضو نشيط
 
إحصائية العضو










افتراضي

بارك الله فـــــــــــــــــيكم

صيام مقبول وذنب مغفور إن شــــــــــــــــــــاء الله لنا و لكم
رد مع اقتباس
إضافة رد

الكلمات الدلالية (Tags)
برنامج, تعليمي

« الموضوع السابق | الموضوع التالي »

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك
BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة
الانتقال السريع

الساعة الآن 03:46

المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية

الجلفة إنفو - الأرشيف - Privacy Policy - الأعلى

2006-2024 © www.djelfa.info جميع الحقوق محفوظة - الجلفة إنفو (خ. ب. س)

Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc