DISEÑO DE SISTEMAS Y BASE DE DATOS

Luis Miguel RuizDiego Alonso DávilaBryan Paredes TorresFiorella PerezaJhon Sánchez

“FUNDAMENTOS DE PROGRAMACION: VISUAL BASIC”

INTRODUCCIÓN

El siguiente trabajo trata de la aplicación de entidades en la cual se pueden almacenar datos de manera estructurada, con la menor redundancia posible. Diferentes programas y diferentes usuarios deben poder utilizar estos datos.

El grupo realizó diferentes modelos de base de datos que muy probablemente podrían ser usadas por pequeñas empresas que tienen un procedimientos de cálculos y ventas sencillas.

El objetivo del trabajo es realizar bases de datos lo mas reales posibles para ir familiarizándonos y tener una visión general de como es una base de datos en una empresa real .

CASO PROPUESTO 2EJERCICIO 1

Desarrollar un programa que permita ingresar el nombre y las 4 notas de un alumno, calcular el promedio considerando las 3 notas más altas.

MODELO DE LA BASE DE DATOS

PROGRAMACIONProgramacion del botón Nuevo:TXTnombre.Clear() TXTn1.Clear() TXTn2.Clear() TXTn3.Clear() TXTn4.Clear() TXTprom.Clear() TXTnombre.Focus()  Programacion del botón Salir:End

Programacion del botón Calcular:Dim n1, n2, n3, n4, prom As Single  n1 = Single.Parse(TXTn1.Text) n2 = Single.Parse(TXTn2.Text) n3 = Single.Parse(TXTn3.Text) n4 = Single.Parse(TXTn4.Text)  If n1 < n2 And n3 And n4 Then prom = (n2 + n3 + n4) / 3 End If  If n2 < n1 And n3 And n4 Then prom = (n1 + n3 + n4) / 3 End If  If n3 < n1 And n2 And n4 Then prom = (n1 + n2 + n4) / 3 End If  If n4 < n1 And n2 And n3 Then prom = (n1 + n2 + n3) / 3 End If  TXTprom.Text = prom 

CASO PROPUESTO 2EJERCICIO 2

Desarrollar un programa que lea 2 Números y muestre la división entre ellos.

MODELO DE LA BASE DE DATOS

PROGRAMACIONProgramación del botón Nuevo:TXTn1.Clear() TXTn2.Clear() TXTdiv.Clear() TXTn1.Focus() Programacion del botón Salir:End

Del botón Dividir:Dim n1, n2, div As Single  n1 = Single.Parse(TXTn1.Text) n2 = Single.Parse(TXTn2.Text)  div = n1 / n2  TXTdiv.Text = div 

CASO PROPUESTO 2EJERCICIO 3

Desarrollar un programa para leer el nombre y cargo de una persona, mostrar el sueldo que le corresponde según la siguiente tabla. Si se ingresa un cargo diferente, mostrar un mensaje de error.

MODELO DE LA BASE DE DATOS

PROGRAMACIONProgramacion del botón Nuevo:TXTnom.Clear()TXTcar.Clear()TXTsuel.Clear()TXTnom.Focus() Programacion del botón Salir:End

Programacion del botón Calcular:If TXTcar.Text = "Gerente" Then TXTsuel.Text = "S/. 2500.00" Else If TXTcar.Text = "Administrador" Then TXTsuel.Text = "S/. 2000.00" Else If TXTcar.Text = "Secretaria" Then TXTsuel.Text = "S/. 1000.00" Else If TXTcar.Text = "Contador" Then TXTsuel.Text = "S/. 1800.00" Else MsgBox("Error al introducir cargo") End If End If End If End If 

CASO PROPUESTO 2EJERCICIO 4

Desarrollar un programa que considere lo siguiente: teniendo en cuenta que las horas inferiores o iguales a 35 se pagan a una tarifa normal determinada que se debe introducir por teclado al igual que el número de horas y el nombre del trabajador. Si las horas son superiores a 35, entonces se calcula horas extras y el pago de la tarifa hora extra debe incrementarse en un 50% de la tarifa normal. Los impuestos a deducir a los trabajadores varían en función de su sueldo mensual. Si el sueldo es menor o igual a 1700, estaba libre de impuestos. Si el sueldo es superior a 1700 y menor o igual que 2500 soles, se calcula el 5% de Impuestos. Si el sueldo es superior a 2500 tiene un 7% de Impuestos.

Calcular y mostrar el sueldo neto del trabajador.

MODELO DE LA BASE DE DATOS

PROGRAMACIONProgramacion del botón Nuevo:TXTht.Clear() TXTph.Clear() TXTnom.Clear() TXTsne.Clear() TXTnom.Focus()  Programacion del botón Salir:End

Calcular sueldo neto:Dim ht, ph, sb, sne As Single  ht = Single.Parse(TXTht.Text) ph = Single.Parse(TXTph.Text)  If ht <= 35 Then sb = ht * ph ElseIf ht > 35 Then sb = (ht - 35) * ph * 1.5 + 35 * ph End If  If sb <= 1700 Then sne = sb ElseIf 1700 < sb <= 2500 Then sne = (95 / 100) * sb ElseIf sb > 2500 Then sne = (97 / 100) * sb  End If  TXTsb.Text = sb TXTsne.Text = sne

CASO PROPUESTO 3EJERCICIO 1

Desarrollar un programa que calcule la suma de los 50 primeros números naturales.

MODELO DE LA BASE DE DATOS

PROGRAMACIONProgramacion del botón Nuevo:Calcular

CASO PROPUESTO 3EJERCICIO 2

Desarrollar un programa para encontrar la suma de las potencias cuadradas de los 5 primeros números naturales.

MODELO DE LA BASE DE DATOS

PROGRAMACIONProgramacion del botón Nuevo:Calcular

CASO PROPUESTO 3EJERCICIO 3

Desarrollar un programa para hallar el resultado de:

MODELO DE LA BASE DE DATOS

PROGRAMACIONProgramacion del botón Nuevo:Calcular

CASO PROPUESTO 3EJERCICIO 4

Desarrollar un programa que permita ingresar números y calcular la cantidad de números ingresados e indicar cuantos pares y cuantos impares se ingresaron.

MODELO DE LA BASE DE DATOS

PROGRAMACIONProgramacion del botón Nuevo:Calcular

GRACIAS