Para calcular os pagamentos mensais necessários para pagar um empréstimo , você precisa de três informações : o montante do empréstimo , a taxa de juros cobrada , eo período de tempo para pagar o empréstimo. A fórmula matemática para fazer isso se traduz bem em código Visual Basic. Ao criar um formulário com opções para entrada destas três peças de informação , você pode ter sua própria calculadora de pagamento mensal do empréstimo em seu computador. Instruções
1
Selecione o modelo " Standard EXE " depois de carregar o Visual Basic. Encontre o ícone " etiqueta " na caixa de ferramentas do 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, aparece uma cruz. Clique nele e usar a minúscula quadrados arraste trata - alargar o rótulo. Repita esta ação três vezes , colocando cada rótulo abaixo do anterior e torná-lo mais amplo. Adicionar um quinto etiqueta à direita da quarta e alargá-la também.
2
Clique no controle " TextBox " na caixa de ferramentas , um pequeno quadrado que contém as letras " ab ", e arraste -lo no formulário à direita do rótulo superior. Solte o mouse e usar as alças de arraste para alargar a caixa de texto . Repita esta ação por mais duas vezes , colocando cada caixa abaixo do anterior. Clique no botão " CommandButton ", um pequeno quadrado na caixa de ferramentas , encontrado abaixo do ícone TextBox, e arraste-o sobre a forma, ampliando-o também.
3
Clique em um " Rótulo "Em um momento a partir do topo . Localize o correspondente propriedade " Caption " na coluna "Propriedades" no painel da direita . Para cada rótulo , clique duas vezes na linha de " Legenda" e fazer essas alterações a partir do texto padrão que você vê :
Top Etiqueta : Nome este " Valor do Empréstimo : " Segundo Selo: Nome este " Mensal Taxa de Juros : " Terceiro Selo: nome este " Número de Meses: "Quarto Selo: nome este " Pagamento Mensal: "Quinto Selo: . excluir o nome legenda
4
Clique em cada " caixa de texto " , por sua vez e apagar "Texto" nome da propriedade na seção Propriedades. Alterar a legenda " CommandButton " para ler " Calcular ".
5
Dê um clique duplo sobre o recém-nomeado "Calcular" controle , que abre a janela de visualização de código . Você vai encontrar duas linhas já inscritos , " Private Sub Command1_Click () " e digite as seguintes linhas de código entre estas duas linhas " End Sub ". :
Dim AmtBorrow , NumMonths Como IntegerDim Rate, MonthPay Como DoubleRate = Text2.TextNumMonths = Text3.TextMonthPay = Text1.Text * ( 1 + taxa) ^ NumMonths * Preço /( (1 + taxa) ^ NumMonths - 1) Label5.Caption = Format ( MonthPay " . $ # # # #" ;)
Pressione " F5" para executar o programa e fornecer as quantidades na tela, pressionando " Calcular " para terminar.