Funciones de Búsqueda- Laboratorio 14 Nro.
DD-106
Informática Aplicada Página 1 de 8
INFORMÁTICA APLICADA
LABORATORIO 14
ESTRUCTURAS CONDICIONALES
PROGRAMA DE FORMACIÓN REGULAR
Funciones de Búsqueda- Laboratorio 14 Nro. DD-106
Informática Aplicada Página 2 de 8
CÓDIGO DEL CURSO:
Alumno(s): Daniel Alexander Salas Villarreal Nota:
Grupo: C Ciclo: II
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
I. CAPACIDADES:
Maneja formulas y funciones avanzadas en una hoja de cálculo.
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 trabará con un equipo con Windows.
Microsoft Excel 2013.
VI. METODOLOGÍA PARA EL DESARROLLO DE LA TAREA:
El desarrollo del laboratorio es individual.
PROGRAMA DE FORMACIÓN REGULAR
Funciones de Búsqueda- Laboratorio 14 Nro. DD-106
Informática Aplicada Página 3 de 8
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. Habrá el libro asignado para el laboratorio y ubíquese en la primera hoja.
a. En la pestaña desarrollador seleccione macros y cree el nuevo macro “descuento_tardanza”, este
macro se encargada de determinar la puntualidad del colaborador.
b. En la ventana que aparece por defecto ingrese el siguiente código.
Sub descuentotardanza()
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
End Sub
c. Seleccione cualquier celda que contenga la hora y ejecute el macro ¿Qué es lo que hace el
programa? Responda.
Lo que hace es evaluar el tiempo de llegada de los trabajadores ya que si estos llegan después de
8:10, les saldrá un mensaje en donde se le muestra su tardanza y también el castigo que le quitan
tiempos; pero si llega temprano, le saldrá un mensaje en donde les recalca su puntualidad.
d. Modifique el programa para que aplique la tardanza a los 15 minutos después de las 8, en vez
de a los 40.
e. Cree el diagrama que flujo que represente el programa.
Inicio
Variables
Llegada
descuento
Hora=valor de la celda activa
Llegada=valor de hora en minutos
PROGRAMA DE FORMACIÓN REGULAR
Funciones de Búsqueda- Laboratorio 14 Nro. DD-106
Informática Aplicada Página 4 de 8
Llegada > 15 Descuento= Llegada – 15
Gracias por su puntualidad "Se le descontará “descuento”
minutos el día de hoy"
Fin
2. En la segunda (hoja2) se generara un macro el 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 (al igual que en el laboratorio anterior) y nómbrelo “descuentovolumen”
y asígnele un nuevo macro llamado “descuentovolumen”.
Sub descuentovolumen()
Dim cantidad1 As Double
Dim cantidad2 As Double
Dim cantidad3 As Double
Dim precio1 As Double
Dim precio2 As Double
Dim precio3 As Double
Dim precio4 As Double
Dim unid As Double
cantidad1 = Range("a2")
cantidad2 = Range("a3")
cantidad3 = Range("a4")
precio1 = Range("b2")
precio2 = Range("b3")
precio3 = Range("b4")
precio4 = Range("b5")
unid = Range("b8")
If unid <= cantidad1 Then
Range("b9") = precio1
Range("b10") = precio1 * unid
ElseIf unid <= cantidad2 Then
Range("b9") = precio2
PROGRAMA DE FORMACIÓN REGULAR
Funciones de Búsqueda- Laboratorio 14 Nro. DD-106
Informática Aplicada Página 5 de 8
Range("b10") = precio2 * unid
ElseIf unid <= cantidad3 Then
Range("b9") = precio3
Range("b10") = precio3 * unid
Else
Range("b9") = precio4
Range("b10") = precio4 * unid
End If
End Sub
b. ¿Qué es lo que hace el programa?
Dependiendo de la cantidad de producto que compremos, se nos aplicara un descuento, cambiara
el precio
Si es menor de 1000 unidades se cobrara 10 soles
Si es menor de 5000 unidades se cobrara 9.50 soles
Si es menor de 10000 unidades se cobrara 9.00 soles
Si es mayor de 10000 unidades se cobrara 8.00 soles
Luego multiplica las unidades por el precio que se condiciona según las unidades.
Por ultimo nos da el resultado
c. Cree el diagrama que flujo que represente el programa
INICIO
Cantida1,cantidad 2, cantidad
3,precio 1,precio 2, precio 3,und
Cantidad 1= celda A2
Cantida2= celda A3
Cantidad 3= celda A4
Precio 1= celda B2
Precio2= celda B3
Precio3= celda B4
Precio 4= celda B5
Unidad= celda B8
Unidad<= Unidad<=c
PROGRAMA DE FORMACIÓN REGULAR Celda B9 =precio 4
Unidad<=ca cantidad 2 antidad 3 Celda B10
ntidad 1 =precio4*unidad
Funciones de Búsqueda- Laboratorio 14 Nro. DD-106
Informática Aplicada Página 6 de 8
Celda B9=precio 2 Celda B9=precio 3
Celda B9=precio 1 Celda B10= precio 2*unida Celda B10= precio 3*unida
Celda B10= precio 1*unida
FIN
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 será de 600 soles. Si está por debajo de 2500 soles, el monto será de 450 soles.
c. El cree un macro con el siguiente código, ubíquese en la celda donde desea calcular la
movilidad y ejecútelo.
Sub calc_movilidad()
Dim sueldo As Integer
sueldo = Cells(ActiveCell.Row, ActiveCell.Column - 1).Value
If sueldo >= 2500 Then
ActiveCell = 600
Else
ActiveCell = 450
End If
End Sub
d. Usando como referencia el código anterior cree una macro que permita calcular la
alimentación según las siguientes pautas.
e. Si el colaborador tiene un sueldo menor a 2000 soles 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.
Saldría un mensaje con la explicación del monto asignado.
PROGRAMA DE FORMACIÓN REGULAR
Funciones de Búsqueda- Laboratorio 14 Nro. DD-106
Informática Aplicada Página 7 de 8
f. Cree un diagrama de flujo que represente ambos macros.
INICIO
DECLARAR VARIABLE
sueldo
PEDIR
monto_movilidad
Sueldo>=2500
Y
Sueldo <2500
Sueldo monto_movilidad
SI NO
PROGRAMA DE FORMACIÓN REGULAR
Funciones de Búsqueda- Laboratorio 14 Nro. DD-106
Informática Aplicada Página 8 de 8
Escribir “monto Escribir “monto
asignado S/600” asignado S/450”
CONCLUSIONES
Los macros no pueden ayudar a resolver problemas pero tenemos que saber usar los
códigos
Los pseudocódigos, es plasmar un algoritmo en su forma base, recopilando información y
plasmándola en una hoja, esta no necesita de un lenguaje especificado, solo es un apoyo
para luego plasmarlo en una serie de comandos de programación.
Los diagramas de flujo es una manera esquemática de tener un algoritmo, pues esta tiene
reglas con respecto a las figuras, pero no con la sintaxis de su contenido.
OBSERVACIONES:
Los macros no tienen límites, pero se tiene que usar como programación y códigos.
Un algoritmo no es infinito, tiene fin; para poder así tener un resultado sobre lo que
deseemos.
Los macros nos ayudan a resolver problemas de una manera más sencilla con diagramas de
flujo.
PROGRAMA DE FORMACIÓN REGULAR
