[Resolvido] Problemas com soma

[Guilherme Zavatta 0]

Caro amigos.. naum estou conseguindo resolver um probleminha simples (eu acho q é simples pelo menos) com somas

 

tipo ai vai o problema

tenho 6 texts q preciso q sejam somados pra isso fiz o codigo

txttotal = Val(txt1) + val(txt2) + val(txt3) + val(txt4) + val(txt5) + val(txt6)
txttotal = format (txttotal, "0.00")

até ai tudo bem

 

mas!!!!!

 

vou dar os respectivos valores dos texts

txt1 = 831.60

txt2 = 970.20

txt3 = 351.23

txt4 = 316.10

txt5 = 280.98

txt6 = 77.27

 

o resultado disso é 2827,38.. mas no txttotal. o vb mostra 2825.00 ou seja.. ele desconsiderou as casas decimais.. como faço pra ele somar as casas decimais e me dar o resultado real??

e tbm.. como faço pra arredondar valores.. tipo 31.5 arrendonda para 32?

[LCS 0]

Caro amigos.. naum estou conseguindo resolver um probleminha simples (eu acho q é simples pelo menos) com somas

 

tipo ai vai o problema

tenho 6 texts q preciso q sejam somados pra isso fiz o codigo

 

txttotal = Val(txt1) + val(txt2) + val(txt3) + val(txt4) + val(txt5) + val(txt6)

txttotal = format (txttotal, "0.00")

 

até ai tudo bem

 

mas!!!!!

 

vou dar os respectivos valores dos texts

txt1 = 831.60

txt2 = 970.20

txt3 = 351.23

txt4 = 316.10

txt5 = 280.98

txt6 = 77.27

 

o resultado disso é 2827,38.. mas no txttotal. o vb mostra 2825.00 ou seja.. ele desconsiderou as casas decimais.. como faço pra ele somar as casas decimais e me dar o resultado real??

e tbm.. como faço pra arredondar valores.. tipo 31.5 arrendonda para 32?

primeiro tu deve declarar as variaveis e o tipo delas .

dim valor1,valor2,valor3,valor4,valor5,valor6,total as integer

aqui você vai instanciar as variaveis

valor1 = val(txt1.text)
valor2= val(txt2.text)

e assim por diante

total = (valor1+ valor2+valor3+valor4+valor5+valor6)

txttotal.text = (Format$(total , "##0.00")

bom acho que eh so isso.

[Paulo Mendes 0]

Olá.

 

Guilherme, primeiro precisamos declarar as variáveis como números decimais se realmente quiser fazer uma operação deste tipo com elas.

 

Dim valor1 as Double
Dim valor2 as Double

Logo após isso, fazer a soma normal. Para colocar o resultado em um TextBox, precisamos convertê-la para um String, e para ficar bonito formatá-la de modo coerente

 

Dim resultado as Double

valor1 = 32.1
valor2 = 14.25

resultado = valor1+valor2 'Isso retornara para resultado 45.35
TextBox1.Text = Format(resultado, "##.00")  'Isso converterá em string ao mesmo tempo que arruma a visualização

resultado = round(resultado, 2) 'isso arredondará o resultado para um inteiro, o segundo parâmetro são quantas casas após a virgula

A única coisa que nosso amigo LCS esqueceu foi a declaração em Double, caso contrário não dá certo.

 

Se o seu problema foi resolvido por favor envie a resposta.

 

Paulo Mendes.

[Guilherme Zavatta 0]

Olá.

 

Guilherme, primeiro precisamos declarar as variáveis como números decimais se realmente quiser fazer uma operação deste tipo com elas.

 

Dim valor1 as Double
Dim valor2 as Double

Logo após isso, fazer a soma normal. Para colocar o resultado em um TextBox, precisamos convertê-la para um String, e para ficar bonito formatá-la de modo coerente

 

Dim resultado as Double

valor1 = 32.1
valor2 = 14.25

resultado = valor1+valor2 'Isso retornara para resultado 45.35
TextBox1.Text = Format(resultado, "##.00")  'Isso converterá em string ao mesmo tempo que arruma a visualização

resultado = round(resultado, 2) 'isso arredondará o resultado para um inteiro, o segundo parâmetro são quantas casas após a virgula

A única coisa que nosso amigo LCS esqueceu foi a declaração em Double, caso contrário não dá certo.

 

Se o seu problema foi resolvido por favor envie a resposta.

 

Paulo Mendes.

vlw kra.. funcionou e muito bem.. aêw Brigrado mesmo

 

sou novo nesse négocio de programação, mas sou apaixonado por isso

espero q naum se importe de responder as minhas perguntas... heheh vo perguntar tudo pra ti agora

 

vlw cara

felicidades