Ejercicios
Martes
-------------------------------------------------------------------------------------------------Aplicación: 1
Mi primer programa:
Objetivo: cambiar las propiedades (desde código) en tiempo de ejecución.
Función: (Colorea el fondo de la forma, según el botón presionado)
Nota: identifica los nombres de los controles
'Código para el botón 1 Esto es un comentario y se inicia con comilla simple Alt 39
Private Sub btnAzul_Click()
Form1.BackColor = vbBlue
End Sub
'Código para el botón 2
Private Sub btnRojo_Click()
Form1.BackColor = vbRed
End Sub
Aplicación: 2
Ejemplo de uso de barra de desplazamiento:
Objetivo: Utilizar el control barra de desplazamiento y el uso de menús desplegables
Función: Convertir grados centigrados a fahrenheit (Valor directo de los controles)
Nota: Identifica los nombres de los controles
Diseño:
Código:
Private Sub VScroll1_Change()
Text1.Text = VScroll1.Value
Text2.Text = 32 + 1.8 * VScroll1.Value
End Sub
Martes
*********************************************************************
Aplicación: 3
Proceso para crear una aplicación
1.- ENTRAR A VISUAL BASIC EXE ESTÁNDAR
2.-CAMBIAR LA APARIENCIA DE LA FORMA CON LOS ATRIBUTOS
NAME = nombre que lo identificara en el código y en el archivo
CAPTION =contenido, titulo de la forma
3.- DIBUJAR LOS CONTROLES SOBRE LA FORMA
Herramientas
4.- MODIFICAR LA APARIENCIA DE LOS CONTROLES CON LOS ATRIBUTOS CAPTION, FONT, ETC.
5.- ASIGNAR EL NOMBRE A LOS CONTROLES QUE SERÁN UTILIZADOS EN EL CÓDIGO
CON EL ATRIBUTO
NAME
6.- ENTRAR A LA VENTANA DE CÓDIGO (DANDO DOBLE CLIC AL CONTROL QUE SE LE ASIGNARA LA FUNCIÓN) Y ESCRIBIR EL CÓDIGO CORRESPONDIENTE PARA LOS BOTONES DE COMANDO cmdCalcula y cmdSalir
Private Sub cmdCalcula_Click()
picResultado.print val(txtBase)*val(txtAltura)/2
End Sub
Private Sub cmdSalir_Click()
end
End Sub
'Esto es un comentario y se inicia con comilla simple Alt 39
¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
======Ejemplo: Calcular el área de un triangulo (Utilizando Variables)
Paso número 1 Diseña el siguiente formulario
Paso número 2 Escribe en la ventana de código las instrucciones:
Dim Base As SingleDim Altura As SingleDim Area As Single
Private Sub Command1_Click() Base = Text1.Text Altura = Text2.Text Area = Base * Altura / 2
Picture1.Print AreaEnd Sub
Private Sub Command2_Click() EndEnd Sub
Paso número 3 Ejecuta el programa ============
Aplicación: 4
(usando variables)Aplicación de una calculadora básica, considera el diseño y crea el código
Identifica los controles
Escribe el código necesario.
Miércoles
============================================================
Utilizando Variables
Aplicación: 5
=========================================================================
Aplicación: 6 Miércoles
============================================================
Código
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
Aplicación: 7
Calcular la edad pidiendo solo el año de nacimiento
Miércoles (usando variables) Realiza el ejercicio

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
Aplicación: 8
Ejercicio de menús y multiformularios
Objetivo: Realizar diferentes cálculos por medio de una barra de menús y en diferentes formularios.
Funciones:
- llamar de la forma principal a la forma que realizara el calculo por medio del menú conversiones.
- regresar al menú principal desde el resto de las formas.
- Realizar los cálculos básicos sobre la misma forma 1 llamados por el menú calculadora
Diseño de la forma principal:
opción 1

