Como calcular pagamentos mensais no Visual Basic

Passo 1

Selecione o modelo "Standard EXE" após carregar o programa do Visual Basic. Encontre o ícone "Label" na barra de ferramentas no lado esquerdo da tela. Este ícone se parece com uma letra maiúscula "A". Clique e arraste-o para o topo do formulário no centro da tela. Quando você soltar o mouse, uma cruz aparecerá. Clique nele e use os pequenos quadrados de arrasto para ampliar o rótulo. Repita esta ação três vezes, colocando cada etiqueta abaixo da anterior e tornando-as mais largas. Adicione um quinto rótulo à direita do quarto e também estique-o.

Passo 2

Clique no controle "Caixa de texto" na barra de ferramentas, um pequeno quadrado contendo as letras "ab" e arraste-o para o formulário à direita do rótulo superior. Solte o mouse e use as alças de arrasto para ampliar a caixa de texto. Repita esta ação mais duas vezes, colocando cada caixa abaixo da anterior. Clique na opção "CommandButton", um pequeno quadrado na barra de ferramentas, que está abaixo do ícone "Caixa de texto", e arraste-o para o formulário, ampliando-o também.

Passo 3

Clique em um "Label" ao mesmo tempo, começando do topo. Localize "Título" na coluna "Propriedades" no painel direito. Para cada etiqueta, clique duas vezes na linha "Título" e faça essas alterações a partir do texto padrão que você vê:

Top label: chame-o "Valor do empréstimo:" Segundo marcador: chame-o "Taxa de juros mensal:" Terceiro rótulo: chame de "Número de meses:" Quarto rótulo: ligue para "Pagamento mensal:" Quinto rótulo: remova o nome do título.

Passo 4

Clique em cada "caixa de texto" por sua vez e remova o nome da propriedade "Texto" na seção "Propriedades". Altere o título "CommandButton" para ler "Calcular".

Passo 5

Clique duas vezes no controle com o novo nome "Calcular" que abrirá a janela para ver o código. Você encontrará duas linhas já inseridas, "Sub Comando Privado1_Click ()" e "End Sub". Digite as seguintes linhas de código entre essas duas linhas:

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

Pressione "F5" para executar o programa e carregar as quantidades na tela, pressionando "Calcular" para finalizar.