#vb.net - Calcular Horas Trabajadas

' Programa y fuente 100% libre para su uso con licencia "Reconocimiento 4.0 Internacional". Web: https://creativecommons.org/licenses/by/4.0/
' Muchos mas ejemplos en nuestra pagina buscanos en google como A.K.Freeman o AKF-GO
' Autor: A.K.Freeman

Public Class Form1

    'Proceso que realizara el limpiado de los textbox
    Sub Limpiar()
        Me.TxtNombre.Text = ""
        Me.TxtHT.Text = ""
        Me.TxtHE.Text = ""
        Me.TxtPH.Text = ""
        Me.TxtPHE.Text = ""
        Me.TxtxHora.Text = ""
        Me.TxtxHoraExtra.Text = ""
        Me.TxtSubTotal.Text = ""
        Me.TxtDescuento.Text = ""
        Me.TxtaPagar.Text = ""
    End Sub

    'Evento al iniciar la ventana
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Try para evitar errores en la compilacion.
        Try
            'Se define el icono de la ventana
            Me.Icon = New System.Drawing.Icon(Application.StartupPath & "\folder_blue.ico")
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#1'")
        End Try

    End Sub

    'Evento al hacer clic en la opcion calcular
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCalcular.Click
        'Try para evitar errores en la compilacion.
        Try
            'Condicion: Si alguno de los textbox se encuentra vacio
            If Me.TxtNombre.Text = "" Or Me.TxtHT.Text = "" Or Me.TxtHE.Text = "" Or Me.TxtPH.Text = "" Or Me.TxtPHE.Text = "" Then
                'Se mostrara el mensaje
                MsgBox("Faltan ingresar datos ...")
                'Condicion: Caso contario
            Else
                'Se declara una constante Descuento
                Const Descuento = 10
                'Se declaran variables
                Dim Txt1, Txt2, Txt3, TxtDes, TxtTot As Single
                'Se indica el total por horas normales
                Txt1 = Me.TxtHT.Text * Me.TxtPH.Text
                'Se indica el total por horas extra trabajadas
                Txt2 = Me.TxtHE.Text * Me.TxtPHE.Text
                'Se indica el Sub total
                Txt3 = Txt1 + Txt2
                'Se indica los descuentos
                TxtDes = Txt3 * Descuento / 100
                'Se indica el total a pagar
                TxtTot = Txt3 - TxtDes

                'Se asigna el nombre a quien se pagara
                Me.GbxNombre.Text = "Sr(a). " & Me.TxtNombre.Text
                'Se asignan las horas normales
                Me.TxtxHora.Text = Txt1
                'Se asignan las horas extra
                Me.TxtxHoraExtra.Text = Txt2
                'Se agina el subtotal
                Me.TxtSubTotal.Text = Txt3
                'Se asigna descuento calculado
                Me.TxtDescuento.Text = TxtDes
                'Se asignan el total a pagar
                Me.TxtaPagar.Text = TxtTot

            End If
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#2'")
        End Try

    End Sub

    'Evento al hacer clic en la opcion nuevo
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNuevo.Click
        'Try para evitar errores en la compilacion.
        Try
            'Se hace la llamada al proceso para limpiar los textbox
            Call Limpiar()
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#3'")
        End Try
    End Sub

    'Evento al hacer clic en la opcion salir
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalir.Click
        'Try para evitar errores en la compilacion.
        Try
            'Se indica cerrar la ventana
            Me.Close()
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#4'")
        End Try
    End Sub



End Class