Calcul du kilometrage ideal d'un véhicule

Télécharger le projet
Commenter

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 ! :)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (morpheus83)