برنامج برنامج حساب الغاز والكهربة النسخة 2

[طيباوي ابو علي1]

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

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

الحمد لله رب العالمين الرحمن الرحيم

برنامج حساب الغاز والكهربة النسخة 2

برنامج حساب الغاز والكهربة هو محاولة بسيطة
ليستطيع أي مستهلك للغاز والكهربة معرفة ماذا أستهلك من الغاز والكهربة
حتي يأخذ الاحتياطات الازمة من أجل الاقتصاد في الاستهلاك والاستغناء على بعض
الاجهزة الغير ضرورية واطفاء بعض المصابيح

طريقة الاستعمال من أجل المستعمل للبرنامج

أولا:

يأخذ الرقم الموجود في عداد الكهربة وعداد الغاز كذلك
ويأخذ الرقم الموجود في آخر فاتورة للغاز والكهربة

وهو Index nouveau

يكتبهما في الأماكن المخصصة لهم في البرنامج

----------
طريقة البرمجة
ثانيا:

البرنامج موجه الى مبتدئ البرمجة دلفي

ضع فوق الفورم 2 TGroupBox
داخل ال GroupBox1 ضع 4 TEdit وهم
d1 و d2 و d5 و d6

وضع 2 TLabel وهم
Label18 و Label19

Label18 --> Caption = Index Nouveau
Label19 --> Caption = Index Ancien

داخل ال GroupBox2 ضع 6 TEdit وهم
d3 و d4 و d7 و d8
و ed1 و ed4

وضع 4 TLabel وهم
Label20 و Label21 و Label22 و Label23

Label20 --> Caption = Différance
Label21 --> Caption = COEF
Label22 --> Caption = (kwh/THERMIE)
Label23 --> Caption = CONSOMMATION

ضع على الفورم 3 TBitBtn وهم
btnCalc و BitBtn2 و EffacerClick

رتب الباقية حسب الفاتورة

حولت قدر المستطاع من خلاله توضيح فكرة البرمجة الموجهة بالكائنات oop

عملت البرنامج delphi 10.2

----------

الكود سورس أو نص البرمجي المكتوب بدلفي وهو خاص بمبرمجي دلفي الجدد
https://www.mediafire.com/file/buvrs4.../elec+10.2.rar

الملف التنفيذي اي هذا الملف يستطيع مستخدم أن يستعمله
https://www.mediafire.com/file/15kvgc...prjGazElec.rar
‏

[taibouni]

السلام عليكم اخي
كود سورس البرنامج لايعمل
عاود طلعونا و تشكر
الله يحفظك

[طيباوي ابو علي1]

اعذرني أخي على التأخر في الرد عليك أنا أسف

نزلت الكود سورس من موقع ميديا فير اليوم
واشتغل بشكل صحيح على xe delphi
لكن اذا شغلت بدلفي 7 من بورلاند لايشتغل بشكل صحيح
حتى تغير فيه


المشروع أو البرنامج

ملاحظة
شغل في الدلفي 7 من بولاند
أو...

program prjGazElec;

uses
 // Vcl.  أوقفت هذا من أجل أن يعمل في الدلفي7 أو 5 واذا كانت من الدلفي delphi xe فما فوق 
Forms,
  untElecGaz in 'untElecGaz.pas' {Form1},
 // Vcl. أوقفت هذا من أجل أن يعمل في الدلفي7 أو 5 واذا كانت من الدلفي delphi xe فما فوق 
Themes//,
 // Vcl. أوقفت هذا من أجل أن يعمل في الدلفي7 أو 5 واذا كانت من الدلفي delphi xe فما فوق 
//Styles
;

{$R *.res}

begin
  Application.Initialize;
 // Application.MainFormOnTaskbar := True; أوقفت هذا من أجل أن يعمل في الدلفي7 أو 5 واذا كانت من الدلفي delphi xe فما فوق 
  //TStyleManager.TrySetStyle('Cyan Night'); أوقفت هذا من أجل أن يعمل في الدلفي7 أو 5 واذا كانت من الدلفي delphi xe فما فوق 
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

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

unit untElecGaz;

interface

