Comment calculer les paiements mensuels dans Visual Basic

Étape 1

Sélectionnez le modèle "EXE standard" après avoir chargé le programme Visual Basic. Recherchez l'icône "Label" dans la barre d'outils à gauche de l'écran. Cette icône ressemble à une lettre majuscule "A". Cliquez et faites-le glisser vers le haut du formulaire au centre de l'écran. Lorsque vous relâchez la souris, une croix apparaîtra. Cliquez dessus et utilisez les petits carrés - chaussures de glisser - pour élargir l'étiquette. Répétez cette opération trois fois, en plaçant chaque étiquette sous la précédente et en la rendant plus large. Ajoutez une cinquième étiquette à la droite de la quatrième et étirez-la également.

Étape 2

Cliquez sur le contrôle "Zone de texte" dans la barre d'outils, un petit carré contenant les lettres "ab", et faites-le glisser vers le formulaire à droite de l'étiquette du haut. Relâchez la souris et utilisez les poignées de déplacement pour élargir la zone de texte. Répétez cette action deux fois de plus en plaçant chaque case sous la précédente. Cliquez sur l'option "Bouton de commande", un petit carré dans la barre d'outils, situé sous l'icône "Zone de texte", puis faites-le glisser vers le formulaire, en l'élargissant également.

Étape 3

Cliquez sur une "étiquette" en même temps en partant du haut. Recherchez "Titre" dans la colonne "Propriétés" du volet de droite. Pour chaque étiquette, double-cliquez sur la ligne "Titre" et apportez les modifications suivantes au texte par défaut:

Label supérieur: Appelez-le "Montant du prêt:" Deuxième étiquette: Appelez-le "Taux d'intérêt mensuel:" Troisième étiquette: Appelez-le "Nombre de mois:" Quatrième étiquette: Appelez-le "Paiement mensuel:" Cinquième étiquette: supprimez le nom du titre.

Étape 4

Cliquez sur chaque "Zone de texte" à tour de rôle et supprimez le nom de la propriété "Texte" dans la section "Propriétés". Modifiez le titre "Bouton de commande" pour lire "Calculer".

Étape 5

Double-cliquez sur le champ portant le nouveau nom "Calculer" qui ouvrira la fenêtre pour afficher le code. Vous trouverez deux lignes déjà entrées, "Private Sub Command1_Click ()" et "End Sub". Entrez les lignes de code suivantes entre ces deux lignes:

Dim AmtBorrow, NumMonths As Entier Dim Rate, MonthPay As Double Rate = Text2.Text NumMonths = Text3.Text MonthPay = Text1.Text * (1 + Taux) ^ NumMonths * Taux / (((1 + Taux) ^ NumMonths - 1) Label5 .Caption = Format (MonthPay, "$ ##. ##")

Appuyez sur "F5" pour exécuter le programme et chargez les quantités à l'écran, en appuyant sur "Calculer" pour terminer.