برنامج تعليمي
2 مشترك
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
برنامج تعليمي
برنامج تعليمي
بسم الله الرحمن الرحيم
الصلاة والسلام رسول الله صلى الله عليه وسلم وعلى آله وصحبه أجمعين
----------------------------------------
الوحدة 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.
الوحدة 1
رنامج تعليمي
بسم الله الرحمن الرحيم
الصلاة والسلام رسول الله صلى الله عليه وسلم وعلى آله وصحبه أجمعين
----------------------------------------
---------------------------------------
| الوحدة 1 |
---------------------------------------
unit UMath;
العمليات الجمع
[CODE]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Form2.ShowModal;
end;
[CODE]
/
العمليات الطرح
[code]
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Form3.ShowModal;
end;
[/code]
العمليات الضرب
[code]
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Form4.ShowModal;
end;
[/code]
العمليات القسمة
[code]
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
Form5.ShowModal;
end;
[/code]
رفع إلى الأس
[code]
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
Form7.ShowModal;
end;
[/code]
متوسط عددين
[code]
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
Form8.ShowModal;
end;
[/code]
مربع عدد
[code]
procedure TForm1.BitBtn7Click(Sender: TObject);
begin
Form9.ShowModal;
end;
[/code]
عمليات على الجذور التربيعية
[code]
procedure TForm1.BitBtn8Click(Sender: TObject);
begin
Form10.ShowModal;
end;
[/code]
محيط المربع
[code]
procedure TForm1.BitBtn9Click(Sender: TObject);
begin
Form11.ShowModal;
end;
[/code]
مساحة المستطيل
[code]
procedure TForm1.BitBtn10Click(Sender: TObject);
begin
Form15.ShowModal;
end;
[/code]
مساحة المثلث
[code]
procedure TForm1.BitBtn11Click(Sender: TObject);
begin
Form16.ShowModal;
end;
[/code]
مساحة الدائرة
[code]
procedure TForm1.BitBtn12Click(Sender: TObject);
begin
Form17.ShowModal;
end;
[/code]
محيط المستطيل
[code]
procedure TForm1.BitBtn13Click(Sender: TObject);
begin
Form12.ShowModal;
end;
[/code]
محيط المثلث
[code]
procedure TForm1.BitBtn14Click(Sender: TObject);
begin
Form18.ShowModal;
end;
[/code]
محيط الدائرة
[code]
procedure TForm1.BitBtn15Click(Sender: TObject);
begin
Form19.ShowModal;
end;
[/code]
رد: برنامج تعليمي
--------------------------------
| الوحدة 2 |
--------------------------------
unit UAdd;
العمليات الجمع
حـساب
رجــــــــــوع
حــاصــل الجـمع هـو
- الكود:
procedure TForm2.BitBtn1Click(Sender: TObject);
var
Num1, Num2: Real;
Egal: Real;
begin
// Num1 = Edit1.Text
// Num2 = Edit2.Text
Num1 := StrToFloat(Edit1.Text);
Num2 := StrToFloat(Edit2.Text);
// Egal = Num1 + Num2
Egal := Num1 + Num2;
// Edit1.Text = Egal
Edit3.Text := FloatToStr(Egal);
Label3.Caption := 'حــاصــل الجـمع هـو ' + Edit3.Text;
Edit2.ReadOnly := true;
BitBtn1.Enabled := false;
end;
مربع النص للقراءة فقط
- الكود:
procedure TForm2.Edit1Change(Sender: TObject);
begin
Edit2.ReadOnly := false;
end;
ممكن تستطيع استعماله
- الكود:
procedure TForm2.Edit2Change(Sender: TObject);
begin
BitBtn1.Enabled := true;
end;
end.
رد: برنامج تعليمي
-----------------------------
| الوحدة3 |
-----------------------------
unit Sous;
العمليات الطرح
العمليات الطرح
حـساب
رجــــــــــوع
حاصل الطرح هــو
| الوحدة3 |
-----------------------------
unit Sous;
العمليات الطرح
العمليات الطرح
حـساب
رجــــــــــوع
حاصل الطرح هــو
- الكود:
procedure TForm3.BitBtn1Click(Sender: TObject);
var
Num1, Num2: Real;
Egal: Real;
begin
// Num1 = Edit1.Text
// Num2 = Edit2.Text
Num1 := StrToFloat(Edit1.Text);
Num2 := StrToFloat(Edit2.Text);
// Egal = Num1 - Num2
Egal := Num1 - Num2;
// Edit1.Text = Egal
Edit3.Text := FloatToStr(Egal);
Label3.Caption := 'حاصل الطرح هــو ' + Edit3.Text;
BitBtn1.Enabled := false;
end;
- الكود:
procedure TForm3.Edit1Exit(Sender: TObject);
begin
BitBtn1.Enabled := true;
end;
end.
مواضيع مماثلة
» برنامج تعليمي 2
» النسخة الجديدة من برنامج - برنامج تسيير محل تجاري - الموضوع من الاعضاء فقط
» فتح أي برنامج أو مجلد بـدلفي
» برنامج برنامج حساب العاملي ب delphi
» برنامج لتسيير محل صيدالية
» النسخة الجديدة من برنامج - برنامج تسيير محل تجاري - الموضوع من الاعضاء فقط
» فتح أي برنامج أو مجلد بـدلفي
» برنامج برنامج حساب العاملي ب delphi
» برنامج لتسيير محل صيدالية
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى