Hvordan beregne månedlige utbetalinger i Visual Basic

For å beregne den månedlige utbetalinger for å betale ned et lån, må du tre opplysninger: beløpet av lånet; renten belastet; og hvor lang tid til å tilbakebetale lånet. Den matematiske formelen for å gjøre dette betyr vel i Visual Basic-kode. Ved å lage et skjema med alternativer for å legge inn disse tre biter av informasjon, kan du ha din egen månedlige lån betaling kalkulator på datamaskinen.

Bruksanvisning

1 Velg "Standard EXE" mal etter lasting Visual Basic. Finn "Label" ikonet i verktøyboksen til venstre på skjermen. Dette ikonet ser ut som en stor bokstav A. Klikk og dra den til toppen av skjemaet i midten av skjermen. Når du slipper museknappen, vises et kryss. Klikk på den og bruke den lille torg-dra håndtakene å utvide etiketten. Gjenta denne handlingen tre ganger, plassere hver etikett under den foregående, og å gjøre det bredere. Legg til en femte merke til høyre for den fjerde og utvide det også.

2 Klikk på "TextBox" kontroll i verktøykassa, en liten firkant som inneholder bokstavene "ab", og dra den på skjemaet til høyre for den øverste etiketten. Slipp musen og bruke dra håndtakene å utvide tekstboksen. Gjenta denne handlingen to ganger, plassere hver boks under den foregående. Klikk på "Command," et lite torg i verktøykassa, fant under TextBox ikonet, og dra den på skjemaet, utvide den også.

3 Klikk på en "Label" i en tid med start fra toppen. Finn tilsvarende "Caption" eiendom i "Properties" -kolonnen i panelet til høyre. For hver etikett, dobbeltklikk på "Caption" linje og gjøre disse endringene fra standardteksten du se:

Top Label: Navn denne "Lånebeløp:"

Second Label: Navn denne "Månedlig rente:"
Tredje Etikett: Navn denne "Antall Måneder:"
Fjerde Label: Navn denne "Månedlig Betaling:"
Femte Label: Slett bildeteksten navn.

4 Klikk på hver "TextBox" i sving og slett "Text" egenskapsnavn i delen Egenskaper. Endre "Command" caption å lese "Beregn".

5 Dobbeltklikk på den nylig kalt "Beregn" kontroll, som åpner kodevisning vinduet. Du vil finne to linjer allerede angitt, "Private Sub Command1_Click ()" og "End Sub." Skriv inn følgende linjer med kode mellom disse to linjene:

Dim AmtBorrow, NUMMONTHS As Integer
Dim Rate, MonthPay As Double
Rate = Text2.Text
NUMMONTHS = Text3.Text
MonthPay = Text1.Text (1 + rente) ^ NUMMONTHS Pris / ((1 + rente) ^ NUMMONTHS - 1)
Label5.Caption = Format (MonthPay, "$ ##. ##")

Trykk "F5" for å kjøre programmet og levere beløpene på skjermen, trykke på "Beregn" for å fullføre.