Os x

[pic 1]

UNIVERSIDAD AUTÓNOMA DE SINALOA

ESCUELA DE INGENIERIA MAZATLAN

                 CARRERA DE INGENIERIA CIVIL

MATERIA: Laboratorio de Programación de Computadoras

PROYECTO:

Portafolio de Evidencias

Nombre del Alumno:

Karen Amalia Manzanarez Martínez

MAESTRA: Dennis Aguirre Lizárraga

Mazatlán Sinaloa, 17 de Diciembre del 2015

CALCULADORA

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim num, anterior As Long

        Dim Sumatoria As Long

        anterior = 1000

        For num = 0 To 100 Step 2

            txtSalida.Text = txtSalida.Text + Str(num) + " + "

            txtSalida.Text = txtSalida.Text + Str(Sumatoria) + " = "

            Sumatoria = Sumatoria + num

            txtSalida.Text = txtSalida.Text + Str(Sumatoria) + Chr(13) + Chr(10)

            anterior = num

        Next

        lblResultado.Text = Sumatoria

    End Sub

End Class

[pic 2]

PROYECTO FINAL

Public Class FormPrincipal

    Private Sub MaterialesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MaterialesToolStripMenuItem.Click

        lblopcion.Text = "Mantenimiento de Materiales"

        FormMateriales.Show()

        FormMateriales.MdiParent = Me

    End Sub

    Private Sub ManoDeObraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ManoDeObraToolStripMenuItem.Click

        lblopcion.Text = "Manteniemiento de Mano de Obra"

        FormManoDeObra.Show()

        FormManoDeObra.MdiParent = Me

    End Sub

    Private Sub HerramientasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HerramientasToolStripMenuItem.Click

        lblopcion.Text = "Mantenimiento de Herramientas"

        FormHerramientas.Show()

        FormHerramientas.MdiParent = Me

    End Sub

    Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click

        If (MsgBox("Esta usted seguro?", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok) Then

            Me.Close() 'opcion de salir

        End If

    End Sub

    Private Sub MantenimientoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MantenimientoToolStripMenuItem.Click

        lblopcion.Text = "Precios Unitarios Mantenimiento"

        FormPreciosUnitarios.Show()

        FormPreciosUnitarios.MdiParent = Me

    End Sub

    Private Sub MantenimientoToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MantenimientoToolStripMenuItem1.Click

        lblopcion.Text = "Precios Unitario de Mantenimiento"

    End Sub

    Private Sub RecalcularToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RecalcularToolStripMenuItem.Click

...