Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 07:17:58

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par jeremiesauve

[DéPLACé VB.NET -> VBA] MACRO DANS EXCEL par PONTGUENNOU

RE : RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par jack

RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par liehuos001

RE : LORSQUE JE VEUX FAIRE LES ENREGISTREMENT DANS MA TABLE EN VB.NET UN MESSAGE S'AFFICHE EN ME DISANT QUE LE CHAMPS EST PETIT. QUE FAIE? par PCPT

+ de logiciels à télécharger

1 465 014 membres
64 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 303 049 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CALCULATRICE POUR EMPRUNT À TAUX FIXE + TABLEAU D'AMORTISSEMENT

Information sur la source

Catégorie :Maths Classé sous : emprunt, taux, amortissement, calculatrice, crédit Niveau : Débutant Date de création : 20/12/2007 Vu / téléchargé: 10 720 / 552

Auteur : xyp

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (0)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Un petit programme écrit lorsque j'avais besoin de contracter un emprunt à taux fixe pour acheter une maison.

Il comporte une forme principale, plus une secondaire pour le tableau d'amortissement, et une tertiaire d'info.

Je file en Source le contenu du boutton de commande principal, le reste peut être consulté dans les fichiers fournis dans le zip.

Merci pour vos commentaires et vos notations.

Bon développements à tous ;)

Source

'Aquisition des informations
ca = Val(Text1)
n = Val(Text2)
tx = Val(Text3)
If tx = 0 Then tx = 0.0000001
txm = tx / 100 / 12
'Amortissement le 1er mois
a(1) = ca * txm / ((1 + txm) ^ n - 1)
'Intérêt 1er mois
i(1) = ca * txm
'somme prélevée mensuelle
pr = i(1) + a(1)
'Début de la boucle du tableau d'amortissement
c(1) = ca
ttint = 0
For xx = 2 To n
c(xx) = c(xx - 1) - a(xx - 1)
i(xx) = c(xx) * txm
a(xx) = pr - i(xx)
ttint = ttint + i(xx)
Next xx
derr = a(n) - c(n)
a(n) = c(n)
i(n) = i(n) + derr
If tx = 0.000001 Then
i(1) = 0
For xx = 2 To n
a(xx) = c(1) / n
i(xx) = 0
c(xx) = c(xx - 1) - a(xx)
Next xx
ttint = 0
derr = 0
a(n) = c(n)
End If
ttint = ttint + i(1) + derr
'Affichage
Text4 = Int(ttint * 100 + 0.5) / 100
If Option1.Value = True Then
Text7 = Int((Val(Text6) * 100 / Val(Text1)) * 100) / 100
Else
Text6 = Int((Val(Text7) / 100 * Val(Text1)) * 100) / 100
End If
Text8 = Val(Text6) * Val(Text2)
Text5 = Int((pr + Val(Text6)) * 100 + 0.5) / 100
Text11 = Val(Text4) + Val(Text8)
'Taux d'endettement
Label15 = Str$(Int(((Val(Text10) + Val(Text12) + Val(Text5)) * 100 / Val(Text9)) * 100) / 100)
If Val(Label15) < 33.1 Then
Label15.ForeColor = &H8000&
Else
Label15.ForeColor = &H80&
End If
deb = 1
fin = 2

'Aquisition des informations
ca = Val(Text1)
n = Val(Text2)
tx = Val(Text3)
If tx = 0 Then tx = 0.0000001
txm = tx / 100 / 12

'Amortissement le 1er mois
a(1) = ca * txm / ((1 + txm) ^ n - 1)

'Intérêt 1er mois
i(1) = ca * txm

'somme prélevée mensuelle
pr = i(1) + a(1)

'Début de la boucle du tableau d'amortissement
c(1) = ca
ttint = 0
For xx = 2 To n
    c(xx) = c(xx - 1) - a(xx - 1)
    i(xx) = c(xx) * txm
    a(xx) = pr - i(xx)
    ttint = ttint + i(xx)
Next xx

derr = a(n) - c(n)
a(n) = c(n)
i(n) = i(n) + derr

If tx = 0.000001 Then
    i(1) = 0
    For xx = 2 To n
        a(xx) = c(1) / n
        i(xx) = 0
        c(xx) = c(xx - 1) - a(xx)
    Next xx
    ttint = 0
    derr = 0
    a(n) = c(n)