uses
  //Winapi. أوقفت هذا من أجل أن يعمل في الدلفي7 أو 5 واذا كانت من الدلفي delphi xe فما فوق 
  Windows,
//  Winapi. أوقفت هذا من أجل أن يعمل في الدلفي7 أو 5 واذا كانت من الدلفي delphi xe فما فوق 
  Messages,
//  System. أوقفت هذا من أجل أن يعمل في الدلفي7 أو 5 واذا كانت من الدلفي delphi xe فما فوق 
  SysUtils,
//  System. أوقفت هذا من أجل أن يعمل في الدلفي7 أو 5 واذا كانت من الدلفي delphi xe فما فوق 
  Variants,
 // System. أوقفت هذا من أجل أن يعمل في الدلفي7 أو 5 واذا كانت من الدلفي delphi xe فما فوق 
  Classes,
//  Vcl. أوقفت هذا من أجل أن يعمل في الدلفي7 أو 5 واذا كانت من الدلفي delphi xe فما فوق 
  Graphics,
 // Vcl. أوقفت هذا من أجل أن يعمل في الدلفي7 أو 5 واذا كانت من الدلفي delphi xe فما فوق 
  Controls,
//  Vcl. أوقفت هذا من أجل أن يعمل في الدلفي7 أو 5 واذا كانت من الدلفي delphi xe فما فوق 
  Forms,
//  Vcl. أوقفت هذا من أجل أن يعمل في الدلفي7 أو 5 واذا كانت من الدلفي delphi xe فما فوق 
  Dialogs,
//  Vcl. أوقفت هذا من أجل أن يعمل في الدلفي7 أو 5 واذا كانت من الدلفي delphi xe فما فوق 
  StdCtrls,
 // Vcl. أوقفت هذا من أجل أن يعمل في الدلفي7 أو 5 واذا كانت من الدلفي delphi xe فما فوق 
  Buttons;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Dlk: TLabel;
    btnCalc: TBitBtn;
    Edit2: TEdit;
    BitBtn2: TBitBtn;
    Edit3: TEdit;
    ed2: TEdit;
    ed3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Memo1: TMemo;
    Memo2: TMemo;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    GroupBox1: TGroupBox;
    Label18: TLabel;
    Label19: TLabel;
    d1: TEdit;
    d2: TEdit;
    d5: TEdit;
    d6: TEdit;
    GroupBox2: TGroupBox;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    d3: TEdit;
    d4: TEdit;
    ed1: TEdit;
    ed4: TEdit;
    d8: TEdit;
    d7: TEdit;
    edtJour: TEdit;
    Edit1: TEdit;
    Edit20: TEdit;
    chkbxChoise: TCheckBox;
    EffacerClick: TBitBtn;
    procedure btnCalcClick(Sender: TObject);
    procedure chkbxChoiseClick(Sender: TObject);
    procedure d1Change(Sender: TObject);
    procedure d1KeyPress(Sender: TObject; var Key: Char);
    procedure EffacerClickClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
  public
  end;

type
  TPReel = ^Real;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
   untCalcGazElec, untCalcGazElecs;

procedure Effacer;
begin
 Form1.d1.Text := '';
 Form1.d2.Text := '';
 Form1.d5.Text := '';
 Form1.d6.Text := '';
 Form1.d1.SetFocus;
end;

procedure TForm1.btnCalcClick(Sender: TObject);
type
   PTFonctionGazElec = ^TFonctionGazElec;
   TFonctionGazElec = function: TCusGaElClass;
   PTGazElecs = ^TGazElec;
   PTGazElecClassic = ^TGazElecClassic;
   PTGaEl = ^TGaEl;

var
   tc1, tc2, tc3, tc4: TPReel;
   gc1, gc2, gc3, gc4: TPReel;
   i: Integer;
   GazElecs: PTGazElecs;
   GazElecClassic: PTGazElecClassic;
   fonGE: PTFonctionGazElec;
   GaEl: PTGaEl;

