Πώς να υπολογίσετε τις μηνιαίες πληρωμές σε Visual Basic

Για τον υπολογισμό των μηνιαίων πληρωμών που απαιτούνται για την αποπληρωμή ενός δανείου , θα πρέπει να έχετε τρία κομμάτια των πληροφοριών : το ποσό του δανείου ? Το επιτόκιο που χρεώνεται ? Και το χρονικό διάστημα για να αποπληρώσει το δάνειο . Η μαθηματική φόρμουλα για να γίνει αυτό μεταφράζεται και σε κώδικα της Visual Basic . Με τη δημιουργία μιας φόρμας με επιλογές για την είσοδο αυτών των τριών κομμάτια των πληροφοριών , μπορείτε να έχετε το δικό σας μηνιαία αριθμομηχανή πληρωμής δανείου στον υπολογιστή σας . Οδηγίες
Η

1 Επιλέξτε το "Standard EXE " πρότυπο μετά τη φόρτωση της Visual Basic . Βρείτε το εικονίδιο «σήμα» στην εργαλειοθήκη στα αριστερά της οθόνης . Αυτό το εικονίδιο μοιάζει με ένα κεφαλαίο γράμμα A. Κάντε κλικ και σύρετε το στην κορυφή της φόρμας στο κέντρο της οθόνης . Όταν αφήσετε το ποντίκι , εμφανίζεται ένας σταυρός . Κάντε κλικ σε αυτό και να χρησιμοποιήσετε το μικρό πλατείες - drag - λαβές για να διευρύνει την ετικέτα . Επαναλάβετε αυτήν την ενέργεια τρεις φορές , τοποθετώντας κάθε ετικέτα κάτω από την προηγούμενη μιας και καθιστώντας ευρύτερα . Προσθέστε ένα πέμπτο ετικέτα στα δεξιά του το τέταρτο και θα τον διευρύνει , καθώς και . 2

Κάντε κλικ στο " Πλαίσιο κειμένου " ελέγχου στην εργαλειοθήκη , μια μικρή πλατεία που περιέχει τα γράμματα " ab " και σύρετε στη φόρμα στο δεξί μέρος του άνω ετικέτας . Αφήστε το ποντίκι και να χρησιμοποιήσετε τις λαβές σύρετε για να διευρύνει το πλαίσιο κειμένου . Επαναλάβετε αυτήν την ενέργεια δύο ακόμη φορές , τοποθετώντας κάθε κουτί κάτω από την προηγούμενη ένα . Κάντε κλικ στο " CommandButton , " μια μικρή πλατεία στην εργαλειοθήκη , που βρέθηκαν κάτω από το εικονίδιο πλαίσιο κειμένου , και σύρετε για τη μορφή , τη διεύρυνσή του , καθώς και .
Εικόνων 3

Κάντε κλικ σε ένα «σήμα " σε χρόνο ξεκινώντας από την κορυφή . Εντοπίστε το αντίστοιχο " Λεζάντα " ακίνητο στη στήλη "Ιδιότητες" στη δεξιά πλευρά . Για κάθε ετικέτα , κάντε διπλό κλικ στη γραμμή "Τίτλος " και να κάνει αυτές τις αλλαγές από το προεπιλεγμένο κείμενο που βλέπετε :

Top Label : Ονομάστε αυτό το « Ποσό δανείου : « Δεύτερη Label : Ονομάστε αυτό το "Μηνιαίο Επιτόκιο : "Τρίτο Label : Ονομάστε αυτό το " Number of Μήνες : « τέταρτη Label : Ονομάστε αυτό το" Μηνιαία Δόση : "Fifth Label : . Διαγράψτε το όνομα λεζάντα
Η

4 Κάντε κλικ σε κάθε " πλαίσιο κειμένου " με τη σειρά και να διαγράψετε το «Κείμενο» όνομα της ιδιότητας στο τμήμα Properties . Αλλάξτε το " CommandButton " caption για να διαβάσετε "Υπολογισμός ".
5

διπλό κλικ στο νέο όνομα "Υπολογισμό" ελέγχου , η οποία ανοίγει το παράθυρο προβολής κώδικα. Θα βρείτε δύο γραμμές που έχουν ήδη εγγραφεί , " Private Sub Command1_Click ( ) " και εισάγετε τις παρακάτω γραμμές κώδικα μεταξύ των δύο γραμμών " End Sub ". :

Δημ. AmtBorrow , NumMonths Όπως IntegerDim Rate, MonthPay Όπως DoubleRate = Text2.TextNumMonths = Text3.TextMonthPay = Text1.Text * ( 1 + Rate) ^ NumMonths * Ποσοστό /( ( 1 + Rate) ^ NumMonths - 1 ) Label5.Caption = Format ( MonthPay " . $ # # # # " ;)

Πατήστε το πλήκτρο " F5 " για να τρέξει το πρόγραμμα και να παρέχει τις ποσότητες που εμφανίζονται στην οθόνη , πατώντας το πλήκτρο " Υπολογισμός " για να ολοκληρώσετε .
Η
εικόνων