C'est un calculateur d'intérêt

Soyez le premier à donner votre avis sur cette source.

Vue 3 325 fois - Téléchargée 191 fois

Description

he bien vous n'avez qu'a remplir les 3 premieres cases puis faire ok, ce code peut expliquer au tout debutant comment faire une boucle for > next et voila je crois que c'est tout a oui au fait mettez moi des commentaires pour que je puisse améliorer mon niveau (quoi que ce prog est tout a fait basique, pour moi 1/2 heure de travail enfin bref...)
@+
tomitom07
PS:Comme pour ma calculette il faut utiliser des virgules et non des points si vous savez vomment faire pour que ça ne soit pas le cas mailez moi(code_breaker007@hotmail.com) ou mettez des commentaires

Source / Exemple :


'voila le seul passage intérressant du code tout le reste c'est rien
For i = 1 To annee 'recommence autant de fois qu'il y a d'année
somme = somme + ((somme / 100) * pourcent) ' le calcul
Next 'pour dire de recommencer
 'tout bete mais ca calcule les interet

Conclusion :


Je remerci vbfrance qui m'a aidé sur le long et dur chamin de la prog et tout ceux qui mettront des commentaires pour pouvoir m'aider

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
16
Date d'inscription
mardi 10 février 2004
Statut
Membre
Dernière intervention
22 janvier 2006

merci pour la réponse et @+
tomitom07
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Quelques remarques qui se veulent constructives :
code un peu plus condensé
If Text1.Text "" Or Text2.Text "" Or Text3.Text = "" Then
MsgBox "attention a bien remplir toutes les cases", vbInformation + vbOKOnly, "Erreur!!"
Variable msg1 inutile : elle n'est pas utilisée
de même, result ne sert à rien : utilise somme

somme Text1.Text n'est pas logique (nombre texte)
écris : somme = CSng(Text1.Text)
de même pour annee et pourcent

Text4.Text = Format(somme, "#.##") donne 2 décimales

enfin, gestion virgule/point
(réponse aussi à ta question dans ta source 'calculatrice')

Private Sub Text1_KeyPress(KeyAscii As Integer)
'remplace le point par la virgule
If KeyAscii 46 Then KeyAscii 44
Select Case KeyAscii
'autorisés BackSpace, chiffres, virgule, (signe moins pour calculatrice)
Case 8, 48 To 57, 44 '(45)
Case Else ' tous les autres caractères
KeyAscii = 0 ' interdits
End Select
End Sub

à répéter dans Text2_KeyPress et Text3_KeyPress

Bonne continuation.

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.