For at beregne de månedlige betalinger , der er nødvendige for 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 der 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 etiket til højre for den fjerde og udvide det så godt.
2
Klik på " TextBox " kontrol i værktøjskassen , en lille firkant , der indeholder bogstaverne "AB ", og træk den på 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 TextBox ikon, og træk det på formularen , udvidelse det så godt.
3
Klik på én " Label " på et tidspunkt startende fra toppen . Find den tilsvarende " Caption " ejendom i "Egenskaber " kolonnen i højre panel. For hver etiket , skal du dobbeltklikke på " Caption " linie og foretage disse ændringer fra standard tekst, du ser : Hej
Top Label : Navn denne " Lånebeløb : " Anden Label : Navn denne " Månedlig rente : "Third Label : Navn denne" antal måneder: "Fourth Label : Navn denne" Månedlig udgift: " Femte Label : Slet billedtekst navnet
4
Klik på hver. " TextBox " igen og slette "Tekst " ejendom navn i sektionen Egenskaber . Ændr " CommandButton " billedtekst til at læse " Beregn ".
5
Dobbeltklik på det nye navn " Beregn " kontrol , som åbner kodevisning vinduet. Du vil finde to linjer allerede er indtastet , "Private Sub Command1_Click ()" og indtast følgende linjer kode mellem disse to linjer " End Sub ". :
Dim AmtBorrow , NumMonths As IntegerDim Rate , MonthPay Som DoubleRate = Text2.TextNumMonths = Text3.TextMonthPay = Text1.Text * (1 + Rate) ^ NumMonths * Pris /( ( 1 + Rate) ^ NumMonths - 1 ) Label5.Caption = Format ( MonthPay " . $ # # # #" ;)
Tryk på " F5 " for at køre programmet, og levere de mængder på skærmen , trykke på " Beregn " for at afslutte .
