Como calcular os pagamentos mensais em Visual Basic

Para calcular os pagamentos mensais necessários para pagar um empréstimo, você precisa de três peças de informação: o valor do empréstimo-a charged- taxa de juros eo período de tempo para reembolsar o empréstimo. A fórmula matemática para fazer isso traduz bem em código Visual Basic. Ao criar um formulário com opções para introduzir estas três peças de informação, você pode ter sua própria calculadora de pagamento mensal do empréstimo em seu computador.

Selecione os "standard EXE" template depois de carregar Visual Basic. Encontre o "Rótulo" ícone na caixa de ferramentas do lado esquerdo do ecrã. 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, aparece uma cruz. Clique nele e usar a pequena quadrados-alças de arrasto-de alargar o rótulo. Repita esta ação três vezes, colocando cada etiqueta abaixo do anterior e torná-lo mais amplo. Adicionar um quinto etiqueta à direita do quarto um e alargá-la também.
Clique no "Caixa de texto" controle na caixa de ferramentas, um pequeno quadrado que contém as letras "ab," e arrastá-lo no formulário à direita da etiqueta superior. Solte o mouse e usar as alças de arrasto para alargar a caixa de texto. Repita esta acção mais duas vezes, colocando cada caixa abaixo da anterior. Clique no "Botão de comando," um pequeno quadrado na caixa de ferramentas, encontrada abaixo do ícone de caixa de texto, e arraste-o sobre a forma, ampliando-o bem.
Clique em um "Rótulo" de cada vez a partir do topo. Localize o correspondente "Rubrica" propriedade no "propriedades" coluna no painel direito. Para cada rótulo, clique duas vezes sobre o "Rubrica" line e fazer essas alterações a partir do texto padrão que você vê:
Top Etiqueta: Nome presente "Montante do empréstimo:"

Segundo Etiqueta: Nome presente "Mensal Taxa de Juros:"
Terceiro Selo: Nome este "Número de Meses:"
Quarta Etiqueta: Nome presente "Pagamento mensal:"
Quinto Selo: Excluir o nome da legenda.
Clique em cada "Caixa de texto" por sua vez, e excluir o "Texto" nome da propriedade na seção Propriedades. Mudar o "Botão de comando" caption para ler "Calcular."
Dê um duplo clique sobre o recém-nomeado "Calcular" controle, que abre a janela ver o código. Você vai encontrar duas linhas já entrou, "Private Sub Command1_Click ()" e "End Sub." Digite as seguintes linhas de código entre estas duas linhas:
Dim AmtBorrow, NUMMONTHS As Integer
Taxa Dim, MonthPay As Double
Taxa = Text2.Text
NUMMONTHS = Text3.Text
MonthPay = Text1.Text (1 + taxa) ^ NUMMONTHS Taxa / ((1 + taxa) ^ NUMMONTHS - 1)
Label5.Caption = Format (MonthPay, "$ ##. ##")
pressione "F5" para executar o programa e fornecer as quantidades no ecrã, pressionando "Calcular" terminar.

De esta maneira? Compartilhar em redes sociais: