Lab14 Estructuras Condicionales

INFORMÁTICA APLICADA
LABORATORIO N14
Estructuras condicionales
CÓDIGO DEL CURSO:
Alumno(s): Nota:
Grupo: Ciclo:
Requiere No
Criterio de Excelente Bueno Puntaje
mejora acept.
Evaluación (5pts) (4pts) Logrado
(3pts) (0pts)
Conoce y utiliza los tipos
de datos
Conoce y utiliza
estructuras
condicionales
Conoce y utiliza
diagramas de flujo
Orden, Limpieza y
respeto.
Observaciones y
conclusiones
PROGRAMA DE FORMACIÓN REGULAR

Estructuras Condicionales - Lab. 14 Nro. DD-106
Informática Aplicada Página 1 de 5
I.- OBJETIVOS:
1. Escribe pseudocódigos declarando variables y utilizando estructuras condicionales.
II.- SEGURIDAD:
Advertencia:
En este laboratorio está prohibida la manipulación del
hardware, conexiones eléctricas o de red; así como la ingestión
de alimentos o bebidas.
Al culminar la sesión de laboratorio, apagar correctamente la
computadora y el monitor.
III.- FUNDAMENTO TEÓRICO:

El docente dará una breve explicación para reforzar lo aprendido en las exposiciones.
IV.- NORMAS EMPLEADAS:

No aplica
V.- RECURSOS:
 En este laboratorio cada alumno trabajará con un equipo con Windows.
 Microsoft Excel 2013.
VI.- METODOLOGÍA PARA EL DESARROLLO DE LA TAREA:

 El desarrollo del laboratorio es individual.
VII.- PROCEDIMIENTO:
Nota:
Las secciones en cursivas son demostrativas, pero sirven para que usted pueda instalar las herramientas de
desarrollo en un equipo externo.
1. Abra el libro asignado para el laboratorio y ubíquese en la primera hoja.

a. En la pestaña desarrollador seleccione macros y cree la nueva macro “descuentotardanza”,
esta macro se encarga de determinar si un trabajador llego a tiempo o llegó tarde.
b. En la ventana que aparece por defecto ingrese el siguiente código en el medio:
Dim llegada, descuento As Integer

hora = ActiveCell.Value
llegada = Minute(hora)
If llegada > 40 Then
descuento = llegada - 30
MsgBox "Se le descontará " & descuento & " minutos el día de hoy"
Else
MsgBox "Gracias por su puntualidad"
End If
c. Guarde los cambios y regrese a la hoja de cálculo de Excel
d. Haga clic sobre cualquier celda que contenga la hora y ejecute la macro ¿Qué es lo que hace
la macro?
EVALUA SI EL TRABAJADOR LLEGO MAS DE LAS 8:40 OMENOS ,SI LLEGO TARDE O
LLEGO A TIEMPO ,Y SI LLEGO TARDE LE DESCUENTA 30 MINUTOS.
e. Modifique la macro para que aplique la tardanza a los 15 minutos después de las 08:00, en
vez de a los 40.
f. Cree el diagrama que flujo que represente la macro.

2. En la segunda hoja se generará una macro la cual permita hacer descuentos en el precio de un
producto dependiendo del volumen de la compra (mientras más unidades compren, mayor será el
descuento).
a. Para esto cree un botón de comando (al igual que en el laboratorio anterior)
b. Active sus propiedades
c. Cambie name a “cmddescuentovolumen”.
d. Cambie caption según su criterio.
e. Haga doble clic sobre el botón creado e ingrese el siguiente código:
Dim cantidad1 As Double

Dim precio1 As Double
Dim unid As Double
cantidad1 = Range("a2")
precio1 = Range("b2")
unid = Range("b8")
If unid <= cantidad1 Then

Range("b9") = precio1
Range("b10") = precio1 * unid
ElseIf unid <= cantidad2 Then
ElseIf unid <= cantidad3 Then
Else
End If
f. Haga clic encima de la celda b10 (del código) y luego haga clic en Play de la ventana.
g. Regrese a la hoja de Excel.
h. Ingrese el dato correspondiente en la celda B8 y haga clic encima del botón de comando.
i. ¿Qué es lo que hace la macro?
Nos asiggna el valor a pagar ,gracias a la automatización uqe se realiza atravez de los macros
y de las instrucciones que se le da,.
j. Detenga la ejecución de la macro, regresando a la ventana de códigos (Desarrollador 

Visual Basic) y haciendo clic encima de la opción de Pausa.
k. Cree el diagrama que flujo que represente la macro
3. En la hoja 3 nos encargaremos de crear dos macros que calculen ciertos beneficios para los
trabajadores:
a. Toda el área comercial se desplaza constantemente para cubrir rutas según zonas, los
puestos de mando medio en adelante utilizan su movilidad propia y los demás usan el
transporte público para realizar este recorrido mensual.
b. Se asigna a cada uno un monto específico: Si el sueldo está por encima de los 2500 soles,
el monto asignado será de 600 soles. Si está por debajo de 2500 soles, el monto será de
450 soles.
c. Cree una macro (calc_movilidad) con el siguiente código:
Dim sueldo As Integer

sueldo = Cells(ActiveCell.Row, ActiveCell.Column - 1).Value
If sueldo >= 2500 Then
ActiveCell = 600
Else
ActiveCell = 450
End If
d. Guarde los cambios y regrese a la hoja de Excel.

e. Ubíquese en la celda donde desea calcular la movilidad para el primer empleado y ejecute la
macro.
f. Compruebe el funcionamiento de la macro y asigne el monto de movilidad para cada
empleado.
g. Usando como referencia el código anterior, cree una nueva macro (nombre según su criterio),
la que permita calcular la alimentación según las siguientes pautas: Si el colaborador tiene
un sueldo menor a 2000 soles se le cubre al 100% la alimentación en el concesionario de
la empresa, por lo que el beneficio es de 200 soles. Si tiene un sueldo mayor a 2000 soles,
la alimentación se cubre al 50% por lo que el beneficio sería sólo de 100 soles. Generar una
ventana de mensaje (MsgBox) mostrando, como mensaje, la explicación del monto asignado.
h. Indique a continuación el código creado de la macro
Sub calc_alimentacion()
Dim sueldo As Integer

sueldo = Cells(ActiveCell.Row, ActiveCell.Column - 2).Value
If sueldo <= 2000 Then
MsgBox "Cubierto al 100%"
ActiveCell = 200
Else
MsgBox "Cubierto al 50%"
ActiveCell = 100
End If
End Sub
i. Cree un diagrama de flujo que represente ambas macros.

CONCLUSIONES
 El uso de pseudocodigos en primordial para poder crear una macro

 Para evitar colocar mucho texto es importante el uso de variables
 Las estructuras condicionales ayudan a comparar la variable con otro valor
OBSERVACIONES:
 Tener cuidado al colocar los signos

 Los botones de acción se ´pueden modificar mediante las propiedadades
 Las macros no se pueden ejecutar si estas no están en pausa
 Es importante describir bien los pasos a seguir para hallar el dato buscado

Lab14 Estructuras Condicionales

Cargado por

Copyright:

Formatos disponibles

Lab14 Estructuras Condicionales

Cargado por

Información del documento

Descripción original:

Título original

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

Lab14 Estructuras Condicionales

Cargado por

Copyright:

Formatos disponibles

INFORMÁTICA APLICADA

CÓDIGO DEL CURSO:

PROGRAMA DE FORMACIÓN REGULAR

Informática Aplicada Página 1 de 5

III.- FUNDAMENTO TEÓRICO:

IV.- NORMAS EMPLEADAS:

VI.- METODOLOGÍA PARA EL DESARROLLO DE LA TAREA:

1. Abra el libro asignado para el laboratorio y ubíquese en la primera hoja.

Dim llegada, descuento As Integer

c. Guarde los cambios y regrese a la hoja de cálculo de Excel

f. Cree el diagrama que flujo que represente la macro.

PROGRAMA DE FORMACIÓN REGULAR

Informática Aplicada Página 2 de 5

b. Active sus propiedades

c. Cambie name a “cmddescuentovolumen”.

d. Cambie caption según su criterio.

e. Haga doble clic sobre el botón creado e ingrese el siguiente código:

Dim cantidad1 As Double

If unid <= cantidad1 Then

g. Regrese a la hoja de Excel.

i. ¿Qué es lo que hace la macro?

j. Detenga la ejecución de la macro, regresando a la ventana de códigos (Desarrollador 

Informática Aplicada Página 3 de 5

k. Cree el diagrama que flujo que represente la macro

Dim sueldo As Integer

d. Guarde los cambios y regrese a la hoja de Excel.

Dim sueldo As Integer

i. Cree un diagrama de flujo que represente ambas macros.

PROGRAMA DE FORMACIÓN REGULAR

Informática Aplicada Página 4 de 5

 El uso de pseudocodigos en primordial para poder crear una macro

 Tener cuidado al colocar los signos

PROGRAMA DE FORMACIÓN REGULAR

También podría gustarte