36
DISEÑO DE SISTEMAS Y BASE DE DATOS Luis Miguel Ruiz Diego Alonso Dávila Bryan Paredes Torres Fiorella Pereza Jhon Sánchez “FUNDAMENTOS DE PROGRAMACION: VISUAL BASIC”

Fundamentos de Programación Visual Basic 2010

Embed Size (px)

DESCRIPTION

Resolución de casos propuestos facilitados por el Ing. Victor Dávila y Desarrollados por el grupo de alumnos de la Universidad Privada del Norte del curso "Desarrolo de Sistemas y Bases de datos" conformado por Dávila Diego, Paredes Bryan, Perez Fiorella, Ruiz Luis y Sánchez Jhon.

Citation preview

Page 1: Fundamentos de Programación Visual Basic 2010

DISEÑO DE SISTEMAS Y BASE DE DATOS

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

“FUNDAMENTOS DE PROGRAMACION: VISUAL BASIC”

Page 2: Fundamentos de Programación Visual Basic 2010

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 .

Page 3: Fundamentos de Programación Visual Basic 2010

CASO PROPUESTO 1EJERCICIO 1

Desarrollar un programa para calcular el importe de venta de un producto, ingresar el nombre del producto, cantidad vendida y precio unitario.

Page 4: Fundamentos de Programación Visual Basic 2010

MODELO DE LA BASE DE DATOS

Page 5: Fundamentos de Programación Visual Basic 2010

PROGRAMACIONProgramación del botón Nuevo:TXTnom.Clear() TXTcanven.Clear() TXTpreuni.Clear() LBLimporte.Text = "" TXTnom.Focus()  Programación del botón retomar:Me.Close()

Programación del botón Calcular:'Declarar variables'

Dim cv, pu, imp As Single

'validar los datos' If TXTnom.Text = "" Then MsgBox("Por favor, debe ingresar el nombre del producto") TXTnom.Focus()

Exit Sub End If

If TXTcanven.Text = "" Then MsgBox("Por favor, debe ingresar la cantidad vendida") TXTcanven.Focus() Exit Sub End If

If TXTpreuni.Text = "" Then MsgBox("Por favor, debe ingresar el precio unitario") TXTpreuni.Focus() Exit Sub End If

'Asignar valores a las variables'

cv = Single.Parse(TXTcanven.Text) pu = Single.Parse(TXTpreuni.Text)

'Calcular el importe'

imp = cv * pu

'Mostrar resultado'

LBLimporte.Text = "Importe: S/." & imp.ToString("###,###.00")

Page 6: Fundamentos de Programación Visual Basic 2010

CASO PROPUESTO 1EJERCICIO 2

Desarrollar un programa que lea nombre del alumno y sus 3 notas de un curso y que muestre como resultado el promedio de las notas ingresadas.

Page 7: Fundamentos de Programación Visual Basic 2010

MODELO DE LA BASE DE DATOS

Page 8: Fundamentos de Programación Visual Basic 2010

PROGRAMACIONProgramación del botón Nuevo:TXTnom.Clear() TXTnot1.Clear() TXTnot2.Clear() Txtnot3.Clear() LBLpromedio.Text = "" TXTnom.Focus()

  Programación del botón Retomar:Me.Close()

Programación del botón Calcular:'Declarar variables'

Dim not1, not2, not3, prom As Single

'validar los datos' If TXTnom.Text = "" Then MsgBox("Por favor, debe ingresar el nombre del Alumno") TXTnom.Focus()

Exit Sub End If

If TXTnot1.Text = "" Then MsgBox("Por favor, debe ingresar la nota numero uno") TXTnot1.Focus() Exit Sub End If

If TXTnot2.Text = "" Then MsgBox("Por favor, debe ingresar la nota numero dos") TXTnot2.Focus() Exit Sub End If

If Txtnot3.Text = "" Then MsgBox("Por favor, debe ingresar la nota numero tres") Txtnot3.Focus() Exit Sub End If

