CASOS ESPECIALES CICLO FOR.

Casos Particulares:

1.- El ciclo comienza en uno y se incrementa de uno en uno, este es el caso mas general.

DIM X AS INTEGER

FOR X=1 TO 5

List1.AddItem (X)

NEXT X

2.- El valor inicial puede se diferente de uno, ejemplo:

DIM X AS INTEGER

FOR X=5 TO 28

List1.AddItem (X)

NEXT X

3.- El valor inicial puede ser negativo, ejemplo;

DIM X AS INTEGER

FOR X= -5 TO 18

List1.AddItem (X)

NEXT X

4.- Los incrementos también pueden ser diferentes al de uno EJEMPLO:

DIM X AS INTEGER

FOR X=1 TO 50 STEP 4

List1.AddItem (X)

NEXT X

5.- Pueden ser decrementos, EJEMPLO:
* el valor inicial de la variable debe ser mayor que el valor final.

DIM X AS INTEGER

FOR X=100 TO 20 STEP - 5

List1.AddItem (X)

NEXT X

EJEMPLO DE CICLO FOR.

Crear un programa que muestre los numeros comprendidos entre 10 y 20.

Herramientas a utilizar:
1 listbox, 1 commandbutton.

programando el command1:

Private Sub Command1_click( )

Dim x As Integer Declaramos la variable y el tipo de datos a utilizar.
for x = 10 To 20 Incrementa por default en una unidad.
list1.AddItem (x) Agregar elemento en listBox (variable).
Next x Continua nuevamente el ciclo hasta que x sea igual a 20.

End sub

CICLO FOR NEXT

La sentencia For permite ejecutar un conjunto de sentencias cierto número de veces. Su forma general es:

For variable = (valor inicial)expresion1 To (valor final)expresion2 [Step ]
[codigo]
[codigo]
Next [variable]

Cuando se ejecuta una sentencia For, primero se asigna el valor de la expresion1 a la variable y se comprueba si su valor es mayor o menor que la expresion2. En caso de ser menor se ejecutan las sentencias, y en caso de ser mayor el control del programa salta a las líneas a continuación de Next. Se incrementa en 1 si Step no se especifica, volviéndose a efectuar la comparación entre la variable y la expresion2, y así sucesivamente.

HERREMIENTAS CHECKBOX

Colocar en el formulario:

2 label.

2 checkbox

Crear un programa que te permita utilizar checkbox y nos muestre la fecha, hora del sistema segun sea el caso de seleccion de la herramienta.

Hacer doble click sobre el check1.

private sub check1_click( )

if check1.value=0 then
label1.visible=false
else
label1.visible=true
label1=date
endif

end sub

private sub check2_click( )

if check2.value=0 then
label2.visible=false
else
label2.visible=true
label2=date
endif

end sub

como podras observar le herramienta check tiene dos valores para ser activada Value:

0=apagado
1=encendido


La propiedad visible tambien tiene dos valores:

objeto.visible=true muestra el objeto en el formulario.

objeto.visible=false oculta el objeto en el formulario.

Con la practica realizada podras entender mejor el procedimiento, el ciclo if utilizado es de alternativa doble.

Felices vacaciones.

WEB BIU

En el bachillerato internacional consientes de nuestra reponsabilidad creamos un espacio a tu medida, el cual trendra las mejoras que tu propongas con el fin de proporcionar ayuda en linea, utilizando las nuevas herramientas de la informacion.

Que esperas ingresa ya.


www.biu.uninter.edu.mx

Suerte...!