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

Reporte de Análisis de sistemas

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.

Análisis de sistemas

Estrategias para el desarrollo de sistemas

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 de información surge por la necesidad de mejorar un sistema ya existente o por la necesidad de crear uno para determinada tarea.

El método de ciclo de vida para el desarrollo de sistema es el conjunto de actividades que los analistas, diseñadores y usuarios realizan para desarrollar e implantar 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

Investigación preliminar

Todo sistema comienza con la petición de una persona, la cual formula del mejoramiento o el reparo del sistema.

Esta actividad a su vez, se divide en tres:

A) Aclaración de la solicitud: donde se trata de precisar lo que el solicitante del sistema desea. Siempre, antes de seguir adelante, se debe dejar claramente planteada la solicitud.

B) Estudio de factibilidad: donde se verifica si el sistema solicitado es factible.

b.1) Técnicamente

b.2) Económicamente

b.3) Operativamente

C) Aprobación de la solicitud: no todos los proyectos son deseados o factibles. Para ellos, se realiza una escala de jerarquía de los proyectos, en cuanto a su importancia a la organización.

Una vez aprobado un proyecto, se estima su costo, tiempo necesario para terminarlo y las necesidades de personal.

Determinación de los requerimientos del  sistema

Determinación de requerimientos es el estudio de un sistema para conocer cómo trabaja y dónde es necesario efectuar mejoras.

Un requerimiento es una característica que debe incluirse en el nuevo sistema.

Actividades de la determinación de requerimientos

1) Anticipación de requerimientos: donde se prevén las características del sistema con base en la experiencia previa del analista.

2) Investigación de requerimientos: donde se estudia y documenta el sistema actual.

3) Especificación de requerimientos: donde se analizan los datos que describe el sistema, determinando que tan bueno es, que requerimiento se debe satisfacer y las estrategias para alcanzarlos.

Requerimientos básicos

Se busca respuestas a las siguientes preguntas:

¿Cuál se proceso básico de la empresa?

-Compresión del proceso.

¿Qué datos utiliza o produce este proceso?

-Identificación de datos empleados e información generada.

¿Cuáles son los límites impuestos por el tiempo y el trabajo?

-Frecuencia y volumen del proceso.

¿Qué controles de desempeño utiliza?

-Identificación de controles.

Clik aquí para descargar

Promedio de 4 números en visual basic

Public Class FrmPromedio

    Private Sub CmdIngresar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdIngresar.Click

        Dim i, num, prod As Integer

        For i = 1 To 4

            num = InputBox("Digite un numero")

            prod = num + prod

            TxtPromedio.Text = prod / 4

        Next

    End Sub

    Private Sub CmdLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdLimpiar.Click

        TxtPromedio.Clear()

    End Sub

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

        Me.Close()

    End Sub

End Class

Click aquí para descargar códigos

Click aquí para descargar programa

programa que sume los numeros pares y multiplique los Impares en Vb

Public Class Form1

    Private Sub CmdAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAceptar.Click

        Dim Numero, i, num, suma, multiplicacion As Integer

        multiplicacion = 1

        For i = 1 To 10

            Numero = InputBox("Digite un numero")

            num = Val(Numero) Mod Val(2)

            If num = 0 Then

                TxtNúmero.Text = "El número es par"

                suma = Numero + suma

                TxtNúmero1.Text = suma

            Else

                TxtNúmero2.Text = "El número es impar"

                multiplicacion = Numero * multiplicacion

                TxtNúmero3.Text = multiplicacion

            End If

        Next

    End Sub

    Private Sub CmdLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdLimpiar.Click

        TxtNúmero.Clear()

        TxtNúmero1.Clear()

        TxtNúmero2.Clear()

        TxtNúmero3.Clear()

    End Sub

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

        End

    End Sub

End Class

click aquí para descargar

Número positivo o negativo usando if en vb

Public Class Valor

    Private Sub CmdAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAceptar.Click
        Dim numero As Integer
        numero = Val(TextBox2.Text)
        If numero > 0 Then
            txtResultado.Text = "El número es positivo"
        Else
            txtResultado.Text = "El número es negativo"
        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
End Class


click aquí para descargar

Área de un triangulo rectangulo en vb

Public Class FrmArea

    Private Sub CmdCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCalcular.Click
        TxtResultado.Text = (Val(TxtBase.Text) * Val(TxtAltura.Text)) / 2
    End Sub

    Private Sub CmdLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdLimpiar.Click
        TxtBase.Clear()
        TxtAltura.Clear()
        TxtResultado.Clear()
    End Sub

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


Click aquí para descargar

Calculadora Programación II visual basic

Public Class Form1

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Me.Close()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        TxtValor1.Clear()

        TxtValor2.Clear()

        TxtResultado.Clear()

    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TxtResultado.Text = Val(TxtValor1.Text) + Val(TxtValor2.Text)

    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TxtResultado.Text = Val(TxtValor1.Text) - Val(TxtValor2.Text)

    End Sub

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

        TxtResultado.Text = Val(TxtValor1.Text) * Val(TxtValor2.Text)

    End Sub

    Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TxtResultado.Text = Val(TxtValor1.Text) / Val(TxtValor2.Text)

    End Sub

    Private Sub Button7_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        TxtResultado.Text = Val(TxtValor1.Text) ^ Val(TxtValor2.Text)

    End Sub

    Private Sub Button8_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        TxtResultado.Text = Val(TxtValor1.Text) Mod Val(TxtValor2.Text)

    End Sub

    Private Sub Button9_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        TxtResultado.Text = Val(TxtValor1.Text) * 10 ^ Val(TxtValor2.Text)

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        TxtValor1.Text = TxtResultado.Text

    End Sub

End Class


Click aquí para descargar