'Asigar valores a las variables'

not1 = Single.Parse(TXTnot1.Text) not2 = Single.Parse(TXTnot2.Text) not3 = Single.Parse(TXTnot3.Text)

'Calcular el promedio'

prom = (not1 + not2 + not3) / 3

'Mostrar resultado'

LBLpromedio.Text = "Promedio: " & prom.ToString("00.00") 

Page 9: Fundamentos de Programación Visual Basic 2010

CASO PROPUESTO 1EJERCICIO 3

Desarrollar un programa que lea nombre del empleado y el número de horas trabajadas en un mes, así como el pago por hora del mismo y que calcule el sueldo bruto, bonificación (sueldo bruto x 12%), descuento (sueldo bruto x 10%) y sueldo neto (sueldo bruto + bonificación – descuento).

Page 10: Fundamentos de Programación Visual Basic 2010

MODELO DE LA BASE DE DATOS

Page 11: Fundamentos de Programación Visual Basic 2010

PROGRAMACION

Programación del botón Nuevo: TXTnom.Clear() TXTph.Clear() TXThtr.Clear() LBLsneto.Text = "" LBLsbruto.Text = "" LBLbon.Text = "" LBLdesc.Text = "" TXTnom.Focus() Programación del botón Salir:Me.Close()

Programación del botón Calcular:'Declarar variables'

Dim htr, ph, sbruto, sneto, bon, desc As Single

'validar los datos' If TXTnom.Text = "" Then MsgBox("Por favor, debe ingresar el nombre del empleado") TXTnom.Focus()

Exit Sub End If

If TXThtr.Text = "" Then MsgBox("Por favor, debe ingresar la cantidad de horas trabajadas") TXThtr.Focus() Exit Sub End If

If TXTph.Text = "" Then MsgBox("Por favor, debe ingresar el costo por hora") TXTph.Focus() Exit Sub End If

'Asigar valores a las variables'

htr = Single.Parse(TXThtr.Text) ph = Single.Parse(TXTph.Text)

'Calcular el sueldo bruto'

sbruto = htr * ph bon = (sbruto * 0.12) desc = (sbruto * 0.1) sneto = (sbruto + bon) - desc

'Mostrar resultado'

LBLsbruto.Text = "Sueldo Bruto: S/." & sbruto.ToString("###,###.00") LBLbon.Text = "+ Bonificacion: S/." & bon.ToString("###,###.00") LBLdesc.Text = "- Descuento: S/." & desc.ToString("###,###.00") LBLsneto.Text = "Sueldo Neto: S/." & sneto.ToString("###,###.00")

Page 12: Fundamentos de Programación Visual Basic 2010

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.

Page 13: Fundamentos de Programación Visual Basic 2010

MODELO DE LA BASE DE DATOS

Page 14: Fundamentos de Programación Visual Basic 2010

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

Programación 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 

Page 15: Fundamentos de Programación Visual Basic 2010

CASO PROPUESTO 2EJERCICIO 2

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

Page 16: Fundamentos de Programación Visual Basic 2010

MODELO DE LA BASE DE DATOS

Page 17: Fundamentos de Programación Visual Basic 2010

PROGRAMACIONProgramación del botón Nuevo:TXTn1.Clear() TXTn2.Clear() TXTdiv.Clear() TXTn1.Focus() Programación 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 

Page 18: Fundamentos de Programación Visual Basic 2010

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.

Page 19: Fundamentos de Programación Visual Basic 2010

MODELO DE LA BASE DE DATOS

Page 20: Fundamentos de Programación Visual Basic 2010

PROGRAMACIONProgramación del botón Nuevo:TXTnom.Clear()TXTcar.Clear()TXTsuel.Clear()TXTnom.Focus() Programación 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 

Page 21: Fundamentos de Programación Visual Basic 2010

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.

Page 22: Fundamentos de Programación Visual Basic 2010

