برنامج تعليمي 2
4 مشترك
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
برنامج تعليمي 2
برنامج تعليمي
بسم الله الرحمن الرحيم
الصلاة والسلام رسول الله صلى الله عليه وسلم وعلى آله وصحبه أجمعين
----------------------------------------
الوحدة 1
----------------------------------------
بسم الله الرحمن الرحيم
الصلاة والسلام رسول الله صلى الله عليه وسلم وعلى آله وصحبه أجمعين
----------------------------------------
الوحدة 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 مرات (السبب : تصحيح بعض المعلومات)
رد: برنامج تعليمي 2
--------------------------------------------
الوحدة 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.
رد: برنامج تعليمي 2
--------------------------------------------
الوحدة3
--------------------------------------------
الوحدة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
رد: برنامج تعليمي 2
--------------------------------------------
الوحدة4
--------------------------------------------
الوحدة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
رد: برنامج تعليمي 2
--------------------------------------------
الوحدة5
--------------------------------------------
الوحدة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
رد: برنامج تعليمي 2
--------------------------------------------
الوحدة6
--------------------------------------------
الوحدة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
رد: برنامج تعليمي 2
--------------------------------------------
الوحدة7
--------------------------------------------
الوحدة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
رد: برنامج تعليمي 2
--------------------------------------------
الوحدة8
--------------------------------------------
الوحدة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
رد: برنامج تعليمي 2
--------------------------------------------
الوحدة9
--------------------------------------------
الوحدة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
رد: برنامج تعليمي 2
--------------------------------------------
الوحدة10
--------------------------------------------
الوحدة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
رد: برنامج تعليمي 2
--------------------------------------------
الوحدة11
--------------------------------------------
الوحدة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
رد: برنامج تعليمي 2
--------------------------------------------
الوحدة12
--------------------------------------------
الوحدة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
رد: برنامج تعليمي 2
--------------------------------------------
الوحدة13
--------------------------------------------
الوحدة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
رد: برنامج تعليمي 2
--------------------------------------------
الوحدة14
--------------------------------------------
الوحدة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
رد: برنامج تعليمي 2
--------------------------------------------
الوحدة15
--------------------------------------------
الوحدة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
رد: برنامج تعليمي 2
--------------------------------------------
الوحدة16
--------------------------------------------
الوحدة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
رد: برنامج تعليمي 2
--------------------------------------------
الوحدة17
--------------------------------------------
الوحدة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
مواضيع مماثلة
» برنامج تعليمي
» برنامج لحساب مربع عدد ما
» برنامج لتسيير محل صيدالية
» برنامج برنامج حساب العاملي ب delphi
» برنامج بسيط
» برنامج لحساب مربع عدد ما
» برنامج لتسيير محل صيدالية
» برنامج برنامج حساب العاملي ب delphi
» برنامج بسيط
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى