Reporte de Practica de programación visual
Descargar como DOCX, PDF0 recomendaciones18 vistas
Este documento describe un proyecto de programación visual para crear una aplicación bancaria utilizando Visual Basic 2010. Explica cómo crear dos formularios para ingresar las credenciales del usuario y realizar operaciones bancarias como depósitos, retiros y consultas de saldo. También incluye el código para validar el inicio de sesión y realizar las diferentes funciones bancarias. El objetivo final era desarrollar una solución bancaria en línea para el Grupo Financiero Banorte basada en web services de Microsoft .NET.
Reporte de Practica de programación visual
- 1. TECNOLOGICO NACIONAL DE MEXICO Instituto tecnológico de matamoros Departamento de ingeniería eléctrica y electrónica Ingeniería Electrónica Programación Visual Periodo:Enero-Junio 2017 Hora: 10:00 a 11:00 am Nombre de alumno: numero de control: Santiago Pablo Alberto 15260144 Aula: S8 Lunes y Martes S9 Miércoles, jueves y Viernes Maestra: Paula Rangel Oropeza Grado: 4° grupo: A H. MATAMOROS,TAM.
- 2. Contenido Introducción………………………………………………………………..Pág. 3 Desarrollo…………………………………………………………………..Pág. 4 Form1………………………………………………………………………………Pág. 9 Código 1…………………………………………………………………………...Pág. 10 Form2…………………………………………..................................................Pág. 11 Código 2……………………………………………………………………………Pág. 12 Conclusión…………………………………………………………………………Pág. 14
- 3. Introducción Grupo Financiero Banorte, visualizando el gran potencial que tiene el servicio de banca por Internet en México, buscaba una solución competitiva en servicios financieros en línea orientada a sus clientes, que evolucionara la solución con la que ya operaban. “Banorte por Internet”, la actual solución de Grupo Financiero Banorte, está construida bajo la plataforma .NET de Microsoft Visual Basic 2010 basada totalmente en Web Services. Grupo Financiero Banorte fue fundado como Banco Mercantil en 1899. Consolidado como un Grupo Financiero en 1993, Banorte se establece, actualmente, comoun banco mexicano de vanguardia, que ha demostrado su capacidad de desarrollo y expansión, así como su preocupación en una innovación tecnológica permanente. Su misión es el de satisfacer las necesidades financieras de sus clientes a través de un servicio personalizado de alta calidad, preservar la integridad y calidad de todas sus operaciones, así como incrementar los niveles de rendimiento que servirán de respaldo a los depositantes, a los accionistas y como base de reinversión para el grupo.
- 4. Desarrollo Lo primero que vamos a hacer y que solo por esta vez les voy a enseñar es entrar al visual studio 2010 como se muestra en la siguiente imagen. Al entrar vamos a dar click en nuevo proyecto. ok, luego de eso seleccionamos la opción windows form de visual basic. ok, luego de lo anterior les aparecerá el área de trabajo de visual basic, a su lado izquierdo verán la caja de herramientas o “toolbox” en ingles, que es donde se encuentran todos los instrumentos que se utilizan en visual para crear lo que es la interfaz gráfica de un programa
- 5. Muy bien, si ven las imágenes un poco pequeñas pueden dar click sobre ellas y les aparecerán un poco más grandes Luego vamos a irnos a la form1 las propiedades para cambiarle el nombre al formulario, en este caso le vamos a poner Crear el número de usuario y el NIP utilizando en TextBox, Button, PictureBox y Timer
- 6. AHORA SI, vamos a entrar a lo que es programación de la Form1, para poder escribir código y hacer que nuestra contraseña sea funcional, vamos al botón 1 y botón 2 le damos doble click, y se nos mostrara lo siguiente. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End Sub End Class Y en imagen se muestra de la siguiente manera,
- 7. Para obtener a la form2 vamos a ir a Project damos un click a la Add New Items Luego vamos a irnos a la form2 con las propiedades para cambiarle el nombre al formulario, en este caso le vamos a poner Crear el depósito, retiro, consultar saldo y comprar el tiempo aire utilizando en Button, Label y PictureBox AHORA SI, vamos a entrar a lo que es programación de la Form2, para poder escribir código y hacer que nuestro banco mercantil sea funcional, vamos al botón Retiro, botón deposito, botón consultar saldo, botón comprar el tiempo aire y botón salir le damos doble click, y se nos mostrara lo siguiente.
- 8. Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Salir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salir.Click End Sub Private Sub Retiro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Retiro.Click End Sub Private Sub consultareltiempoaire_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles consultareltiempoaire.Click End Sub Private Sub ConsultarSaldo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConsultarSaldo.Click End Sub Private Sub Deposito_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Deposito.Click End Sub Y en imagen se muestra de la siguiente manera.
- 9. Form1
- 10. Código 1 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim num1 As Double Dim nip As Double num1 = 15260144 nip = 1243 If num1 = Val(TextBox1.Text) And nip = Val(TextBox2.Text) Then MessageBox.Show("Su Contraseña es Correcta", "Bienvenido") Form2.Show() Hide() End If If num1 <> Val(TextBox1.Text) And nip <> Val(TextBox2.Text) Then MessageBox.Show("Contraseña Incorrecta") End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class
- 11. Form2
- 12. Código 2 Public Class Form2 Dim incremento As Double Dim deposito As Double Dim decremento As Double Dim recargar As Double Dim num1, num2 As Double Dim tiempo As Double Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load incremento = 1000 Timer1.Enabled = True tiempo = 60 End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click End End Sub Private Sub Retiro123_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Retiro123.Click decremento = InputBox("Introduzcan el monton de retirar", "retirar", "cantidad") If decremento < incremento Then incremento = incremento - decremento MessageBox.Show("la operacion se realizo con exito") End If If decremento > incremento Then MessageBox.Show("la operacion no se puede realizar") End If tiempo = 60 End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click num1 = InputBox("introduzca el numero de movil", "recarga", "numero") num2 = InputBox("confimar el numero movil", "confirmacion", "numero") If num1 = num2 Then recargar = InputBox("introduzcan la cantidad de recarga", "recargar", "cantidad") incremento = incremento - recargar MessageBox.Show("la operacion se realizo con exito") End If If num1 <> num2 Then MessageBox.Show("los numeros no coiciden", "error", MessageBoxButtons.OK, MessageBoxIcon.Error) End If tiempo = 60 End Sub Private Sub ConsultarSaldo1244_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConsultarSaldo1244.Click MessageBox.Show("su saldo es de" & incremento)
- 13. End Sub Private Sub Depositar12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Depositar12.Click deposito = InputBox("Introduzcan el monton de depositar", "Retirar", "cantidad") incremento = incremento + deposito MessageBox.Show("la operacion se realizo por exito") tiempo = 60 End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim tiempo As Integer tiempo = tiempo - 1 If tiempo = 60 Then Me.Close() Form1.Show() End If End Sub End Class
- 14. Conclusión Una solución basada totalmente en Web Services, construidos en .NET, que a su vez son consumidos por una capa de presentación al cliente desarrollada en ASP.NET. La solución se acceso a través de MQSeries, servicios que radican en el Equipo Central OS/390 como lo son: cheques,inversiones, entre otros. Microsoft SQLServer fue utilizado para almacenar información como: catálogos, horarios, calendarización, etc. BESARMA identificó en la plataforma .NET de Microsoft un portafolio de productos que cumplían con los requisitos para cubrir las necesidades de la empresa, con la finalidad de generar una solución con las características necesarias para atender a sus clientes.