MODELO DE LA BASE DE DATOS

Page 23: Fundamentos de Programación Visual Basic 2010

PROGRAMACIONProgramación del botón Nuevo:TXTht.Clear() TXTph.Clear() TXTnom.Clear() TXTsne.Clear() TXTnom.Focus()  Programación 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

Page 24: Fundamentos de Programación Visual Basic 2010

CASO PROPUESTO 3EJERCICIO 1

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

Page 25: Fundamentos de Programación Visual Basic 2010

MODELO DE LA BASE DE DATOS

Page 26: Fundamentos de Programación Visual Basic 2010

PROGRAMACIONProgramación del botón Nuevo:

txtS.Clear() txtS.Focus()

Programación del botón Calcular

'Declarar Variables Dim s, i As Integer 'Calcular s = 0 For i = 1 To 50 s = s + i Next 'Mostrar resultado txtS.Text = s

Programación del botón Salir

Me.Close()

Page 27: Fundamentos de Programación Visual Basic 2010

CASO PROPUESTO 3EJERCICIO 2

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

Page 28: Fundamentos de Programación Visual Basic 2010

MODELO DE LA BASE DE DATOS

Page 29: Fundamentos de Programación Visual Basic 2010

PROGRAMACIONProgramación del botón Nuevo:

txtS.Clear() txtS.Focus()

Programación del botón Calcular

Dim s, i As Integer 'Calcular s = 0 For i = 1 To 5 s = s + i ^ 2 Next 'Mostrar Resultado txtS.Text = s

Programación del botón Salir

Me.Close()

Page 30: Fundamentos de Programación Visual Basic 2010

CASO PROPUESTO 3EJERCICIO 3

Desarrollar un programa para hallar el resultado de:

Page 31: Fundamentos de Programación Visual Basic 2010

MODELO DE LA BASE DE DATOS

Page 32: Fundamentos de Programación Visual Basic 2010

PROGRAMACION

Programación del botón Nuevo:

txtN.Clear() txtS.Clear() txtN.Focus()

Programación del botón Calcular

'Declarar Variables Dim n, i As Integer, s As Double 'Calcular s = 0 n = Integer.Parse(txtN.Text) For i = 1 To n s = s + 1 / i Next 'Mostrar Resultado txtS.Text = s

Programación del botón Salir

Me.Close()

Private Sub txtN_KeyPress

Dim cont As Integer For i As Integer = 1 To Len(txtN.Text) If Mid(txtN.Text, i, 1) = "." Then cont = cont + 1 Next Dim cadena = "" If cont >= 1 Then cadena = "1234567890" Else cadena = "1234567890." If InStr(cadena, e.KeyChar) Then e.Handled = False ElseIf Char.IsControl(e.KeyChar) Then e.Handled = False Else e.Handled = True MsgBox("No esta permitido usar letras") End If

Page 33: Fundamentos de Programación Visual Basic 2010

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.

Page 34: Fundamentos de Programación Visual Basic 2010

MODELO DE LA BASE DE DATOS

Page 35: Fundamentos de Programación Visual Basic 2010

PROGRAMACIONProgramación del botón Nuevo:

txtc.Clear() txtcp.Clear() txtci.Clear() lstNum.Items.Clear() txtc.Focus()

Programación del botón Calcular

Dim num, c, cp, ci As Integer 'Calcular lstNum.Items.Clear() num = InputBox("Ingrese numero [0 para finalizar] : ") While num <> 0 lstNum.Items.Add(num) c = c + 1 If num Mod 2 = 0 Then cp = cp + 1 Else ci = ci + 1 End If num = InputBox("Ingrese numero [0 para finalizar] : ") End While 'Mostrar Resultado txtc.Text = c txtcp.Text = cp txtci.Text = ci

Programación del botón Salir

Me.Close()

Page 36: Fundamentos de Programación Visual Basic 2010

GRACIAS