Visual Basic - suma variables

Life is soft - evento anual de software empresarial
 
Vista:

suma variables

Publicado por Juanpe (19 intervenciones) el 16/06/2005 10:27:58
hola a todos, tengo una aplicacion y necesito sumar cuatro campos, o sea lo mas facil del mundo pero no me sale, no tengo ni pti porque, tengo 5 variables tipo double una de ella para el total, y las otras cuatro para obtener el valor introducido por el usuario mediante las cajas de texto y despues las sumo y la aplicacion me los concatena y no se porque.

dim pr1,pr2,pr3,pr4,total as double
pr1=text1(0)
pr2=text1(1)
pr3=text1(2)
pr4=text1(3)
total=pr1+pr2+pr3+pr4

gracias
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:suma variables

Publicado por D.POLA (522 intervenciones) el 16/06/2005 14:50:21
Debes de declarar las variables asi:

Dim Num1 As Double, Num2 As Double, res As Double

Num1 = Text1.Text
Num2 = Text2.Text
res = Num1 + Num2
MsgBox res

Con tu declaración de variables Visual, las declara como Variant, con lo cuál les asigna como si estuvieran declaradas de tipo String.
Porque no utilizas la función CDbl para cada caja de texto y lo sumas todo.

Saludos
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:suma variables

Publicado por EGV (385 intervenciones) el 16/06/2005 16:08:17
podrias probar asi tambien

dim pr1,pr2,pr3,pr4,total as double
pr1=Val(text1(0) )
pr2=Val(text1(1) )
pr3=Val(text1(2) )
pr4=Val(text1(3) )
total=pr1+pr2+pr3+pr4
suerte
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:suma variables

Publicado por Juanpe (19 intervenciones) el 16/06/2005 16:58:22
gracias colega ya que me queda poco para mi gran aplicacion, ta luego colega
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