Aplicación Nº 12 (cotización)

Elaborar una aplicación que permita crear un objeto de la clase artículo al seleccionar “Alta” del menú Artículo y luego mostrar los artículos cargados en un cuadro combinado (Combo). Apenas el usuario seleccione un artículo se debe mostrar el precio del mismo, el interés es fijo para esta ocasión.

El diseño de la interfaz debe ser similar a la siguiente figura:

Al hacer click en el Menu de “Articulos”, y de nuevo en “Altas”, se agregaran los articulos al comboBox.

La venta a realizarse es a plazos, ello condiciona la cuota mensual a pagarse. Cuando se haga click sobre el botón Cuota mensual debe mostrarse un cuadro de diálogo con los datos propuestos:

De manera similar al hacer click sobre el botón Total nos debe mostrar la cantidad total a pagar.

Bueno pasemos al codigo del formulario.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Pedido de cotizaciones"
        Me.Label1.Text = "Articulos"
        Me.Label2.Text = "Precio en US$"
        Me.Label3.Text = "Interes"
        Me.GroupBox1.Text = "Plazo:"
        Me.RadioButton1.Text = "6 meses"
        Me.RadioButton2.Text = "12 meses"
        Me.RadioButton3.Text = "24 meses"
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.TextBox1.Text = ""
        Me.TextBox2.Text = ""
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If MessageBox.Show("Desea Salir?", "Chau", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.OK Then
            MessageBox.Show("Ha decidido salir, chau!!!", "CHAU", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Me.Close()
        Else
            MessageBox.Show("Continua en la aplicacion", "Gracias", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub

    Private Sub AltasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AltasToolStripMenuItem.Click
        Dim primerArt As String = "Televisor"
        Dim segundoArt As String = "Heladera"
        Dim tercerArt As String = "Computadora"
        Dim cuartoArt As String = "Cocina"

        Dim nuevoArticulo As New Articulo(primerArt, segundoArt, tercerArt, cuartoArt)

        Me.ComboBox1.Items.Add(nuevoArticulo.Primer)
        Me.ComboBox1.Items.Add(nuevoArticulo.Segundo)
        Me.ComboBox1.Items.Add(nuevoArticulo.Tercer)
        Me.ComboBox1.Items.Add(nuevoArticulo.Cuarto)

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        Select Case (Me.ComboBox1.SelectedIndex)
            Case 0 : Me.TextBox1.Text = 600.2 REM televisor
            Case 1 : Me.TextBox1.Text = 900.5D REM heladera
            Case 2 : Me.TextBox1.Text = 2600D REM computadora
            Case 3 : Me.TextBox1.Text = 500.2D REM cocina
        End Select

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cuotaMensual As Single
        Dim interes As Single

        If RadioButton1.Checked = True Then
            interes = Me.TextBox1.Text * 10 / 100
            cuotaMensual = (Me.TextBox1.Text + interes) / 6
            MessageBox.Show("Interes: $" & interes & "Cuota Mensual: $" & cuotaMensual, "Mensaje", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End If

        If RadioButton2.Checked = True Then
            interes = Me.TextBox1.Text * 20 / 100
            cuotaMensual = (Me.TextBox1.Text + interes) / 12
            MessageBox.Show("Interes: $" & interes & "Cuota Mensual: $" & cuotaMensual, "Mensaje", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End If

        If RadioButton3.Checked = True Then
            interes = Me.TextBox1.Text * 40 / 100
            cuotaMensual = (Me.TextBox1.Text + interes) / 24
            MessageBox.Show("Interes: $" & interes & "Cuota Mensual: $" & cuotaMensual, "Mensaje", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End If

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Me.TextBox2.Text = "10%"
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Me.TextBox2.Text = "20%"
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        Me.TextBox2.Text = "40%"
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim interes As Single
        Dim total As Single

        If RadioButton1.Checked = True Then
            interes = Me.TextBox1.Text * 10 / 100
            total = Me.TextBox1.Text + interes
            MessageBox.Show("El total es " & total, "Mensaje", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If

        If RadioButton2.Checked = True Then
            interes = Me.TextBox1.Text * 20 / 100
            total = Me.TextBox1.Text + interes
            MessageBox.Show("El total es " & total, "Mensaje", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If

        If RadioButton3.Checked = True Then
            interes = Me.TextBox1.Text * 40 / 100
            total = Me.TextBox1.Text + interes
            MessageBox.Show("El total es " & total, "Mensaje", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If

    End Sub
End Class

-----------------------------------------------------------------------------------------------------

Public Class Articulo
    Private _primerArt As String
    Private _segundoArt As String
    Private _tercerArt As String
    Private _cuartoArt As String
    Private _interesArt As Single

    Public Sub New()

    End Sub

    Public Sub New(ByVal primerArt As String, ByVal segundoArt As String, ByVal tercerArt As String, ByVal cuartoArt As String)
        Me.Primer = primerArt
        Me.Segundo = segundoArt
        Me.Tercer = tercerArt
        Me.Cuarto = cuartoArt
    End Sub

    Public Property Primer() As String
        Get
            Return _primerArt
        End Get
        Set(ByVal value As String)
            _primerArt = value
        End Set
    End Property

    Public Property Segundo() As String
        Get
            Return _segundoArt
        End Get
        Set(ByVal value As String)
            _segundoArt = value
        End Set
    End Property

    Public Property Tercer() As String
        Get
            Return _tercerArt
        End Get
        Set(ByVal value As String)
            _tercerArt = value
        End Set
    End Property

    Public Property Cuarto() As String
        Get
            Return _cuartoArt
        End Get
        Set(ByVal value As String)
            _cuartoArt = value
        End Set
    End Property
End Class

Aplicación Nº 11 (salario)

Elaborar una aplicación que permita calcular el salario neto de un trabajador en función del número de horas trabajadas, pago por hora de trabajo y un descuento fijo al sueldo bruto del 20%. Los cálculos a efectuar para obtener el salario neto de un trabajador se muestran a continuación:

SalarioBruto = HorasTrabajadas * PagoPorHora

Descuento = 0.2 * SalarioBruto

SalarioNeto = SalarioBruto – Descuento

El diseño de la interfaz debe ser similar a la figura mostrada:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = "Apellido y Nombre:"
        Label2.Text = "Horas Trabajadas:"
        Label3.Text = "Pago por Hora:"
        GroupBox1.Text = "Ingreso de Datos"
        Label4.Text = "Salario Bruto:"
        Label5.Text = "Descuento:"
        Label6.Text = "Salario Neto:"
        GroupBox2.Text = "Salia de Datos"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" Then
            Dim nombre As String
            Dim horasTrabajadas As Integer
            Dim pagoPorHora As Single

            nombre = TextBox1.Text.ToString
            horasTrabajadas = CInt(TextBox2.Text) REM horasTrabajadas = single.parse(textbox2.text)
            pagoPorHora = CSng(TextBox3.Text) REM pagoPorHora = single.parse(textbox2.text)

            Dim nuevoEmpleado As New Empleado(nombre, horasTrabajadas, pagoPorHora)

            nuevoEmpleado.Bruto()
            nuevoEmpleado.Neto()
            nuevoEmpleado.DescuentoHecho()

            Me.TextBox4.Text = nuevoEmpleado.SalarioBruto.ToString
            Me.TextBox5.Text = nuevoEmpleado.Descuento.ToString
            Me.TextBox6.Text = nuevoEmpleado.SalarioNeto.ToString

        Else
            MessageBox.Show("Por Favor ingrese los datos!", "Advertencia", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If MessageBox.Show("Desea Salir?", "Chau", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.OK Then
            MessageBox.Show("Ha decidido salir!, CHAU!!!")
            Me.Close()
        Else
            MessageBox.Show("Gracias por continuar")
        End If
    End Sub
End Class

------------------------------------------------------------------------------------------------

Public Class Empleado

    Private _nombre As String
    Private _horasTrabajadas As Single
    Private _pagoPorHora As Single
    Private _salarioBruto As Single
    Private _descuento As Single
    Private _salarioNeto As Single
    Public Sub New(ByVal nombre As String, ByVal horasTrabajadas As Single, ByVal pagoPorHora As Single)
        Me._nombre = nombre
        Me._horasTrabajadas = horasTrabajadas
        Me._pagoPorHora = pagoPorHora

    End Sub

    Public Property Nombre() As String
        Get
            Return _nombre
        End Get
        Set(ByVal value As String)
            _nombre = value
        End Set
    End Property

    Public Property HorasTrabajadas() As Single
        Get
            Return _horasTrabajadas
        End Get
        Set(ByVal value As Single)
            _horasTrabajadas = value
        End Set
    End Property

    Public Property PagoPorHora() As Single
        Get
            Return _pagoPorHora
        End Get
        Set(ByVal value As Single)
            _pagoPorHora = value
        End Set
    End Property

    Public Property SalarioBruto() As Single
        Get
            Return _salarioBruto
        End Get
        Set(ByVal value As Single)
            _salarioBruto = value
        End Set
    End Property
    Public Property Descuento() As Single
        Get
            Return _descuento
        End Get
        Set(ByVal value As Single)
            _descuento = value
        End Set
    End Property
    Public Property SalarioNeto() As Single
        Get
            Return _salarioNeto
        End Get
        Set(ByVal value As Single)
            _salarioNeto = value
        End Set
    End Property

    Public Sub Bruto()
        Me.SalarioBruto = Me._pagoPorHora * Me._horasTrabajadas
    End Sub

    Public Sub DescuentoHecho()
        Me.Descuento = CType(0.2 * Me._salarioBruto, Single)
    End Sub

    Public Sub Neto()
        Me.SalarioNeto = Me._salarioBruto - Me._descuento

    End Sub

End Class

Aplicación Nº 8 (Manejo de cadena)

Escriba una función que reciba como argumento una cadena de caracteres, la devuelva en forma inversa y ordena alfabéticamente sus letras.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cadena As String
        Dim caracter() As Char

        cadena = TextBox1.Text()

        TextBox2.Text = StrReverse(cadena)

        caracter = cadena.ToCharArray()

        For i As Integer = 1 To caracter.Length

            Array.Sort(caracter)

            TextBox3.Text = caracter

        Next

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TextBox1.Text = ""
        Me.TextBox2.Text = ""
        Me.TextBox3.Text = ""
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim respuesta As DialogResult

        respuesta = MessageBox.Show("Desea Continuar", "Seleccione una opcion", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        If (respuesta = Windows.Forms.DialogResult.No) Then
            Me.Close()
        End If
        End
    End Sub

End Class

Aplicación Nº 7 (Ingreso de datos)

Elaborar una aplicación que permita ingresar los datos de una persona, guardar los datos en una lista y mostrarlos en un ListBox, Sobrescribiendo el método ToString de la clase Persona, los atributos de esta clase son:

Nombre, Apellido, edad, Sexo (enumerado) Y los atributos Intereses que son de tipo Booleano: Cine, Deportes E Internet, utilizar un ImputBox Para el ingreso de la edad, Y un Messagebox para confirmar la operación de cancelación. Realizar Un método estatico “Limpiar” que borrará los valores de todos los controles, este método se llamara después de cargar los datos en la lista y al cancelar la operación.

Public Class Form1

    Dim persona_Nueva As Persona_ = New Persona_()

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        persona_Nueva.sexo = Persona_._sexo.Masculino
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        persona_Nueva.sexo = Persona_._sexo.Femenino
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Persona_.Limpiar()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = InputBox("Ingrese edad")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        persona_Nueva.Apellido = TextBox2.Text
        persona_Nueva.Nombre = TextBox1.Text
        If TextBox3.Text <> "" Then
            persona_Nueva.Edad = Byte.Parse(TextBox3.Text)
        End If

        persona_Nueva.Cine = CheckBox2.Checked
        persona_Nueva.Deporte = CheckBox3.Checked
        persona_Nueva.Internet = CheckBox1.Checked

        TextBox4.Text = (persona_Nueva.ToString()) 'mostar en listbox
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        persona_Nueva.Internet = CheckBox1.Checked
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        persona_Nueva.ocupacion = ComboBox1.SelectedItem.ToString
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        persona_Nueva.Cine = CheckBox2.Checked
    End Sub
End Class

--------------------------------------------------------------------------------------

Imports System.Text
Public Class Persona_

    Dim cadena As StringBuilder

    Enum _sexo
        Masculino
        Femenino
    End Enum
    Public sexo As _sexo

    Private _nombre As String
    Public Property Nombre() As String
        Get
            Return _nombre
        End Get
        Set(ByVal value As String)
            _nombre = value
        End Set
    End Property

    Private _apellido As String
    Public Property Apellido() As String
        Get
            Return _apellido
        End Get
        Set(ByVal value As String)
            _apellido = value
        End Set
    End Property

    Private _ocupacion As String
    Public Property ocupacion() As String
        Get
            Return _ocupacion
        End Get
        Set(ByVal value As String)
            _ocupacion = value
        End Set
    End Property

    Private _cine As Boolean
    Public Property Cine() As Boolean
        Get
            Return _cine
        End Get
        Set(ByVal value As Boolean)
            _cine = value
        End Set
    End Property

    Private _deporte As Boolean
    Public Property Deporte() As Boolean
        Get
            Return _deporte
        End Get
        Set(ByVal value As Boolean)
            _deporte = value
        End Set
    End Property

    Private _internet As Boolean
    Public Property Internet() As Boolean
        Get
            Return _internet
        End Get
        Set(ByVal value As Boolean)
            _internet = value
        End Set
    End Property

    Private _edad As Byte
    Public Property Edad() As Byte
        Get
            Return _edad
        End Get
        Set(ByVal value As Byte)
            _edad = value
        End Set
    End Property

    Public Shared Sub Limpiar() 'shared...metodo estatico

        Form1.TextBox1.Text = ""
        Form1.TextBox2.Text = ""
        Form1.TextBox3.Text = ""
        Form1.TextBox4.Text = ""

        Form1.RadioButton1.Checked = False
        Form1.RadioButton2.Checked = False

        Form1.CheckBox1.Checked = False
        Form1.CheckBox2.Checked = False
        Form1.CheckBox3.Checked = False

    End Sub

    Public Overrides Function ToString() As String
        Dim cadena As StringBuilder = New StringBuilder

        cadena.AppendLine("Nombre: " & Me.Nombre)
        cadena.AppendLine("Apellido: " & Me.Apellido)
        cadena.AppendLine("Ocupación: " & Me.ocupacion)
        cadena.AppendLine("Edad: " & Me.Edad)
        cadena.AppendLine("Sexo: " & Me.sexo.ToString)

        If Me.Internet = True Or Me.Cine = True Or Me.Deporte = True Then
            cadena.AppendLine("Intereses:")

            If Me.Internet = True Then
                cadena.AppendLine("Internet")
            End If
            If Me.Deporte = True Then
                cadena.AppendLine("Deporte")
            End If
            If Me.Cine = True Then
                cadena.AppendLine("Cine")
            End If

        End If

        Return cadena.ToString
    End Function

End Class

Aplicación Nº 6 (Descuento por Compra)

Un restaurante ofrece un descuento del 10% para consumos entre $ 30.00 y $ 50.00; un descuento del 20% para consumos mayores a $ 50.00; para todos los demás casos no se aplica ningún tipo de descuento. Elaborar una aplicación que permita determinar el importe a pagar por el consumidor. El diseño de la interfaz Es el Siguiente:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim _compra As Integer
        _compra = CInt(Me.TextBox3.Text)
        While _compra > 30 And _compra < 50
            Dim _descuento1 As Double
            Dim _total1 As Double
            _descuento1 = _compra * 10 / 100
            _total1 = _compra - _descuento1
            Me.TextBox2.Text = _descuento1.ToString
            Me.TextBox1.Text = _total1.ToString
        End While

        If _compra > 50 Then
            Dim _descuento2 As Double
            Dim _total2 As Double
            _descuento2 = _compra * 20 / 100
            _total2 = _compra - _descuento2
            Me.TextBox2.Text = _descuento2.ToString
            Me.TextBox1.Text = _total2.ToString
        End If
        If _compra < 30 Then
            Me.TextBox1.Text = _compra.ToString
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TextBox1.Clear()
        Me.TextBox2.Clear()
        Me.TextBox3.Clear()
    End Sub

End Class

Aplicación Nº 5 (Tabla de Multiplicar)

Escribir una aplicación que lea un número entero y mediante el boton “Calcular” muestre la tabla de multiplicar de dicho número, y que contenga un boton “limpiar” que limpie el TextBox y el ListBox. El diseño de entrada y salida debe ser similar al siguiente:

 

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim _i As Integer
        Dim _numero As Integer
        Dim _resultado As Integer
        Dim _mostrar As String
        _numero = CInt(Me.TextBox1.Text)
        For _i = 1 To 10
            _resultado = _numero * _i
            _mostrar = _numero & " * " & _i & " = " & _resultado
            Me.ListBox1.Items.Add(_mostrar)
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.TextBox1.Text = "" 'Limpia el textbox
        Me.ListBox1.Items.Clear() 'Limpia el listBox  
    End Sub

End Class

Parte 2- Ejercicios con Formularios

Aplicación Nº4 (Hola Mundo)

Elaborar una aplicación que, al ‘clickear’ el botón, muestre el mensaje: “¡¡¡Hola mundo VB Net!!!”. Para ello se deberá tener: un formulario que contenga un botón (Button) y una etiqueta (Label). El diseño será como el siguiente:

 

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button2.Text = "Salir"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = "!!!Hola Mundo VISUAL BASIC .NET!!!"
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class

Aplicación Nº 3

Diseñar la clase Cuenta que posea los siguientes atributos privados: _nombre (String) _cuenta (String) _saldo (Double) _tipoDeInteres (doble)
Dicha clase además de tener su constructor, tendrá los siguientes métodos:

• AgregarIngresos (Overridable), que acumulará la cantidad ingresada en el atributo, ‘_saldo’, siempre y cuando dicha cantidad no sea cero o negativa.
• ExtraerDinero (Overridable), que devolverá la cantidad solicitada, restándosela del saldo, siempre que se posea un saldo igual o mayor al solicitado.
• Intereses (Overridable), que retornara los intereses.
  

La clase CuentaCorriente deberá tener:

_transacciones (entero)

_importePorTrans (doble)

_transExentas (doble)

Las propiedades para _importePorTrans y _transExentas deberán:

• Al asignar valores, verificar que los mismos no sean cero o negativos.
  La sobrescritura del método 'ExtraerDinero' deberá realizar el proceso descrito en la clase base e incrementar las transacciones en 1. Del mismo modo ocurrirá con el método ‘AgregarIngresos’.

La clase CuentaAhorro poseerá solo un atributo (Shared) llamado, '_cuotaMantenimiento' que será de tipo Double.

Tendrá un método 'setter' y otro 'getter'  llamados 'AsignarCuenta' y 'ObtenerCuenta' respectivamente.

La sobrescritura del método 'ExtraerDinero'  deberá obtener el saldo y el tipo de interés y si el interés es mayor o igual a 3.5 y el saldo menos la cantidad a retirar es menor a $1500, se mostrara un mensaje informando que la cuenta no dispone de ese saldo.