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:

Ejercicios de Visual Basic

Ejercicio 1

En este ejercicio consiste en que al introducir un número cualquiera preferible de 2 mas cifras salga una serie de analisis como el siguiente diseño:

Para ello debemos realizar la siguiente codificación:

El botón Análisis:

Private Sub Command1_Click()
If IsNumeric(Text1) Then
Dim s As Integer, si As Integer, sp As Integer
Dim may As Integer, min As Integer
Dim cad As String
Dim i As Integer, j As Integer
n = CLng(Text1)
m = CLng(Text1)
cad = ""
i = 0
j = 1
s = sp = si = 0
For j = 1 To n
If (n Mod j = 0) Then
cad = cad & j & vbCrLf
End If
Next j
While (n > 0)
If ((n Mod 10) Mod 2) = 0 Then
sp = sp + (n Mod 10)
Else
si = si + (n Mod 10)
End If
s = s + (n Mod 10)
n = n \ 10
i = i + 1
Wend
may = Mid(Text1, 1, 1)
men = may
While (m > o)
If may < (m Mod 10) Then may = m Mod 10 End If If men > (m Mod 10) Then
men = m Mod 10
End If
m = m \ 10
Wend
Text2 = Str(i)
Text3 = Str(si)
Text4 = Str(sp)
Text5 = Str(s)
Text6 = Str(may)
Text7 = Str(men)
Text8 = cad
Else
MsgBox "Debes Introducir un Número, El que Quieras pero Introduce Un Número", vbCritical, "Aviso Importante"
Text1.SetFocus
End If
End Sub

El botón Otro Número:

Private Sub Command2_Click()
Text1 = "": Text2 = ""
Text3 = "": Text4 = ""
Text5 = "": Text6 = ""
Text7 = "": Text8 = ""
Text1.SetFocus
End Sub

El botón Salir:

Private Sub Command3_Click()
If MsgBox("¿Deseas Cerrar el Programa?", vbQuestion + vbYesNo, "Aviso Antes de Cerrar el Programa") = vbYes Then
End
Else
Cancel = True
Text1.SetFocus
End If
End Sub

Ejericicio 2

En este ejercicio debemos de introducir cierta cantidad de productos que aigamos vendido y debemos hallar el valor total de venta en el dia según el precio de cada producto.

Para ello debemos dar la siguiente codificación:

Doble clic sobre el formulario

Private Sub Form_Load()

grdmenu.Cols = 2
grdmenu.Rows = 8
grdmenu.FixedCols = 0
grdmenu.FixedRows = 1
grdmenu.TextArray(0) = "Menú"
grdmenu.TextArray(1) = "Precio"
grdmenu.TextArray(2) = "Burrito"
grdmenu.TextArray(3) = "9.50"
grdmenu.TextArray(4) = "Burger"
grdmenu.TextArray(5) = "12.75"
grdmenu.TextArray(6) = "Torta"
grdmenu.TextArray(7) = "8.25"
grdmenu.TextArray(8) = "Refresco"
grdmenu.TextArray(9) = "4.00"
grdmenu.TextArray(10) = "Cerveza"
grdmenu.TextArray(11) = "15.60"
grdmenu.TextArray(12) = "Ensalada"
grdmenu.TextArray(13) = "14.45"
grdmenu.TextArray(14) = "Hot Dog"
grdmenu.TextArray(15) = "6.90"
End Sub

El botón Aceptar

Private Sub Command1_Click()
Dim burrito As Integer, burger As Integer
Dim torta As Integer, refresco As Integer
Dim cerveza As Integer, ensalada As Integer
Dim hotdog As Integer, ventatotal As Double
burrito = Val(Text1)
burger = Val(Text2)
torta = Val(Text3)
refresco = Val(Text4)
cerveza = Val(Text5)
ensalada = Val(Text6)
hotdog = Val(Text7)
ventatotal = burrito * 9.5 + burger * 12.75 + torta * 8.25 + refresco * 4.60 + cerveza * 15.6 + ensalada * 14.45 + hotdog * 6.9
Text8 = Str(ventatotal)
End Sub

El botón Limpiar

Private Sub Command2_Click()
Text1 = "": Text2 = ""
Text3 = "": Text4 = ""
Text5 = "": Text6 = ""
Text7 = "": Text8 = ""
text9 = "": Text1.SetFocus
End Sub

El botón Salir

