INVESTCAL.EXE
Este Programa foi feito no VB.Net 2008 , tudo funciona , mas ao ser executado a janela do prompt fecha instantâneamente não deixando eu ver o resultado , porquê será isso ?
- Sou o Rei dos inciantes.....
[ô]InvestCal.exe
[ô] Saldo Inicial : 10.000
[ô] Juros Anuais (Por Exemplo para 5% , Insira 5) : 5
[ô] Depósito Mensal : 200.00
[ô] PerÃodo de Investimento em Anos : 30 anos
[ô] A 5% de Juros
[ô]Seu Saldo Final : 211.129,17
Module Invest
Private dbljurosAnuais As Double = 0
Private iPeriodo As Integer = 0
Private decSaldoInicial As Double = 0
Private decDepositoMensal As Double = 0
Sub Main()
Dim decResultado As Double
[ô]Obtenção dos valores das entradas
GetInnputValues()
[ô]Cálculo
decResultado = CalculateFV(dbljurosAnuais, _
iPeriodo, _
decDepositoMensal, _
decSaldoInicial)
[ô]Exibição do Resultado
DisplayResults(decResultado)
End Sub
[ô]A Função CalculateFV
Private Function CalculateFV(ByVal jurosAnuais As Double, _
ByVal Periodo As Integer, _
ByVal DepositoMensal As Double, _
ByVal SaldoInicial As Double) As Double
[ô]DÃvida por 1200 para torna-lo um percentual mensal
Dim decJurosMensais As Double = CDec(jurosAnuais / 1200)
Dim iMeses As Integer = Periodo * 12
Dim decTemp As Double
Dim decReturn As Double
[ô]Precisaremos destes valores em alguns locais
decTemp = CDec((1 + decJurosMensais) ^ iMeses)
decReturn = CDec(DepositoMensal * ((decTemp - 1) _
/ decJurosMensais) _
+ (SaldoInicial * decTemp))
Return decReturn
End Function
Private Function GetValue(ByVal Prompt As String) As String
Console.Write(Prompt)
Return Console.ReadLine
End Function
Private Sub GetInnputValues()
Console.WriteLine()
decSaldoInicial = CDec(GetValue([Ô]Saldo Inicial:[Ô]))
dbljurosAnuais = _
CDbl(GetValue([Ô]Juros Anuais (para 5%,insira 5): [Ô]))
decDepositoMensal = CDec(GetValue([Ô]Deposito Mensal: [Ô]))
iPeriodo = CInt(GetValue([Ô]Periodo do Investimento em Anos: [Ô]))
Console.WriteLine()
End Sub
Private Sub DisplayResults(ByVal Resultado As Double)
Console.WriteLine()
Console.WriteLine([Ô]Se você começar com {0:c}, [Ô], decSaldoInicial)
Console.WriteLine([Ô] e investir {0:c} por mês[Ô], decDepositoMensal)
Console.WriteLine([Ô]durante {0} anos[Ô], iPeriodo)
Console.WriteLine([Ô]a {0}% de juros.[Ô], dbljurosAnuais)
Console.WriteLine()
Console.WriteLine([Ô]Seu saldo final será: {0:c}[Ô], Resultado)
End Sub
End Module
- Sou o Rei dos inciantes.....
[ô]InvestCal.exe
[ô] Saldo Inicial : 10.000
[ô] Juros Anuais (Por Exemplo para 5% , Insira 5) : 5
[ô] Depósito Mensal : 200.00
[ô] PerÃodo de Investimento em Anos : 30 anos
[ô] A 5% de Juros
[ô]Seu Saldo Final : 211.129,17
Module Invest
Private dbljurosAnuais As Double = 0
Private iPeriodo As Integer = 0
Private decSaldoInicial As Double = 0
Private decDepositoMensal As Double = 0
Sub Main()
Dim decResultado As Double
[ô]Obtenção dos valores das entradas
GetInnputValues()
[ô]Cálculo
decResultado = CalculateFV(dbljurosAnuais, _
iPeriodo, _
decDepositoMensal, _
decSaldoInicial)
[ô]Exibição do Resultado
DisplayResults(decResultado)
End Sub
[ô]A Função CalculateFV
Private Function CalculateFV(ByVal jurosAnuais As Double, _
ByVal Periodo As Integer, _
ByVal DepositoMensal As Double, _
ByVal SaldoInicial As Double) As Double
[ô]DÃvida por 1200 para torna-lo um percentual mensal
Dim decJurosMensais As Double = CDec(jurosAnuais / 1200)
Dim iMeses As Integer = Periodo * 12
Dim decTemp As Double
Dim decReturn As Double
[ô]Precisaremos destes valores em alguns locais
decTemp = CDec((1 + decJurosMensais) ^ iMeses)
decReturn = CDec(DepositoMensal * ((decTemp - 1) _
/ decJurosMensais) _
+ (SaldoInicial * decTemp))
Return decReturn
End Function
Private Function GetValue(ByVal Prompt As String) As String
Console.Write(Prompt)
Return Console.ReadLine
End Function
Private Sub GetInnputValues()
Console.WriteLine()
decSaldoInicial = CDec(GetValue([Ô]Saldo Inicial:[Ô]))
dbljurosAnuais = _
CDbl(GetValue([Ô]Juros Anuais (para 5%,insira 5): [Ô]))
decDepositoMensal = CDec(GetValue([Ô]Deposito Mensal: [Ô]))
iPeriodo = CInt(GetValue([Ô]Periodo do Investimento em Anos: [Ô]))
Console.WriteLine()
End Sub
Private Sub DisplayResults(ByVal Resultado As Double)
Console.WriteLine()
Console.WriteLine([Ô]Se você começar com {0:c}, [Ô], decSaldoInicial)
Console.WriteLine([Ô] e investir {0:c} por mês[Ô], decDepositoMensal)
Console.WriteLine([Ô]durante {0} anos[Ô], iPeriodo)
Console.WriteLine([Ô]a {0}% de juros.[Ô], dbljurosAnuais)
Console.WriteLine()
Console.WriteLine([Ô]Seu saldo final será: {0:c}[Ô], Resultado)
End Sub
End Module
Ao postar código fonte no site, poste TODOS OS ARQUIVOS que compõem o PROJETO.
Respondendo à sua dúvida, tente adicionar um ReadLine no método DisplayResults conforme abaixo:
Private Sub DisplayResults(ByVal Resultado As Double)
Console.WriteLine()
Console.WriteLine([Ô]Se você começar com {0:c}, [Ô], decSaldoInicial)
Console.WriteLine([Ô] e investir {0:c} por mês[Ô], decDepositoMensal)
Console.WriteLine([Ô]durante {0} anos[Ô], iPeriodo)
Console.WriteLine([Ô]a {0}% de juros.[Ô], dbljurosAnuais)
Console.WriteLine()
Console.WriteLine([Ô]Seu saldo final será: {0:c}[Ô], Resultado)
Console.ReadLine()
End SubCitação:TECLA escreveu:
Respondendo à sua dúvida, tente adicionar um ReadLine no método DisplayResults conforme abaixo:Private Sub DisplayResults(ByVal Resultado As Double)
Console.WriteLine()
Console.WriteLine([Ô]Se você começar com {0:c}, [Ô], decSaldoInicial)
Console.WriteLine([Ô] e investir {0:c} por mês[Ô], decDepositoMensal)
Console.WriteLine([Ô]durante {0} anos[Ô], iPeriodo)
Console.WriteLine([Ô]a {0}% de juros.[Ô], dbljurosAnuais)
Console.WriteLine()
Console.WriteLine([Ô]Seu saldo final será: {0:c}[Ô], Resultado)
Console.ReadLine()
End Sub
O livro diz pra executar o programa a partir do Prompt de Comando processando o executável criado .
Pergunto : Onde encontro isso ?
-Quanto ao salvar o projeto e zipar mandei SALVAR COMO e zipei , não entendo porque fica faltando arquivo neste caso aqui não existe objetos..como devo salvar este projeto pra não fica faltando nada ?
Citação:MANCKENNA escreveu:
TECLA escreveu:
Respondendo à sua dúvida, tente adicionar um ReadLine no método DisplayResults conforme abaixo:Private Sub DisplayResults(ByVal Resultado As Double)
Console.WriteLine()
Console.WriteLine([Ô]Se você começar com {0:c}, [Ô], decSaldoInicial)
Console.WriteLine([Ô] e investir {0:c} por mês[Ô], decDepositoMensal)
Console.WriteLine([Ô]durante {0} anos[Ô], iPeriodo)
Console.WriteLine([Ô]a {0}% de juros.[Ô], dbljurosAnuais)
Console.WriteLine()
Console.WriteLine([Ô]Seu saldo final será: {0:c}[Ô], Resultado)
Console.ReadLine()
End Sub
O livro diz pra executar o programa a partir do Prompt de Comando processando o executável criado .
Pergunto : Onde encontro isso ?
-Quanto ao salvar o projeto e zipar mandei SALVAR COMO e zipei , não entendo porque fica faltando arquivo neste caso aqui não existe objetos..como devo salvar este projeto pra não fica faltando nada ?
Você matou a páu , sabe tudo mesmo, uma sÃmples linha e tudo resolvido , acho que o autor não colocou esta linha pois quando escreveu o lvro era o primeiro Net quero dizer a primeira versão do VB.Net , ou então o cara é orelha mesmo...valeu meu brother.....
O livro diz pra executar o programa a partir do Prompt de Comando processando o executável criado .
Pergunto : Onde encontro isso ?
-Quanto ao salvar o projeto e zipar mandei SALVAR COMO e zipei , não entendo porque fica faltando arquivo neste caso aqui não existe objetos..como devo salvar este projeto pra não fica faltando nada ?
Só falta isso pra eu encerrar este tópico ......
Citação:O livro diz pra executar o programa a partir do Prompt de Comando processando o executável criado .
Pergunto : Onde encontro isso ?
No seu caso, dê preferência para executar o programa pelo VISUAL STUDIO. é mais fácil para quem está iniciando.
Citação:Quanto ao salvar o projeto e zipar mandei SALVAR COMO e zipei , não entendo porque fica faltando arquivo neste caso aqui não existe objetos..como devo salvar este projeto pra não fica faltando nada ?
Quando se cria um projeto (e salva o mesmo), o VISUAL STUDIO cria uma série de arquivos que compõem o projeto conforme a imagem.
Tópico encerrado , respostas não são mais permitidas