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

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

4 مشترك

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

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

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

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

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

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

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

الوحدة 1

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

unit UMath; // delph.forumalgerie.net

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, // delph.forumalgerie.net
 Dialogs, StdCtrls, Buttons; // delph.forumalgerie.net

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

var
 Form1: TForm1; // delph.forumalgerie.net

implementation

uses UAdd, Sous, Multi, Divi, Ece, Mayen, Carre, Racin, CarreM, CarreP, // delph.forumalgerie.net
 Rect, Tiriang, Circule, Rect1, Tiriang1, Circule1; // delph.forumalgerie.net

{$R *.dfm} // delph.forumalgerie.net

procedure TForm1.BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
begin
 Form2.ShowModal; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.BitBtn2Click(Sender: TObject); // delph.forumalgerie.net
begin
 Form3.ShowModal; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.BitBtn3Click(Sender: TObject); // delph.forumalgerie.net
begin
 Form4.ShowModal; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.BitBtn4Click(Sender: TObject); // delph.forumalgerie.net
begin
 Form5.ShowModal; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.BitBtn5Click(Sender: TObject); // delph.forumalgerie.net
begin
Form7.ShowModal; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.BitBtn6Click(Sender: TObject); // delph.forumalgerie.net
begin
 Form8.ShowModal; // delph.forumalgerie.net
end;

procedure TForm1.BitBtn7Click(Sender: TObject);
begin
 Form9.ShowModal;
end; // delph.forumalgerie.net

procedure TForm1.BitBtn8Click(Sender: TObject); // delph.forumalgerie.net
begin
 Form10.ShowModal; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.BitBtn9Click(Sender: TObject); // delph.forumalgerie.net
begin
  Form11.ShowModal; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.BitBtn10Click(Sender: TObject); // delph.forumalgerie.net
begin
  Form15.ShowModal; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.BitBtn11Click(Sender: TObject); // delph.forumalgerie.net
begin
  Form16.ShowModal; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.BitBtn12Click(Sender: TObject); // delph.forumalgerie.net
begin
  Form17.ShowModal; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.BitBtn13Click(Sender: TObject); // delph.forumalgerie.net
begin
  Form12.ShowModal; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.BitBtn14Click(Sender: TObject); // delph.forumalgerie.net
begin
  Form18.ShowModal; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.BitBtn15Click(Sender: TObject); // delph.forumalgerie.net
begin
  Form19.ShowModal; // delph.forumalgerie.net
end;

procedure TForm1.BitBtn16Click(Sender: TObject); // delph.forumalgerie.net
begin
  Form20.ShowModal; // delph.forumalgerie.net
end; // delph.forumalgerie.net

end. // delph.forumalgerie.net


عدل سابقا من قبل mah11 في 23/5/2015, 11:38 am عدل 1 مرات (السبب : تصحيح بعض المعلومات)

mah11
Admin

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

https://delph.forumalgerie.net

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

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

مُساهمة  mah11 23/5/2015, 11:43 am


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

الوحدة 2

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

unit UAdd;// delph.forumalgerie.net

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,// delph.forumalgerie.net
 Dialogs, StdCtrls, Buttons, ExtCtrls;// delph.forumalgerie.net

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

var
 Form2: TForm2;// delph.forumalgerie.net

implementation

{$R *.dfm}// delph.forumalgerie.net

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

begin
 //  Num1 = Edit1.Text
 //  Num2 = Edit2.Text
 Num1 := StrToFloat(Edit1.Text);// delph.forumalgerie.net
 Num2 := StrToFloat(Edit2.Text);// delph.forumalgerie.net
 //  Egal = Num1 + Num2
 Egal := Num1 + Num2;
 //  Edit1.Text =  Egal
 Edit3.Text := FloatToStr(Egal);// delph.forumalgerie.net
 Label3.Caption := '
الحل هو 
' + Edit3.Text;// delph.forumalgerie.net

 Edit2.ReadOnly := true;// delph.forumalgerie.net
 BitBtn1.Enabled := false;// delph.forumalgerie.net
end;// delph.forumalgerie.net

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

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

end.

mah11
Admin

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

https://delph.forumalgerie.net

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

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

مُساهمة  mah11 23/5/2015, 11:47 am

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

الوحدة3

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

unit Sous; // delph.forumalgerie.net

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, ExtCtrls; // delph.forumalgerie.net

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

