• que

miércoles, 17 de abril de 2013

Posted by Unknown
No comments | 22:04
Posted by Unknown
1 comment | 19:52

viernes, 12 de abril de 2013

miércoles, 10 de abril de 2013

Posted by Unknown
No comments | 20:09

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



sábado, 6 de abril de 2013

Posted by Unknown
No comments | 17:12
Modelo entidad relación by Cesar alex justo

sábado, 30 de marzo de 2013

Posted by Unknown
No comments | 11:23

Para una organización instalar un sistema tiene que tener en cuenta cuales son los problemas que quiere solucionar, que sistema se ajusta a su organización, que es lo que necesita en realidad entre otras cualidades para así saber sistema necesita y como se ajusta a su organización.

Existen tres enfoques para el desarrollo de  Sistema de Información:

A) Método del Ciclo de Vida para el desarrollo de sistema.
B) Método del Prototipo de sistema.
C) Método del desarrollo del Análisis.

Ciclo de vida para el desarrollo de sistema

El desarrollo de un sistema surge por las necesidades que hay en una organización para determinadas funciones o tareas que haiga en esa organización.

El ciclo de vida de un sistema de información es un enfoque por fases del análisis y diseño que sostiene que los sistemas son desarrollados de mejor manera mediante el uso de un ciclo especifico de actividades del analista y del usuario.

El método para desarrolla un sistema es conjunto de la actividad del analista, diseñador y usuario para llevar a cabo la realización de un sistema de información.

El método del ciclo de vida esta compuesto por seis actividades

I.         Investigación preliminar.
II.        Determinación de los requerimientos del  sistema.
III.      Diseño del sistema.
IV.       Desarrollo del software.
V.        Prueba de los sistemas.
VI.       Implantación y Evaluación

Cada una de estas actividades tiene una función en la cual participan para llevar a cabo la finalidad de un sistema en donde se toma en cuenta los requerimientos de la personas para crear un sistema el cual se aplicable para el problema que dicha organización quiera solucionar como por ejemplo: como va a trabajar, donde va a efectuar la mejora, como cuales porcentaje va a generar entre otras funciones.

Para el sistema ser crear primero tiene que pasar por la investigación preliminar que es donde comienza con la petición de una persona, la cual formula del mejoramiento o el reparo del sistema después tiene que pasar por una serie de paso como el diseño del sistema, por pruebas y  mantenimiento del sistema, etc. hasta el final que el sistema llega a ser creado y lo pongan en funcionamiento.

Con este material me interese demasiado por que atraves de el aprendí los procedimiento por el cual un sistema de información tiene que pasar antes de poner en funcionamiento y que este es muy interesante por nos ayudad a mejorar nuestro intelecto satisfactoriamente.