begin

 d3.Text := SousGazElec(StrToInt(d1.Text),StrToInt(d2.Text));
 d7.Text := SousGazElec(StrToInt(d5.Text),StrToInt(d6.Text));
 if(StrToInt(d3.Text) > 0)and(StrToInt(d7.Text) > 0)then begin
 ed1.Text := FormatFloat('0.00',MulGazElecCoef(StrToFloat(d3.Text),StrToFloat(d4.Text)));
 ed4.Text := FormatFloat('0.00',MulGazElecCoef(StrToFloat(d7.Text),StrToFloat(d8.Text)));
 new(tc1); new(tc2); new(tc3); new(tc4);
 new(gc1); new(gc2); new(gc3); new(gc4);

 if chkbxChoise.Checked then
 begin
 new(GazElecs);
 GazElecs^ := TGazElec.Create;
 try
 with GazElecs^ do
 begin
  Elec(StrToFloat(ed1.Text), tc1^, tc2^, tc3^, tc4^);
  Edit2.Text := FloatToStr(CalcTraElec(tc1^, tc2^));
  Edit3.Text := FloatToStr(CalcTraElec(tc3^, tc4^));
  Gaz(StrToFloat(ed4.Text), gc1^, gc2^, gc3^, gc4^);
  ed2.Text := FloatToStr(CalcTraGaz(gc1^,gc2^));
  ed3.Text := FloatToStr(CalcTraGaz(gc3^,gc4^));
 end;
  finally GazElecs^.Free; end;
    dispose(GazElecs);
 end else
 begin
  new(GazElecClassic);
  GazElecClassic^ := TGazElecClassic.Create;
  try
 with GazElecClassic^ do
 begin
  Elec(StrToFloat(ed1.Text), tc1^, tc2^, tc3^);
  Edit2.Text := FormatFloat('0.00',StrToFloat(Edit4.Text)+
  CalcTraElec(tc1^, tc2^)+CalcTraElec(tc3^, 0));
  Edit3.Text := '0'; Edit4.Text := '0';
  Gaz(StrToFloat(ed4.Text), gc1^, gc2^, gc3^);
  ed2.Text := FormatFloat('0.00',StrToFloat(Edit5.Text)+
  CalcTraGaz(gc1^,gc2^)+CalcTraGaz(gc3^,0));
  ed3.Text := '0'; Edit5.Text := '0';
 end;
  finally GazElecClassic^.Free; end;
    dispose(GazElecClassic); end;
  dispose(tc4); dispose(tc3); dispose(tc2); dispose(tc1);
  dispose(gc4); dispose(gc3); dispose(gc2); dispose(gc1);

 new(fonGE);
 new(GaEl);
 fonGE^ := FonctionGazElecClass;
 GaEl^ := fonGE^.Create;
 try
 with GaEl^ do begin
  with Memo1.Lines do begin
  Clear;
