Sådan Beregn månedlige betalinger i Visual Basic

Sådan Beregn månedlige betalinger i Visual Basic Siri Stafford / Digital Vision / Getty Images

at beregne de månedlige betalinger, der er nødvendige til at betale et lån, du har brug for tre stykker information: størrelsen af ​​lånet;rentesatsen;og længden af ​​tid til at tilbagebetale lånet.Den matematiske formel til at gøre dette udmønter godt ind Visual Basic-kode.Ved at oprette en formular med muligheder for at indtaste disse tre stykker information, kan du få din egen månedlige lån betaling regnemaskine på din computer.

Instruktioner

  1. Vælg "Standard EXE" skabelon efter indlæsning Visual Basic.Find "Label" ikonet i værktøjskassen til venstre på skærmen.Dette ikon ligner et stort bogstav A. Klik og træk det til toppen af ​​formularen i midten af ​​skærmen.Når du slipper musen, vises et kryds.Klik på den og bruge den lille torve-træk håndtag-at udvide etiketten.Gentag denne handling tre gange, hvilket placerer hver etiket under den foregående og gøre det bredere.Tilføj en femte mærke til højre for den fjerde o

    g udvide det så godt.

  2. Klik på "TextBox" kontrol i værktøjskassen, en lille firkant, der indeholder bogstaverne "AB", og træk det i formularen til højre for den øverste etiket.Slip musen og bruge træk håndtagene for at udvide tekstfeltet.Gentag denne handling to gange mere, hvilket placerer hver boks under den foregående.Klik på "CommandButton," en lille firkant i værktøjskassen, fundet under ikonet TextBox, og træk det på formularen, udvide det så godt.

  3. Klik på et "Label" på et tidspunkt, startende fra toppen.Find den tilsvarende "Caption" ejendom i kolonnen "Egenskaber" i højre panel.For hver etiket, skal du dobbeltklikke på den "Caption" linje og foretage disse ændringer fra standardteksten du ser:

    Top Label: Navngiv denne "Lånebeløb:"

    Anden Label: Navngiv denne "Månedlig rente:"
    Tredje Label: Navn denne "Antal måneder:"
    Fjerde Label: Navngiv denne "Månedlig udgift:"
    Femte Label: Slet billedteksten navn.

  4. Klik på hver "TextBox" efter tur og slette "Tekst" ejendom navn i sektionen Egenskaber.Ændre "CommandButton" billedtekst til "Beregn".

  5. Dobbeltklik på det nyligt hedder "Beregn" kontrol, som åbner Code visningen vinduet. Du vil finde to linjer allerede indtastet, "Private Sub Command1_Click ()"og "End Sub". Indtast følgende linjer kode mellem disse to linjer:

    Dim AmtBorrow, NumMonths As Integer
    Dim Rate, MonthPay som dobbelt
    Rate = Text2.Text
    NumMonths = Text3.Text
    MonthPay = Text1.Text (1 + Rate) ^ NumMonths Rate / ((1 + Rate) ^ NumMonths - 1)
    Label5.Caption = Format (MonthPay, ". $ ## ##")

    Tryk på "F5" for at køre programmet. og levere de beløb på skærmen, trykke på "Beregn" for at afslutte

Resources

  • "Programmering Visual Basic 6.0";Francesco Balena;1999
918
0
3
Visual Basics Programming