Visual Basic - Formula

Life is soft - evento anual de software empresarial
   
Vista:

Formula

Publicado por Patricio (47 intervenciones) el 04/09/2009 00:58:02
Hola a todos
Favor si me pueden ayudar con esto, tengo las siguientes formulas en un formulario, sin embargo tanto el label9 como el label 25 no me muestran el resultado, lo mismo ocurre con el text5 y text4
Que me falta agregar, el resultado debe salir ejemplo $1900

Desde ya gracias

TextBox1.Text = "$" & CStr(CInt((Val(ComboBox3.Text) * Val(Label6.Caption)) / Va(ComboBox2.Text)))

TextBox2.Text = "$" & CStr(CInt(((Val(TextBox3.Text) / Val(ComboBox5.Text)) * Val(Label12.Caption) * Val(ComboBox3.Text)) / (Val(ComboBox2.Text) * Val(ComboBox4.Text))) * Val(ComboBox4.Text))

Label9.Caption = "$" & CStr(CInt(Val(TextBox1.Text) + Val(TextBox2.Text)))

TextBox5.Text = Val(TextBox1.Text) * Val(ComboBox1.Text)

TextBox4.Text = Val(TextBox2.Text) * Val(ComboBox1.Text)

Label25.Caption = Val(Label9.Caption) * Val(ComboBox1.Text)
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:Formula

Publicado por juan carlos (518 intervenciones) el 04/09/2009 05:45:54
Hola patricio, espero te sirva de ayuda esto

te falta algo en este codigo
============================================================
tu codigo:
===========
TextBox1.Text = "$" & CStr(CInt((Val(ComboBox3.Text) * Val(Label6.Caption)) / Va(ComboBox2.Text)))
============
no es Va sino Val
============
TextBox1.Text = "$" & CStr(CInt((Val(ComboBox3.Text) * Val(Label6.Caption)) / Val(ComboBox2.Text)))
=============================================================

en estos el problema puede ser la falta de un valor en el combobox1 porque si no
se escribe ningun valor en el combobox1 no va a haber nada para multiplicar cuyo
resultado sera 0

TextBox5.Text = Val(TextBox1.Text) * Val(ComboBox1.Text)
TextBox4.Text = Val(TextBox2.Text) * Val(ComboBox1.Text)
Label25.Caption = Val(Label9.Caption) * Val(ComboBox1.Text)

te recomiendo correr el programa con F8 paso a paso
bye

intentalo asi
tu code
==============
Label9.Caption = "$" & CStr(CInt(Val(TextBox1.Text) + Val(TextBox2.Text)))
==============
asi
==============
Label9.Caption = "$" & Val(TextBox1.Text) + Val(TextBox2.Text)))
==============
tu code
==============
Label25.Caption = Val(Label9.Caption) * Val(ComboBox1.Text)
==============
asi
==============
Label25.Caption = Val((Label9.Caption) * Val(ComboBox1.Text) )
==============
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:Formula

Publicado por jaime guerrero (361 intervenciones) el 04/09/2009 23:14:08
como les gusta usar val.
esa es una funcion que no se recomienda su uso. es mejor transformarlo al tipo de dato que debe ser, y no esperar que la pc piense por ustedes. si saben que hay un double pues cdbl, si es entero pues cint, y asi. si tiene texto luego numero, pues usan un mid y luego lo convierte al tipo de dato correcto
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