PAYMENT
[ô]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
Citação:JWCELYO escreveu:
veja agora
O erro continua , mas se você consegue abrir ai eu também consigo abrir aqui , ou estou errado ?
Resumindo: uma vez que você tenha descobrido o [Ô]erro[Ô] você vai conseguir abrir o programa ai no site , só então eu também conseguirei abrir o programa aqui em meu PC .
Se eu estiver [Ô]errado[Ô] oque não será novidade , pois sou o Rei dos inciantes você poderá me corrigir....
Abraços....
Citação:MANCKENNA escreveu:
JWCELYO escreveu:
veja agora
O erro continua , mas se você consegue abrir ai eu também consigo abrir aqui , ou estou errado ?
Resumindo: uma vez que você tenha descobrido o [Ô]erro[Ô] você vai conseguir abrir o programa ai no site , só então eu também conseguirei abrir o programa aqui em meu PC .
Se eu estiver [Ô]errado[Ô] oque não será novidade , pois sou o Rei dos inciantes você poderá me corrigir....
Abraços....
Obs: Se eu estiver [Ô]certo[Ô] oque será muito difÃcil você consegue inclusive fazer as alterações no meu próprio zip sem precisar criar outro.........
eu anexei o quivo ai para vc resolvi seu problema e so baixar projeto do anexo do meu link acima
Citação:MANCKENNA escreveu:
MANCKENNA escreveu:
JWCELYO escreveu:
veja agora
O erro continua , mas se você consegue abrir ai eu também consigo abrir aqui , ou estou errado ?
Resumindo: uma vez que você tenha descobrido o [Ô]erro[Ô] você vai conseguir abrir o programa ai no site , só então eu também conseguirei abrir o programa aqui em meu PC .
Se eu estiver [Ô]errado[Ô] oque não será novidade , pois sou o Rei dos inciantes você poderá me corrigir....
Abraços....
Obs: Se eu estiver [Ô]certo[Ô] oque será muito difÃcil você consegue inclusive fazer as alterações no meu próprio zip sem precisar criar outro.........
Agradeço muito a sua boa vontade de resolver esta parada mas pra mim porém aqui não mudou nada meu brother e falando em link onde está ele ?
Eu Vejo ai em cima um arquivo (programa zipado) que é exatamente uma cópia do programa que eu enviei , mas mesmo assim me sinto com a obrigação de te agradecer , e falando nisso o programa não executa um um cálculo louko , muito pelo contrário é uma aplicação muito útil que calcula o valor de um empréstimo com juros anuais e total de meses...periodo de pagamento .é um aplicativo útil para o dia a dia...
Abraços pra você , fico aguardando novidades sua e dos meus amigos deste site......
Citação:MANCKENNA escreveu:
MANCKENNA escreveu:
MANCKENNA escreveu:
JWCELYO escreveu:
veja agora
O erro continua , mas se você consegue abrir ai eu também consigo abrir aqui , ou estou errado ?
Resumindo: uma vez que você tenha descobrido o [Ô]erro[Ô] você vai conseguir abrir o programa ai no site , só então eu também conseguirei abrir o programa aqui em meu PC .
Se eu estiver [Ô]errado[Ô] oque não será novidade , pois sou o Rei dos inciantes você poderá me corrigir....
Abraços....
Obs: Se eu estiver [Ô]certo[Ô] oque será muito difÃcil você consegue inclusive fazer as alterações no meu próprio zip sem precisar criar outro.........
Agradeço muito a sua boa vontade de resolver esta parada mas pra mim porém aqui não mudou nada meu brother e falando em link onde está ele ?
Eu Vejo ai em cima um arquivo (programa zipado) que é exatamente uma cópia do programa que eu enviei , mas mesmo assim me sinto com a obrigação de te agradecer , e falando nisso o programa não executa um um cálculo louko , muito pelo contrário é uma aplicação muito útil que calcula o valor de um empréstimo com juros anuais e total de meses...periodo de pagamento .é um aplicativo útil para o dia a dia...
Abraços pra você , fico aguardando novidades sua e dos meus amigos deste site......
Que Deus nos ajude a todos em nosso dia a dia Amém ! [S83]