Miten lasketaan Kuukauden maksut Visual Basic

Miten lasketaan Kuukauden maksut Visual Basic Siri Stafford / Digital Vision / Getty Images

laskemiseksi kuukausimaksut tarvitaan maksaa pois lainan, tarvitset kolme tietoa: lainan määrä;perimä korko;ja aika maksaa lainan.Matemaattinen kaava tehdä tämä näkyy hyvin Visual Basic-koodin.Luomalla lomakkeen vaihtoehtoja syöttää nämä kolme tietoa, voit olla oma kuukausittain lainan maksu laskin tietokoneeseen.

Ohjeet

  1. Valitse "normaali EXE" malli lastauksen jälkeen Visual Basic.Etsi "Label" kuvaketta Toolbox vasemmalla näytön.Tämä kuvake näyttää kirjain A. Napsauta ja vedä se päälle muodossa näytön keskellä.Kun vapautat hiiren, tulee näkyviin risti.Klikkaa sitä ja käyttää pieniä aukioita-vedä kahvat-laajentamaan etiketti.Toista tämä kolme kertaa, laittamalla kukin tarra alle edellisessä ja tehden laajempi.Lisää viidesosa etiketti oikealle neljäs ja laajentaa sitä.

  2. Klikkaa "TextBox" valvonnan Toolbox, pieni neliö, joka sisältää kirjaimet "ab", ja vedä se lomakkeen oikealle pintaetiketin.Vapauta hiiren ja käyttää ved

    ä kahvat laajentaa tekstikenttään.Toista tämä vielä kaksi kertaa, laittamalla kukin alla edellisessä.Klikkaa "CommandButton" pienellä aukiolla Toolbox alapuolella TextBox kuvaketta, ja vedä se lomakkeen, laajentaa sitä.

  3. Valitse yksi "Levy" kerrallaan alkaen ylhäältä.Etsi vastaava "Kuvateksti" omaisuus "Ominaisuudet" sarake oikeassa paneelissa.Kunkin etiketti, tupla-klikkaa "Kuvateksti" linja ja tehdä nämä muutokset oletusteksti näet:

    Top Label: Nimeä "lainan määrä:"

    Toinen Label: Nimeä "kuukausittainen korko:"
    Kolmas Label: Nimeä "Kuukausien lukumäärä:"
    Neljäs Label: Nimeä "Kuukausimaksu:"
    Viides Label: Poista kuvateksti nimi.

  4. Klikkaa jokaisen "TextBox" puolestaan ​​ja poistaa "teksti" ominaisuuden nimi Ominaisuudet osiossa.Muuta "CommandButton" kuvateksti lukea "Laske".

  5. Kaksoisnapsauta uudelleen nimetty "Laske" ohjaus, joka avaa Code katsella ikkunasta. Löydät kaksi riviä jo tullut, "Private Sub Command1_Click ()"ja "End Sub." Syötä seuraavat koodiriviä välillä nämä kaksi riviä:

    Dim AmtBorrow, NumMonths As Integer
    Dim Luokittele, MonthPay kaksinkertainen
    Hinta = Text2.Text
    NumMonths = Text3.Text
    MonthPay = Text1.Text (1 + Luokitus) ^ NumMonths Luokitus / ((1 + Luokitus) ^ NumMonths - 1)
    Label5.Caption = Format (MonthPay, "$ ##. ##")

    Paina "F5" suorittaa ohjelmaja toimittaa määriä ruudulla, painamalla "Laske" loppuun.

Resurssit

  • "Ohjelmointi Visual Basic 6.0";Francesco Balena;1999
534
0
3
Visual Basic Ohjelmointi