Fundamentos de Programación Visual Basic 2010
Descargar como PPTX, PDF7 recomendaciones6,395 vistas
El documento describe el desarrollo de diversos programas en Visual Basic orientados a la creación y gestión de bases de datos, abordando problemas prácticos como el cálculo de importes de venta, promedios de notas y sueldos de empleados. Se presentan ejercicios que van desde simples cálculos matemáticos hasta el manejo de condiciones y validaciones de datos para mejorar la interacción del usuario. El objetivo general es familiarizar a los estudiantes con el diseño y operación de bases de datos a través de la programación práctica.
![PROGRAMACION
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 Nuevo:
txtc.Clear()
txtcp.Clear()
txtci.Clear()
lstNum.Items.Clear()
txtc.Focus()
Programación del botón Salir
Me.Close()](https://image.slidesharecdn.com/bd-131030201156-phpapp01/85/Fundamentos-de-Programacion-Visual-Basic-2010-35-320.jpg)
Fundamentos de Programación Visual Basic 2010
- 1. “FUNDAMENTOS DE PROGRAMACION: VISUAL BASIC” DISEÑO DE SISTEMAS Y BASE DE DATOS Luis Miguel Ruiz Diego Alonso Dávila Bryan Paredes Torres Fiorella Pereza Jhon Sánchez
- 2. 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 .
- 3. CASO PROPUESTO 1 EJERCICIO 1 Desarrollar un programa para calcular el importe de venta de un producto, ingresar el nombre del producto, cantidad vendida y precio unitario.
- 4. MODELO DE LA BASE DE DATOS
- 5. PROGRAMACION 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") Programación del botón Nuevo: TXTnom.Clear() TXTcanven.Clear() TXTpreuni.Clear() LBLimporte.Text = "" TXTnom.Focus() Programación del botón retomar: Me.Close()
- 6. CASO PROPUESTO 1 EJERCICIO 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.
- 7. MODELO DE LA BASE DE DATOS
- 8. PROGRAMACION 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") Programació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()
- 9. CASO PROPUESTO 1 EJERCICIO 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).
- 10. MODELO DE LA BASE DE DATOS
- 11. PROGRAMACION 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) Programación del botón Nuevo: TXTnom.Clear() TXTph.Clear() TXThtr.Clear() LBLsneto.Text = "" LBLsbruto.Text = "" LBLbon.Text = "" LBLdesc.Text = "" TXTnom.Focus() '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") Programación del botón Salir: Me.Close()
- 12. CASO PROPUESTO 2 EJERCICIO 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.
- 13. MODELO DE LA BASE DE DATOS
- 14. PROGRAMACION 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 Programació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
- 15. CASO PROPUESTO 2 EJERCICIO 2 Desarrollar un programa que lea 2 Números y muestre la división entre ellos.
- 16. MODELO DE LA BASE DE DATOS
- 17. PROGRAMACION 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 Programación del botón Nuevo: TXTn1.Clear() TXTn2.Clear() TXTdiv.Clear() TXTn1.Focus() Programación del botón Salir: End
- 18. CASO PROPUESTO 2 EJERCICIO 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.
- 19. MODELO DE LA BASE DE DATOS
- 20. PROGRAMACION 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 Programación del botón Nuevo: TXTnom.Clear() TXTcar.Clear() TXTsuel.Clear() TXTnom.Focus() Programación del botón Salir: End
- 21. CASO PROPUESTO 2 EJERCICIO 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.
- 22. MODELO DE LA BASE DE DATOS
- 23. PROGRAMACION 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 Programación del botón Nuevo: TXTht.Clear() TXTph.Clear() TXTnom.Clear() TXTsne.Clear() TXTnom.Focus() Programación del botón Salir: End
- 24. CASO PROPUESTO 3 EJERCICIO 1 Desarrollar un programa que calcule la suma de los 50 primeros números naturales.
- 25. MODELO DE LA BASE DE DATOS
- 26. PROGRAMACION 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 Nuevo: txtS.Clear() txtS.Focus() Programación del botón Salir Me.Close()
- 27. CASO PROPUESTO 3 EJERCICIO 2 Desarrollar un programa para encontrar la suma de las potencias cuadradas de los 5 primeros números naturales.
- 28. MODELO DE LA BASE DE DATOS
- 29. PROGRAMACION 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 Nuevo: txtS.Clear() txtS.Focus() Programación del botón Salir Me.Close()
- 30. CASO PROPUESTO 3 EJERCICIO 3 Desarrollar un programa para hallar el resultado de:
- 31. MODELO DE LA BASE DE DATOS
- 32. PROGRAMACION 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 Nuevo: txtN.Clear() txtS.Clear() txtN.Focus() 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
- 33. CASO PROPUESTO 3 EJERCICIO 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.
- 34. MODELO DE LA BASE DE DATOS
- 35. PROGRAMACION 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 Nuevo: txtc.Clear() txtcp.Clear() txtci.Clear() lstNum.Items.Clear() txtc.Focus() Programación del botón Salir Me.Close()
- 36. GRACIAS