Actividades para hoy

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 Single
Dim Altura As Single
Dim Area As Single

Private Sub Command1_Click()
     Base = Text1.Text
     Altura = Text2.Text
     Area = Base * Altura / 2

     Picture1.Print Area
End Sub


Private Sub Command2_Click()
              End
End 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

Diseño
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 controles

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 +    '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 +    '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 

Aplicación de reto1
pista 

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





ACTIVIDAD :


Realiza el código


                                       PARA CREAR UN MENÚ                                              

  • Entrar al editor 



  • 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:


  MULTIFORMULARIOS                                                                   

  • AGREGAR FORMULARIO 



  • 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 +    '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