Programación en VBA para control de resistencia de concreto

Computer ScienceVisual Basic for ApplicationsMedium

Published:

1. Realice la programación en Visual Basic que automatice la ejecución de una hoja de cálculo Caso propuesto: 'Control de resistencia del concreto', en la se encontrará la siguiente matriz: La implementación se realizará a base de la estructura definida (repositorios/módulos) con la utilización de eventos y módulos (procedimientos parametrizados y funciones) PROCESO: 1. Generar un procedimiento parametrizado que calcule el cumplimiento de resistencia = f'c ensayo / f'c diseño * 100, valide la información ingresada e inserte el porcentaje en la celda correspondiente al CUMPLIMIENTO (2 puntos). 2. Generar un procedimiento parametrizado que inserte el ESTADO (2 puntos) en la celda, utilizando el valor del cumplimiento calculado en el punto 1. 3. Generar el evento automático que dispare los procedimientos parametrizados realizados, una vez que ingrese alguno de los datos. (6 puntos)

This question includes visual content: El documento contiene una tabla principal en Excel con columnas: A (ELEMENTO), B (f'c DISEÑO (MPa)), C (f'c ENSAYO (MPa)), D (CUMPLIMIENTO (%)), E (ESTADO). Filas de la 4 a la 11 contienen datos de elementos estructurales (Cimiento, Viga, Columna, Losa, Muro, Zapata) con sus respectivos valores. A la derecha, una tabla auxiliar define las condiciones de estado: '< 85' es CRITICO, '< 95' es NO CUMPLE, '< 100' es OBSERVADO, '< 110' es CUMPLE, '>= 110' es SOBRESALIENTE.

Animated Video Solution

The first half plays free, the full solution is in the app.

Step by Step Written Solution

1
Step 1

Hola Brayan, vamos a automatizar este sistema de control de resistencia de concreto utilizando programación modular en Visual Basic.

Automatización del Control de Resistencia

2
Step 2

Primero, definiremos una función para calcular el porcentaje de cumplimiento, que es la resistencia de ensayo dividida entre la de diseño, multiplicada por cien.

Paso 1: Función de Cálculo

$$Function CalcularCumplimiento(f_ensayo As Double, f_diseno As Double) As Double CalcularCumplimiento = (f_ensayo / f_diseno) * 100\nEnd Function$$
3
Step 3

A continuación, crearemos un procedimiento parametrizado para determinar el estado según las reglas dadas, usando una estructura Select Case.

Paso 2: Procedimiento de Clasificación

$$Sub DeterminarEstado(cumplimiento As Double, fila As Integer) Dim estado As String Select Case cumplimiento Case Is < 85: estado = "CRÍTICO" Case Is < 95: estado = "NO CUMPLE" Case Is < 100: estado = "OBSERVADO" Case Is < 110: estado = "CUMPLE" Case Else: estado = "SOBRESALIENTE" End Select Cells(fila, 5).Value = estado\nEnd Sub$$

The rest of this solution is on Solvi

2 more steps are locked. Watch the full animated, narrated solution for free.

Snap a photo, solve any question like this.

Download on the App Store Get it on Google Play

Free to download · First solutions are on us

100K+Questions solved daily
50K+Students learning
4.8 ★App Store rating

About This Question

Subject
Computer Science
Topic
Visual Basic for Applications
Difficulty
Medium
Question Type
Open Ended

Solve any question in seconds

Snap a photo and AI explains it step by step with voice and animation.

Download on the App Store Get it on Google Play
Solvi
The full solution is in the appFree to download · First solutions are on us
Get