var
 Form3: TForm3; // delph.forumalgerie.net

implementation

{$R *.dfm} // delph.forumalgerie.net

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

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

end. // delph.forumalgerie.net

mah11
Admin

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

https://delph.forumalgerie.net

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

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

مُساهمة  mah11 23/5/2015, 11:51 am

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

الوحدة4

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

unit Multi; // delph.forumalgerie.net

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls; // delph.forumalgerie.net

type
TForm4 = class(TForm) // delph.forumalgerie.net
  Panel1: TPanel; // delph.forumalgerie.net
  Panel2: TPanel; // delph.forumalgerie.net
  Panel3: TPanel; // delph.forumalgerie.net
  Edit1: TEdit; // delph.forumalgerie.net
  Edit2: TEdit; // delph.forumalgerie.net
  BitBtn1: TBitBtn; // delph.forumalgerie.net
  Edit3: TEdit; // delph.forumalgerie.net
  BitBtn2: TBitBtn; // delph.forumalgerie.net
  Label1: TLabel; // delph.forumalgerie.net
  Label2: TLabel; // delph.forumalgerie.net
  Label3: TLabel; // delph.forumalgerie.net
  procedure BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
  procedure Edit1Exit(Sender: TObject); // delph.forumalgerie.net
private
public
end; // delph.forumalgerie.net

var
Form4: TForm4; // delph.forumalgerie.net

implementation

{$R *.dfm} // delph.forumalgerie.net

procedure TForm4.BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
var
 Num1, Num2: Real; // delph.forumalgerie.net
 Egal: Real; // delph.forumalgerie.net
 
begin
//  Num1 = Edit1.Text
//  Num2 = Edit2.Text
Num1 := StrToFloat(Edit1.Text); // delph.forumalgerie.net
Num2 := StrToFloat(Edit2.Text); // delph.forumalgerie.net
//  Egal = Num1 × Num2
Egal := Num1 * Num2; // delph.forumalgerie.net
//  Edit1.Text =  Egal
Edit3.Text := FloatToStr(Egal); // delph.forumalgerie.net
Label3.Caption := '
الحل هو  
' + Edit3.Text; // delph.forumalgerie.net
BitBtn1.Enabled := false; // delph.forumalgerie.net
end; // delph.forumalgerie.net

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

end. // delph.forumalgerie.net

mah11
Admin

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

https://delph.forumalgerie.net

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

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

مُساهمة  mah11 23/5/2015, 11:55 am

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

الوحدة5

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

unit Divi;// delph.forumalgerie.net

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, ExtCtrls;// delph.forumalgerie.net

type
 TForm5 = class(TForm)// delph.forumalgerie.net
  Panel1: TPanel;// delph.forumalgerie.net
  Panel2: TPanel;// delph.forumalgerie.net
  Panel3: TPanel;// delph.forumalgerie.net
  Edit1: TEdit;// delph.forumalgerie.net
  Edit2: TEdit;// delph.forumalgerie.net
  BitBtn1: TBitBtn;// delph.forumalgerie.net
  Edit3: TEdit;// delph.forumalgerie.net
  BitBtn2: TBitBtn;// delph.forumalgerie.net
  Label1: TLabel;// delph.forumalgerie.net
  Label2: TLabel;// delph.forumalgerie.net
  Label3: TLabel;// delph.forumalgerie.net
  procedure BitBtn1Click(Sender: TObject);// delph.forumalgerie.net
  procedure Edit2Exit(Sender: TObject);// delph.forumalgerie.net
 private
 public
 end;// delph.forumalgerie.net

var
 Form5: TForm5;// delph.forumalgerie.net

implementation

{$R *.dfm}// delph.forumalgerie.net

procedure TForm5.BitBtn1Click(Sender: TObject);// delph.forumalgerie.net
var
  Num1, Num2: Real;// delph.forumalgerie.net
  Egal: Real;// delph.forumalgerie.net
 
begin
 //  Num1 = Edit1.Text
 //  Num2 = Edit2.Text
 Num1 := StrToFloat(Edit1.Text);// delph.forumalgerie.net
 Num2 := StrToFloat(Edit2.Text);// delph.forumalgerie.net
 //  Egal = Num1 ÷ Num2
 Egal := Num1 / Num2;// delph.forumalgerie.net
 //  Edit1.Text =  Egal
 Edit3.Text := FloatToStr(Egal);// delph.forumalgerie.net
 Label3.Caption := '
 الحل هو
