AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 11 22 13:27:33
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 !

Sujet : Application traitant divers calculs sur les " Prêts " [ Algorithme / Maths ] (Fredy72)

vendredi 4 juillet 2008 à 16:57:40 | Application traitant divers calculs sur les " Prêts "

Fredy72
Bonjour à tous,

Nouveau venu dans votre grande famille et déjà,  je demande de l'aide !
J'ai programmé en visual basic 4, " dans une autre vie ! " et ai décidé d'y revenir avec
Visual Basic 6 .... dur ... dur !
C'est mon premier post chez vous, j'ai lu votre règlement, j'ai cherché une réponse à mon
problème, mal peut-être, puisque pas trouvé !
Donc je me lance, espérant ne pas me faire jetter.
J'ai choisi (voir sujet).
Je bute sur le code (application des formules). Ou les trouver ? Déjà chercher sur le Net !
Détail des différentes " feuilles " actuellement réalisées.
- Montant capital emprunté.
- Montant des remboursement d'un prêt.
- Somme restant à rembourser.
- Durée d'un prêt.
- Montant des dépôts pour réaliser un investissement donné.
- Evolution d'un investissement.
Sollicite donc, si possible ... un peu d'aide.
Merci d'avance.

Fredy72
vendredi 4 juillet 2008 à 17:46:03 | Re : Application traitant divers calculs sur les " Prêts "

gillardg

Sub result( ByVal credit As Single , ByVal duree As Integer , ByVal taux As Single , ByVal fil As String )

 '

' La formule du calcul je l'est trouvée sue le site:

' http://www.cbanque.com/

'

' Juste pour le calcul du montant de l'échéance (Mensualité à payer)

Dim Tp As Single = ((taux / 100) / 12)

 Dim Tpx As Single = 1 + Tp

 ' Pour le tableau d'amortissement du crédit:

Dim reste As Single = credit

 Dim capital As Single = 0

 Dim interet As Single = 0

Tpx = (Math.Pow(Tpx, duree))

 Dim mensualite As Single = (credit * Tpx * Tp) / (Tpx - 1)

 Try

Dim fichier As New System.IO.StreamWriter(fil)

fichier.AutoFlush =

True

fichier.WriteLine(

 "<html><head><title>Simulation</title></head>" )

fichier.WriteLine(

 "<body leftmargin=10 topmargin=10 rightmargin=10 bottommargin=10>" )

fichier.WriteLine(

 "<font size=3 color='#000080' face='Arial'>" )

fichier.WriteLine(

 "<b>&#160&#187&#160&#160Montant de l&#146emprunt : " + credit.ToString() + "<br>" )

fichier.WriteLine(

 "&#160&#187&#160&#160Dur&#233e : " + duree.ToString() + " Mois<br>" )

fichier.WriteLine(

 "&#160&#187&#160&#160Taux annuel du pr&#234t : " + taux.ToString() + "%<br>" )

fichier.WriteLine(

 "<font color='red'>&#160&#187&#160&#160Mensualit&#233 du cr&#233dit : " + mensualite.ToString() + "</font><br>" )

fichier.WriteLine(

 "&#160&#187&#160&#160Assurance mensuelle : 0<br>" )

fichier.WriteLine(

 "&#160&#187&#160&#160Frais additionnelles : 0</font></b><br><br>" )

fichier.WriteLine(

 "<table width='65%' border=1 bordercolor='#000080'>" )

fichier.WriteLine(

 "<caption><font color='#000080' size=3><b>TABLEAU D&#146AMORTISSEMENT CREDIT</b></font></caption>" )

fichier.WriteLine(

 "<tr bgcolor='#99ccff'><font color='#000080' size=2 face='Arial'><td><b>N&#186 Ech&#233ance</b></td>" )

fichier.WriteLine(

 "<td><b>Cr&#233dit</b></td><td><b>Capital</b></td><td><b>Int&#233r&#234t</b></td><td><b>Mensualit&#233</b></td></font></tr>" )

 Dim i As Integer = 1

 While i <= duree

interet = ((reste * (taux / 100)) / 12)

capital = mensualite - interet

reste -= capital

 Dim L As String

L =

"<tr><td>" + i.ToString() + "</td>"

L &=

"<td>" + reste.ToString() + "</td>"

L &=

"<td>" + capital.ToString() + "</td>"

L &=

"<td>" + interet.ToString() + "</td>"

L &=

"<td>" + mensualite.ToString() + "</td></tr>"

fichier.WriteLine(L)

System.Math.Max(System.Threading.Interlocked.Increment(i), i - 1)

 End While

fichier.WriteLine(

 "</table></body></html>" )

fichier.Close()

WebBrowser1.Navigate(fil)

 ' MessageBox.Show("" & Chr(13) & "" & Chr(10) & "" + "Les informations sont stockés dans un fichier html. le Chemin du fichier est: " & fil)

Catch e As Exception

MessageBox.Show(

 "L'erreur suivante c'est produite:" & (e.[GetType]().ToString()) & (e.Message))

 

 End Try

End Sub

vendredi 4 juillet 2008 à 17:48:19 | Re : Application traitant divers calculs sur les " Prêts "

gillardg


Cette discussion est classé dans : application, calculs, montant, divers, traitant

Répondre à ce message

Sujets en rapport avec ce message

dans le calculs des factures ou autres le montant sera par exemple 125.36258 je veux inscrire le nombre avec les trois chiffre aprè virgules sans faire l'arrondi , une idée ?? [ par chokri_kh ] aidez-moi à franchir les premiers pas VB Récupération de données sur un site [ par studentjeje ] Bonjour,J'ai crée une application en VB6 pour des calculs de valorisation (appels à des calculs actuariels). Mon problème est d'automatiser l'imputati Gestion de "feuilles extra-application" [ par Inconyto ] Bonjour,cela fait un moment que je me demande s'il est possible d'agir par code sur des fenêtres extérieures à mon application exe. En particulier est *** SAUVGARDE D'UN FICHIER *** [ par Heny ] Salut a tousje vousdrais faire une petite securité pour mon application qui consiste a faire une copy du fichier de la base de donnee access nommée B empecher l'acces au port parallele [ par rami3b ] bonjourj'ai élaboré avec VB6 une application pour commander un relai via le port parallelele probleme: je possede un imprimante hp laser branché sur l ACCESS & VB [ par madoman ] Bonjour. J'ai créé une application VB qui utilisent des recordsets en lien avec Access. Sur mon PC, tout fonctionne parfaitement puisque j'ai Access e DLL [ par napples ] bonjour a tous j'ai une DLL VB (d'une application vb) et je veux l'integrer au niveau d'une application d'un envirennement builderc++;ma question est Comment imprimer un ticket de caisse? [ par asel ] Bonjour, voilà je fais une petite application et je voudrais savoir comment faire pour lier l'application à la machine qui imprime les tickets de cais Creation (et application) de DIFF Patch [ par PaTaTe ] Cela fait un moment que je cherche un moyen de créer (et aussi d'appliquer) des patchs DIFF.Pour simplifier mon explication, ce que je cherche à fair ENTER "changeant" [ par tiberus ] BonjourJe me permets de faire appel à vos conseils car je cherche à faire une manipulation, sous VBA, pour laquelle je n'ai rien trouvé sur les forums


Nos sponsors

Sondage...

CalendriCode


Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,328 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.