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