Pour calculer une mensualité, Choisir une durée, vérifier un pourcentage ou définir le montant d'un crédit. Tout ce fait à la souris : j'ai utilisé 3 "NumericUpDown" et un "Timer" pour faire les calculs.
Il y a aussi une mise en forme en mumérique avec centimes et séparateur milliers pour la mensualité et les équivalences en Francs.
Source / Exemple :
Public Class Form1
'"Mois" représente le calcul de la mensualité
'les trois NumericUpDown sont : Capital, Dure, Taux
'le résultat est afficher dans un TextBox : Mens
Dim Mois As Double
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Mois = Pmt((taux.Value / 100) / 12, (Dure.Value) * 12, -(Capital.Value), 0, DueDate.EndOfPeriod)
Mens.Text = FormatNumber(Val(Mois), -1, 0, 0)
CapFrancs.Text = FormatNumber((Capital.Value * 6.55957), -1, 0, 0) '
MensFrancs.Text = FormatNumber(Val((Mens.Text) * 6.55957), -1, 0, 0)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End
End Sub
End Class
Conclusion :
Fait en Visual Basic 2005 Express
Nécessite Framework.2
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.