Ako vypočítať mesačné platby v jazyku Visual Basic

Pre výpočet mesačnej platby potrebné pre splatiť pôžičku , budete potrebovať tri druhy informácií : výška úveru , úroková sadzba účtovaná , a dĺžka času splácať úver . Matematický vzorec , ktorý to sa premieta aj do kódu jazyka Visual Basic . Vytvorením formulár s možnosťou vstupu na tieto tri kusy informácií , môžete mať svoj ​​vlastný mesačná splátka úveru kalkulačka na vašom počítači . Pokyny dovolená 1

Zvoľte " Štandardné EXE " šablónu po načítaní Visual Basic . Nájdite ikonu " Label " v paneli na ľavej strane obrazovky . Táto ikona vyzerá ako veľké písmeno A. Kliknite a pretiahnite ju do hornej časti formulára v strede obrazovky . Keď uvoľníte tlačidlo myši , zobrazí kríž . Kliknite na neho a použiť malé štvorčeky pretiahnite úchyty k rozšíreniu štítok . Túto akciu opakujte trikrát , umiestnenie každého štítku pod predchádzajúcim jednej a robiť to širšie . Pridať piaty štítok na pravej strane štvrtého a rozšíriť ho tiež .
2

Kliknite na " textové pole " kontrola v Panelu nástrojov , na malom námestí , ktorý obsahuje písmená " AB " , a pretiahnite na formulári vpravo hornej štítku . Uvoľnite tlačidlo myši a pomocou drag rukoväte rozšíriť textové pole . Túto akciu opakujte ešte dvakrát , umiestnenie každej krabice pod predchádzajúcim jednej . Kliknite na " CommandButton " , malé námestie v paneli , našiel pod ikonou TextBox , a presuňte ho na formulári , rozširuje ju rovnako .
3

Kliknite na jednom " Label " v čase od vrcholu . Vyhľadajte zodpovedajúce " Titulok " vlastníctva vo " Vlastnosti " stĺpca v pravom paneli . Pre každý štítok , dvakrát kliknite na " Titulok " línie a tieto zmeny od východiskovej text , ktorý vidíte :

Top Label : Pomenujte tento " Výška pôžičky : " Druhé Label : názvu tohto " Mesačná úroková sadzba : " Tretia Label : Pomenujte tento" počet mesiacov : " Štvrtý Label : názvu to " mesačné platby " Piata Label : . Vypustite názov titulok
4

Kliknite na každú " textové pole " v poradí a vymazanie " Text " názov vlastnosti v časti vlastnosti . Zmeňte " CommandButton " titulok čítať " Vypočítať " .
5

Dvakrát kliknite na novo pomenovaný " Vypočítať " riadenie , ktoré sa otvorí okno s výhľadom na kód . Nájdete tu dve linky už zadané , " Private Sub Command1_Click ( ) " a zadajte nasledujúce riadky kódu medzi týmito dvoma riadkami " End Sub " . :

Dim AmtBorrow , NumMonths Ako IntegerDim Rate MonthPay ako DoubleRate = Text2.TextNumMonths = Text3.TextMonthPay = Text1.Text * ( 1 + Rate ) ^ NumMonths * Cena /( ( 1 + Rate ) ^ NumMonths - 1 ) Label5.Caption = Format ( MonthPay , " . $ # # # # " ;)

Stlačte " F5 " spustiť program a poskytnúť čiastky na obrazovke , stlačením tlačidla " Vypočítať " až do konca .

• Predchádzajúca strana: Ako vytvoriť Visual Basic Script 
• Ďalšia strana: Ako vytvoriť VBS skript