' + Edit3.Text;// delph.forumalgerie.net
 BitBtn1.Enabled := false;// delph.forumalgerie.net

end;// delph.forumalgerie.net

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

end.// delph.forumalgerie.net

mah11
Admin

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

https://delph.forumalgerie.net

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

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

مُساهمة  mah11 23/5/2015, 12:00 pm

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

الوحدة6

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

الكود:

unit Ece; // delph.forumalgerie.net

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, ExtCtrls, Math; // delph.forumalgerie.net

type
 TForm7 = class(TForm) // delph.forumalgerie.net
  Panel1: TPanel; // delph.forumalgerie.net
  Panel2: TPanel; // delph.forumalgerie.net
  Panel3: TPanel; // delph.forumalgerie.net
  Edit1: TEdit; // delph.forumalgerie.net
  Edit2: TEdit; // delph.forumalgerie.net
  BitBtn1: TBitBtn; // delph.forumalgerie.net
  Edit3: TEdit; // delph.forumalgerie.net
  BitBtn2: TBitBtn; // delph.forumalgerie.net
  Label1: TLabel; // delph.forumalgerie.net
  Label2: TLabel; // delph.forumalgerie.net
  Label3: TLabel; // delph.forumalgerie.net
  Label4: TLabel; // delph.forumalgerie.net
  procedure BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
  procedure Edit1Exit(Sender: TObject); // delph.forumalgerie.net
 private
 public
 end; // delph.forumalgerie.net

var
 Form7: TForm7; // delph.forumalgerie.net

implementation

{$R *.dfm} // delph.forumalgerie.net

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

begin
 //  Num1 = Edit1.Text
 //  Ec = Edit2.Text
 Num1 := StrToFloat(Edit1.Text); // delph.forumalgerie.net
 Ec := StrToFloat(Edit2.Text); // delph.forumalgerie.net
 //  Egal = Num1 ^ Ec
 Egal := Power(Ec,Num1); // delph.forumalgerie.net
 //  Edit1.Text =  Egal
 Edit3.Text := FloatToStr(Egal); // delph.forumalgerie.net
 Label3.Caption := '
الحل هو
' + Edit3.Text; // delph.forumalgerie.net

 BitBtn1.Enabled := false; // delph.forumalgerie.net
end; // delph.forumalgerie.net

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

end. // delph.forumalgerie.net

mah11
Admin

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

https://delph.forumalgerie.net

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

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

مُساهمة  mah11 23/5/2015, 12:03 pm

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

الوحدة7

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

الكود:

unit Mayen; // delph.forumalgerie.net

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, ExtCtrls; // delph.forumalgerie.net

type
 TForm8 = class(TForm) // delph.forumalgerie.net
  Panel1: TPanel; // delph.forumalgerie.net
  Panel2: TPanel; // delph.forumalgerie.net
  Panel3: TPanel; // delph.forumalgerie.net
  Edit1: TEdit; // delph.forumalgerie.net
  Edit2: TEdit; // delph.forumalgerie.net
  BitBtn1: TBitBtn; // delph.forumalgerie.net
  Edit3: TEdit; // delph.forumalgerie.net
  BitBtn2: TBitBtn; // delph.forumalgerie.net
  Label1: TLabel; // delph.forumalgerie.net
  Label2: TLabel; // delph.forumalgerie.net
  Label3: TLabel; // delph.forumalgerie.net
  procedure BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
  procedure Edit1Exit(Sender: TObject); // delph.forumalgerie.net
 private
 public
 end; // delph.forumalgerie.net

var
 Form8: TForm8; // delph.forumalgerie.net

implementation

{$R *.dfm} // delph.forumalgerie.net

procedure TForm8.BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
var
  Num1, Num2: Real; // delph.forumalgerie.net
  Egal: Real; // delph.forumalgerie.net
 
begin
 //  Num1 = Edit1.Text
 //  Num2 = Edit2.Text
 Num1 := StrToFloat(Edit1.Text); // delph.forumalgerie.net
 Num2 := StrToFloat(Edit2.Text); // delph.forumalgerie.net
 //  Egal = Num1 + Num2 / 2
 Egal := (Num1 + Num2) / 2; // delph.forumalgerie.net
 //  Edit3.Text =  Egal
 Edit3.Text := FloatToStr(Egal); // delph.forumalgerie.net
 Label3.Caption := '
