APUNTES PARA CUARTO SEMESTRE SENTENCIA CASE

La sentencia Case

La sentencia Case es una variante de la sentencia If. Esta es utilizada también para elegir entre varias alternativas. Su formato es muy distinto al de la sentencia If, tal y como se puede apreciar a continuación:

Select Case Expresión

Case vpe1

            [sentencias1]

Case vpe2

            [sentencias2]

Case vpe…N

            [Sentencias…N]

Case Else

            [Sentencias-sino]

End Select

Ejemplo:

Dim Numero As Integer

Numero = InputBox(“Introduzca un número del 1 al 4:”)  ‘Permite que el usuario introd. un numero.

Select Case Numero

Case 1

    MsgBox ("Este es el número Uno.")

Case 2

    MsgBox ("Este es el número Dos.")

Case 3

    MsgBox ("Este es el número Tres.")

          

           Case 4

            MsgBox (“Este es el número cuatro.”)

           Case Else

            MsgBox (“No se a proporcionado los valores 1, 2, 3 o 4”)

End Select

La variable numero almacena el número introducido por el usuario. Si el usuario introduce el número uno, entonces, en la variable numero se almacena valor 1 y, a continuación, se ejecuta el caso uno (vpe1), donde se encuentra la sintaxis MsgBox (“Este es el número Uno.”), si numero toma el valor de 2, entonces, se ejecuta el caso dos (vpe2), y a si sucesivamente

Donde expresión es una expresión numérica o alfanumérica que puede proporcionar una serie de valores distintos y uno de ellos puede o no encontrarse en la lista. A estos valores en una sentencia Case se les podrían llamar “valores proporcionados por la expresión (vpe)”. Las etiquetas vpe1, vpe2, vpe…N representan valores que puede o no proporcionar la expresión. Según sea el valor se ejecutan las sentencias seguidas a la etiqueta (vpeN) correspondiente. La cláusula opcional Case Else indica que si los valores proporcionados por la expresión no se encuentran en la listas de las etiquetas (vpeN) entonces se ejecutarán las [Sentencias-sino].

APUNTES PARA CUARTO SEMESTRE VENTANA DE SERIALES

Ejercicio:

En el siguiente ejercicio crearemos una pantalla que vemos comúnmente al instalar un programa. Esta es la pantalla para registrar el producto. En esta verificaremos que cada una de las cajas de texto que debe completar el usuario no se dejen vacía. También, verificaremos si la clave escrita por el usuario coincide con la requerida por el programa.

Código para programar la primer caja de texto

Dim Clave As String Clave = "1234512345123451234512345" 'Verifica que la contraseña es igual a la que contiene las cajas.

 If txtCaja1.Text & txtCaja2.Text & txtCaja3.Text & txtCaja4.Text & txtCaja5.Text = Clave Then MsgBox ("Contraseña Correcta.") Unload Me ' Cierra esta ventana.

Else

MsgBox ("Contraseña Incorrecta."), vbCritical, "Registro" txtCaja1.SetFocus ' Hace que la primera caja reciba el enfoque.

 End If

Código para programar el salto a la siguiente caja una vez que que se hayan escrito 5 caracteres en una caja determinada

Verificamos que Si la primera caja de texto tiene cinco caracteres.

If Len(txtCaja1.Text) = 5 Then

txtCaja2.SetFocus ' Saltamos a la segunda caja.

End If

Código para programar el botón cancelar

Sale del programa.

 End

Código para programar el botón de comando registrar

Verificamos que Si la cuarta caja de texto tiene cinco caracteres.

 If Len(txtCaja5.Text) = 5 Then

cmdRegistrar.SetFocus ' Hacemos que el botón Registrar reciba el enfoque. End If

EJERCICIOS PARA CUARTO SEMESTRE LOS CUALES DEBERÁN REALIZAR EN LOS TIEMPOS LIBRES DENTRO DE LA CLASE

1.- Utilizando un bucle For…Next imprimir en una caja de texto el cubo de los números del 1 al 20.

2.- Utilizando un bucle For…Next calcular e imprimir en un cuadro de mensaje la sumatoria de los números del 1 al 100.

3.- Utilizando un bucle For…Next calcular e imprimir el cuadrado de la sumatoria de los números del 1 al 50.

4.- Utilizando un bucle Do…Loop convertir el contenido de una caja de texto a minúscula.

5.- Utilizando un bucle Do…Loop sustituir todos los espacios contenidos en una caja de texto por puntos.

6.- Utilizando un bucle While…Wend calcular e imprimir en un cuadro de mensaje el número de espacios contenidos en una caja de texto.

