Kuidas arvutada kuumaksed Visual Basic

Kuidas arvutada kuumaksed Visual Basic Siri Stafford / Digital Vision / Getty Images

arvutamiseks kuumaksed on vaja maksta ära laen, mida vajate kolm tükki andmeid: laenu summa;intressimäära;ja kui kaua laenu tagasi maksma.Matemaatilise valemi abil seda teha tõlgib hästi Visual Basic kood.Luues vormi võimalusi sisestada need kolm tükki informatsiooni, sul võib olla oma laenu kuumakse kalkulaator arvutisse.

juhised

  1. valige "Standard EXE" malli pärast laadimist Visual Basic.Leia "Label" ikooni Toolbox vasakul servas.See ikoon näeb välja nagu suurtähega A. Klõpsake ja vedage seda tippu kujul on ekraani keskel.Kui vabastad hiire, ilmub rist.Vajuta seda ja kasutada väike ruutu-drag käepidemetega laiendada silt.Korrake seda tegevust kolm korda, pannes iga sildi all eelmisega ning muuta see laiemalt.Lisa viiendiku label paremal neljas ning laiendada ka seda.

  2. Vajuta "tekstikasti" kontrolli tööriistakast, väike kandiline tähtedega "ab" ja lohista see vormi paremal ülemises märgis.Vabastage hiire ja kasutada

    drag käepidemed laiendada teksti kasti.Korrake seda tegevust veel kaks korda, pannes iga boksi eelmine.Vajuta "CommandButton," väike ruut tööriistakast, leida allpool tekstikasti ikoonil ja lohistage seda vormi, laiendades seda ka.

  3. Klõpsake ühel "Label" korraga alustades ülevalt.Leidke vastav "tiitel" vara "Properties" veerg paremal paneelil.Iga sildi, topelt-kliki "tiitel" line ja nende muutuste vaikimisi teksti näed:

    Top Label: Nimeta "Laenusumma:"

    Teiseks Label: Nimeta "intress kuus:"
    Kolmandaks Label: Nimeta "Kuude arv:"
    Neljas Label: Nimeta "Kuu Maksmine:"
    viies Label: Kustuta pealdis nimi.

  4. Vajuta iga "tekstikasti" omakorda ja kustutada "Tekst" kinnisvara nime Parameetrid.Muuda "CommandButton" caption lugeda "Arvuta".

  5. topeltklõps äsja nimega "Arvuta" kontrolli, mis avab Kood aknas. Leiad kaks rida juba sõlmitud, "Private Sub Command1_Click ()"ja "End Sub." Sisestage järgmine rida koodi vahel need kaks suunda:

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

    Press "F5" käivitada programmija pakkumise summad ekraanile, vajutades "Arvuta" lõpetada.

Resources

  • "Programmeerimine Visual Basic 6.0";Francesco Balena;1999
518
0
3
Visual Basic Programmeerimine