الحل هو 
' + Edit3.Text; // delph.forumalgerie.net

BitBtn1.Enabled := false; // delph.forumalgerie.net
end; // delph.forumalgerie.net

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

end. // delph.forumalgerie.net

mah11
Admin

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

https://delph.forumalgerie.net

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

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

مُساهمة  mah11 23/5/2015, 12:06 pm

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

الوحدة8

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

الكود:

unit Carre; // delph.forumalgerie.net

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, ExtCtrls; // delph.forumalgerie.net

type
 TForm9 = class(TForm) // delph.forumalgerie.net
  Panel1: TPanel; // delph.forumalgerie.net
  Panel2: TPanel; // delph.forumalgerie.net
  Panel3: TPanel; // delph.forumalgerie.net
  Edit1: TEdit; // delph.forumalgerie.net
  BitBtn1: TBitBtn; // delph.forumalgerie.net
  Edit3: TEdit; // delph.forumalgerie.net
  BitBtn2: TBitBtn; // delph.forumalgerie.net
  Label1: TLabel; // delph.forumalgerie.net
  Label2: TLabel; // delph.forumalgerie.net
  Label3: TLabel; // delph.forumalgerie.net
  procedure BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
  procedure Edit1Change(Sender: TObject); // delph.forumalgerie.net
 private
 public
 end; // delph.forumalgerie.net

var
 Form9: TForm9; // delph.forumalgerie.net

implementation

{$R *.dfm} // delph.forumalgerie.net

procedure TForm9.BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
var
  Num1: Real; // delph.forumalgerie.net
  Egal: Real; // delph.forumalgerie.net
 
begin
 //  Num1 = Edit1.Text
 Num1 := StrToFloat(Edit1.Text); // delph.forumalgerie.net
 //  Egal = Num1 ^2
 Egal := Sqr(Num1); // delph.forumalgerie.net
 //  Edit3.Text =  Egal
 Edit3.Text := FloatToStr(Egal); // delph.forumalgerie.net
 Label3.Caption := '
الحل هو   
' + Edit3.Text; // delph.forumalgerie.net
BitBtn1.Enabled := false; // delph.forumalgerie.net
end; // delph.forumalgerie.net

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

end. // delph.forumalgerie.net

mah11
Admin

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

https://delph.forumalgerie.net

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

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

مُساهمة  mah11 23/5/2015, 12:10 pm

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

الوحدة9

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

الكود:

unit Racin; // delph.forumalgerie.net

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, ExtCtrls; // delph.forumalgerie.net

type
 TForm10 = class(TForm) // delph.forumalgerie.net
  Panel1: TPanel; // delph.forumalgerie.net
  Panel2: TPanel; // delph.forumalgerie.net
  Panel3: TPanel; // delph.forumalgerie.net
  Edit1: TEdit; // delph.forumalgerie.net
  BitBtn1: TBitBtn; // delph.forumalgerie.net
  Edit3: TEdit; // delph.forumalgerie.net
  BitBtn2: TBitBtn; // delph.forumalgerie.net
  Label1: TLabel; // delph.forumalgerie.net
  Label2: TLabel; // delph.forumalgerie.net
  Label3: TLabel; // delph.forumalgerie.net
  procedure BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
  procedure Edit1Change(Sender: TObject); // delph.forumalgerie.net
 private
 public
 end; // delph.forumalgerie.net

var
 Form10: TForm10; // delph.forumalgerie.net

implementation

{$R *.dfm} // delph.forumalgerie.net

procedure TForm10.BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
var
  Num1: Real; // delph.forumalgerie.net
  Egal: Real; // delph.forumalgerie.net
 
begin
 //  Num1 = Edit1.Text
 Num1 := StrToFloat(Edit1.Text); // delph.forumalgerie.net
 Egal := Sqrt(Num1); // delph.forumalgerie.net
 //  Edit3.Text =  Egal
 Edit3.Text := FloatToStr(Egal); // delph.forumalgerie.net
 Label3.Caption := '
الحل هو
' + Edit3.Text; // delph.forumalgerie.net
BitBtn1.Enabled := false; // delph.forumalgerie.net
end; // delph.forumalgerie.net

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

end. // delph.forumalgerie.net

mah11
Admin

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

https://delph.forumalgerie.net

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

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

