Editor de menus

En Visual Basic podemos crear aplicaciones que estén gobernadas a través de un menú, es decir, como los típicos programas del entorno Windows, para ello Visual Basic dispone del Editor de Menús.
Para acceder al Editor de Menús debemos pulsar en :

Menu Herramientas

Sel. Editor de Menús´

O pulsar sobre el formulario el botón derecho del mouse y seleccionar la opción `Editor de Menús´.

Estructuras de seleccion multiple

If es adecuado para comparar información en donde se necesita una o dos verificaciones. Sin embargo, si se necesitan varias, If se torna difícil de manejar. Visual Basic soporta una instrucción llamada Select Case que maneja mejor condiciones múltiples. He aquí el formato:
Select Case expresión

Case valor1
Codigo
Case valor2
CodigoCase valor3
Codigo

End Select

Select Case Su nombre casi nos define lo que es: Selecciona, dependiendo del caso, un determinado juego de codigos.

Ciclo do while | until

Do { While Until } condición
Codigo
Loop

Por supuesto, no podemos utilizar “While” y “Until” a la vez. En esta forma del bucle, la condición se evalúa al comienzo del mismo. En el caso de utilizar la opción “While”, el bucle se repetirá mientras que la condición sea verdadera. Podemos escribir el ejemplo anterior utilizando esta posibilidad:

Do While edad <> 0
edad = edad - 1
Loop

También podríamos haber resuelto el problema con el uso de “Until”:

Do Until edad = 0
edad = edad - 1
Loop
En este caso, el bucle se repetirá hasta que edad sea igual a cero.

La tercera forma que puede adoptar el bucle que estamos analizando es la siguiente:
Do
Codigo
Loop { While Until } condición

Como puede verse, se ha delegado la capacidad de evaluar la condición al final del bucle. Esto tiene la particularidad de permitir que el grupo de instrucciones existentes en el interior del bucle se ejecuten al menos una vez, independientemente de que la condición a evaluar sea o no verdadera.
Dim edad As Integer
edad = 20
Do
edad = edad - 1
Loop Until edad = 0

O así:

Dim edad As Integer
edad = 20
Do
edad = edad - 1
Loop While edad <> 0

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.