comandos de Linux en comparación del DOS

Los Comandos Del Linux by Cesar alex justo

Análisis estructurado

Análisis Estructurado by Cesar alex justo

Tipo de sistemas en el Banco de Rservas

Tipo de sistemas en el Banco de Rservas by Mariel Cepeda

Sistema de información que funcionan en la Cooperativa de Maestros (COOPNAMA)

Sistema de información que funcionan en la Cooperativa por Cesar alex justo y Patricia tavarez gonzalez

Nomina en visual basic

Public Class FrmNomina
    Const HoraExtra = 200
    Const HoraExtra2 = 250

    Private Sub CmdAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAceptar.Click
        If CboDescuentos.Visible = True Then
            Dim SueldoNeto As Double = Val(TxtPrecio.Text) * Val(TxtHora.Text) + Val(TxtSueldoBruto.Text)
            TxtSueldoNeto.Text = SueldoNeto
            If ChkAFP.Checked = True Then
                Dim TotalDescuento As Double = Val(TxtSueldoNeto.Text) * 0.02
                TxtAFP.Text = TotalDescuento
            End If
            If ChkARS.Checked = True Then
                Dim TotalDescuento As Double = Val(TxtSueldoNeto.Text) * 0.02
                TxtARS.Text = TotalDescuento
            End If
            If ChkPrestamo.Checked = True Then
                Dim TotalDescuento As Double = Val(TxtSueldoNeto.Text) * 0.03
                TxtPrestamo.Text = TotalDescuento
            End If
            TxtTotalDescuento.Text = Val(TxtAFP.Text) + Val(TxtARS.Text) + Val(TxtPrestamo.Text)
        End If
    End Sub
    Private Sub RdoDia_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdoDia.CheckedChanged
        Dim PrecioHora As Double = HoraExtra
        TxtPrecio.Text = PrecioHora
    End Sub

    Private Sub RdoNoche_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdoNoche.CheckedChanged
        Dim PrecioHora2 As Double = HoraExtra2
        TxtPrecio.Text = PrecioHora2
    End Sub

    Private Sub ChkAFP_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChkAFP.CheckedChanged
        If ChkAFP.Checked = True Then
            Dim totaldescuento As Double = Val(TxtSueldoNeto.Text) * 0.02
            TxtAFP.Text = totaldescuento
            TxtTotalDescuento.Text = Val(TxtAFP.Text) + Val(TxtARS.Text) + Val(TxtPrestamo.Text)
        Else
            TxtAFP.Text = "0.00"
            TxtTotalDescuento.Text = Val(TxtARS.Text) + Val(TxtPrestamo.Text)
        End If
    End Sub

    Private Sub ChkARS_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChkARS.CheckedChanged
        If ChkARS.Checked = True Then
            Dim totaldescuento As Double = Val(TxtSueldoNeto.Text) * 0.02
            TxtARS.Text = totaldescuento
            TxtTotalDescuento.Text = Val(TxtAFP.Text) + Val(TxtARS.Text) + Val(TxtPrestamo.Text)
        Else
            TxtARS.Text = "0.00"
            TxtTotalDescuento.Text = Val(TxtAFP.Text) + Val(TxtPrestamo.Text)
        End If
    End Sub

    Private Sub ChkPrestamo_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChkPrestamo.CheckedChanged
        If ChkPrestamo.Checked = True Then
            Dim totaldescuento As Double = Val(TxtSueldoNeto.Text) * 0.03
            TxtPrestamo.Text = totaldescuento
            TxtTotalDescuento.Text = Val(TxtAFP.Text) + Val(TxtARS.Text) + Val(TxtPrestamo.Text)
        Else
            TxtPrestamo.Text = "0.00"
            TxtTotalDescuento.Text = Val(TxtAFP.Text) + Val(TxtARS.Text)
        End If
    End Sub

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

    Private Sub CmdLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdLimpiar.Click
        TxtSueldoBruto.Clear()
        TxtHora.Clear()
        TxtPrecio.Clear()
        TxtAFP.Clear()
        TxtARS.Clear()
        TxtPrestamo.Clear()
        TxtTotalDescuento.Clear()
        TxtSueldoNeto.Clear()
    End Sub
End Class

Clik aquí para descargar

Modelo entidad relación

Modelo entidad relación by Cesar alex justo