border

Miembros:
Mensajes:
Temas:
Online:

Ultimo Miembro:

 
 

  #1 (permalink)  
Antiguo 13-03-2007, 18:46:03
Un Nuevo Amigo
 
Registrado: mar 2007
Posts: 13
Knibal Valoración +2
Predeterminado 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
Responder Con Cita
  #2 (permalink)  
Antiguo 13-03-2007, 22:14:15
Moderador
 
Registrado: dic 2002
Ubicación: Madrid
Posts: 4.266
acalanto ha deshabilitado la reputación
Predeterminado

No utilices un scrollbar para lo que no está pensado. Utiliza un TextBox o un spinner para variar el valor de la constante. Si utilizar un TextBox el código seríe más o menos el siguiente


Código:
For i = 0 To (8 * PI) Step 0.005 
Me.Picture1.Line (x, y)-(i, (Sin(i) + (Sin(i)) + (1 / val(me.textbox) * Sin(i * val(me.textbox))))), vbBlue 
x = i: y = (Sin(i) + (Sin(i)) + (1 / 3 * Sin(i * val(me.textbox)))) 
Next i

Como verás el código no crece independientemente de que tenga el valor 1, 100, 1000, 100000000....infinito & beyond
__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Responder Con Cita
  #3 (permalink)  
Antiguo 14-03-2007, 15:09:25
Un Nuevo Amigo
 
Registrado: mar 2007
Posts: 13
Knibal Valoración +2
Predeterminado

gracias por la respuesta, pero esa no es la misión.

Quizás esté metiendo la gamba, pero lo que yo deduzco de tu código es que al aumentar el valor del text box, aumentará el valor de la variable de acuerdo al valor que escribamos en el text box. Esto se traducirá en que cada vez iremos variando la forma de la gráfica.

Es como si hacemos X=val(me.textbox)
en un primer caso, ponemos 1, encontes tendremos X=1
en un segundo caso, 2 por ejemplo, entonces tendremos X=2


Lo que yo preguntaba es como hacer que en cada clic de la scroll bar (cada vez que aumenta su valor), añadir un sumando, es decir:

empecemos con (con un ejemplo que se vea más claro):

X=X+2, esta es la formula inicial.

Al hacer clic en el scroll bar, es decir, al aumentar su valor debe hacer lo siguiente:

X=X+2+(X+3)

Si volvemos ha hacer clic:

X=X+2+(X+3)+(X+4)...

y así hasta 25 clics.

De algún modo al llegar a los 25 clics, deberíamos tener una ecuación con 26 terminos, o lo que es lo mismo, aumentar en un termino por cada clic.

Siento si no se entendía muy bien en el primer post.

De cualquier modo, muchas gracias.
Responder Con Cita
Respuesta


Herramientas
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado


Temas Similares
Tema Autor Foro Respuestas Último Mensaje
Esperar fin de operacion INSERT McruzAT VBA (Excel, Word, Outlook, Access) 1 10-03-2008 21:57:02
AÑADIR REGISTRO Hewlett Visual Basic 6.00 2 23-11-2004 19:31:46
operacion javier Visual Basic 6.00 19 22-11-2004 16:21:28
Error "la operacion debe usar una consulta actualizable" jessuss Visual Basic 6.00 12 17-09-2004 01:00:00
un data grid para sierta operacion ayuda!!!! HurryCrack Visual Basic 6.00 1 16-03-1970 05:27:31


La franja horaria es GMT. Ahora son las 23:28:25.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
A vBSkinworks Design

Alojado en el servicio Premium de Masquewebs | Diseño mejorado por MasqueWebs

right