Ejercicios de Visual Basic II

Ejercicio 1:

Crear tres programas de preguntas (cada una con 5 preguntas) sobre:
- MS Acces 2003
- Visual Fox Pro
- Visual Basic 6.0

Private Sub Form_Load()
Randomize
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
End Sub

Private Sub Command1_Click()
If Option3 Then
Image1.Visible = True
Image2.Visible = False
Else
Image1.Visible = False
Image2.Visible = True
End If
End Sub

Private Sub Command2_Click()
If Option5 Then
Image3.Visible = True
Image4.Visible = False
Else
Image3.Visible = False
Image4.Visible = True
End If
End Sub

Private Sub Command3_Click()
If Option8 Then
Image5.Visible = True
Image6.Visible = False
Else
Image5.Visible = False
Image6.Visible = True
End If
End Sub

Private Sub Command4_Click()
If Option12 Then
Image7.Visible = True
Image8.Visible = False
Else
Image7.Visible = False
Image8.Visible = True
End If
End Sub

Private Sub Command5_Click()
If Option13 Then
Image9.Visible = True
Image10.Visible = False
Else
Image9.Visible = False
Image10.Visible = True
End If
End Sub

Ejercicio 2:

Crear un programa que contenga el entorno del Worpad (DISEÑO)

Para ello utiliza usted lo conveniente.

Ejuercicio 3:

Crear un programa de reloj digital que permita contar con 15 imágenes de BASE DE DATOS, MS Acces, Visual Fox, Visual Basic.

En General:

Dim f As Integer
Private Sub calcular()
Select Case f
Case 0
foto1.Visible = True
foto2.Visible = False
foto3.Visible = False
foto4.Visible = False
foto5.Visible = False
foto6.Visible = False
foto7.Visible = False
foto8.Visible = False
foto9.Visible = False
foto10.Visible = False
foto11.Visible = False
foto12.Visible = False
foto13.Visible = False
foto14.Visible = False
foto15.Visible = False
Case 1
foto1.Visible = False
foto2.Visible = True
foto3.Visible = False
foto4.Visible = False
foto5.Visible = False
foto6.Visible = False
foto7.Visible = False
foto8.Visible = False
foto9.Visible = False
foto10.Visible = False
foto11.Visible = False
foto12.Visible = False
foto13.Visible = False
foto14.Visible = False
foto15.Visible = False
Case 2
foto1.Visible = False
foto2.Visible = False
foto3.Visible = True
foto4.Visible = False
foto5.Visible = False
foto6.Visible = False
foto7.Visible = False
foto8.Visible = False
foto9.Visible = False
foto10.Visible = False
foto11.Visible = False
foto12.Visible = False
foto13.Visible = False
foto14.Visible = False
foto15.Visible = False
Case 3
foto1.Visible = False
foto2.Visible = False
foto3.Visible = False
foto4.Visible = True
foto5.Visible = False
foto6.Visible = False
foto7.Visible = False
foto8.Visible = False
foto9.Visible = False
foto10.Visible = False
foto11.Visible = False
foto12.Visible = False
foto13.Visible = False
foto14.Visible = False
foto15.Visible = False
Case 4
foto1.Visible = False
foto2.Visible = False
foto3.Visible = False
foto4.Visible = False
foto5.Visible = True
foto6.Visible = False
foto7.Visible = False
foto8.Visible = False
foto9.Visible = False
foto10.Visible = False
foto11.Visible = False
foto12.Visible = False
foto13.Visible = False
foto14.Visible = False
foto15.Visible = False
Case 5
foto1.Visible = False
foto2.Visible = False
foto3.Visible = False
foto4.Visible = False
foto5.Visible = False
foto6.Visible = True
foto7.Visible = False
foto8.Visible = False
foto9.Visible = False
foto10.Visible = False
foto11.Visible = False
foto12.Visible = False
foto13.Visible = False
foto14.Visible = False
foto15.Visible = False
Case 6
foto1.Visible = False
foto2.Visible = False
foto3.Visible = False
foto4.Visible = False
foto5.Visible = False
foto6.Visible = False
foto7.Visible = True
foto8.Visible = False
foto9.Visible = False
foto10.Visible = False
foto11.Visible = False
foto12.Visible = False
foto13.Visible = False
foto14.Visible = False
foto15.Visible = False
Case 7
foto1.Visible = False
foto2.Visible = False
foto3.Visible = False
foto4.Visible = False
foto5.Visible = False
foto6.Visible = False
foto7.Visible = False
foto8.Visible = True
foto9.Visible = False
foto10.Visible = False
foto11.Visible = False
foto12.Visible = False
foto13.Visible = False
foto14.Visible = False
foto15.Visible = False
Case 8
foto1.Visible = False
foto2.Visible = False
foto3.Visible = False
foto4.Visible = False
foto5.Visible = False
foto6.Visible = False
foto7.Visible = False
foto8.Visible = False
foto9.Visible = True
foto10.Visible = False
foto11.Visible = False
foto12.Visible = False
foto13.Visible = False
foto14.Visible = False
foto15.Visible = False
Case 9
foto1.Visible = False
foto2.Visible = False
foto3.Visible = False
foto4.Visible = False
foto5.Visible = False
foto6.Visible = False
foto7.Visible = False
foto8.Visible = False
foto9.Visible = False
foto10.Visible = True
foto11.Visible = False
foto12.Visible = False
foto13.Visible = False
foto14.Visible = False
foto15.Visible = False
Case 10
foto1.Visible = False
foto2.Visible = False
foto3.Visible = False
foto4.Visible = False
foto5.Visible = False
foto6.Visible = False
foto7.Visible = False
foto8.Visible = False
foto9.Visible = False
foto10.Visible = False
foto11.Visible = True
foto12.Visible = False
foto13.Visible = False
foto14.Visible = False
foto15.Visible = False
Case 11
foto1.Visible = False
foto2.Visible = False
foto3.Visible = False
foto4.Visible = False
foto5.Visible = False
foto6.Visible = False
foto7.Visible = False
foto8.Visible = False
foto9.Visible = False
foto10.Visible = False
foto11.Visible = False
foto12.Visible = True
foto13.Visible = False
foto14.Visible = False
foto15.Visible = False
Case 12
foto1.Visible = False
foto2.Visible = False
foto3.Visible = False
foto4.Visible = False
foto5.Visible = False
foto6.Visible = False
foto7.Visible = False
foto8.Visible = False
foto9.Visible = False
foto10.Visible = False
foto11.Visible = False
foto12.Visible = False
foto13.Visible = True
foto14.Visible = False
foto15.Visible = False
Case 13
foto1.Visible = False
foto2.Visible = False
foto3.Visible = False
foto4.Visible = False
foto5.Visible = False
foto6.Visible = False
foto7.Visible = False
foto8.Visible = False
foto9.Visible = False
foto10.Visible = False
foto11.Visible = False
foto12.Visible = False
foto13.Visible = False
foto14.Visible = True
foto15.Visible = False
Case 14
foto1.Visible = False
foto2.Visible = False
foto3.Visible = False
foto4.Visible = False
foto5.Visible = False
foto6.Visible = False
foto7.Visible = False
foto8.Visible = False
foto9.Visible = False
foto10.Visible = False
foto11.Visible = False
foto12.Visible = False
foto13.Visible = False
foto14.Visible = False
foto15.Visible = True
End Select
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Timer2.Interval = 600
f = 0
foto1.Visible = True
foto2.Visible = False
foto3.Visible = False
foto4.Visible = False
foto5.Visible = False
foto6.Visible = False
foto7.Visible = False
foto8.Visible = False
foto9.Visible = False
foto10.Visible = False
foto11.Visible = False
foto12.Visible = False
foto13.Visible = False
foto14.Visible = False
foto15.Visible = False
End Sub

Private Sub Timer1_Timer()
hora.Caption = " " & Time
End Sub