//FormatFloat('0'+DecimalSeparator+'00',12);//Delphi7 . or , or
//FormatFloat('0'+FormatSettings.DecimalSeparator+'00',12);//Delphi 10.2 . or , or
  Montant := StrToFloat(Edit2.Text);
  TAUX := StrToFloat(Edit9.Text);
  Add(FormatFloat('0.00',TVA1));
  Montant := StrToFloat(Edit3.Text);
  TAUX := StrToFloat(Edit10.Text);
  Add(FormatFloat('0.00',TVA1));
  Montant := StrToFloat(Edit4.Text);
  TAUX := StrToFloat(Edit11.Text);
  Add(FormatFloat('0.00',TVA1));
  Montant := StrToFloat(ed2.Text);
  TAUX := StrToFloat(Edit12.Text);
  Add(FormatFloat('0.00',TVA1));
  Montant := StrToFloat(ed3.Text);
  TAUX := StrToFloat(Edit13.Text);
  Add(FormatFloat('0.00',TVA1));
  Montant := StrToFloat(Edit5.Text);
  TAUX := StrToFloat(Edit14.Text);
  Add(FormatFloat('0.00',TVA1));
  end;

  with Memo2.Lines do
  begin
  Clear;
  Montant := StrToFloat(Edit2.Text);
  TVA := StrToFloat(Memo1.Lines.Strings[0]);
  Add(FormatFloat('0.00',Totg));
  Montant := StrToFloat(Edit3.Text);
  TVA := StrToFloat(Memo1.Lines.Strings[1]);
  Add(FormatFloat('0.00',Totg));
  Montant := StrToFloat(Edit4.Text);
  TVA := StrToFloat(Memo1.Lines.Strings[2]);
  Add(FormatFloat('0.00',Totg));
  Montant := StrToFloat(ed2.Text);
  TVA := StrToFloat(Memo1.Lines.Strings[3]);
  Add(FormatFloat('0.00',Totg));
  Montant := StrToFloat(ed3.Text);
  TVA := StrToFloat(Memo1.Lines.Strings[4]);
  Add(FormatFloat('0.00',Totg));
  Montant := StrToFloat(Edit5.Text);
  TVA := StrToFloat(Memo1.Lines.Strings[5]);
  Add(FormatFloat('0.00',Totg));
  Add(Edit6.Text); Add(Edit7.Text); Add(Edit8.Text);
  end;

  Edit16.Text := '0'; Edit17.Text := '0';
  with Memo1.Lines do for i := 0 to count-1 do
   Value := Value+StrToFloat(Strings[i]);
  Edit16.Text := FormatFloat('0.00',Value);
  with Memo2.Lines do for i := 0 to count-1 do
   Value := Value+StrToFloat(Strings[i]);
  Edit17.Text := FormatFloat('0.00',Value); //('0,00',Value)
  end;
    finally GaEl^.Free; end;
    dispose(GaEl); dispose(fonGE);

  Edit15.Text := FormatFloat('0.00',StrToFloat(Edit2.Text)+StrToFloat(Edit3.Text)+
  StrToFloat(Edit4.Text)+StrToFloat(ed2.Text)+StrToFloat(ed3.Text)+StrToFloat(Edit5.Text)+
  StrToFloat(Edit6.Text)+StrToFloat(Edit7.Text)+StrToFloat(Edit8.Text));
  Edit19.Text := FormatFloat('0.00',StrToFloat(Edit17.Text)+StrToFloat(Edit18.Text));
  Label17.Caption := FormatFloat('0.00',StrToFloat(Edit19.Text)/StrToInt(edtJour.Text));

  Edit20.Text := FormatFloat('0.00',StrToFloat(Edit17.Text)-StrToFloat(Edit1.Text));

  if StrToFloat(edit15.Text)+StrToFloat(edit16.Text)<>StrToFloat(edit17.Text)
  then ShowMessage('Error');
  end else Effacer;
  btncalc.Enabled := false;

end;

procedure TForm1.chkbxChoiseClick(Sender: TObject);
begin
if chkbxChoise.Checked then
begin
   chkbxChoise.Caption := 'Calcule Nouveau';
 edit4.Text := '78'+{FormatSettings.}DecimalSeparator+'66';
 edit5.Text := '85'+{FormatSettings.}DecimalSeparator+'50';
 Edit7.Text := '150';
 Edit8.Text := '679'+{FormatSettings.}DecimalSeparator+'19';
 Edit10.Text := '0'+{FormatSettings.}DecimalSeparator+'19';
 Edit13.Text := '0'+{FormatSettings.}DecimalSeparator+'19';
 end else
 begin
  chkbxChoise.Caption := 'Calcule Ancien';
 edit4.Text := '131'+{FormatSettings.}DecimalSeparator+'10';
 edit5.Text := '85'+{FormatSettings.}DecimalSeparator+'50';
 Edit7.Text := '75';
 Edit8.Text := '600';
 Edit10.Text := '0';
 Edit13.Text := '0';
 end;
end;

procedure TForm1.d1Change(Sender: TObject);
begin
 if(d1.Text <> '')and(d2.Text <> '')and(d5.Text <> '')and
 (d6.Text <> '')then btnCalc.Enabled := true
  else btnCalc.Enabled := false;
end;