Private Sub Command3_Click()
Unload Me
End
End Sub

Ejercicio 3

En este ejercicio consiste en matricular a una persona con los siguientes requisitos que se observa en el formulario.

Para ello debemos dar la siguiente codificación:

Private Sub Form_Load()
List1.AddItem "Intro. a Sistemas"
List1.AddItem "Windows"
List1.AddItem "MS Word"
List1.AddItem "MS Excel"
List1.AddItem "MS PowerPoint"
List1.AddItem "MS Access"
List1.AddItem "Soporte Técnico"
List1.AddItem "Redes"
List1.AddItem "MS Visual Basic"
List1.AddItem "Internet"
List2.AddItem "Chihuahua"
List2.AddItem "Campeche"
List2.AddItem "Veracruz"
List2.AddItem "Colima"
List2.AddItem "Yucatán"
List2.AddItem "Sonora"
List2.AddItem "Sinaloa"
List2.AddItem "Puebla"
List2.AddItem "Tabasco"
List2.AddItem "Zacatecas"
Combo1.AddItem "Masculino"
Combo1.AddItem "Femenino"
End Sub

Private Sub Form_Unload(Cancel As Integer)

If MsgBox("¿Estás Seguro de Querer Cerrar el Programa?", vbQuestion + vbYesNo, "¿Oye qué pasa contigo?") = vbYes Then
End
Else
Cancel = True
End If
End Sub

Private Sub List1_Click()
Text1 = List1
End Sub

Private Sub List2_Click()
Text5 = List2
End Sub

El botón Guardar

Private Sub Command1_Click()
List1.Enabled = False
List2.Enabled = False
Text1.Locked = True
Text2.Locked = True
Combo1.Locked = True
Text4.Locked = True
Text5.Locked = True
MsgBox "Este Alumno ha sido Matriculado", vbInformation, "Mensaje Importante"
End Sub

El botón Limpiar

Private Sub Command2_Click()
List1.Enabled = True
List2.Enabled = True
Text1.Locked = False
Text2.Locked = False
Text3.Locked = False
Combo1.Locked = False
Text4.Locked = False
Text5.Locked = False
Text1 = ""
Text2 = ""
Text3 = ""
Combo1 = ""
Text4 = ""
Text5 = ""
Text1.SetFocus
End Sub

El botón Cancelar

Private Sub Command3_Click()
If MsgBox("Deseas Cancelar Algún Dato?", vbQuestion + vbYesNo, "Aviso Muy Importante") = vbYes Then
List1.Enabled = True
List2.Enabled = True
Text1.Locked = False
Text2.Locked = False
Text3.Locked = False
Combo1.Locked = False
Text4.Locked = False
Text5.Locked = False
End If
End Sub

El botón Salir

Private Sub Command4_Click()
Unload Me
End
End Sub

Ejercicio 4

Este ejercicio consiste en que al arrastrar cada objeto donde la señora de caja debe salir lo que debo pagar.

Para ello debemos dar la siguiente codificación:

En General:

Dim total As Double

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X, Y
End Sub

El botón Cuenta Nueva

Private Sub Command1_Click()
Label7 = ""
total = o
End Sub

Private Sub Image5_DragDrop(Source As Control, X As Single, Y As Single)

If Source = Image1 Then
total = total + 250#
ElseIf Source = Image2 Then
total = total + 375#
ElseIf Source = Image3 Then
total = total + 400#
ElseIf Source = Image4 Then
total = total + 500#
End If
Label7 = "$" & total & ".00"
End Sub

Ejercicio 5

En es te ejerrcicio consiste sacar el promedio general de notas de un alumno y dar un comentario si esta bien o mal.

Para ello dar la siguiente codificación:

El botón Salir:

Private Sub Command3_Click()
Unload Me
End
End Sub

El botón Limpiar

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocus
End Sub

El botón Prom. Gral. Redondeado

Private Sub Command1_Click()
Dim n1 As Double, n2 As Double, n3 As Double, n4 As Double, n5 As Double, n6 As Double
Dim promedio As Integer
n1 = Val(Text2): n2 = Val(Text3)
n3 = Val(Text4): n4 = Val(Text5)
n5 = Val(Text6): n6 = Val(Text7)
promedio = ((n1 + n2 + n3 + n4 + n5 + n6) / 6)
Text8 = Str(promedio)
If promedio >= 9.5 Then
Text9 = "Excelente"
End If
If promedio >= 9 And promedio < text9 = "Muy Bien">= 8.5 And promedio < text9 = "Bien">= 8 And promedio < text9 = "Regular" text9 = "Mal">

