Calculateur argus automobile

Soyez le premier à donner votre avis sur cette source.

Snippet vu 108 930 fois - Téléchargée 1 294 fois

Contenu du snippet

Ce code sans prétention permet de calculer au plus juste la cote argus d'une voiture.
Il vous faut pour cela la cote Argus du véhicule ( que l'on trouve dans l'argus)
les options,le kilomètrage, l'année de mise en circulation.
On clique sur calculé et le programme fait la cote la plus juste en tenant compte de tous les paramètres.
En gros, le programme vous fait gagner un bon quart d'heure dans le calcul d'une cote.
Les améliorations sont nombreuses et si quelqu'un sait comment l'argus fait pour calculer la cote en fonction des années...

Source / Exemple :


Suppression du zip

Conclusion :


Un petit détail, après le calcul, passez votre souris sur le kilomètrage, les options, des détails s'affichent

A voir également

Ajouter un commentaire Commentaires
Messages postés
292
Date d'inscription
dimanche 14 mars 2004
Statut
Membre
Dernière intervention
18 décembre 2014
3
Bonjour,

La base de données n'est plus à jour, je pense. Ça fait un moment que je l'ai créé. Il se base par rapport au condition argus du magazine.
Si ton programme est mieux, n'hésite pas à le poster.
Tu feras des heureux. Et si tu découvre des problèmes dans mon prog, n'hésite pas non plus à me le dire, je ferais les corrections qui s'imposent.
Messages postés
7
Date d'inscription
dimanche 11 mai 2003
Statut
Membre
Dernière intervention
13 mai 2010

salut, je vais comparer ton programme au miens.
a mon avis sa ne marche pas a 100%...
je suis commercial dans l'automobile, et j'ai mis au point un programme identique qui fonctionne a 100%.
a++.
Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
37
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;
Messages postés
455
Date d'inscription
mardi 24 juillet 2001
Statut
Modérateur
Dernière intervention
10 mars 2009

Plutot effacer le fichier Argus.dof

Merci
Messages postés
292
Date d'inscription
dimanche 14 mars 2004
Statut
Membre
Dernière intervention
18 décembre 2014
3
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).
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.