CALCULATEUR ARGUS AUTOMOBILE

Commentaire de Oniria le 27/02/2006 13:37:40

Bonjour,
Il faut dans le fichier .dpr, enlever cette définition qui ne sert à rien pour cette appli(c'est une bibliothéque qui permet de gérer le port série).

Commentaire de f0xi le 28/02/2006 21:45:36 administrateur CS

modification a faire (optimisation) :

INTERFACE :::

uses
  Windows, SysUtils, Forms, ComCtrls, StdCtrls, ExtCtrls, Controls, Classes, dateutils;


IMPLEMENTATION :::

type
    T5Matrix = array [0..4,0..4] of Integer;

var
      GPS       : T5Matrix = ...
      GPS_Carto : T5Matrix = ...
      Clim      : T5Matrix = ...
      Clim_auto : T5Matrix = ...
      Regul     : T5Matrix = ...
      Cuir      : T5Matrix = ...
      Xenon     : T5Matrix = ...
      TOuvrant  : T5Matrix = ...
      ESP       : T5Matrix = ...

      km_mois   : array[0..2] of integer = (1250,1700,2100);

...

procedure TForm1.Button1Click(Sender: TObject);
var prix, moinsvalue : real;
    nb_km, ecart_km,
    nb_mois, nb_annee, mois, Annee, moisVeh, AnneeVeh,
    option, i : integer;
begin
     prix   := 0;
     option := 0;
     nb_km  := 0;
     i      := 0;

     // On récupére dans mois et Annee le mois et l'année en cours
     mois  := MonthOf(Date);
     Annee := YearOf(Date);

     // On fait pareil pour le véhicule
     moisVeh  := monthOf(DateTimePicker1.DateTime);
     AnneeVeh := YearOf(DateTimePicker1.DateTime);

     // La on calcule l'age en année
     nb_Annee := Annee - AnneeVeh;

     // La on calcule l'age en mois
     if nb_Annee = 0 then
        nb_mois := mois-moisVeh
     else
     if nb_Annee = 1 then begin
        nb_mois:=12-moisVeh;
        nb_mois:=nb_mois+mois;
     end else begin
        nb_mois:=12-moisVeh;
        nb_mois:=nb_mois+mois;
        nb_mois:=nb_mois+12*(nb_Annee-1);
     end;
     DateTimePicker1.Hint := format('Age du vehicule %d ans (%d mois)',[nb_Annee,nb_Mois]);

     // calcul des options
     if nb_Annee <= 5 then begin
        i := nb_Annee - 1;
        if i = -1 then i := 0;

        if RadioGroup2.ItemIndex = 1 then
           option := option+Clim[RadioGroup1.ItemIndex,i]
        else
        if RadioGroup2.ItemIndex = 2 then
           option := option+Clim_auto[RadioGroup1.ItemIndex,i];

        if RadioGroup3.ItemIndex = 1 then
           option := option+GPS[RadioGroup1.ItemIndex,i]
        else
        if RadioGroup3.ItemIndex = 2 then
           option := option+GPS_carto[RadioGroup1.ItemIndex,i];

        if CheckBox1.Checked then option := option + Regul[RadioGroup1.ItemIndex,i];

        if CheckBox2.Checked then option := option + Cuir[RadioGroup1.ItemIndex,i];

        if CheckBox3.Checked then option := option + xenon[RadioGroup1.ItemIndex,i];

        if CheckBox4.Checked then option := option + TOuvrant[RadioGroup1.ItemIndex,i];

        if CheckBox5.Checked then option := option + ESP[RadioGroup1.ItemIndex,i];
     end;
     GroupBox2.Hint := format('Valeur Ajoutées par les options : %d euros',[option]);

     // Calcul de l'excedent de km
     if Edit1.Text <> '' then
        nb_km := strtoint(Edit1.Text);

     ecart_km := nb_mois * km_mois[RadioGroup4.ItemIndex];
     Edit1.Hint := format('Le kilométrage normal est de %d km',[ecart_km]);

     if nb_km = 0 then
        ecart_km := 0
     else
        ecart_km := nb_km-ecart_km;

     prix := strtoint(Edit2.Text) + option;
     moinsvalue := prix * 0.005 * Trunc(ABS(ecart_km)/1000);

     if ecart_km < 0 then
        moinsvalue := moinsvalue/2;

     if ecart_km > 0 then
        prix := prix - moinsvalue
     else
        prix := prix + moinsvalue;

     Edit3.Text := IntToStr(round(prix));

     prix := prix-(prix*0.15);
     Edit4.Text := IntToStr(round(prix));
end;