sentencias condicionales
============================================================
Aplicación 9
jueves
Código para el ejemplo del if
Sentencia IF ...THEN ...ELSE
(Determinar si el usuario es mayor de edad o no)
Usando cajas de mensajes
Dim Nombre As String
Dim Apellido As String
Dim Anac As Integer
Dim Edad As Byte
Private Sub Command1_Click()
Nombre = text1.Text
Apellido = text2.Text
Anac = Val(text3.Text)
Edad = 2016 - anac
If edad >= 18 Then
MsgBox Nombre & " Puedes Votar ya eres mayor de edad " & Edad
Else
MsgBox Nombre & " No Puedes Votar eres Menor de edad " & Edad
End If
End Sub
Segunda opción Usando picturebox
============================================================
============================================================
============================================================
Ejercicios de select case
Ejemplo de select case
Diseño
Código
Private Sub Form_Load()
Dim dia
dia = InputBox("dime el numero de un día de la semana del 1 al 7")
Select Case dia
Case 1:
MsgBox ("El día LUNES estará soleado")
Case 2:
MsgBox ("El día MARTES sera nublado con posibles lluvias")
Case 3:
MsgBox ("El día MIÉRCOLES se pronostica un chubasco")
Case 4:
MsgBox ("El día JUEVES estará soleado parcialmente")
Case 5:
MsgBox ("El día VIERNES sera caluroso")
Case 6:
MsgBox ("El día SÁBADO sera muy caluroso")
Case 7:
MsgBox ("El día DOMINGO baja el calor y posibles lloviznas")
Case Else:
MsgBox ("Tiene que ser un día de la semana en número, del 1 al 7")
End Select
End Sub
Resultado
Aplicación 10 Lunes
Ejemplo de la sentencia select case
Objetivo:Uso de los controles combobox y msgbox
Función: Para mostrar el mensaje según el signo en una ventana de mensaje
Diseño y codigo
(Escribe no me copies)
Private Sub Command1_Click()
Text1.Text = Combo1.List(Combo1.ListIndex)
Select Case Combo1.ListIndex
Case 0
MsgBox ("Aries Tu Dia es super")
Case 1
MsgBox ("Tauro Tu Dia es super")
Case 2
MsgBox ("Géminis Tu Dia es super")
'
'
'
'Completalo
'
'
'
End Select
End Sub
Reconoce los controless
para usar el texto de la lista y no la posición
Private Sub Combo1_Click()
Select Case Combo1.List(Combo1.ListIndex)
Case "Aries"
MsgBox ("Aries Tu Dia es super")
Case "Tauro"
MsgBox ("Tauro Tu Dia es super")
Case "Geminis"
MsgBox ("Géminis Tu Dia es super")
'
'
'
'Completalo
'
'
'
End Select
Aplicación 11, Martes
Actividad de equipo, cada integrante del equipo realizará una aplicación en su
cuaderno, el diseño y el código. especificando el tipo de controles y el nombre que le
dará a cada uno siguiendo las reglas y sugerencias en el diseño y escribiendo el
código correspondiente a los controles que así lo requieran de los controles
utilizados.
El encargado del equipo se encargará de capturar y generar cada aplicación según las
instrucciones del integrante del equipo que lo programó y con la ayuda del equipo
para corregir errores.
Le darán un nombre significativo a cada aplicación según lo que realiza.
Resuelve los problemas siguientes:
aplicación 1
Definición del problema: Paulina presentó su examen de ingreso a la universidad, para ser
seleccionada debe tener al menos 400 puntos. Mostrar un mensaje que indique si fue aceptada
o no aceptada en la universidad.
Identificación del problema
Datos:
Cálculos:
Resultado:
Diseño (Controles que utilizara y el nombre de
aplicación 2
Definición del problema: Determinar el costo que tendrá al realizar una llamada telefónica con base en el tiempo que dura la llamada y en el costo por minuto.
datos:
duracion
costo por minuto
Calculo:
costotal=duracion*costoporminuto
resultado:
costo de la llamada
Aplicación 3
Definición del problema: Se les dará un bono por antigüedad a los empleados de una tienda.
Si tienen 5 años, se les dará $1,000; si tienen más de 5 y menos de 10 años $2,000. Para los que tengan 10 o más, el bono será de $3,000. Determinar el bono que recibirá un trabajador.
Aplicación 4
Definición del problema: La Sra. García realizó las compras de los útiles escolares, en la tienda está un aviso que indica descuentos de acuerdo con la compra total. Si la compra total es más de $3,000 se le hará un descuento del 20%, de lo contrario será del 10%. Indica cuánto es lo que pagó la Sra. García por su compra.
Aplicaion 12
Ejemplo de uso de for... next
Objetivo: Utilizar la sentencia For/Next
Función: Muestra la tabla de multiplicar que el usuario solicite
Nota: Identifica los nombres de los controles
Menú es mnuCalcula
Caja de texto es txtTabla
Label es LabelTabla
Picture es Picture1
Diseño:

código:
Aplicación 13
Esta aplicación pregunta Cuántas tareas son y dentro del ciclo va a preguntar la calificación de cada tarea para sumar Y obtener el total de puntos que se obtuvieron en todas las tareas
dim i as integer
dim total as integer
dim tottareas as integer
dim puntos as integer
privete sub cmd calcular
Total = 0
tottareas=txtTareas
For i = 1 To tottateas
puntos=inputbox(“¿Cuantos puntos son en la tarea?” & i)
Total = Total + puntos
Next i
labelTotal.caption Total
end sub
aplicación 14
Ejemplo de uso de la sentencia While/Wend
Objetivo: Utilizar la sentencia While/wend
Función: Mostrar el número del ciclo que esta ejecutando
Notas: - No lleva ningún control en Diseño, la interacción se utiliza en memoria ( variables ) y caja de mensaje.
- ' Un comentario se inicia con comilla simple Alt 39 y solo documenta el programa sin ejecutar su contenido.
_________________________________________________________________________________
Dim varcontrol As Integer 'declaracion de la variable varcontrol.
varcontrol = 0 'Se inicializa la variable varcontrol.
While varcontrol < 5 'Se comprueba el valor de varcontrol
varcontrol = varcontrol + 1 'Se incrementa el valor de Conts
MsgBox ("Vamos en el ciclo: " & varcontrol ) 'Se muestra el valor de varcontrol
Wend 'Se acaba el bucle cuando varcontrol > 5
aplicación 15
Calcular el total a pagar en una tienda de auto servicio segun como el cajero siga conrestando
Dim varcontrol As Integer 'declaracion de la variable varcontrol.
varcontrol = 0 'Se inicializa la variable varcontrol.
While varcontrol < 5 'Se comprueba el valor de varcontrol
varcontrol = varcontrol + 1 'Se incrementa el valor de Conts
MsgBox ("Vamos en el ciclo: " & varcontrol ) 'Se muestra el valor de varcontrol
Wend 'Se acaba el bucle cuando varcontrol > 5
Reto numero 1
la profiedad del checkbos puede ser false o true
Martes
Ejercicio de menús y mutiformularios
Objetivo: Realizar diferentes cálculos por medio de una barra de menús y en diferentes formularios.
Funciones:
- llamar de la forma principal a la forma que realizara el calculo por medio del menú conversiones.
- regresar al menú principal desde el resto de las formas.
- Realizar los cálculos básicos sobre la misma forma 1 llamados por el menú calculadora
Diseño de la forma principal:
opción 1
opción 2
Realiza el código
PARA CREAR UN MENÚ
- Desde el editor contestar los campos
Para los menús (caption y name)
Para los sub menús (caption, name y opcionalmente shortcut)
Ordenar con las flechas de la ventana y aceptar.
Escribir el código para cada sub menú
Resultado:
- DESDE EL CÓDIGO DE UN COMAND BOTÓN (Cambiar de una forma a otra)
Private Sub Command1_Click()
Form1.Hide 'OCULTA EL FORMULARIO 1
Form2.Show 'MUESTRA EL FORMULARIO 2
End Sub
++++++++++++++++++++++++++++
Actividad 13 Miércoles
Ejemplo de uso de for... next
Objetivo: Utilizar la sentencia For/Next
Función: Muestra la tabla de multiplicar que el usuario solicite
Nota: Identifica los nombres de los controles
Menú es mnuCalcula
Caja de texto es txtTabla
Label es LabelTabla
Picture es Picture1
Diseño:
código:
Actividad 14 Miércoles
Ejemplo de uso de la sentencia While/Wend
Objetivo: Utilizar la sentencia While/wend
Función: Mostrar el número del ciclo que esta ejecutando
Notas:
- No lleva ningún control en Diseño, la interacción se utiliza en memoria ( variables ) y caja de mensaje.
- ' Un comentario se inicia con comilla simple Alt 39 y solo documenta el programa sin ejecutar su contenido.
_________________________________________________________________________________
Dim
varcontrol As
Integer 'declaracion de la
variable varcontrol.
varcontrol = 0 'Se inicializa la
variable varcontrol.
While varcontrol < 5 'Se comprueba
el valor de varcontrol
varcontrol = varcontrol + 1 'Se
incrementa el valor de Conts
MsgBox
("Vamos en el ciclo: " & varcontrol ) 'Se muestra el valor de varcontrol
Wend 'Se acaba el
bucle cuando varcontrol > 5
__________________________________________________________________________________
Actividad ESPECIAL
USANDO VARIABLES DISEÑA UN PROGRAMA PARA CONVERTIR DE CENTÍMETROS A PULGADAS
Y MUESTRA EL RESULTADO EN UNA CAJA DE MENSAJE
EJEMPLO: MsgBox ("En pulgadas es: ", Resultado)
No hay comentarios:
Publicar un comentario