Ejercicio 6: Palindromos

Crea un formulario con tres etiquetas, dos cajas de texto, tres botones y escribe el siguiente código:

En General colocamos lo siguiente:

Function cadinvertida(cadena As String) As String
Dim invertida() As String * 1
Dim i As Integer
Dim j As Integer
n = Len(cadena)
ReDim invertida(n)
For i = 1 To n
invertida(i - 1) = Mid(cadena, i, 1)
Next i
For j = (n - 1) To 0 Step -1
cadinvertida = cadinvertida & invertida(j)
Next j
End Function

El botón Invertir

Private Sub Command1_Click()
Text2 = cadinvertida(Text1)
End Sub

El botón Limpiar

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub

El botón Salir

Private Sub Command3_Click()
Unload Me
End
End Sub

Ejercicio7 : Ordena los Números

Crea un formulario con tres marcos, una caja de texto, dos botones de opción, una caja de lista, cuatro botones y escribe el siguiente código:

Haz doble clic en el formulario y escribe:

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("¿Cerramos el Programa?", vbQuestion + vbYesNo, "¿Ya nos Vamos?") = vbYes Then
End
Else: Cancel = True: Text1.SetFocus
End If
End Sub

El botón Agregar

Private Sub Command1_Click()
If IsNumeric(Text1.Text) Then
List1.AddItem Text1.Text
Text1.Text = ""
Text1.SetFocus
Else
MsgBox "Introduce un Número", vbCritical, "Por Favor"
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End If
End Sub

El botón Ordenar

Private Sub Command2_Click()
Dim i As Integer, j As Integer, t As Integer, n As Integer
Dim a() As Integer
n = List1.ListCount
ReDim a(n)
For i = 0 To n - 1
a(i) = List1.List(i)
Next i
If Option1.Value Then
For i = 0 To n - 2
For j = i + 1 To n - 1
If a(i) > a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Next i
End If
Text1.SetFocus
If Option2.Value Then
For i = 0 To n - 2
For j = i + 1 To n - 1
If a(i) <>

t = a(i)

a(i) = a(j)

a(j) = t

End If

Next j

Next i

End If

List1.Clear

For i = 0 To n - 1

List1.List(i) = a(i)

Next i

Text1.SetFocus

End Sub

El botón Lista Nueva

Private Sub Command4_Click()

Text1 = ""

List1.Clear

Text1.SetFocus

End Sub

El botón Salir

Private Sub Command3_Click()

If MsgBox("¿Seguro que Quieres Cerrar el Programa?", vbQuestion + vbYesNo, "¿Ya es Hora de Irnos?") = vbYes Then

End

Else: Cancel = True: Text1.SetFocus

End If

End Sub

Ejercicio 8: Fecha Escrita

Crea un formulario con cinco etiquetas, tres cajas de texto, un marco, tres botones y escribe el siguiente código:

El botón Convertir

Private Sub Command1_Click()
Dim cadmes As String, mes As Integer
mes = Val(Text2)
Select Case mes
Case 1: cadmes = "Enero"
Case 2: cadmes = "Febrero"
Case 3: cadmes = "Marzo"
Case 4: cadmes = "Abril"
Case 5: cadmes = "Mayo"
Case 6: cadmes = "Junio"
Case 7: cadmes = "Julio"
Case 8: cadmes = "Agosto"
Case 9: cadmes = "Septiembre"
Case 10: cadmes = "Octubre"
Case 11: cadmes = "Noviembre"
Case 12: cadmes = "Diciembre"
Case Else
MsgBox "Revísalos Por Favor", vbCritical, "Hay un Error en los Datos...!!!"
Call Command2_Click
Exit Sub
End Select
Label4 = Text1 & " de " & cadmes & " de " & Text3
End Sub

El botón Limpiar

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocus
End Sub

El botón Salir

Private Sub Command3_Click()
If MsgBox("¿Ya Quieres Salir del Programa?", vbQuestion + vbYesNo, "Tengo una Pregunta para Ti") = vbYes Then
End
Else: Call Command2_Click
End If
End Sub

Ejercicio 9: Aprendiendo a Sumar

