Proyecto!

Descripción del proyecto:

Elaboración de una maqueta de un ascensor panorámico.

Medio de transporte vertical que sirve para acceder, subir o bajar en altas edificaciones o de 3 pisos en adelante, diseñado para el control de las grandes edificaciones.

Las piezas o partes electrónicas reales de este sean remplazadas por piezas recicladas de grabadoras o radios.

Para su elaboración se va a necesitar de los siguientes materiales:

-Cartón Paja.
- Radiografías.
- Silicona líquida y transparente.
-Dinamo (Motor que va a impulsar las subidas y bajadas del ascensor).
- Grabadora(vieja, que no se utilice).
-Amortiguadores en resortes.
-Cauchos.
-Engranajes.
-1/4 de Lamina de Icopor Gruesa.

Objetivo General:
-Diseñar un aparato aplicando los conocimientos adquiridos en tecnología.

Objetivos Específicos:
- Producir un ascensor de precisión.
- Garantizar que el ascensor sea seguro.
- Proveer un espacio confortable.
- Evitar la claustrofobia.
- Llamar la atención a los visitantes.

Presupuesto

2 Lamina de Cartón Paja

V. u $3000
$6000

2 Tira de Balsor x.05x.05

V. u $600
$1200

1 Modejo de Nilon

V.u $600
$600

1 Silicona liquida

V. u $3500
$3500

1 Dinamo o Bobina

V.u $35000
$35000

1 Lamina Acrílico Traslucida

V. u$2000
$2000

1/4 Lamina d Icopor

V.u $1000
$1000

2 Baterías Grandes

V. u $2000
$4000

1 Cable d Teléfono

V. u $30000
$30000

Adicionales


Total a Pagar
$46300

La razón por la que se utilizaron estos materiales por que son los adecuados para el tipo de maqueta que vamos a realizar, además, consultamos con un arquitecto y este los recomendó puesto que son económicos y apropiados para el trabajo que llevaremos a cabo.

TRABAJO!

Private Sub ComboBox1_Change()
Dim PUNTOS As Integer
If ComboBox1 = "DAVID GETTA" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "total de puntos" + Str(PUNTOS)
End Sub

Private Sub ComboBox2_Change()
Dim PUNTOS As Integer
If ComboBox2 = "MEDELLIN" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox3_Change()
Dim PUNTOS As Integer
If ComboBox3 = "JUAN MANUEL SANTOS" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox4_Change()
Dim PUNTOS As Integer
If ComboBox4 = "HUGO CHAVEZ" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox5_Change()
Dim PUNTOS As Integer
If ComboBox5 = "NEILA PRIETO" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox6_Change()
Dim PUNTOS As Integer
If ComboBox6 = "DAMERIS" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox7_Change()
Dim PUNTOS As Integer
If ComboBox7 = "DIANA" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox8_Change()
Dim PUNTOS As Integer
If ComboBox8 = "SHOES" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox9_Change()
Dim PUNTOS As Integer
If ComboBox9 = "STUDIO F" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox10_Change()
Dim PUNTOS As Integer
If ComboBox10 = "BOGOTA" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox11_Change()
Dim PUNTOS As Integer
If ComboBox11 = "CHEPE FORTUNA" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox12_Change()
Dim PUNTOS As Integer
If ComboBox12 = "35" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox13_Change()
Dim PUNTOS As Integer
If ComboBox13 = "DRAGON Y CABALLERO" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox14_Change()
Dim PUNTOS As Integer
If ComboBox14 = "SILVESTRE DANGOD" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox15_Change()
Dim PUNTOS As Integer
If ComboBox15 = "TOLA" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox16_Change()
Dim PUNTOS As Integer
If ComboBox16 = "BARRANQUILLA" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox17_Change()
Dim PUNTOS As Integer
If ComboBox17 = "JOSE LUIS TRESPALACIO" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox18_Change()
Dim PUNTOS As Integer
If ComboBox18 = "EL PERRO" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox19_Change()
Dim PUNTOS As Integer
If ComboBox19 = "JUSTIN BIEBER" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox20_Change()
Dim PUNTOS As Integer
If ComboBox20 = "DISNEY CHANNEL" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