procedure TForm1.d1KeyPress(Sender: TObject; var Key: Char);
begin
 if not(key in ['0'..'9',#8]) then key := #0;
end;

procedure TForm1.EffacerClickClick(Sender: TObject);
begin
  Effacer;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.Terminate;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

//--- GroupBox1 -----------------------------------//
 Form1.GroupBox1.Caption := 'RELEVE DE COMPTEUR';
  Form1.Label18.Caption := 'Index Nouveau';
  Form1.Label19.Caption := 'Index Ancien';
  Form1.d1.Text := ''; // Index Nouveau  Elec
  Form1.d2.Text := ''; // Index Ancien  Elec
  Form1.d5.Text := ''; // Index Nouveau Gaz
  Form1.d6.Text := ''; // Index Ancien Gaz

//--- GroupBox2 -----------------------------------//
 Form1.GroupBox2.Caption := '';
  Form1.Label20.Caption := 'Différance';
  Form1.Label21.Caption := 'COEF';
  Form1.Label22.Caption := '(kwh/THERMIE)';
  Form1.Label23.Caption := 'CONSOMMATION';
  // Index Nouveau - Index Ancien = Différance
  Form1.d3.Text := '';      // Différance
  Form1.d4.Text := '1';     // COEF Elec
  Form1.ed1.Text := '';
  Form1.d7.Text := '';     // Différance
  Form1.d8.Text := '9'+{FormatSettings.}DecimalSeparator+'02'; // COEF Gaz
  Form1.ed4.Text := '';
  // 0.00 or 0,00

 Form1.Label1.Caption := 'CONSOMMATION HORS TVA (DA)';
 Form1.Label2.Caption := 'T.V.A';
 Form1.Label3.Caption := 'ELEC 54 M';

 //--------   TAUX% -----------------//
// أوقفت هذا من أجل أن يعمل في الدلفي7 أو 5 واذا كانت من الدلفي delphi xe فما فوق 
 Form1.Edit9.Text := '0'+{FormatSettings.}DecimalSeparator+'09';
 Form1.Edit10.Text := '0'+{FormatSettings.}DecimalSeparator+'09';
 Form1.Edit11.Text := '0'+{FormatSettings.}DecimalSeparator+'09';
 Form1.Edit12.Text := '0'+{FormatSettings.}DecimalSeparator+'09';
 Form1.Edit13.Text := '0'+{FormatSettings.}DecimalSeparator+'09';
 Form1.Edit14.Text := '0'+{FormatSettings.}DecimalSeparator+'09';
 //--------   TAUX -----------------//

  Form1.btnCalc.Caption := 'Calc';
  Form1.EffacerClick.Caption := 'Effacer';
  Form1.BitBtn2.Caption := '&Fermer';

  form1.Edit1.Text := '0';
  form1.Edit2.Text := '';
  form1.Edit3.Text := '';

  form1.Edit4.Text := '78'+{FormatSettings.}DecimalSeparator+'66';  // Primes Fixes Elec
  form1.Edit5.Text := '85'+{FormatSettings.}DecimalSeparator+'50';  // Primes Fixes Gaz
  form1.Edit6.Text := '100';    // DRIOT FIXE
  form1.Edit7.Text := '150';    // TAXE HABITATION
  form1.Edit8.Text := '679'+{FormatSettings.}DecimalSeparator+'19'; // Soutien Etat
  form1.Edit18.Text := '162';   // Droit de timbre
  form1.edtJour.Text := '90';   // Le montant de votre consommation moyenne d'énergie par jour :

  form1.Edit15.Text := '';
  form1.Edit16.Text := '';
  form1.Edit17.Text := '';
  form1.Edit19.Text := '';
  form1.Edit20.Text := '';
end;

end.

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

unit untCalcGazElec;

interface

uses
  untCalcGazElecs, SysUtils;

type
  TGazElecClassic = class
   procedure Elec(tc0: real; var tc1, tc2, tc3: real); overload;
   procedure Gaz(gcs: real; var gc1, gc2, gc3: real); overload;
   function CalcTraElec(tco, tco1: real): real; virtual;
   function CalcTraGaz(gco, gco1: real): real; virtual;
  end;

  TGazElec = class(TGazElecClassic)
   procedure Elec(tc0: real; var tc1, tc2, tc3, tc4: real); overload;
   procedure Gaz(gcs: real; var gc1, gc2, gc3, gc4: real); overload;
   function CalcTraElec(tco, tco1: real): real; override;
   function CalcTraGaz(gco, gco1: real): real; override;
  end;

  TCusGaEl = class(TGaEl)
  private
   fTAUX: Real;
   fMontant: Real;
   fTVA: Real;
   fVale: Real;
  protected
   procedure SetGazEle1(const Vale: Real); override;
   procedure SetGazEle2(const Vale: Real); override;
   procedure SetGazEle3(const Vale: Real); override;
   procedure SetGazEle4(const Vale: Real); override;
   function GetGazEle1: real; override;
   function GetGazEle2: real; override;
   function GetGazEle3: real; override;
   function GetGazEle4: real; override;
  public
   function TVA1: real; override;
   function Totg: Real; override;
  end;
  TCusGaElClass = class of TCusGaEl;
  function FonctionGazElecClass: TCusGaElClass;

  function SousGazElec(InNouveau, InAncien: Integer): string;
  function MulGazElecCoef(Difference, COEF: Real): real;
  
implementation

function SousGazElec(InNouveau, InAncien: Integer): string;
begin
 Result := IntToStr(InNouveau-InAncien);
end;

function MulGazElecCoef(Difference, COEF: Real): real;
begin
 Result := Difference*COEF;
end;

{ TGazElec }

function TGazElec.CalcTraElec(tco, tco1: real): real;
const
  PremierTranchePrix = 1.7787;
  DeuxiemeTranchePrix = 4.1789;
  TroisiemeTranchePrix = 4.8120;
  QuatriemeTranchePrix = 5.4796;
begin
 if tco+tco1 <= 250 then
  Result := tco*PremierTranchePrix+tco1*DeuxiemeTranchePrix
 else Result := tco*TroisiemeTranchePrix+tco1*QuatriemeTranchePrix;
end;

function TGazElec.CalcTraGaz(gco, gco1: real): real;
const
  PremierTranchePrix = 0.1682;
  DeuxiemeTranchePrix = 0.3245;
  TroisiemeTranchePrix = 0.4025;
  QuatriemeTranchePrix = 0.4599;
begin
 if gco+gco1 <= 2500 then
  Result := gco*PremierTranchePrix+gco1*DeuxiemeTranchePrix
 else Result := gco*TroisiemeTranchePrix+gco1*QuatriemeTranchePrix
end;

procedure TGazElec.Elec(tc0: real; var tc1, tc2, tc3, tc4: real);
const
   tcom1 = 125; tcom3 = 750;
procedure test1;
begin
  tc1 := tcom1;
  tc2 := tc0 - tc1;
end;

procedure test2;
begin
  tc3 := tc2 - tc1;
  tc2 := tc1;
end;

procedure test3;
begin
  tc4 := tc3 - tcom3;
  tc3 := tcom3;
end;

begin
  tc1 := 0; tc2 := 0;
  tc3 := 0; tc4 := 0;
  if tc0 > tcom1 then
  begin
   test1;
   if tc2 > tc1 then
   begin
    test2;
    if tc3 > tcom3 then
    begin
     test3;
    end;
   end;
  end else tc1 := tc0;
end;

procedure TGazElec.Gaz(gcs: real; var gc1, gc2, gc3, gc4: real);
const
 gcom1 = 1125; gcom2 = 1375; gcom3 = 5000;
begin
  gc1 := 0; gc2 := 0;
  gc3 := 0; gc4 := 0;
  if gcs > gcom1 then
  begin
   gc1 := gcom1;
   gc2 := gcs - gc1;
   if gc2 > gcom2 then
   begin
    gc3 := gc2 - gcom2;
    gc2 := gcom2;
    if gc3 > gcom3 then
    begin
      gc4 := gc3 - gcom3;
      gc3 := gcom3;
    end;
   end;
  end else gc1 := gcs;
end;

{ TGazElecClassic }

function TGazElecClassic.CalcTraElec(tco, tco1: real): real;
const
  PremierTranchePrix = 1.779;
  DeuxiemeTranchePrix = 4.179;
  TroisiemeTranchePrix = 4.8120;
begin
 if tco1 > 0 then
  Result := tco*PremierTranchePrix+tco1*DeuxiemeTranchePrix
 else Result := tco*DeuxiemeTranchePrix;
end;

function TGazElecClassic.CalcTraGaz(gco, gco1: real): real;
const
  PremierTranchePrix = 0.168;
  DeuxiemeTranchePrix = 0.324;
  TroisiemeTranchePrix = 0.402;
begin
  if gco1 > 0 then
   Result := gco*PremierTranchePrix+gco1*DeuxiemeTranchePrix
  else Result := gco*DeuxiemeTranchePrix;
end;

procedure TGazElecClassic.Elec(tc0: real; var tc1, tc2, tc3: real);
const
   tcom1 = 125; tcom = 875;
begin
  tc1 := 0; tc2 := 0;
  tc3 := 0;
  if tc0 > tcom1 then
  begin
   tc1 := tcom1;
   tc2 := tc0 - tc1;
   if tc2 > tcom then
   begin
    tc3 := tc2-tcom;
    tc2 := tc1+tcom;
   end; {}
  end else tc1 := tc0;
end;

procedure TGazElecClassic.Gaz(gcs: real; var gc1, gc2, gc3: real);
const
 gcom1 = 1125; gcom2 = 8875;
begin
  gc1 := 0; gc2 := 0;
  gc3 := 0;
  if gcs > gcom1 then
  begin
   gc1 := gcom1;
   gc2 := gcs - gc1;
   if gc2 > gcom2 then
   begin
    gc3 := gc2-gcom2;
    gc2 := gc1+gcom2;
   end;{}
  end else gc1 := gcs;
end;

{ TCusGaEl }

function TCusGaEl.GetGazEle1: real;
begin
  Result := fTAUX;
end;

function TCusGaEl.GetGazEle2: real;
begin
  Result := fMontant;
end;

function TCusGaEl.GetGazEle3: real;
begin
  Result := fTVA;
end;

function TCusGaEl.GetGazEle4: real;
begin
  Result := fVale;
end;

procedure TCusGaEl.SetGazEle1(const Vale: Real);
begin
  inherited;
  fTAUX := Vale;
end;

procedure TCusGaEl.SetGazEle2(const Vale: Real);
begin
  inherited;
  if Vale > 0 then
    fMontant := Vale
     else fMontant := 0;
end;

procedure TCusGaEl.SetGazEle3(const Vale: Real);
begin
  inherited;
  fTVA := Vale;
end;

procedure TCusGaEl.SetGazEle4(const Vale: Real);
begin
  inherited;
  fVale := Vale;
end;

function TCusGaEl.Totg: Real;
begin
   Result := fMontant+fVale;
end;

function TCusGaEl.TVA1: real;
begin
   Result := fMontant*fTAUX;
end;

function FonctionGazElecClass: TCusGaElClass;
begin
  Result := TCusGaEl;
end;


end.

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

unit untCalcGazElecs;

interface

type
 TGaEl = class
  protected
   procedure SetGazEle1(const Vale: Real); virtual; abstract;
   procedure SetGazEle2(const Vale: Real); virtual; abstract;
   procedure SetGazEle3(const Vale: Real); virtual; abstract;
   procedure SetGazEle4(const Vale: Real); virtual; abstract;
   function GetGazEle1: real; virtual; abstract;
   function GetGazEle2: real; virtual; abstract;
   function GetGazEle3: real; virtual; abstract;
   function GetGazEle4: real; virtual; abstract;
  public
   function TVA1: real; virtual; abstract;
   function Totg: Real; virtual; abstract;
   property TAUX: real read GetGazEle1 write SetGazEle1;
   property Montant: real read GetGazEle2 write SetGazEle2;
   property TVA: real read GetGazEle3 write SetGazEle3;
   property Value: real read GetGazEle4 write SetGazEle4;
 end;
 
implementation

end.

الملفات المرفقة معدلة من اجلأن تعمل على دلفي7 من بورلاند

[عبدالحق الجزائري]

مشكوووووور اخي الكريم

[الأصيــل]

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