مُساهمة  mah11 23/5/2015, 12:12 pm

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

الوحدة10

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

الكود:

unit CarreM; // delph.forumalgerie.net

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, ExtCtrls; // delph.forumalgerie.net

type
 TForm11 = class(TForm) // delph.forumalgerie.net
  Panel1: TPanel; // delph.forumalgerie.net
  Panel2: TPanel; // delph.forumalgerie.net
  Panel3: TPanel; // delph.forumalgerie.net
  Edit1: TEdit; // delph.forumalgerie.net
  BitBtn1: TBitBtn; // delph.forumalgerie.net
  Edit3: TEdit; // delph.forumalgerie.net
  BitBtn2: TBitBtn; // delph.forumalgerie.net
  Label2: TLabel; // delph.forumalgerie.net
  Label3: TLabel; // delph.forumalgerie.net
  Label1: TLabel; // delph.forumalgerie.net
  Label4: TLabel; // delph.forumalgerie.net
  procedure BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
  procedure Edit1Change(Sender: TObject); // delph.forumalgerie.net
 private
 public
 end; // delph.forumalgerie.net

var
 Form11: TForm11; // delph.forumalgerie.net

implementation

{$R *.dfm} // delph.forumalgerie.net

procedure TForm11.BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
var
  Num1: Real; // delph.forumalgerie.net
  Egal: Real; // delph.forumalgerie.net
 
begin
 //  Num1 = Edit1.Text
 Num1 := StrToFloat(Edit1.Text); // delph.forumalgerie.net
 //  Egal = Num1 × Num1
 Egal := Num1 * Num1; // delph.forumalgerie.net
 //  Edit3.Text =  Egal
 Edit3.Text := FloatToStr(Egal); // delph.forumalgerie.net
 Label3.Caption := '
الحل هو   
' + Edit3.Text; // delph.forumalgerie.net
BitBtn1.Enabled := false; // delph.forumalgerie.net
end; // delph.forumalgerie.net

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

end. // delph.forumalgerie.net

mah11
Admin

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

https://delph.forumalgerie.net

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

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

مُساهمة  mah11 23/5/2015, 12:15 pm

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

الوحدة11

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

الكود:

unit CarreP; // delph.forumalgerie.net

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, ExtCtrls; // delph.forumalgerie.net

type
 TForm12 = class(TForm) // delph.forumalgerie.net
  Panel1: TPanel; // delph.forumalgerie.net
  Panel2: TPanel; // delph.forumalgerie.net
  Panel3: TPanel; // delph.forumalgerie.net
  Edit1: TEdit; // delph.forumalgerie.net
  BitBtn1: TBitBtn; // delph.forumalgerie.net
  Edit3: TEdit; // delph.forumalgerie.net
  BitBtn2: TBitBtn; // delph.forumalgerie.net
  Label2: TLabel; // delph.forumalgerie.net
  Label3: TLabel; // delph.forumalgerie.net
  Label1: TLabel; // delph.forumalgerie.net
  Label4: TLabel; // delph.forumalgerie.net
  procedure BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
  procedure Edit1Change(Sender: TObject); // delph.forumalgerie.net
 private
 public
 end; // delph.forumalgerie.net

var
 Form12: TForm12; // delph.forumalgerie.net

implementation

{$R *.dfm} // delph.forumalgerie.net

procedure TForm12.BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
var
  Num1: Real; // delph.forumalgerie.net
  Egal: Real;
begin
 //  Num1 = Edit1.Text
 Num1 := StrToFloat(Edit1.Text); // delph.forumalgerie.net
 //  Egal = Num1 × 4
 Egal := Num1 * 4; // delph.forumalgerie.net
 //  Edit3.Text =  Egal
 Edit3.Text := FloatToStr(Egal); // delph.forumalgerie.net
 Label3.Caption := '
الحل هو 
' + Edit3.Text; // delph.forumalgerie.net
BitBtn1.Enabled := false; // delph.forumalgerie.net

end; // delph.forumalgerie.net

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

end. // delph.forumalgerie.net

mah11
Admin

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

https://delph.forumalgerie.net

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

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

مُساهمة  mah11 23/5/2015, 12:18 pm

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

الوحدة12

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

الكود:

unit Rect; // delph.forumalgerie.net

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, ExtCtrls; // delph.forumalgerie.net

