Visual Basic .NET - Agenda de amortização

 Neste artigo eu vou apresentar um programa bem simples feito na linguagem VB .NET que realiza cálculos para simulação financeira de empréstimos montando uma agenda de amortização.

Dim precoPorKilo As Decimal = 17.36d
Dim s As String = String.Format("O preço atual é {0:C2} por kilo.", precoPorKilo )

' Resultado se a cultura atual for pt-br: O preço atual é  R$17,36 por kilo.

Public NotInheritable Class AboutBox1

    Private Sub AboutBox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Define o titulo do formulário
        Dim ApplicationTitle As String
        If My.Application.Info.Title <> "" Then
            ApplicationTitle = My.Application.Info.Title
        Else
            ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
        End If
        Me.Text = String.Format("Sobre {0}", ApplicationTitle)
        Me.LabelProductName.Text = My.Application.Info.ProductName
        Me.LabelCopyright.Text = My.Application.Info.Copyright

    End Sub

    Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click
        Me.Close()
    End Sub
End Class

 Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        AboutBox1.ShowDialog()
    End Sub

    Private Sub btnCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalcular.Click
        'Declara variáveis usadas no projeto
        Dim intNumeroMeses As Integer
        Dim dblPagamentoMensal As Double
        Dim dblTaxaJuros As Double
        Dim intNumeroPagamentos As Integer
        Dim dblPrincipal As Double
        Dim dblConverteJuros As Double    'converte para juros mensal
        Dim intParcelas As Integer = 1         'inicializa
        Dim decSaldoDeduzido As Decimal
        Dim jurosPagos As Decimal
        Dim decNovoSaldo As Decimal
        Dim dblTotalPagamentos As Double
        Dim dblJurosDecimal As Double     'converte os juros para decimal

        'obtém a entrada do usuário
        dblPrincipal = Val(txtPrincipal.Text)
        dblTaxaJuros = Val(txtJuros.Text)
        intNumeroMeses = Val(txtNumeroMeses.Text)

        'verifica os erros
        If txtPrincipal.Text = "" Then
            ErrorProvider1.SetError(txtPrincipal, "Informe o valor do Principal.")
        ElseIf txtJuros.Text = "" Then
            ErrorProvider2.SetError(txtJuros, "Informe a taxa de juros.")
        ElseIf txtNumeroMeses.Text = "" Then
            ErrorProvider3.SetError(txtNumeroMeses, "Informe o numero de meses do empréstimo.")
        End If

        '********************************************************************
        '  Calcula o pagamento mensal usando a fórmula                      *
        '   M = P * i / ( 1 - ( 1 + i ) ^ -n)                               *
        '********************************************************************
        '1. converte a taxa de juros para decimal
        dblJurosDecimal = dblTaxaJuros / 100

        '2. calcula os juros
        dblConverteJuros = dblJurosDecimal / 12

        '3. calcula o numero total de pagamentos (como esta em meses)
        intNumeroPagamentos = intNumeroMeses

        '4. Calcula o pagamento mensal
        dblPagamentoMensal = dblPrincipal * dblConverteJuros / (1 - (1 + dblConverteJuros) ^ -intNumeroPagamentos) 'end monthtly payment  

        'exibe o pagamento mensal 
        lblPagamentoMensal.Text = String.Format("{0:C}", dblPagamentoMensal)

        ' limpa o ListBox
        lbAgendaPagamento.Items.Clear()

        dblTotalPagamentos = intNumeroPagamentos * dblPagamentoMensal 'total de pagamentos
        lblTotalPagamentos.Text = String.Format("{0:C}", dblTotalPagamentos)
        decNovoSaldo = dblPrincipal                                                                 ' inicializa o saldo

        Do While intParcelas <= intNumeroPagamentos

            jurosPagos = decNovoSaldo * dblConverteJuros
            decSaldoDeduzido = dblPagamentoMensal - jurosPagos
            decNovoSaldo = decNovoSaldo - decSaldoDeduzido

            lbAgendaPagamento.Items.Add(intParcelas & ControlChars.Tab & _
            ControlChars.Tab & String.Format("{0:C}", dblPagamentoMensal) & ControlChars.Tab & _
            ControlChars.Tab & String.Format("{0:C}", jurosPagos) & ControlChars.Tab & _
            ControlChars.Tab & String.Format("{0:C}", decSaldoDeduzido) & _
            ControlChars.Tab & ControlChars.Tab & String.Format("{0:C}", decNovoSaldo))

            intParcelas += 1
        Loop
    End Sub

Quer migrar para o VB .NET ?

• Veja mais sistemas completos para a plataforma .NET no Super DVD .NET , confira...

• Curso Básico VB .NET - Vídeo Aulas

Quer aprender C# ??

• Chegou o Super DVD C# com exclusivo material de suporte e vídeo aulas com curso básico sobre C#.

• Curso C# Basico - Video Aulas

Quer aprender os conceitos da Programação Orientada a objetos ?

• Curso Fundamentos da Programação Orientada a Objetos com VB .NET

Quer aprender o gerar relatórios com o ReportViewer no VS 2013 ?

•  Curso - Gerando Relatórios com o ReportViewer no VS 2013 - Vídeo Aulas