Private Sub Timer2_Timer()
If (f < f =" f" f =" 0">
Ejercicio 4:
Creación de base de datos:

MS ACCES 2003
Una base de datos Colegio, con las siguientes tablas Alumnos, cursos y profesores, considerar clave principal en código, tienen que haber 10 registros como mínimo en cada tabla y relacionar para realizar tres consultas, además realizar un formulario profesores agregando imágenes por cada profesor.

VISUAL FOXPRO
Una base de datos Instituto, con las siguientes tablas Alumnos, cursos y profesores, tienen que haber 10 registros como mínimo en cada tabla, realizar tres consultas.

Nivel de Ejercicios Nº1

Aplicación 1:

Creación de la base de datos con Microsoft Access 2003:

Para desarrollar nuestras prácticas de laboratorio debemos crear una base de datos cuyo nombre es CursosLibres.MDB, la cual contendrá las tablas Curso y Laboratorio.

En la tabla curso debo de colocar los siguiente campos como lo indica el cuadro anterior. Luego de colocar los campos de la tabla curso llenaremos las tablas como lo indica el siguiente cuadro .

De manera análoga proceda a crear la siguiente tabla llamada laboratorio:

Luego proceda a ingresar la siguiente información:

Luego daremos inicio a la siguiente aplicación:

Elaborar una aplicación que permita realizar el mantenimiento de la información almacenada en la tabla Curso de la base de datos CursosLibres.MDB. El diseño de la interfaz debe ser similar a la figura mostrada:

Los botones ubicados en el marco Navegador (Primero, Anterior, Siguiente y Ultimo, de izquierda a derecha) permiten desplazarse a través de la tabla. Los botones ubicados en el marco Mantenimiento (Nuevo, Editar, Guardar y Eliminar, de izquierda a derecha) permiten realizar las operaciones básicas de mantenimiento de la tabla.

Para desarrollar nuestra aplicación, lo primero que debemos hacer es conectarnos a la base de datos CursosLibres.MDB. Para ello ingrese a Visual Basic de manera habitual, a continuación en el menú Proyecto seleccione la opción Agregar Data Environment y se creará una nueva conexión para la que debe establecer propiedades de vínculo de datos. En la ventana Data Environment cambie el nombre del objeto DataEnvironment por DeCursosLibres y el de la conexión por CnCursosLibres. El aspecto de la ventana Data Environment deberá ser similar a la siguiente figura:


Luego haga click con el botón derecho del ratón en CnCursosLibres y seleccione la opción Propiedades. Deberá presentarse un cuadro de diálogo similar al siguiente:

En la ficha Proveedor del cuadro de diálogo anterior, seleccione Microsoft Jet 4.0 OLE DB Provider y haga click en el botón Siguiente. En seguida aparecerá un cuadro de diálogo similar al mostrado:


En la ficha Conexión del cuadro de diálogo Propiedades de Data Link escriba el nombre de la base de datos CursosLibres.MDB y haga click en el botón Probar conexión. Luego si la conexión es satisfactoria haga click en el botón Aceptar.

En seguida en la barra de herramientas de la ventana Data Environment haga click en el botón Agregar Comando y denomine al comando CmCurso. Luego haga click derecho sobre el comando y seleccione Propiedades:


Compruebe que este comando utiliza la conexión CnCursosLibres, luego establezca el nombre de la tabla a utilizar, en este caso Curso y haga click en el botón Aceptar.

A continuación seleccione el comando CmCurso y arrástrelo hacia el formulario. Finalmente agregue los siguientes controles al formulario:

3 marcos
9 botones de comandos

En seguida proceda a establecer las propiedades requeridas:

Form1

Nombre
FrmMantenCurso

Caption
Mantenimiento de cursos

BorderStyle
3-Fixed Dialog

Frame1

Nombre
FraIngreso

Caption


Frame2

Nombre
FraNavegador

Caption
Navegador

Frame3

Nombre
FraMantenimiento

Caption
Mantenimiento

LblFieldLabel(0)

Nombre
LblFieldLabel

Caption
Código:

LblFieldLabel(1)

Nombre
LblFieldLabel

Caption
Nombre:

LblFieldLabel(2)

Nombre
LblFieldLabel

Caption
Vacantes:

LblFieldLabel(3)

Nombre
LblFieldLabel

Caption
Profesor:

TxtCurCodigo

Nombre
TxtCurCodigo

Locked
True

Text



TxtCurNombre

Nombre
TxtCurNombre

Locked
True

Text


TxtCurVacantes

Nombre
TxtCurVacantes

Locked
True

Text


TxtCurProfe

Nombre
TxtCurProfe

Locked
True

Text


Command1

Nombre
CmdPrimero

Caption


Picture
C:\FundVB\Bitmaps\First.bmp

Style
1-Graphical

Command2

Nombre
CmdAnterior

Caption


Picture
C:\FundVB\Bitmaps\Previous.bmp

Style
1-Graphical

Command3

Nombre
CmdSiguiente

Caption


Picture
C:\FundVB\Bitmaps\Next.bmp

Style
1-Graphical


Command4

Nombre
CmdUltimo

Caption


Picture
C:\FundVB\Bitmaps\Last.bmp

Style
1-Graphical

Command5

Nombre
CmdNuevo

Caption


Picture
C:\FundVB\Bitmaps\New.bmp

Style
1-Graphical

Command6

Nombre
CmdEditar

Caption


Picture
C:\FundVB\Bitmaps\Edit.bmp

Style
1-Graphical

Command7

Nombre
CmdGuardar

Caption


Picture
C:\FundVB\Bitmaps\Save.bmp

Style
1-Graphical

Command8

Nombre
CmdEliminar

Caption


Picture
C:\FundVB\Bitmaps\Delete.bmp

Style
1-Graphical


Command9

Nombre
CmdSalir

Caption
&Salir

Picture
C:\FundVB\Bitmaps\Exit.bmp

Style
1-Graphical

El código asociado a la aplicación se muestra a continuación:

Private Sub CmdPrimero_Click()
DeCursosLibres.rsCmCurso.MoveFirst
End Sub

Private Sub CmdUltimo_Click()
DeCursosLibres.rsCmCurso.MoveLast
End Sub

Private Sub CmdAnterior_Click()
DeCursosLibres.rsCmCurso.MovePrevious
If DeCursosLibres.rsCmCurso.BOF Then
DeCursosLibres.rsCmCurso.MoveFirst
MsgBox “Estamos en el primer registro”
End If
End Sub

Private Sub CmdSiguiente_Click()
DeCursosLibres.rsCmCurso.MoveNext
If DeCursosLibres.rsCmCurso.EOF Then
DeCursosLibres.rsCmCurso.MoveLast
MsgBox “Estamos en el último registro”
End If
End Sub


Private Sub CmdNuevo_Click()
DeCursosLibres.rsCmCurso.AddNew
ModoEditar True
End Sub

Private Sub CmdEditar_Click()
ModoEditar True
End Sub

Private Sub CmdGuardar_Click()
DeCursosLibres.rsCmCurso.Update
ModoEditar False
End Sub

Private Sub CmdEliminar_Click()
DeCursosLibres.rsCmCurso.Delete
DeCursosLibres.rsCmCurso.MoveNext
If DeCursosLibres.rsCmCurso.EOF Then
DeCursosLibres.rsCmCurso.MoveLast
End If
End Sub

Private Sub CmdSalir_Click()
Unload Me
End

Private Sub Form_Unload(Cancel As Integer)
If MsgBox(“¿Desea terminar la aplicación?”, _
vbQuestion + vbYesNo, “Pregunta”) = vbYes Then
End
Else
Cancel = True
End If
End Sub
Private Sub Form_Activate()
ModoEditar False
End Sub

Private Sub ModoEditar(ByVal Ok As Boolean)
TxtCurCodigo.Locked = Not Ok: TxtCurNombre.Locked = Not Ok
TxtCurVacantes.Locked = Not Ok: TxtCurProfe.Locked = Not Ok
CmdNuevo.Enabled = Not Ok: CmdEditar.Enabled = Not Ok
CmdGuardar.Enabled = Ok: CmdEliminar.Enabled = Not Ok
CmdPrimero.SetFocus: If Ok Then TxtCurCodigo.SetFocus
End Sub

Finalmente antes de ejecutar la aplicación debemos asegurarnos de elegir el tipo de bloqueo adecuado. Para ello haga click derecho sobre el comando CmCurso y elija la opción Propiedades y en la ficha Avanzadas selecciones el tipo de bloqueo 3-Optimistic, tal como se muestra en la figura siguiente: