Visual Basic - multipicar valores text1 y text2

Life is soft - evento anual de software empresarial
 
Vista:

multipicar valores text1 y text2

Publicado por wee_bon (5 intervenciones) el 05/10/2006 01:14:06
Hola otra vez yo, tengo un text1, un text2 y un text3 se introducen valores y debe de dar el resultado, ya intente con cdec, cint cdbl, ccur etc y no me da el resultado correcto, por ejemplo:
suponiendo que el numero despues del igual es lo que introduce el usuario

text1.text=100
text2.text=0.0012
text3.text=0.456

operacion:

(text1.text*text2.text)/text3.text

El resultado correcto debe de ser:0.26315 etc

y lo que obtengo es: 2,631578947368

por lo que ese resultado solo me sale (100 *12)/456 osea el visual no me respeta los decimales

¿como le hago? ya me tiene hasta la madre esta cosa.

el codigo que uso es:

Private Sub Command1_Click()
Text4.Text = (Cdbl(Text1.Text) * Cdbl(Text2.Text) )/ Cdbl(Text3.Text)
'y repito ya intente con cdec, cint cdbl, ccur etc y me sigue contemplando valores reales no decimales
End Sub

AYUDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:multipicar valores text1 y text2

Publicado por Mukuykak (7 intervenciones) el 05/10/2006 03:00:56
Saludos, Wee bon:

Utiliza "eval()":

eval(Text1.text) + eval(Text2.text) = ...
eval(Text1.text) * eval(Text2.text) = ...
eval(Text1.text) / eval(Text2.text) = ...
..................

Buen día =0)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:multipicar valores text1 y text2

Publicado por wee_bon (5 intervenciones) el 05/10/2006 04:15:21
es visual basic 6 no .net, ¿alguna idea?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:multipicar valores text1 y text2

Publicado por MariA (38 intervenciones) el 05/10/2006 09:20:24
No tienes que hacer ninguna conversión, simplemente:

resultado = (Text1 * Text2) / Text3

y resultado dará 0.26315....

Otra cosa sería si en vez de tener el punto como separador de decimales, tuvieras la coma, entonces trendrás que hacer una conversión.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:multipicar valores text1 y text2

Publicado por Mukuykak (7 intervenciones) el 05/10/2006 14:46:49
saludos, Wee bon:

Lo siento, se me fue una letra de más... =0$
En vez de "eval()", debe ser "val()", de otra manera, ni en vb.net funcionaría...
....error de dedos...

Buen día. =0)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:multipicar valores text1 y text2

Publicado por Wilfredo Vargas Almendras (9 intervenciones) el 05/10/2006 15:21:28
Hola tambien podrias hacer lo siguiente:

Dim res As Double

res = CDbl(text1.Text) * CDbl(text2.Text)

y asi con los demas .... :)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

GRACIAS

Publicado por wee_bon (5 intervenciones) el 09/10/2006 03:46:22
Gracias a todos, lo solucioné como me dijieron, y ya está corriendo, wow no tengo forma de como agradecerles...........
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar