[Resolvido] Empréstimo

[Manckenna 0]

Este programa foi criado no VB.Net 2008 no modo console , porém ao ser executado o mesmo não consegue encontar o caminho dos módulos oque pode estar acontecendo , o código parece estar enxuto:

 

 

 

'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

[scorpio 7]

Visual Basic http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Plataforma .Net >> Windows Application

 

Qual mensagem de erro dá?

[Manckenna 0]

Visual Basic http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Plataforma .Net >> Windows Application

 

Qual mensagem de erro dá?

 

A Mensagem de erro :

 

Error 1 ')' expected. 'C:\Documents and Settings\Admin\Meus documentos\Visual Studio 2008\Projects\ModPayment.vb 41 60 ModPayment

 

 

Antes aparece uma mensagem : visual studio cnnot start debugging because the debug target c:\documents and settings\admin\meus docuntos\visual studio 2008\projects\modemprest\modemprest\bin\debug\modpayment.exe' is missing.Please build the project and retry,or set the outputpath and AssemblyName for the Target Assembly.

 

Tem como anexar o projeto zipado aqui ?

[quintelab 91]

Ta faltando o parenteses em algum lugar pelo erro.

Da um clique duplo no erro e veja onde é.

 

Abraços...

[Manckenna 0]

Ta faltando o parenteses em algum lugar pelo erro.

Da um clique duplo no erro e veja onde é.

 

Abraços...

 

 

Você matou a páu era falta de parêntese nessa linha : dblTemp = CDec (((1 + DblMonthlyInterest ^ iMonths))) <<<<<<faltou um

 

Parabéns "Quem sabe sabe mesmo" http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

 

Como eu faço para encerrar este tópico ?

[hargon 64]

É só aguardar que algum moderador coloca como resolvido. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Manckenna 0]

É só aguardar que algum moderador coloca como resolvido. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

 

OK