End If

ttint = ttint + i(1) + derr


'Affichage
Text4 = Int(ttint * 100 + 0.5) / 100
If Option1.Value = True Then
    Text7 = Int((Val(Text6) * 100 / Val(Text1)) * 100) / 100
Else
    Text6 = Int((Val(Text7) / 100 * Val(Text1)) * 100) / 100
End If
Text8 = Val(Text6) * Val(Text2)
Text5 = Int((pr + Val(Text6)) * 100 + 0.5) / 100

Text11 = Val(Text4) + Val(Text8)


'Taux d'endettement
Label15 = Str$(Int(((Val(Text10) + Val(Text12) + Val(Text5)) * 100 / Val(Text9)) * 100) / 100)

If Val(Label15) < 33.1 Then
    Label15.ForeColor = &H8000&
Else
    Label15.ForeColor = &H80&
End If

deb = 1
fin = 2

Conclusion

Je donne rarement des noms aux objets et aux formes dans ce genre de petit programme que j'écris en moins d'une demi heure; je vous prie de bien vouloir m'excuser pour celà.

En espérant tout de même qu'il vous soit utile.
Amitiés

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Form1.frm 25 238 octets
Form2.frm 2 481 octets
Form3.frm 3 848 octets
Form3.frx272 octets
Module1.bas 84 octets
Projet1.vbp 901 octets
Projet1.vbw 189 octets

Télécharger le zip

Sources de la même categorie

MINIMISATION DE FONCTIONS BOOLÉENNES par ChristophePel

EQUATION DIOPHANTIENNE DU 1ER DEGRÉ (MÉTHODE D'EULER) par apexinfo

LECTEUR DE PENSÉE .NET par Appil

MATHÉMATIQUESARAB par azelham

TABLES DE MULTIPLICATION par Caracal43

Toutes les sources de la catégorie Maths

Sources en rapport avec celle ci

AMORTISSEMENT D'EMPRUNTS par cmarcotte

UNE VRAIE CALCULATRICE : ÉCRITURE 2D : ON MARQUE LA LIGNE EN... par neamar

CALCULETTE DE METIER par BFR

CALCULATRICE NOTES DE FRAIS par natou76

CALCULETTE POUR PRÊT par jraynald

Commentaires et avis

Aucun commentaire pour le moment.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

emprunt banquaire [ par geoff27 ] bonjour, Je voudrai savoir quel est la formule à appliquer pour réaliser la programation suivante: Je dois créez un bouton "calcul" d Amortissement VBA [ par DanyBoutin ] Bonjour tous, Je suis en train de monter un programme d'amortissement sur excel avec VBA. C'est pour un cours à l'université et je ne suis pas capable calculatrice [ par i31018270 ] Bonjour a tous,je vient de développer un projet qui nécessite l'utilisation d'un calculatrice. A lieu de créer une form calculatrice j'ai penser d'uti Tableau array et condiction dans VB6 [ par vangaustes ] Bonjourj'ai un tableau qui affiche les taux pour chaque categoris en suivant la durée comme suite :durée 12 14 16 18 calculatrice [ par yallah ] Quelqu'un à t-il un script pour créer une calculatrice?Merci fonction Sub [ par coucou ] J'ai un travail dans lequel je dois calculer le taux de change (je rentre le montant et une devise et je la veux dans une autre devise.Et mon résultat calculatrice [ par petit prince ] j'ai un problème avec la virgule et le zéro.je n'arrive pas à mettre de 0 après la virgule Calcul simple de crédit [ par cgelle ] Je cherche un petit logiciel en vbscript pour effectuer une mini simulation de crédit .Qui peut m'aider ?Merci<td Mise a jour d'un formulaire, un refresh en qq sorte [ par Krasba ] Voila g une variable globale declaré ds un module a coté, il s'agit d'un taux de monnaie.Sur un formulaire ce taux est affiché et g mis un bouton qui Fontion PMT( fonction financiere) pour ceux qui connaisse le credit. Merci de votre aide [ par nono ] La fonction ou méthode Pmt retourne le versement pour une annuité en se basant sur des versements périodiques et un taux d'intérêt constants. Pmt(taux