Calculette pour prêt

Soyez le premier à donner votre avis sur cette source.

Vue 8 258 fois - Téléchargée 416 fois

Description

petit programme de débutant, je parle de moi, sur le calcul de prêt, toutes les bonnes critiques sont les bienvenues pour améliorer le code.
Merci d'avance.

Conclusion :


modification des formules de calcul
merci à renfield
prise en compte de ces remarques.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
66
oui et non :

on PEUT utiliser une virgule ou un point !!

mais c'est vra qu'en procedant de la sorte, il y aura vérification de la presence d'une virgule dans le champs.......
Messages postés
70
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
7 juin 2006

tant qu'a faire la ligne "case 46" il vaut mieux mettre "case 44,46"
pour pouvoir utiliser le . et la ,
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
66
Salut raynald (moi aussi, je m'appelle Reynald !!)

attentions aux nombreuses fautes d'orthographe, c'est assez désagréable !
Même s'il ne s'agit pas reelement d'amelioration du code.....
"biens venues" => bienvenues
"mensualitées" => mensualités

attention aussi au ton familier que tu emprunte ("t'es bourrin ou quoi ?")

pour le code maintenant.

mets la propriete "Default" du bouton "Calcul" à True. De cette facon, tu activeras le calcul en presant Entree.

j'ai modifié le code de saisie des nombres dans Text1 :

Private Sub text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8 '# retour chariot
Case 24, 3 '# Couper & Copier
Case 22 '# Coller : on doit vérifier si lle presse papiers contient bien un nombre
Dim Str As String
Str = Clipboard.GetText
If Not IsNumeric(Str) Then '# Si ce n'est pas un nombre, on annule le coller
KeyAscii = 0
End If
Case 46 '# Si on saisi un point, on met une virgule.
If 0 = InStr(1, Text1.Text, ",") Then '# S'il n'y a pas déjà de virgule
KeyAscii = 44
Else
KeyAscii = 0
End If
Case 48 To 57 '# Si on saisi un chiffre : on le laisse !!!!
Case Else '# Tout autre caractere sera impitoyablement supprimé !!!!
KeyAscii = 0
End Select
End Sub

Tu peux désormais utiliser le presse-papiers (attention cependant au menu contextuel) et tu es libre de saisir un point ou une virgule....

autre chose, vu que tu as plusieurs textboxes dans le même cas, tu pourrais mettre la propriété Keypreview de ta form a true, et utiliser l'evenement Form_KeyPress...

dernière chose, et puisque tu as plusieur textboxes dans le même

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.