type
 TForm15 = class(TForm) // delph.forumalgerie.net
  Panel1: TPanel; // delph.forumalgerie.net
  Panel2: TPanel; // delph.forumalgerie.net
  Panel3: TPanel; // delph.forumalgerie.net
  Edit1: TEdit; // delph.forumalgerie.net
  Edit2: TEdit; // delph.forumalgerie.net
  BitBtn1: TBitBtn; // delph.forumalgerie.net
  Edit3: TEdit; // delph.forumalgerie.net
  BitBtn2: TBitBtn; // delph.forumalgerie.net
  Label2: TLabel; // delph.forumalgerie.net
  Label3: TLabel; // delph.forumalgerie.net
  Label1: TLabel; // delph.forumalgerie.net
  Label4: TLabel; // delph.forumalgerie.net
  Label5: TLabel; // delph.forumalgerie.net
  procedure BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
  procedure Edit1Change(Sender: TObject); // delph.forumalgerie.net
 private
 public
 end; // delph.forumalgerie.net

var
 Form15: TForm15; // delph.forumalgerie.net

implementation

{$R *.dfm} // delph.forumalgerie.net

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

begin
 //  Num1 = Edit1.Text
 //  Num2 = Edit2.Text
 Num1 := StrToFloat(Edit1.Text); // delph.forumalgerie.net
 Num2 := StrToFloat(Edit2.Text); // delph.forumalgerie.net
 //  Egal = Num1 × Num2
 Egal := Num1 * Num2; // delph.forumalgerie.net
 //  Edit1.Text =  Egal
 Edit3.Text := FloatToStr(Egal); // delph.forumalgerie.net
 Label3.Caption := '
الحل هو
' + Edit3.Text; // delph.forumalgerie.net
 BitBtn1.Enabled := false; // delph.forumalgerie.net
end; // delph.forumalgerie.net

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

end. // delph.forumalgerie.net

mah11
Admin

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

https://delph.forumalgerie.net

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

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

مُساهمة  mah11 23/5/2015, 12:21 pm

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

الوحدة13

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

الكود:

unit Tiriang; // delph.forumalgerie.net

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, ExtCtrls; // delph.forumalgerie.net

type
 TForm16 = class(TForm) // delph.forumalgerie.net
  Panel1: TPanel; // delph.forumalgerie.net
  Panel2: TPanel; // delph.forumalgerie.net
  Panel3: TPanel; // delph.forumalgerie.net
  Edit1: TEdit; // delph.forumalgerie.net
  Edit2: TEdit; // delph.forumalgerie.net
  BitBtn1: TBitBtn; // delph.forumalgerie.net
  Edit3: TEdit; // delph.forumalgerie.net
  BitBtn2: TBitBtn; // delph.forumalgerie.net
  Label2: TLabel; // delph.forumalgerie.net
  Label3: TLabel; // delph.forumalgerie.net
  Label1: TLabel; // delph.forumalgerie.net
  Label4: TLabel; // delph.forumalgerie.net
  Label5: TLabel; // delph.forumalgerie.net
  procedure BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
  procedure Edit1Exit(Sender: TObject); // delph.forumalgerie.net
 private
 public
 end; // delph.forumalgerie.net

var
 Form16: TForm16; // delph.forumalgerie.net

implementation

{$R *.dfm} // delph.forumalgerie.net

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

begin
 //  Num1 = Edit1.Text
 //  Num2 = Edit2.Text
 Num1 := StrToFloat(Edit1.Text); // delph.forumalgerie.net
 Num2 := StrToFloat(Edit2.Text); // delph.forumalgerie.net
 //  Egal = Num1 * Num2 / 2
 Egal := (Num1 * Num2) / 2; // delph.forumalgerie.net
 //  Edit3.Text =  Egal
 Edit3.Text := FloatToStr(Egal); // delph.forumalgerie.net
 Label3.Caption := '
الحل هو
' + Edit3.Text; // delph.forumalgerie.net
 BitBtn1.Enabled := false;
end; // delph.forumalgerie.net

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

end. // delph.forumalgerie.net

mah11
Admin

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

https://delph.forumalgerie.net

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

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

مُساهمة  mah11 23/5/2015, 12:24 pm

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

الوحدة14

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

الكود:

unit Circule; // delph.forumalgerie.net

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, ExtCtrls; // delph.forumalgerie.net

