Visual Basic - ayuda bucle

Life is soft - evento anual de software empresarial
   
Vista:

ayuda bucle

Publicado por victor (2 intervenciones) el 12/07/2011 11:42:49
hola,

Tengo el siguiente bucle en el que estoy tratando de que me saque el valor de x (no me lo va a dar exacto, pero que por lo menos me lo de lo mas aproximado posible).

r y s son valores ya declarados anteriormente.

dif tiene que ser lo mas cercano a 0 para que x sea lo más exacto posible.

Mi problema es que siempre me imprime por pantalla x =0.0001. A ver si alguno de ustedes ven el fallo y me pueden ayudar.


Dim x As Double = 0
Dim dif As Double = 0


For z As Integer = 1 To 1000000 Step 1
x = z / 10000
TextBoxControlX.Text = x

dif = (x ^ 2 * (x - s)) - r
TextBoxControlDIF.Text = dif

If -0.01 < dif < 0.01 Then
TextBox82.Text = x
Exit For
End If
Next z
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
Imágen de perfil de Antoni Masana

ayuda bucle

Publicado por Antoni Masana (88 intervenciones) el 14/07/2011 07:09:25
Para realizar una prueba y ver donde falla hace falta saber los valores de las variables S y R.

El condicional If -0.01 < dif < 0.01 Then no me gusta aunque no se queja de la sintaxis.

Prefiero esto If dif > -0.01 and dif < 0.01 Then que no es exactamente lo mismo.

Como no hay valor para las variables S y R el calculo de dif se cumple para el primer valor de Z y como hay un EXIT FOR finaliza el bucle
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