Crea un formulario con cinco etiquetas, una caja de texto, tres botones, dos imágenes y tres líneas. Modifica las propiedades de las etiquetas de las cantidades y la de la palabra de resultado como sigue: BackColor blanco y Border Style 1-Fixed Single. Usa Font y ForeColor para el tamaño y color del contenido y Alignment 2-Center
En Word crea las caritas y colócalas dentro de los cuadros de imágenes con su propiedad Stretch en True, las líneas hazlas más gruesas en BorderWidth 3 y BorderColor azul.
Vamos a crear un procedimiento para generar al azar los números:

Haz doble clic en el formulario. Haz clic en Tools (Herramientas)/Add Procedure (Agregar Procedimiento). En Add Procedure escribe el nombre del procedimiento, en este caso Azar y haz clic en Aceptar. Ahora escribe el código:

Public Sub azar()
n1 = Int(Rnd * 10) + 1
n2 = Int(Rnd * 10) + 1
Label1.Caption = n1
Label2.Caption = n2
End Sub

Haz doble clic en el formulario y escribe el siguiente código:

Private Sub Form_Load()
Randomize
Call azar
Image1.Visible = False
Image2.Visible = False
End Sub

El botón Otra Suma

Private Sub Command1_Click()
Call azar
Text1.Text = ""
Label3.Caption = ""
Image1.Visible = False
Image2.Visible = False
End Sub

El botón Revisar

Private Sub Command2_Click()
If Val(Text1) = Val(Label1) + Val(Label2) Then
Label3.Caption = "Bien"
Image1.Visible = True
Else
Label3.Caption = "Mal"
Image1.Visible = False
Image2.Visible = True
End If
End Sub

El botón Salir

Private Sub Command3_Click()
Unload Me
End
End Sub

Ejercicio 10: Impresión

Crea un formulario con seis etiquetas, seis cajas de texto, dos botones y escribe el siguiente código:

El botón Limpiar

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text1.SetFocus
End Sub

El botón Imprimir

Private Sub Command1_Click()
Printer.Orientation = 1
Printer.FontSize = 12
Printer.Print
Printer.Print
Printer.Print
Printer.Print Tab(15); Label1.Caption; Tab(30); Text1.Text
Printer.Print
Printer.Print
Printer.Print Tab(15); Label2.Caption; Tab(30); Text2.Text
Printer.Print
Printer.Print
Printer.Print Tab(15); Label3.Caption; Tab(30); Text3.Text
Printer.Print
Printer.Print
Printer.Print Tab(15); Label4.Caption; Tab(30); Text4.Text
Printer.Print
Printer.Print
Printer.Print Tab(15); Label5.Caption; Tab(30); Text5.Text
Printer.Print
Printer.Print
Printer.Print Tab(15); Label6.Caption; Tab(30); Text6.Text
Printer.EndDoc
End Sub

Programa Educativo

Este programa consiste en crear programas que sean educativos y ayuden en las tareas del colegio. Como los siguientes 3 Programas hechos en Visual Basic.

CULTURAS PERUANAS:

Cultura Chavín:

Para este ejercicio consiste en que responder las preguntas de y dar click en revisar y te saldrá si es correcta o incorrecta representada en una imagen de carita triste o feliz.

Para ello se utilizará la siguiente codificación:

Private Sub cbopuntaje_Click()
If cbopuntaje.Text = "0 Buenas" Then
txtresultado.Text = "Tienes 0 Puntos"
Else
End If
If cbopuntaje.Text = "1 Buena" Then
txtresultado.Text = "Tienes 10 Puntos"
Else
End If
If cbopuntaje.Text = "2 Buenas" Then
txtresultado.Text = "Tienes 15 Puntos"
Else
End If
If cbopuntaje.Text = "3 Buenas" Then
txtresultado.Text = "Tienes 20 Puntos"
Else
End If

End Sub

Private Sub Command1_Click()
If Option2 Then
Label6.Caption = "Bien"
Image1.Visible = True
Image2.Visible = False
Else
Label6.Caption = "Mal"
Image1.Visible = False
Image2.Visible = True
End If
End Sub

Private Sub Command2_Click()
If Option4 Then
Label7.Caption = "Bien"
Image3.Visible = True
Image4.Visible = False
Else
Label7.Caption = "Mal"
Image3.Visible = False
Image4.Visible = True
End If
End Sub