7.- Utilizando un bucle While…Wend calcular e imprimir en una caja de texto el cuadrado de los números del 10 al 20.

8.- Utilizando un bucle While…Wend calcular e imprimir en un cuadro de mensaje el total de letras “a” contenidas en una caja de texto.

9.- Utilizando un bucle While…Wend convertir las letras contenidas en una caja de texto a mayúscula y minúsculas respectivamente. Ejemplo: La CaSa De PeDrO.

10.- Crear un objeto llamado Carros. Agregar cinco marcas de carros y utilizando un bucle For Each…Next leer y mostrar en un cuadro de mensaje todos los elementos del objeto.

TEMARIO PARA SEGUNDO SEMESTRE

1. Tablas
• Border
• Table
• Rowspan
• Height
• Cellpadding
• Cellspacing
• Colspan
• Width
• Th
• Td
• Tr
2. Hipervinculos
3. Saltos de linea y de párrafo
4. Etiqueta font con sus atributos
5. Etiquetas para títulos
6. Imágenes con sus atributos
7. Recomendaciones para crear paginas web
8. Conceptos de HTML
9. Navegadores
10. Buscadores
11. Listas ordenadas y desordenadas

NOTA: PODRAN SACAR SUS APUNTES UNICAMENTE EN EL EXAMEN PRACTICO

ACTIVIDAD PARA CUARTO SEMESTRE

05/04/2011
Copie las siguientes preguntas en su cuaderno y contestelas correctamente de acuerdo a las paginas de la 5 a la 15 de su libro digital de visual Basic.

1.)¿Qué es la programación orientada a objetos?

2.)¿Qué es un objeto?

3.)Cuales son los elementos principales de un objeto?

4.)Defina: eventos, métodos y propiedades.

5.)Diga la diferencia entre un evento y un método.

6.)Mencione algunos eventos de los controles de Visual Basic.

7.)¿Qué es un programa orientado a eventos?

8.)  Mencione algunos programas de Windows orientado a eventos.

9.)  ¿Cuáles son los elementos principales de una aplicación de Windows?

10.) ¿Cuál era la principal preocupación de los programadores de aplicaciones para Windows, antes de la existencia de la programación orientada a objetos?

11.) ¿Qué es un formulario?

12.) ¿De que depende el número de formularios que se deben incluir en una aplicación en Visual Basic?

13.) ¿Qué es un nombre de objeto?

14.) ¿Qué son nombres por defecto?

15.) ¿Cuál es la desventaja de los nombres por defecto?

16.) ¿Cómo se deben especificar los nombres a los controles de Visual Basic?

17.) Diga las abreviaturas para los controles: CheckBox, ListBox, Label, TextBox, CommandButton, Shape, Image y PictureBox.

18.) Defina: clase y estado de objetos.

19.) Diga que hace la diferencia entre dos tipos de controles.

20.) ¿Qué tipos de valores es posible asignar a las propiedades de un control de Visual Basic?

21.) Diga como se accede a una propiedad de un control de Visual Basic.

22.) Hable del modo de diseño y el modo de ejecución.

23.) ¿Qué son procedimientos?

24.) Especifique la forma de definir un procedimiento.

25.) Diga los modos de declarar  un procedimiento y explique cada uno de ellos.

26.) ¿Qué son códigos ANSI?

27.) Diga que separa un evento del nombre de un procedimiento.

28.) Diga cuando ocurren los siguientes eventos: Click, DblClick, KeyDown, KeyUp, KeyPress, LostFocus, GotFocus, MouseDown, MouseUp y MouseMove.

29.) Diga la función de los métodos: Drag, Refresh, Move y SetFocus.

30.) ¿Qué son módulos?

31.) Diga como se clasifican los módulos y defina cada uno de ellos.

32.) Defina: Encapsulación, herencia, polimorfismo y mensajes en objetos.

ACTIVIDAD PARA CUARTO SEMESTRE

EJERCICIO

Crear una aplicación que muestre el entorno de una calculadora típica donde cada botón de la calculadora cambia de color cuando el usuario pulsa el botón izquierdo del Mouse sobre el y toma su color inicial cuando lo suelta.

CODIGO PARA PROGRAMAR LOS BOTONES

If Button = 1 Then                        ' Verifica se pulsa el botón izquierdo.

lbBotonC.BackColor = vbBlue     ' Pone el color verde cuando se pulsa el botón izquierdo.

End If

If Button = 1 Then                          ' Verifica si se pulso el botón izquierdo.

lbBotonC.BackColor = vbBlack     ' Pone el color negro cuando se suelta el botón izquierdo.

End If