Jak vypočítat měsíční platby v jazyce Visual Basic

Krok 1

Po načtení programu jazyka vyberte šablonu Standard EXE. Najděte ikonu "Label" na panelu nástrojů na levé straně obrazovky. Tato ikona vypadá jako velká písmena "A". Klepněte na tlačítko a přetáhněte ho do horní části formuláře ve středu obrazovky. Když uvolníte myš, objeví se kříž. Klikněte na něj a použijte malé čtverečky - boty drag - pro rozšíření štítku. Tuto akci opakujte třikrát, umístěte každý štítek pod předchozí a zvětšete je. Přidejte pátý štítek napravo od čtvrtého a také jej protáhněte.

Krok 2

Klepněte na ovládací prvek "Textové pole" na panelu nástrojů, na malém čtverečku obsahujícím písmena "ab" a přetáhněte jej do formuláře napravo od horního štítku. Uvolněte myš a použijte přetáhněte úchyty pro rozšíření textového pole. Opakujte tuto akci dvakrát, umístěte každé pole pod předchozí. Klikněte na volbu "CommandButton", malý čtverec v panelu nástrojů, který je pod ikonou "Textové pole" a přetáhněte ji do formuláře a také jej rozšiřte.

Krok 3

Klepněte současně na "štítek", začínající od horní části stránky. V pravém podokně vyhledejte sloupec "Vlastnosti" ve sloupci Vlastnosti. U každého štítku poklepejte na řádek "Název" a proveďte tyto změny z výchozího textu, který vidíte:

Nejvyšší označení: Zavolejte na něj "Výše úvěru:" Druhý štítek: Označte jej "Měsíční úroková sazba:" Třetí označení: Označte jej "Počet měsíců:" Čtvrtý štítek: Zavolejte "Měsíční platba:" Pátý štítek:

Krok 4

Klepněte na jednotlivé "Textové pole" a v části "Vlastnosti" odeberte název vlastnosti "Text". Změňte název "CommandButton" a přečtěte "Vypočítat".

Krok 5

Poklepejte na ovládací prvek s novým názvem "Vypočítat", který otevře okno pro zobrazení kódu. Najdete dva řádky, které již byly zadány: "Private Sub Command1_Click ()" a "End Sub." Do těchto řádků zadejte následující řádky kódu:

Dim AmtBorrow, NumMonths jako celočíselný Dim Rate, MonthPay jako Double Rate = Text2.Text NumMonths = Text3.Text MonthPay = Text1.Text * (1 + Rate) ^ NumMonths * Rate / ((1 + Rate) ^ NumMonths - 1) Label5 .Caption = Formát (MonthPay, "$ ##. ##")

Stiskněte tlačítko "F5" pro spuštění programu a načtení množství na obrazovce, stisknutím tlačítka "Vypočítat" dokončete.