Arrays
Que tal como estas
Podrías ayudarme con otra situación en Visual Basic, Como hago para sumar las casillas de un arreglo quiero sumar las casillas text1(1) + text1(9) + text1(17) y así sucesivamente de 8 en 8 hasta el text1(89) y muestre el resultado en text1(97).text y otra columna que empieza de text1(2) + text(10) y así sucesivamente de 8 en 8 también hasta el text(90) y muestre el resultado en text1(98).text pero que haga esto oprimiendo solo un commandbuttom
Gracias
Podrías ayudarme con otra situación en Visual Basic, Como hago para sumar las casillas de un arreglo quiero sumar las casillas text1(1) + text1(9) + text1(17) y así sucesivamente de 8 en 8 hasta el text1(89) y muestre el resultado en text1(97).text y otra columna que empieza de text1(2) + text(10) y así sucesivamente de 8 en 8 también hasta el text(90) y muestre el resultado en text1(98).text pero que haga esto oprimiendo solo un commandbuttom
Gracias
1 respuesta
Respuesta de orande
1
Prueba con esto:
Dim iAux As Integer
Dim iCount as Integer
For iAux = 1 To 89 Step 8
iCount = iCount + CInt(Text1(iAux).Text)
Next iAux
Text(97).Text = Cstr(iCount)
El otro seria lo mismo pero empezando el bucle en 2 y terminando en 90.
Dim iAux As Integer
Dim iCount as Integer
For iAux = 1 To 89 Step 8
iCount = iCount + CInt(Text1(iAux).Text)
Next iAux
Text(97).Text = Cstr(iCount)
El otro seria lo mismo pero empezando el bucle en 2 y terminando en 90.
Que crees no me funciono el código mi amigo me marca un error "Error 13 No coinciden los tipos" en el renglón de iCount = iCount + CInt(Text1(iAux).Text)
Tu que crees que sea el problema
Otra pregunta no habrá manera de entrar en algún chat de hotmail para ahí hacer las preguntas
Tu que crees que sea el problema
Otra pregunta no habrá manera de entrar en algún chat de hotmail para ahí hacer las preguntas
Si el error es de tipos comprueba como has definido la variable iCount y el valor que estas intentando transformar en entero (Text1(iAux).Text). Cuando te salte error para la ejecución del programa y mira si se ha colado un carácter en el textbox o el valor supera los rangos de un entero (32767 creo).
