Ayuda en VB6

[RedMew]

Hola, veran necesito realizar estas operaciones en visual
x+x
(x-1)*2
(x+3)-(x-2)
trato de poner a x en un for pero solo reconoce el valor inicial aunque le doy el rango de 1 a 5, guardarlo en un arreglo y en cada caso debo graficarlo, pero con que se haga la operacion es suficiente, plis ayundeme

[erbuson]

Hola, yo personalmente soy incapaz de entender lo que estas preguntando porque las fórmulas están ahí y solo hace falta que las asignes a una variable.

x = lo que tu quieras

Total1 = x+x
Total2 = (x-1)*2
Total3 = (x+3)-(x-2)

Pero me imagino que no estás pidiendo algo tan simple como esto.

Bueno, ya si no es eso, intenta aclararlo un poco mas.

Saludos


pd: Si te lees las normas del foro veras que el título que has puesto a tu mensaje no esta permitido, porque es algo demasiado evidente que si entras en un foro de VB y dejas un mensaje es PORQUE NECESITAS AYUDA EN VB imagino que la ayuda no la necesitas para ducharte verdad ?. Por favor modifícalo editando tu mensaje.

[RedMew]

Exacto no es algo tan sencillo como eso, sino que x ya tiene un rango de valores que son del 1 al 5, lo que quiero es darle esos valores a las funciones mediante un for, y guardar esos resultados en un arreglo, lo intente hacer pero solo me acepta un numero que en este caso vendria siendo un 1 y solo me lo toma una vez, es decir toma el uno y me imprime un uno szin realizarme ninguna operacion, si pido el valor si funciona pero debe ser con ese rango del 1 al 5 sin pedirlo
pd: no se como editar el titulo

[erbuson]

Hola, lo de guardar los resultados en un arreglo sigo sin entenderlo, ¿ Porque no pones el código de como estas intentando hacerlo a ver si lo veo mas claro ?

Como no sea algo así ?

Dim Arreglo(5,3) As Long

For x = 1 to 5
Arreglo(x, 1) = x+x
Arreglo(x, 2) = (x-1)*2
Arreglo(x, 3) = (x+3)-(x-2)
Next

En cuanto a lo de editar, tienes razón SOLO se puede editar el último mensaje.


Saludos

[Monimo]

Loque quieres es iterar el valor de x en cada funcion y que te guarde el valor final después de cada iteración (es decir después de pasar por las 3 operaciones) en un arreglo?? Sí es así, solo debes meter una variable auxiliar en tu for al final guardar esa variable en tu arreglo. Así la equis cambaira de valor sobre el rango especificado pero sin perder el resultado..

[RedMew]

Iniciado por erbuson

Hola, lo de guardar los resultados en un arreglo sigo sin entenderlo, ¿ Porque no pones el código de como estas intentando hacerlo a ver si lo veo mas claro ?

Como no sea algo así ?

Dim Arreglo(5,3) As Long

For x = 1 to 5
Arreglo(x, 1) = x+x
Arreglo(x, 2) = (x-1)*2
Arreglo(x, 3) = (x+3)-(x-2)
Next

En cuanto a lo de editar, tienes razón SOLO se puede editar el último mensaje.

Saludos

Muchas gracias y pues para no complicarlo tanto cada funcion la asigne a un boton distinto, y le puse As Integer, en si me quedo asi
Dim ar(5) As Integer
Private Sub Command1_Click()
For x = 1 To x = 5
ar(x) = x + x
Next
End Sub

Private Sub Command2_Click()
For x = 1 To x = 5
ar(x) = (x) * 2
Next
End Sub

Private Sub Command3_Click()
For x = 1 To x = 5
ar(x) = (x + 3) - (x - 2)
Next
End Sub
y pues ahora los resultados los debo graficar en un picturebox, disculpen x tantas molestias pero tenia mucho que no usaba el visual, recuerdo que era mas o menos asi para obtenerlo

Pic.Line (X1, Y1)-(X2, Y2)

y segun recuerdo los valores de X y Y dependian del tamaño del picturebox y a como le entiendo Y vendria siendo el valor de cada operacion, y pues ya me revolvi en como graficar los valores obtenidos, les agradeceria mucho si me pudieran seguir ayudando, desde ya gracias

Saludos

[erbuson]

Hola, te dejo un enlace con Metodos Graficos donde encontrarás perfectamente explicadas estas funciones que solicitas, con ejemplos.

Por otra parte, tienes un error en el For aunque no se si es solo de transcripción al foro ya que VB te habría dado un mensaje de error:

Así está mal: For x = 1 To x = 5 debe ser así For x = 1 To 5

Saludos