Jak obliczyć miesięczne płatności w Visual Basic

Krok 1

Wybierz szablon "Standardowy EXE" po załadowaniu programu Visual Basic. Znajdź ikonę "Etykieta" na pasku narzędzi po lewej stronie ekranu. Ta ikona wygląda jak wielka litera "A". Kliknij i przeciągnij go na górę formularza na środku ekranu. Po zwolnieniu myszy pojawi się krzyżyk. Kliknij na niego i użyj małych kwadratów - butów przeciągnij - aby poszerzyć etykietę. Powtórz to działanie trzy razy, umieszczając każdą etykietę poniżej poprzedniej i zwiększając je. Dodaj piątą etykietę po prawej stronie czwartej, a także rozciągnij ją.

Krok 2

Kliknij kontrolkę "Pole tekstowe" na pasku narzędzi, mały kwadrat zawierający litery "ab" i przeciągnij do formularza po prawej stronie górnej etykiety. Puść mysz i użyj uchwytów przeciągania, aby poszerzyć pole tekstowe. Powtórz tę czynność jeszcze dwa razy, umieszczając każde pole poniżej poprzedniego. Kliknij opcję "CommandButton", mały kwadrat na pasku narzędzi, który znajduje się poniżej ikony "Textbox" i przeciągnij go do formularza, również rozszerzając.

Krok 3

Kliknij "Etykietę" w tym samym czasie, zaczynając od góry. Zlokalizuj "Tytuł" w kolumnie "Właściwości" w prawym okienku. Dla każdej etykiety kliknij dwukrotnie wiersz "Tytuł" i wprowadź te zmiany z domyślnego tekstu:

Najlepsza etykieta: nazwij ją "Kwota pożyczki:" Druga etykieta: nazwij ją "Miesięczna stopa procentowa:" Trzecia etykieta: nazwij ją "Liczba miesięcy:" Czwarta etykieta: nazwij ją "Miesięczna płatność:" Piąta etykieta: usuń nazwę tytułu.

Krok 4

Kliknij kolejno "Pole tekstowe" i usuń nazwę właściwości "Tekst" w sekcji "Właściwości". Zmień tytuł "CommandButton", aby przeczytać "Oblicz".

Krok 5

Dwukrotnie kliknij kontrolkę z nową nazwą "Oblicz", która otworzy okno, aby zobaczyć Kod. Znajdziesz dwie linie już wpisane, "Private Sub Command1_Click ()" i "End Sub". Wprowadź następujące linie kodu między tymi dwoma wierszami:

Dim AmtBorrow, NumMonths As Integer Dim Rate, MonthPay Jako Double Rate = Text2.Text NumMonths = Text3.Text MonthPay = Text1.Text * (1 + Rate) ^ NumMonths * Rate / ((1 + Rate) ^ NumMonths - 1) Label5 .Caption = Format (MonthPay, "$ ##. ##")

Naciśnij "F5", aby uruchomić program i załaduj ilości na ekranie, naciskając "Oblicz", aby zakończyć.