PROGRAMACIÓN VISUAL BASIC

DIM PUNTOS AS INTEGER
IF COMBOBOX1 = "ALVARO URIBE" THN
PUNTOS = PUNTOS + 20
END IF
MSGBOX "TOTAL DE PUNTOS" + STR (PUNTOS)

EJERCICIO:

- diseñe un algoritmo que calcule el valor a pagar de una factura donde esta depende del valor del articulo y de la cantidad del mismo.
si el valor de la factura es mayor que 20.000 se le aplica un descuento del 40% en otro caso del 15%

DE: va, ca
PRO: tf: va * ca
si tf > 20. 000 entonces tf * 0,4
tf: tf - d
sino d: tf * 0,15
tf: tf - d
DS: tf

inicio
d, va, ca, tf: real
escriba ("digite el valor del articulo")
lea (vt)
escriba ("digite la cantidad del articulo")
lea(ca)
si (tf > 20. 000) entonces
d: tf * 0,4
tf: tf - d
escriba ("el valor a pagar es", tf)
sino
d: tf * 0,15
tf: tf - d
escriba ("el valor a pagar es", tf)
fin
fin

#include
#include
int main()
{
clrscr();
float va, d, ca, tf;
printf ("digite el valor del articulo");
scanf ("%f", &va);
printf ("digite la cantidad del articulo");
scanf ("%f", &ca);
tf: va * ca;
if (tf > 20. 000) }
d: tf * 0,4;
tf: tf - d;
printf ("\n el valor a pagar es %f", tf);
elsc
d: tf * 0,15;
tf: tf - d;
printf ("\n el valor a pagar es %f", tf);
}
getch();
}

CICLO REPETITIVO MIENTRAS QUE

El CICLO MIENTRAS ejecuta un bloque de acciones ‘mientras’ que una condición dada se cumpla, es decir, cuando la condición evalúa a verdadero. La condición es evaluada antes de ejecutar el bloque de acciones y si la condición no se cumple, el bloque no se ejecuta. De esta manera es que el número de repeticiones del bloque de acciones sea cero, pues, si la condición la primera vez evalúa a falso, el bloque no será ejecutado alguna vez. La forma general del ciclo mientras es la siguiente:


Código:

mientras (condición) hacer



fin_mientras

CICLO REPETITIVO PARA!

ciclo para, es una estructura de control en la que se puede indicar el número máximo de iteraciones. Está disponible en casi todos los lenguajes de programación imperativos.

Variable de control: prácticamente un mandato impuesto por el uso habitual es utilizar la letra i como variable de control, o bien sus sucesoras en caso de bucles anidados. El uso de esta letra críptica quizás a primera vista es sin embargo una excelente forma de aportar agilidad de lectura al código por su uso tan extensivo. Como raras veces los bucles anidados superan las tres dimensiones (por una sencilla cuestión de explosión exponencial), las letras i, j y k suelen ser las únicas relacionadas con este uso. En C se define en el primer parámetro de la instrucción junto con la inicialización (opcional).

Inicialización de la variable de control: en pseudolenguaje se pide explicitarlo (es la sección := ValorInicial), sin embargo, otros lenguajes más permisivos como C no lo requieren de forma obligatoria. De todos modos, la práctica de utilizar variables de control que no se inicializan en el bucle no es recomendada para la legibilidad del código. En C se define en el primer parámetro del bucle junto con la variable de control.
Condición de control: en pseudolenguaje se ve representado por el valor final que puede tomar la variable de control (la sección A ValorFinal). En C es el segundo parámetro y puede ser cualquier condición (ni siquiera es obligación que esté la variable de control, aunque una vez más, esto no se considera una buena práctica).

Incremento: en pseudolenguaje se toma por defecto el valor 1, aunque puede explicitarse por medio de la sentencia PASO = ValorPaso cualquier número entero (léase bien entero, o sea que técnicamente podemos decrementar). En C es el último parámetro.
Cuerpo: es lo que se hará en cada iteración, pueden ser una o más instrucciones. En pseudolenguaje pesa la restricción de no poder alterar el valor de la variable de control; esto no es requerido en C, pero no se considera una buena práctica.

EJERCICIOS!

1. diseñe un algoritmo que sume dos números si el primero es menor que el segundo, imprima el resultado.

