Problemas con la suma

[santir95]

Lo que pasa es que estoy haciendo un formulario donde se puedan sumar dos vectores, para ello, se introducen dos fuerzas y dos ángulos, el programa lo descompone en eje X y eje Y, hasta ahí todo bien, pero cuando va a sumarlos el resultado no es el que debería, por ejemplo, me da 2,5 y 2,7 en los ejes pero a la hora de sumarlos me da 4 como total, no tengo ninguna función Round pero si así fuera debería ser a 5 no?

[pkj]

Creo que el problema lo tienes porque guardas los primeros valores en textbox y despues los sumas.
Al pasarlos a los textbox, los valores 2,5 y 2,7 adquieren las comas decimales, pero en realidad, al sumarlos necesitas que los decimales esten marcados por punto y no por coma.

Haz la prueba reemplazando las comas por puntos antes de sumarlos.

Suponiendo que los valores los has metido en los textbox Text1 y Text2:

Código vb:

Dim Resultado As Long
Resultado=Replace(Text1, ",", ".") + Replace(Text2, ",", ".")
msgbox Resultado
 

PD: He hecho unas pruebas y no parece ser tal como yo lo veía. Debe ser algo diferente pero seguramente un detalle así de tonto.
Si nos dás algún dato mas quizá entre todos lo encontremos.

Lo que parece claro es que los decimales no los está usando. Mira si conviertes en integer los valores en algún momento.

[Heimish2000]

También puede ser que estes guardando los valores en variables enteras y por tanto descarte la parte decimal

[santir95]

El codigo es este

fx1 = f1 * Cos(a1 * (3.1416 / 180))
fy1 = f1 * Sin(a1 * (3.1416 / 180))
fx2 = f2 * Cos(a2 * (3.1416 / 180))
fy2 = f2 * Sin(a2 * (3.1416 / 180))
rx1 = Val(fx1) + Val(fx2)
ry1 = Val(fy1) + Val(fy2)

[lokoman]

Hola!
Como declaras las variables?
• fx1
• fy1
• fx2
• fy2
• rx1
• ry1
• f1
• f2

[santir95]

si, esas mas

a1
a2

[pkj]

El problema es que al pasarlos por Val() en las últimas líneas pierden los decimales (o la razón ). Debe ser por hacer Val() a 2 variables que deben ser numéricas y no texto.

Quita los Val() y se arreglará.

[santir95]

Había encontrado una respuesta temporal de multiplicar por 100 y luego volver a dividir por 100 pero ya tengo algo mucho mejor, en vez de hacerlos pasar como Val() los hago pasar como CDbl(), ahora todo me funciona como quiero, toma en cuenta los decimales. el codigo quedo de la siguiente manera:

fx1 = (f1 * Cos(a1 * (3.1416 / 180)))
fy1 = (f1 * Sin(a1 * (3.1416 / 180)))
fx2 = (f2 * Cos(a2 * (3.1416 / 180)))
fy2 = (f2 * Sin(a2 * (3.1416 / 180)))
rx1 = CDbl(fx1) + CDbl(fx2)
ry1 = CDbl(fy1) + CDbl(fy2)