Private Sub Command3_Click()
If Option9 Then
Label8.Caption = "Bien"
Image5.Visible = True
Image6.Visible = False
Else
Label8.Caption = "Mal"
Image5.Visible = False
Image6.Visible = True
End If
End Sub

Private Sub Form_Load()
Randomize
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
cbopuntaje.Clear
cbopuntaje.AddItem "0 Buenas"
cbopuntaje.AddItem "1 Buena"
cbopuntaje.AddItem "2 Buenas"
cbopuntaje.AddItem "3 Buenas"
End Sub

Cultura Mochica:

Para este ejercicio consiste en que responder las preguntas de y dar click en revisar y te saldrá si es correcta o incorrecta representada en una imagen de carita triste o feliz.

Para ello realizaremos la siguiente codificación:

Private Sub Command1_Click()
If Option3 Then
Label2.Caption = "Bien"
Text1.Text = "6"
Image1.Visible = True
Image2.Visible = False
Else
Label2.Caption = "Mal"
Text1.Text = "0"
Image1.Visible = False
Image2.Visible = True
End If
End Sub


Private Sub Command2_Click()
If Option4 Then
Label5.Caption = "Bien"
Text2.Text = "6"
Image3.Visible = True
Image4.Visible = False
Else
Label5.Caption = "Mal"
Text2.Text = "0"
Image3.Visible = False
Image4.Visible = True
End If
End Sub

Private Sub Command3_Click()
If Option8 Then
Label6.Caption = "Bien"
Text3.Text = "6"
Image5.Visible = True
Image6.Visible = False
Else
Label6.Caption = "Mal"
Text3.Text = "0"
Image5.Visible = False
Image6.Visible = True
End If
End Sub

Private Sub Command4_Click()
Label8.Caption = Val(Text1) + Val(Text2) + Val(Text3)
End Sub

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

Cultura Nazca:

Para este ejercicio consiste en que responder las preguntas de y dar click en revisar y te saldrá si es correcta o incorrecta representada en una imagen de carita triste o feliz.

Para ello daremos la siguiente codificación:

Private Sub Command1_Click()
If Option1 Then
Label2.Caption = "Bien"
Text1.Text = "6"
Image1.Visible = True
Image2.Visible = False
Else
Label2.Caption = "Mal"
Text1.Text = "0"
Image1.Visible = False
Image2.Visible = True
End If
End Sub

Private Sub Command2_Click()
If Option5 Then
Label3.Caption = "Bien"
Text2.Text = "6"
Image3.Visible = True
Image4.Visible = False
Else
Label3.Caption = "Mal"
Text2.Text = "0"
Image3.Visible = False
Image4.Visible = True
End If
End Sub

Private Sub Command3_Click()
If Option9 Then
Label4.Caption = "Bien"
Text3.Text = "6"
Image5.Visible = True
Image6.Visible = False
Else
Label4.Caption = "Mal"
Text3.Text = "0"
Image5.Visible = False
Image6.Visible = True
End If
End Sub

Private Sub Command4_Click()
Label5.Caption = Val(Text1) + Val(Text2) + Val(Text3)
End Sub

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

Ejercicios de condicionales:

Ejercicio1:

En este primer ejercicio trata de identificar cual es el número mayor de dos números dados.

Para esto se debe hacer la siguiente codificación:

Le damos doble click al botón de comando y tecleamos lo siguiente:

Private Sub Command1_Click()

If Val(Text1.Text) > Val(Text2.Text) Then

txtResultado.Text = "El mayor es: " & Text1.Text

Else

txtResultado.Text = "El mayor es: " & Text2.Text

End If

End Sub

Ejercicio2:

Este ejercicio consiste en que al dar una letra te diga si es consonante o si es vocal.

Para el que pueda salir necesitas colocar la siguiente codificación:

En el comando:

Private Sub Command1_Click()

If txtletra.Text = "a" Or txtletra.Text = "e" Or txtletra.Text = "i" Or txtletra.Text = "o" Or txtletra.Text = "u" Then

txtresultado.Text = "la letra ingresada es una vocal"

Else

txtresultado.Text = "la letra es una consonante"

End If

End Sub

Ejercicio3:

En este ejercicio consiste en que al darle el nombre y la edad de una persona te diga si es mayor o menor de edad.

Para eso la codificación es la siguiente:

En el comando:

Private Sub Command1_Click()

If txtedad.Text >= 18 Then

txtresultado.Text = "es mayor de edad"

Else

txtresultado.Text = "es menor de edad"

End If

End Sub

Ejercicio4:

En este ejercicio consiste en que debes realizar una lista de carreras en el que al escoger una de ellas te salga el costo.

Para lo cual debemos asignarle la siguiente codificación:

En el formulario:

Private Sub Form_Load()

cbocarrera.Clear

cbocarrera.AddItem "Administrador"

cbocarrera.AddItem "Profesor"

cbocarrera.AddItem "Ingeniero"

cbocarrera.AddItem "webmaster"

End Sub

En el combo1:

Private Sub cbocarrera_Click()

If cbocarrera.Text = "Administrador" Then

txtresultado.Text = "El costo de su carrera es $5000(Administración)"

Else

End If

If cbocarrera.Text = "Profesor" Then

txtresultado.Text = "El costo de su carrera es $2000(Profesor)"

Else

End If

If cbocarrera.Text = "Ingeniero" Then

txtresultado.Text = "El costo de su carrera es $8000(Ingeniero)"

Else

End If

If cbocarrera.Text = "Webmaster" then

txtresultado.Text = "El costo de su carrera es $65(Webmaster)"

Else

End If

End Sub

Condicionales

IF THEN ELSE:
Las instrucciones condicionales se utilizan para comprobar si una 'expresión' es
verdadera o falsa. En caso de que dicha expresión se cumpla (es decir sea cierta), se
ejecutará todo lo que se haya declarado en la respuesta verdadera, de lo contrario se
ejecutara todo lo declarado en la respuesta falsa.

IF es la instrucción que permite evaluar una expresión que viene a continuación, si
es cierta, THEN (Entonces). A continuación de THEN podemos incluir cuantas
instrucciones queramos, separadas por dos puntos. Estas sólo se ejecutarán cuando la
expresión sea cierta. Si el resultado de la expresión es falso, se obvia 'todo' lo que hay
después de THEN y se pasa a la siguiente línea.

Pero, (...), existe otra instrucción que PUEDE acompañar al IF... THEN... y es para
los casos en los cuales. ELSE permite declarar las tareas a realizar en caso que el
resultado de la expresión sea FALSO.

Con ésta, la definición de la instrucción "tomadora de decisiones" quedaría así:

IF THEN ELSE

Tanto en como en pondremos tantas
instrucciones como queramos, (separadas por dos puntos). Pero no te recomiendo que lo
hagas, es preferible, al menos para darle "claridad" a nuestro código, usar el bloque del
cuadro (mas abajo):

Sé que esto puede ocupar más líneas de código, pero nuestro "coco" lo
agradecerá, ya que es más fácil de comprender, sino veamos un ejemplo:

IF numero > limite THEN
Print "tu número es grande"
ELSE
Print "OK, McKey!"
END IF

Ejercicio del Globo Aerostático

En este ejercicio tiene como objetivo hacer volar 6 globos aerostáticos mediante comandos y tiempo. El diseño del formulario es el siguiente:

Para esto necesitaremos:

• 6 pictures con imagenes de globos.


• 6 comandos


• 6 timers

Luego la codificación es la siguiente:

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub
Private Sub Command2_Click()

Timer2.Enabled = True

End Sub
Private Sub Command3_Click()

Timer3.Enabled = True

End Sub
Private Sub Command4_Click()

Timer4.Enabled = True

End Sub
Private Sub Command5_Click()

Timer5.Enabled = True

End Sub
Private Sub Command6_Click()

Timer6.Enabled = True

End Sub
Private Sub Timer1_Timer()

Image3.Move Image3.Left, Image3.Top - 200

End Sub
Private Sub Timer2_Timer()

Image2.Move Image2.Left, Image2.Top - 200
End Sub
Private Sub Timer3_Timer()I

mage1.Move Image1.Left, Image1.Top - 200
End Sub
Private Sub Timer4_Timer()

Image4.Move Image4.Left, Image4.Top - 200

End Sub
Private Sub Timer5_Timer()

Image5.Move Image5.Left, Image5.Top - 200
End Sub
Private Sub Timer6_Timer()

Image6.Move Image6.Left, Image6.Top - 200

End Sub

A la hora de ejecutar daremos click a los comandos y los globos saldran volando según el orden asignado.