type
 TForm17 = class(TForm) // delph.forumalgerie.net
  Panel1: TPanel; // delph.forumalgerie.net
  Panel2: TPanel; // delph.forumalgerie.net
  Panel3: TPanel; // delph.forumalgerie.net
  Edit1: TEdit; // delph.forumalgerie.net
  BitBtn1: TBitBtn; // delph.forumalgerie.net
  Edit3: TEdit; // delph.forumalgerie.net
  BitBtn2: TBitBtn; // delph.forumalgerie.net
  Label2: TLabel; // delph.forumalgerie.net
  Label3: TLabel; // delph.forumalgerie.net
  Label1: TLabel; // delph.forumalgerie.net
  Label4: TLabel; // delph.forumalgerie.net
  procedure BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
  procedure Edit1Change(Sender: TObject); // delph.forumalgerie.net
 private
 public
 end; // delph.forumalgerie.net

var
 Form17: TForm17; // delph.forumalgerie.net

implementation

{$R *.dfm} // delph.forumalgerie.net

procedure TForm17.BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
var
  Num1: Real; // delph.forumalgerie.net
  Egal: Real; // delph.forumalgerie.net

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

 //  Egal = Num1 *
 Egal := Sqr(Num1) * 3.1415; // delph.forumalgerie.net
 //  Edit3.Text =  Egal
 Edit3.Text := FloatToStr(Egal); // delph.forumalgerie.net
 Label3.Caption := '
الحل هو
' + Edit3.Text; // delph.forumalgerie.net

 BitBtn1.Enabled := false; // delph.forumalgerie.net
end; // delph.forumalgerie.net

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

end. // delph.forumalgerie.net

mah11
Admin

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

https://delph.forumalgerie.net

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

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

مُساهمة  mah11 23/5/2015, 12:28 pm

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

الوحدة15

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

الكود:

unit Rect1; // delph.forumalgerie.net

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, ExtCtrls; // delph.forumalgerie.net

type
 TForm18 = class(TForm) // delph.forumalgerie.net
  Panel1: TPanel; // delph.forumalgerie.net
  Panel2: TPanel; // delph.forumalgerie.net
  Panel3: TPanel; // delph.forumalgerie.net
  Edit1: TEdit; // delph.forumalgerie.net
  Edit2: TEdit; // delph.forumalgerie.net
  BitBtn1: TBitBtn; // delph.forumalgerie.net
  Edit3: TEdit; // delph.forumalgerie.net
  BitBtn2: TBitBtn; // delph.forumalgerie.net
  Label2: TLabel; // delph.forumalgerie.net
  Label3: TLabel; // delph.forumalgerie.net
  Label1: TLabel; // delph.forumalgerie.net
  Label4: TLabel; // delph.forumalgerie.net
  Label5: TLabel; // delph.forumalgerie.net
  procedure BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
  procedure Edit1Exit(Sender: TObject); // delph.forumalgerie.net
 private
 public
 end; // delph.forumalgerie.net

var
 Form18: TForm18; // delph.forumalgerie.net

implementation

{$R *.dfm} // delph.forumalgerie.net

procedure TForm18.BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
var
  Num1, Num2: Real; // delph.forumalgerie.net
  Egal: Real; // delph.forumalgerie.net
begin
 //  Num1 = Edit1.Text
 //  Num2 = Edit2.Text
 Num1 := StrToFloat(Edit1.Text); // delph.forumalgerie.net
 Num2 := StrToFloat(Edit2.Text); // delph.forumalgerie.net
 //  Egal = (Num1 + Num2)*2
 Egal := (Num1 + Num2) * 2; // delph.forumalgerie.net
 //  Edit1.Text =  Egal
 Edit3.Text := FloatToStr(Egal); // delph.forumalgerie.net
 Label3.Caption := '
  الحل هو
' + Edit3.Text; // delph.forumalgerie.net
 BitBtn1.Enabled := false; // delph.forumalgerie.net

end; // delph.forumalgerie.net

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

end. // delph.forumalgerie.net

mah11
Admin

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

https://delph.forumalgerie.net

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

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

مُساهمة  mah11 23/5/2015, 12:31 pm

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

الوحدة16

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

الكود:

unit Tiriang1; // delph.forumalgerie.net

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, ExtCtrls; // delph.forumalgerie.net

