Calcul du kilometrage ideal d'un véhicule

Soyez le premier à donner votre avis sur cette source.

Vue 33 463 fois - Téléchargée 593 fois

Description

salut !
le programme calcule le kilométrage idéal d'une voiture de tourisme en fonction de son age et du carburant utilisé.
Utiliser la touche TAB pour passer d'un champ à l'autre.
il y a des bugs mais je suis un vrais débutant,alors soyez sympas !!!
si cela vous interressent je suis en train de faire un petit programme qui calculera la cote argus de votre voiture(cote approchée...),je l'ai deja fait sous excel pour mon boulot. si vous le voulez dites le :) !

Source / Exemple :


Sub Calendar1_Click()
  Date1ereMiseEnCirculation.Text = Date

 Date1ereMiseEnCirculation.Text = Calendar1 'le clic sur une date dans le calendrier
                                            'inscrit la date dans le champ
                                         '"Date1ereMiseEnCirculation"
                                            '(il est cacher par le calendrier
                                            
 NbreJours.Text = DateDiff("d", Date1ereMiseEnCirculation, DateDuJour) 'calcul du nombre de jours entre
                                                                       'la date du jour et celle saisie
End Sub

Sub Die_Click()
 

If KilometrageDuVehicule = "" Then
 NbreJours.Text = DateDiff("d", Date1ereMiseEnCirculation, DateDuJour)  'calcul du nombre de jours entre
  KilometrageDuVehicule.BackColor = 255
  KilometrageDuVehicule.ForeColor = 65535
    monmessage = MsgBox("Vous devez saisir le kilométrage de votre véhicule", vbDefaultButton1, "erreur de saisie")
         monmessage = MsgBox("N'oubliez pas la date de 1ère mise en circulation", vbDefaultButton1, "saisissez la date de 1ère Mise en Circulation")
Else
Energie.Text = 2
KilometrageNormal.Text = NbreJours * 68.49315
SurSousKilometrage = KilometrageDuVehicule - KilometrageNormal
label_Titre = "Diesel"
End If

End Sub
 Sub Ess_Click()
If KilometrageDuVehicule = "" Then
NbreJours.Text = DateDiff("d", Date1ereMiseEnCirculation, DateDuJour)  'calcul du nombre de jours entre
  KilometrageDuVehicule.BackColor = 255
  KilometrageDuVehicule.ForeColor = 65535
    monmessage = MsgBox("Vous devez saisir le kilométrage de votre véhicule", vbDefaultButton1, "erreur de saisie")
         monmessage = MsgBox("N'oubliez pas la date de 1ère mise en circulation", vbDefaultButton1, "saisissez la date de 1ère Mise en Circulation")
Else
Energie.Text = 1
KilometrageNormal.Text = NbreJours * 41.09589
SurSousKilometrage = KilometrageDuVehicule - KilometrageNormal
label_Titre = "Essence"
End If
End Sub

Sub Form_Load()
  Date1ereMiseEnCirculation.Text = Date

Dim Energie As String
Dim KilometrageDuVehicule As Double
Dim KilometrageNormal As Double
Dim SurSousKilometrage As Double
Dim NbreJours As Double
DateDuJour.Text = Date

End Sub
Sub GPL_Click()
If KilometrageDuVehicule = "" Then
 NbreJours.Text = DateDiff("d", Date1ereMiseEnCirculation, DateDuJour)  'calcul du nombre de jours entre
  KilometrageDuVehicule.BackColor = 255
  KilometrageDuVehicule.ForeColor = 65535
    monmessage = MsgBox("Vous devez saisir le kilométrage de votre véhicule", vbDefaultButton1, "erreur de saisie")
         monmessage = MsgBox("N'oubliez pas la date de 1ère mise en circulation", vbDefaultButton1, "saisissez la date de 1ère Mise en Circulation")
  Else
   Energie.Text = 3
    KilometrageNormal.Text = NbreJours * 46.575342
     SurSousKilometrage = KilometrageDuVehicule - KilometrageNormal
      label_Titre = "Gpl"
End If
End Sub

Sub KilometrageDuVehicule_Change()
 If KilometrageDuVehicule.Text = "" Then
 If KilometrageDuVehicule.Text = 0 Then
   Label_KilometrageDeVotreVehicule = "MAUVAISE SAISIE DU KM"
  Else
   SurSousKilometrage = KilometrageDuVehicule - KilometrageNormal
   Label_KilometrageDeVotreVehicule.Caption = "Kilométrage du véhicule"
  End If
 End If
End Sub

Sub Quitter_Click()
End
End Sub

Conclusion :


voilà ,c'est vraiment pas grand chose ,je sais,mais faut bien débuter ...

ha! au fait,dès le lancement il affiche un kilométrage, par défaut c'est pour un véhicule essence :) !

Merci de l'interet que vous porterz a ce petit programme(si on peut l'appeler comme ça... )

a bientôt ! :)

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
mercredi 26 mai 2004
Statut
Membre
Dernière intervention
16 juin 2007

J'ai une question de mécanique pour toi.

Pourquoi une voiture doit-elle faire au moins 15000km par année pour restée en bon état?

Est-ce que c'est pour éviter que des dépots de carburant se forment dans la chambre de combustion? Ou que les éléments de la culasse se rouillent à cause du manque d'huile?

C'est quand même beaucoup 15000km/année, pour moi en tout cas. Moi je faisais 3000km/année, mais j'utilisais des additifs détersifs à l'essence.
Messages postés
282
Date d'inscription
lundi 29 septembre 2003
Statut
Membre
Dernière intervention
15 août 2012
2
oui, il faut que tu mettes tous les fichiers .vbp .frm .bas .cls s'il y en a.
Messages postés
7
Date d'inscription
dimanche 11 mai 2003
Statut
Membre
Dernière intervention
13 mai 2010

Merci les gars ! je vais apporter quelques modifs !
Est il possible de fournir aussi l'interface du programme pour vous eviter d'avoir à tout construire ?

Bonne journee !
@+
Messages postés
282
Date d'inscription
lundi 29 septembre 2003
Statut
Membre
Dernière intervention
15 août 2012
2
salut

C'est cool comme programme mais ca serait plus simple a executer si tu mettais les sources. car en ce moment on doit refaire la forme.
Messages postés
2
Date d'inscription
lundi 17 janvier 2005
Statut
Membre
Dernière intervention
1 février 2005

Salu,
Je trouve ton programme très bien structuré.
Mais,il y'a un petit problème; ton programme n'est pas assez commenté.
sinon il est cool du courage et toutes mes félicitations.

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.