Make your own free website on Tripod.com

 

For...Next

 

 

Pon VB en marcha e inicia un proyecto nuevo.

 

Diseña la siguiente interfaz:

 

Escribe en la ventana de código del botón Bucle la programación

 

Private Sub Command1_Click()

    For i = 1 To 10

        Print "Esto me está gustando";  i

    Next i

End Sub

 

El punto y coma (;) de la sentencia Print hace que VB muestre la variable contador junto a la cadena "Esto me está gustando",  sin espacio adicional en medio.

 

Ejecuta el programa.

 

Utilizando la misma interfaz, modifica el código anterior por este otro:

 

Private Sub Command1_Click()

    For i = 1 To 6

        FontSize = 10 + 1

        Print "Esto me está gustando"; i

    Next i

End Sub

 

Esta sentencia asigna a la propiedad FontSie del formulario el valor de 6 puntos de partida más el valor que adquiera en cada pasada el contador bucle. La primera vez el tamaño será de 7, la segunda vez de 8, y así sucesivamente .

 

Contar y contar

 

Diseña la interfaz que te presento:

 

Borra el contenido de la propiedad Text del objeto Text1.

 

Escribe el código en el objeto Contar:

 

 

Finalmente escribe el código para Salir (Me imagino que ya lo sabes).

 

Trata detener el contador dando un clic en Salir. No te hace caso. ¿sabes porqué? Porque no se le ha dicho al programa que ponga atención al mundo exterior (eventos externos). Esto se corrige añadiendo al bucle For...Next la sentencia DoEvents.

 

Prueba la programación y presiona Salir al llegar a 1000.

 

Movimiento

 

Crea una interfaz con dos objetos: 1 PictureBox y 1 CommandButton. Incluso puedes prescindir del botón mover, en cuyo caso escribirías el código en el único objeto presente: Picture1.

 

 

Crea la flecha en Word (con AutoShapes). Luego la copias y la pegas en el objeto PictureBox de VB.

 

Escribe elsiguiente código en Mover:

 

Ejecuta el programa.

 

Explora modificando las numeraciones dentro del For.

 

Step. Incremento por intervalos

 

.a variable cantadora de un bucle For ... Next puede ser una potente herramienta en sus programas.  Con un poquito de imaginación podrá utilizarla para crear distintas secuencias útiles de números en sus bucles. Para crear un bucle con una sucesión distinta a la de 1, 2, 3, 4 etc., podrá especificar un valor distinto para el inicio del bucle y utilizar la palabra clave Step. para incrementar el contador en intervalos distintos a la unidad.  Por ejemplo, el bucle:

 

For i = 5 To 100 Step 5

            Print i

Next i

 

Imprimirá de cinco en cinco. También se pueden especificar números decimales: 1 To 2,5 Step 0,5

 

Exit For

 

La sentencia Exit For permite salir de un bucle For... Next antes de que el bucle haya terminado su ejecución.

 

Private Sub Command1_Click()

For i = 1 To 10

    Nombre = InputBox("Escribe tu nombre o Fin para salir")

    If Nombre = "Fin" Then Exit For

    Print Nombre

Next i

End Sub

 

 

Home | VB |