type
 TForm19 = class(TForm) // delph.forumalgerie.net
  Panel1: TPanel; // delph.forumalgerie.net
  Panel2: TPanel; // delph.forumalgerie.net
  Panel3: TPanel; // delph.forumalgerie.net
  Edit1: TEdit; // delph.forumalgerie.net
  Edit2: TEdit; // delph.forumalgerie.net
  BitBtn1: TBitBtn; // delph.forumalgerie.net
  Edit3: TEdit; // delph.forumalgerie.net
  BitBtn2: TBitBtn; // delph.forumalgerie.net
  Label2: TLabel; // delph.forumalgerie.net
  Label3: TLabel; // delph.forumalgerie.net
  Label1: TLabel; // delph.forumalgerie.net
  Edit4: TEdit; // delph.forumalgerie.net
  procedure BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
  procedure Edit2Exit(Sender: TObject); // delph.forumalgerie.net
 private
 public
 end; // delph.forumalgerie.net

var
 Form19: TForm19; // delph.forumalgerie.net

implementation

{$R *.dfm} // delph.forumalgerie.net

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

begin
 //  Num1 = Edit1.Text
 //  Num2 = Edit2.Text
 //  Num3 = Edit3.Text
 Num1 := StrToFloat(Edit1.Text); // delph.forumalgerie.net
 Num2 := StrToFloat(Edit2.Text); // delph.forumalgerie.net
 Num3 := StrToFloat(Edit3.Text); // delph.forumalgerie.net
 //  Egal = Num1 + Num2 + Num3
 Egal := Num1 + Num2 + Num3; // delph.forumalgerie.net
 //  Edit1.Text =  Egal
 Edit4.Text := FloatToStr(Egal); // delph.forumalgerie.net
 Label3.Caption := '
الحل هو
' + Edit4.Text; // delph.forumalgerie.net
 BitBtn1.Enabled := false; // delph.forumalgerie.net
end;v

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

end. // delph.forumalgerie.net

mah11
Admin

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

https://delph.forumalgerie.net

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

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

مُساهمة  mah11 23/5/2015, 12:34 pm

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

الوحدة17

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

الكود:

unit Circule1; // delph.forumalgerie.net

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, ExtCtrls; // delph.forumalgerie.net

type
 TForm20 = class(TForm) // delph.forumalgerie.net
  Panel1: TPanel; // delph.forumalgerie.net
  Panel2: TPanel; // delph.forumalgerie.net
  Panel3: TPanel; // delph.forumalgerie.net
  Edit1: TEdit; // delph.forumalgerie.net
  BitBtn1: TBitBtn; // delph.forumalgerie.net
  Edit3: TEdit; // delph.forumalgerie.net
  BitBtn2: TBitBtn; // delph.forumalgerie.net
  Label2: TLabel; // delph.forumalgerie.net
  Label3: TLabel; // delph.forumalgerie.net
  Label1: TLabel; // delph.forumalgerie.net
  Label4: TLabel; // delph.forumalgerie.net
  procedure BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
  procedure Edit1Change(Sender: TObject);
 private
 public
 end; // delph.forumalgerie.net

var
 Form20: TForm20; // delph.forumalgerie.net

implementation

{$R *.dfm}

procedure TForm20.BitBtn1Click(Sender: TObject); // delph.forumalgerie.net
var
  Num1: Real; // delph.forumalgerie.net
  Egal: Real; // delph.forumalgerie.net

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

 //  Egal = Num1 × 2 ×  3.1415
 Egal := Num1 * 2 * 3.1415; // delph.forumalgerie.net
 //  Edit3.Text =  Egal
 Edit3.Text := FloatToStr(Egal); // delph.forumalgerie.net
 Label3.Caption := '
الحل هو
' + Edit3.Text; // delph.forumalgerie.net
 BitBtn1.Enabled := false; // delph.forumalgerie.net

end; // delph.forumalgerie.net

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

end. // delph.forumalgerie.net


mah11
Admin

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

https://delph.forumalgerie.net

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

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

مُساهمة  sdk11 13/6/2015, 9:31 am

بارك الله فيك

sdk11
مبرمج مجتهد

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

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

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

مُساهمة  sasa sabrina 13/6/2015, 2:49 pm

بارك الله فيك

sasa sabrina

عدد المساهمات : 19
تاريخ التسجيل : 26/04/2015

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

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

مُساهمة  ali 13/6/2015, 3:23 pm

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

ali
مبرمج مجتهد

عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013

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

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

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

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