För att beräkna de månatliga betalningar som krävs för att betala av ett lån , behöver du tre typer av information: det belopp av lånet , räntan som debiteras , och hur lång tid att betala tillbaka lånet . Den matematiska formeln för att göra detta översätter väl in i Visual Basic-kod . Genom att skapa ett formulär med alternativ för att mata dessa tre bitar av information , kan du ha din egen månatliga miniräknare lån betalning på din dator . Instruktioner
1
Välj " Standard EXE " mall efter lastning Visual Basic . Hitta den " Label " -ikonen i verktygslådan till vänster på skärmen . Denna ikon ser ut som en stor bokstav A. Klicka och dra det till toppen av formen i mitten av skärmen . När du släpper musknappen visas ett kors . Klicka på den och använda den lilla torg -dra handtag - att bredda etiketten . Upprepa denna åtgärd tre gånger , placera varje etikett under den föregående och gör den bredare . Lägg en femte etikett till höger om den fjärde och vidga det liksom .
2
Klicka på " TextBox " kontrollen i verktygslådan , ett litet torg som innehåller bokstäverna " ab , " och dra det på blanketten till höger om den översta etiketten . Släpp musen och använda dra handtagen för att vidga textrutan . Upprepa denna åtgärd två gånger , placera varje ruta under den föregående. Klicka på " CommandButton , " ett litet torg i verktygslådan , fann nedanför textrutan ikonen och dra den på blanketten , bredda det liksom .
3
Klicka på en " Label " åt gången uppifrån . Leta upp motsvarande " Caption " egendom i " Properties "-kolumnen i den högra panelen . För varje etikett , dubbelklicka på " Caption " linjen och göra dessa ändringar från standard text du ser :
Top Label : Namn här " Lånebelopp : " Second Tillverkare: Name detta " månatliga räntan : " tredje Label : namn här " Antal månader: " fjärde Label : namn här " Månadsbetalning : " femte Label : radera bildtexten namnet
4
Klicka på varje . " TextBox " i taget och radera "Text " egendom namn i avsnittet Egenskaper . Ändra " CommandButton " caption att läsa " Beräkna ".
5
Dubbelklicka på det nya namnet " Beräkna " kontroll , vilket öppnar fönstret kodvyn . Du hittar två linjer som redan införts , " Private Sub Command1_Click ( ) " och skriv in följande rader med kod mellan dessa två linjer " Sub End . " :
Dim AmtBorrow , NumMonths Som IntegerDim Rate , MonthPay Som DoubleRate = Text2.TextNumMonths = Text3.TextMonthPay = Text1.Text * ( 1 + Rate ) ^ NumMonths * Rate /( ( 1 + ränta) ^ NumMonths - 1 ) Label5.Caption = Format ( MonthPay , " . $ # # # # " ;)
Tryck " F5 " för att köra programmet och leverera de belopp på skärmen , tryck på " Beräkna " för att avsluta .
