Como calcular pagamentos mensais no Visual Basic

Para calcular os pagamentos mensais necessários para pagar um empréstimo, você precisa de três partes das informações: o valor do empréstimo, a taxa de juros e o tempo necessário para pagar o empréstimo. A fórmula matemática para fazer isso se traduz bem em um código do Visual Basic. Ao criar um formulário com opções para inserir essas três partes das informações, você pode ter sua própria calculadora de pagamento mensal em seu computador.

Passo 1

Selecione o modelo “Standard EXE” após carregar o programa Visual Basic. Procure o ícone “Tag” na barra de ferramentas no lado esquerdo da tela. Este ícone se parece com uma letra maiúscula “A”. Clique e arraste-o para a parte superior do formulário, no centro da tela. Quando você soltar o mouse, uma cruz aparecerá. Clique nele e use os pequenos quadrados – casas de arrasto – para ampliar o rótulo. Repita essa ação três vezes, colocando cada etiqueta abaixo da anterior e ampliando-a. Adicione um quinto rótulo à direita do quarto e também amplie-o.

Etapa 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 essa ação mais duas vezes, colocando cada caixa abaixo da anterior. Clique na opção “CommandButton”, um pequeno quadrado na barra de ferramentas, localizado abaixo do ícone “Caixa de texto”, e arraste-o para o formulário, ampliando-o também.

Etapa 3

Clique em um “Rótulo” por vez, começando de cima. 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 no texto padrão que você vê:

Etiqueta superior: Chame “Montante do empréstimo:” Segunda tag: Chame “Taxa de juros mensal:” Terceira tag: Chame “Número de meses:” Quarta tag: Chame “Pagamento mensal:” Quinta tag: Remova o nome do título.

Etapa 4

Clique em cada “Caixa de texto” e remova o nome da propriedade “Texto” na seção “Propriedades”. Altere o título “CommandButton” para ler “Calcular”.

Etapa 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, “Private Sub Command1_Click ()” e “End Sub”. Digite as seguintes linhas de código entre essas duas linhas:

Dim AmtBorrow, NumMonths Como Inteira Dim Dim, MonthPay Como Double Rate = Text2.Text NumMonths = Text3.Text MonthPay = Text1.Text * (1 + Taxa) ^ NumMonths * Taxa / ((1 + Taxa) ^ NumMonths – 1) Label5 .Caption = Formato (MonthPay, “$ ##. ##”)

Pressione “F5” para executar o programa e carregue os valores na tela, pressionando “Calcular” para finalizar.

Referências

 

Você pode estar interessado:

Deixe um comentário