DE: x , y
PRO: suma: x + y
DS: suma

inicio
suma, x, y: Real
escriba ("digite un número")
lea(x)
escriba ("digite otro número")
lea(y)
Si (x < y) entonces
suma: x + y
escriba("la suma es", suma)
fsi
fin

#include
#include
int main()
{
clrcr ();
float suma, x, y;
printf ("digite un número");
scanf ("%f", &x);
printf ("digite un número");
scanf ("%f", &y);
if (x < y){
suma: x + y;
printf ("\n la suma es %f", suma);
}
getch();
}

2. Diseñe un algoritmo que sume dos números si el primero es mayor que el segundo, en caso contrario multiplique para cada caso muestre el resultado de las operaciones.

DE: x, y
PRO: suma: x + y
mul: x * y
DS: suma, mul

inicio
suma, x, y, mul: Real
escriba ("digite un número")
lea(x)
escriba ("digite otro número")
lea(y)
si (x > y) entonces
suma: x + y
escriba("la suma es", suma)
sino
mul: x * y
escriba("la multiplicación es", mul)
fin
fin

#include
#include
int main()
{
clrscr();
float suma, mul, x, y;
printf ("digite un número");
scanf ("%f", %x);
printf ("digite otro número);
scanf (%f", %y);
if (x>y) {
suma: x + y;
printf ("\n la suma es %f", suma);
elsc
mul: x * y;
printf("\n la multiplicacion es %f", mul);
}
getch();
}

CONDICIONAL DOBLE!

esta compuesto por
Si (condicion) entonces
acciones 1
2
..
sino (condicion) entnces
acciones 1
2
..
fsi

CONDICIONAL SIMPLE!

esta compuesto por
Si (condicion) entonces
acciones 1
2
..
fsi

TERCER PERIODO!

EJERCICIOS EN CLASE:

1. Diseñe un algoritmo que dado cuatro números sume el primero y el ultimo, reste el segundo y el tercero, multiplique el segundo y el cuarto y divida el primero y el tercero. imprima la suma, la resta, la multiplicación, la división.

DE: x,y,a,b
PRO: suma: x + b
resta: y - a
mulp: y * b
div: x / a
DS: suma, resta, mulp, div.

inicio
x, y, a, b, suma, resta, mulp, div : Real
escriba ("digite el primer número")
lea(x)
escriba ("digite el segundo número")
lea(y)
escriba ("digite el tercer número")
lea(a)
escriba ("digite el cuarto número")
lea(b)
suma: x + b
resta: y - a
mulp: y * b
div: x / a
escriba ("el valor de la suma es", suma)
escriba ("el valor de la resta es", resta)
escriba ("el valor de la multiplicación es", mulp)
escriba ("el valor de la división es", div)
fin

# include
# include
int main()
{
clrscr();
float x, y, a, b, suma, resta, mulp, div;
printf ("digite el primer número");
scanf("%f", &x);
printf ("digite el segundo número");
scanf("%f", &y);
printf ("digite el tercer número");
scanf("%f", &a);
printf ("digite el cuarto número");
scanf("%f", &b);
suma: x + b;
resta: y - a;
mulp: y * b;
div: x / a;
printf ("\n el valor de la suma es %f", suma);
printf ("\n el valor de la resta es %f", resta);
printf ("\n el valor de la multiplicación es %f", mulp);
printf ("\n el valor de la división es %f", div);
getch();
}

2. inicio
precio, nart, pv, iva, pb, d, pw: real
leer precio, nart
pv: precio * nart
iva: pv * 0,15
pb: pv + iva
d: (pb * 5) / 100
pw: b - d
escribir pv, iva, pb, d, pw
fin


3. inicio
cm_pulg, cm, pulgadas: Real
cm_pulg: 2,59
escriba "un valor en centimetros"
leer cm
pulgadas: cm / cm_pulg
escriba "el valor en pulgada es"; pulgadas
fin

#include
#include
int main()
{
clrscr();
float cm_pulg, cm, pulgadas
cm_pulg: 2,54
printf ("digite un valor en cm");
scanf("%f", &cm);
pulgadas: cm / cm_pulg;
printf ("\n el valor en pulgadas es %f", pulgadas);
getch();
}