Añadir sumas a una operación Buenas tardes a todos.
Vereis hace algún tiempo que me estoy peleando con un algoritmo que cada vez que se haga clic en una scrollbar horizontal me añada una suma a una operación, esta es la operación:
Y= sen(i).
Esta es la variable que hay que iterar, esta dentro de un for.
Yo lo he hecho a lo bruto, es decir, con un select case, entonces queda de algún modo así:
scroll= val(ScrollHor.value)
Select case scroll
Case Is = 1
Picture1.Refresh
For i = 0 To (8 * PI) Step 0.005
Me.Picture1.Line (x, y)-(i, (Sin(i) + Sin(i))), vbBlue
x = i: y = (Sin(i) + (1 / 2 * Sin(i)))
Next i
case is = 3
Picture1.Refresh
For i = 0 To (8 * PI) Step 0.005
Me.Picture1.Line (x, y)-(i, (Sin(i) + (Sin(i)) + (1 / 3 * Sin(i * 3)))), vbBlue
x = i: y = (Sin(i) + (Sin(i)) + (1 / 3 * Sin(i * 3)))
Next i
....
Así lo he hecho hasta 17, el problema es que me gustaría llegar a 50.
De la manera que lo he hecho yo, es decir, a lo bestia, funciona, pero pero cuando llegue al caso 50 tendré que poner un sumatorio a mano de 25 terminos.
Es posible hacer lo que pido?
Muchas gracias a todos por interesaros.
Saludos |