Top Ad unit 728 × 90

Recientes

recent

Procedimientos y Funciones II - Programación en Visual Basic Net con Visual Studio 2013 (22-25)

En este artículo revisaremos conceptos de programación orientada a objetos, detallaremos el uso de clases como plantilla para la creación de objetos de datos según un modelo predefinido. Implementaremos un ejemplo completo de clases y objetos utilizando el IDE Visual Studio 2013.

Puedes ver todos los vídeos directamente en youtube:

Visita nuestro canal en youtube y revisa cursos de Desarrollo de software y aprende a diseñar sistemas informáticos totalmente gratis:

Procedimientos y Funciones

Problema 19:

Diseñar y programar una aplicación que permita gestionar los retiros y depósitos de la cuenta bancaria de un cliente.
Se debe primero ingresar los datos del cliente y cuál es el monto de apertura de la cuenta de ahorros.
El cliente puede realizar "n" depósitos, almacenándolos en su cuenta de ahorros.
El cliente puede realizar "n" retiros, pero siempre que se realiza el retiro se debe de tener en cuenta inicialmente que el monto de retiro sea menor al dinero almacenado en la cuenta de ahorros.
Se debe de mostrar el historial de depósitos y retiros.

Formulario:


Public Class FrmGestionAhorros

    Private Sub FrmGestionAhorros_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Llamamos al método para desactivar los controles específicos
        desactivarControles()
    End Sub
    Private monto As Double

Codigo btnAbrir

    Private Sub btnAbrir_Click(sender As Object, e As EventArgs) Handles btnAbrir.Click
        Dim cliente As String
        cliente = txtCliente.Text
        'Leemos el monto a depositar
        monto = Val(txtMonto.Text)
        If (monto >= 0) Then
            'Activamos los controles si el monto de depósito es correcto
            activarControles()
        Else
            'Mostramos un mensaje de error si el monto inicial es cero o negativo
            MessageBox.Show("El monto debe ser mayor a cero", "Gestión de Ahorros", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If

    End Sub
    Private Sub activarControles()
        'Procedimiento que permite activar los controles
        txtCliente.Enabled = False
        txtMonto.Enabled = False
        btnAbrir.Enabled = False
        btnRetiro.Enabled = True
        btnDeposito.Enabled = True
    End Sub
          
    Private Sub desactivarControles()
        'Procedimiento que permite desactivar los controles
        txtCliente.Enabled = True
        txtMonto.Enabled = True
        btnAbrir.Enabled = True

        btnRetiro.Enabled = False
        btnDeposito.Enabled = False
    End Sub

    Private Function leer(mensaje As String) As Double
        'Leemos la cantidad a retirar o depositar con un InputBox
        Dim cantidad As String
        cantidad = Val(InputBox("Ingrese monto a " + mensaje, "Gestión de Ahorros", "0", 100, 0))
        Return cantidad
    End Function

    Private Sub mostrar()
        'procedimiento que permite mostrar el monto actual
        txtSaldo.Text = monto
    End Sub

Codigo btnDeposito

    Private Sub btnDeposito_Click(sender As Object, e As EventArgs) Handles btnDeposito.Click
        Dim deposito As Double
        'Llamamos a la función leer y le enviamos como cadena la palabra "Depositar"
        deposito = leer("depositar")
        monto = monto + deposito
        lstDepositos.Items.Add(deposito)
        mostrar()
    End Sub

Codigo btnRetiro

    Private Sub btnRetiro_Click(sender As Object, e As EventArgs) Handles btnRetiro.Click
        Dim retiro As Double
        'Llamamos a la función leer y le enviamos como cadena la palabra "Depositar"
        retiro = leer("retirar")
        'Si la cantidad a retirar es mayor al monto actual mostramos un error
        If (retiro <= monto) Then
            monto = monto - retiro
            lstRetiros.Items.Add(retiro)
            mostrar()
        Else
            MessageBox.Show("El cantidad a retirar excede el saldo", "Gestión de Ahorros", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If

    End Sub

Código del btnNuevo

    Private Sub btnNuevo_Click(sender As Object, e As EventArgs) Handles btnNuevo.Click
        desactivarControles()
        lstDepositos.Items.Clear()
        lstRetiros.Items.Clear()
        txtMonto.Clear()
        txtCliente.Clear()
        txtSaldo.Clear()
    End Sub
End Class

Procedimientos y Funciones II (22-25) Programación en Visual Basic Net con Visual Studio 2013


Saludos Imperio, un abrazo a la distancia.
Procedimientos y Funciones II - Programación en Visual Basic Net con Visual Studio 2013 (22-25) Reviewed by Liliana Nataly Arcila Diaz on 11:27 Rating: 5

No hay comentarios:

All Rights Reserved by www.IncanatoIT.com - Desarrollando Software © 2014 - 2015
Powered By Blogger, Designed by Sweetheme

Formulario de contacto

Nombre

Correo electrónico *

Mensaje *

IncanatoIt.com. Con la tecnología de Blogger.