Empréstimo II

[Manckenna 0]

EmpréstimoII

 

Desculpem se a pergunta for infantil (Sou Muito Iniciante) mas este console abaixo tem que dar como resposta final , este resultado : Your monthly payment would be : + Infinito -------- ( é isso mesmo ) ??????

 

 

'Payment.exe
' Valor do Empréstimo : 10.000
' Juros Anuais (Por Exemplo para 60% , Insira 60) : 60
' Total de Meses : 60
' Período de Pagamentos em Anos : 5 anos
' A 5% de Juros ao mês
'Valor Pago em 5 Anosl : 

Module Payment
    Private dblAnnualInterest As Double = 0
    Private iYears As Integer = 0
    Private dblLoAmount As Double = 0
    Private dblMonthLyDeposit As Double = 0

    Sub Main()
        Dim dblResult As Double

        'Armazena os valores informados
        GetInputValues()

        'Calcula
        dblResult = CalculatePayment(dblLoAmount, _
        dblAnnualInterest, _
        iYears)
        'Proceda a exibição do resultado
        DisplayResults(dblResult)

    End Sub

    Private Function CalculatePayment(ByVal LoanAmount As Double, _
        ByVal AnnualInterest As Double, _
        ByVal Years As Integer) As Double
        'Divida por 1200 para torna-lo um percentual mensal
        Dim DblMonthlyInterest As Double = CDec(AnnualInterest / 1200)
        Dim iMonths As Integer = Years * 12
        Dim dblTemp As Double
        Dim dblReturns As Double

        'Precisaremos desse valor em alguns locais
        dblTemp = CDec (((1 + DblMonthlyInterest ^ iMonths))
        dblReturns = LoanAmount * _
          (DblMonthlyInterest * dblTemp / (dblTemp - 1))
        Return dblReturns
    End Function

    Private Sub GetInputValues()
        Console.WriteLine()
        dblLoAmount = CDec(GetValue("Loan Amount: "))
        dblAnnualInterest = _
        CDbl(GetValue("Annual Interest (e.g for 5%, enter 5): "))
        iYears = CInt(GetValue("Years of loan: "))
        Console.WriteLine()
    End Sub

    Private Function GetValue(ByVal Prompt As String) As String
        Console.Write(Prompt)
        Return Console.ReadLine

    End Function

    Private Sub DisplayResults(ByVal Result As Double)
        Console.WriteLine()

        Console.WriteLine("If you borrow {0:c}, ", dblLoAmount)
        Console.WriteLine("at {0}% interest.", dblAnnualInterest)
        Console.Writeline("for {0}Years", iYears)

        Console.WriteLine()
        console.WriteLine("Your monthly payment would be: {0:c}", Result)

    End Sub

End Module

[quintelab 91]

Não entendi ?

Testou o código, deu isso?

 

Abraços...

[Manckenna 0]

Sim , será por causa desta linha ? :

 

console.WriteLine("Your monthly payment would be: {0:c}", Result)

Obs: Tem como enviar o aplicativo zipado pra você ver In Loco ?

[quintelab 91]

Sim , será por causa desta linha ? :

 

console.WriteLine("Your monthly payment would be: {0:c}", Result)

 

Sim

 

Obs: Tem como enviar o aplicativo zipado pra você ver In Loco ?

 

Não, melhor resolvermos por aqui.

 

Abraços...

[Manckenna 0]

 

Sim , será por causa desta linha ? :

 

console.WriteLine("Your monthly payment would be: {0:c}", Result)

 

Sim

 

Obs: Tem como enviar o aplicativo zipado pra você ver In Loco ?

 

Não, melhor resolvermos por aqui.

 

Abraços...

 

Valeu irmão...