UNIVERSIDAD TECNOLÓGICA DE

PANAMÁ
CENTRO REGIONAL UNIVERSITARIO DE AZUERO
FACULTAD DE INGENIERÍA CIVIL

PROYECTO SEMESTRAL SE PROGRAMACIÓN

INTEGRANTES
Lineth Canto
José Frías
Oliver Samaniego
Yaribeth Quiroz

DOCENTE
Marcela Boyd de Cohen
 ÍNDICE

INTRODUCCIÓN.............................................................................................................................3
DEFINICIÓN DE VARIABLES......................................................................................................4
EXPLICACIÓN.................................................................................................................................7
PROGRAMA EN EJECUCIÓN.......................................................................................................8
CONCLUSIONES...........................................................................................................................10
BIBLIOGRAFÍAS...........................................................................................................................11
 INTRODUCCIÓN

Este proyecto intenta aplicar los conceptos y principios básicos aprendidos a lo largo del
curso de Programación, utilizando la herramienta Visual Studio .NET, para desarrollar un
programa que permita colocar ciertos datos, como el nombre, salario o departamento de
trabajo de “n” trabajadores.
Visual Studio .NET es un conjunto completo de herramientas de desarrollo para la
construcción de aplicaciones Web ASP, servicios Web XML, aplicaciones para escritorio y
aplicaciones móviles. Visual Basic .NET, Visual C++ .NET, Visual C# .NET y Visual
J# .NET utilizan el mismo entorno de desarrollo integrado (IDE), que les permite compartir
herramientas y facilita la creación de soluciones en varios lenguajes. Asimismo, dichos
lenguajes aprovechan las funciones de .NET Framework, que ofrece acceso a tecnologías
clave para simplificar el desarrollo de aplicaciones Web ASP y servicios Web XM
 DEFINICIÓN DE VARIABLES
Public Class form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

Formulario2.Show()
'Me.Close()'
End Sub

Private Sub Label11_Click(sender As Object, e As EventArgs) Handles Label11.Click

End Sub
End Class

Public Class Formulario2

Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles
data1.CellContentClick

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

'Aqui se crea un boton de limpiar'
TextBox1.Text = ""
ComboBox1.Text = ("")
TextBox4.Text = ""
TextBox5.Text = ""
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

'aqui estan las definicion de variables y todo lo demas
Dim cantfilas As Integer
Dim Elija As String
Dim CALCULOr, CALCULO As Integer
CALCULO = Val(TextBox4.Text)

'aqui empieza a verificar si el chechkbox esta marcado

If CheckBox1.Checked = True Then
CALCULO = (5 * CALCULO) / 100

Dim cont, totalinge, totalinge2 As Integer

'aqui empieza a verificar que se selecciono del combo box

If ComboBox1.Text = "INGENIERIA" Then
Dim total1, total2 As Integer
Dim sumatoria As Integer = 0
sumatoria = Val(TextBox4.Text)

For Each row As DataGridViewRow In data1.Rows

sumatoria += Convert.ToInt32(row.Cells("Column6").Value)
Next

total2 = total1 + total2

 Me.data1.Rows.Add(TextBox1.Text, ComboBox1.Text, CheckBox1.Text, TextBox4.Text, CALCULO,
sumatoria)
End If

'aqui empezaria el de finanzas

If ComboBox1.Text = "FINANZAS" Then
Dim total1, total2 As Integer
Dim sumatoria As Integer = 0

Dim sumatoria2 As Integer = 0

sumatoria2 = Val(TextBox4.Text)

For Each row As DataGridViewRow In data1.Rows

sumatoria2 += Convert.ToInt32(row.Cells("Column7").Value)
Next
total2 = total1 + total2

Me.data1.Rows.Add(TextBox1.Text, ComboBox1.Text, CheckBox1.Text, TextBox4.Text, CALCULO,

sumatoria, sumatoria2)
End If

'aqui empieza el de recursos humanos

If ComboBox1.Text = "RECURSOS HUMANOS" Then
Dim total1, total2 As Integer
Dim sumatoria As Integer = 0

Dim sumatoria2 As Integer = 0

Dim sumatoria3 As Integer = 0

sumatoria3 = Val(TextBox4.Text)

For Each row As DataGridViewRow In data1.Rows

sumatoria3 += Convert.ToInt32(row.Cells("Column8").Value)
Next

total2 = total1 + total2

Me.data1.Rows.Add(TextBox1.Text, ComboBox1.Text, CheckBox1.Text, TextBox4.Text, CALCULO,

sumatoria, sumatoria2, sumatoria3)
End If

End If
'''''''''''''''''''''''''''''''''''''''''''''''''

'aqui empieza a verificar si el combobox en NO esta marcado

If CheckBox2.Checked = True Then
CALCULO = Val(TextBox5.Text)
Dim cont, totalinge, totalinge2 As Integer

If ComboBox1.Text = "INGENIERIA" Then

Dim total1, total2 As Integer
Dim sumatoria As Integer = 0
sumatoria = Val(TextBox4.Text)

For Each row As DataGridViewRow In data1.Rows

sumatoria += Convert.ToInt32(row.Cells("Column6").Value)
 Next

total2 = total1 + total2

Me.data1.Rows.Add(TextBox1.Text, ComboBox1.Text, CheckBox2.Text, TextBox4.Text,

TextBox5.Text, sumatoria)
End If

If ComboBox1.Text = "FINANZAS" Then

Dim total1, total2 As Integer
Dim sumatoria As Integer = 0

Dim sumatoria2 As Integer = 0

sumatoria2 = Val(TextBox4.Text)

For Each row As DataGridViewRow In data1.Rows

sumatoria2 += Convert.ToInt32(row.Cells("Column7").Value)
Next

total2 = total1 + total2

Me.data1.Rows.Add(TextBox1.Text, ComboBox1.Text, CheckBox2.Text, TextBox4.Text,

TextBox5.Text, sumatoria, sumatoria2)
End If

If ComboBox1.Text = "RECURSOS HUMANOS" Then

Dim total1, total2 As Integer
Dim sumatoria As Integer = 0

Dim sumatoria2 As Integer = 0

Dim sumatoria3 As Integer = 0

sumatoria3 = Val(TextBox4.Text)

For Each row As DataGridViewRow In data1.Rows

sumatoria3 += Convert.ToInt32(row.Cells("Column8").Value)
Next

total2 = total1 + total2

Me.data1.Rows.Add(TextBox1.Text, ComboBox1.Text, CheckBox2.Text, TextBox4.Text,

TextBox5.Text, sumatoria, sumatoria2, sumatoria3)
End If
End If

End Sub
End Class
 EXPLICACIÓN

Para este proyecto, empezamos haciendo una pantalla de presentación, la cual debe obtener
la siguiente información:
UNIVERSIDAD TECNOLOGICA DE PANAMA
CENTRO REGIONAL DE AZUERO
FACULTAD DE INGENIERÍA CIVIL
CARRERA
MATERIA: PROGRAMACIÓN
PROFESORA: MARQUELA BOYD DE COHEN
INTEGRANTES
FECHA

Estos datos son presentados en label, los mismos se mostrarán durante 10 segundos, para
activar esta función se accede al área de componentes, luego a la función “Timer” y se
expresa el valor requerido en milisegundos.
Pasado el tiempo se debe mostrar el siguiente formulario, para este se nos presenta un
control DATAGRIDVIEW, en este se mostrará:
A) NOMBRE DEL TRABAJADOR.
B) DEPARTAMENTO.
C) SINDICALIZADO.
D) SALARIO.
E) CUOTA SINDICAL

En donde la columna para colocar el nombre de los trabajadores debe ser una celda que
contenga CHECKBOX, para indicar si el trabajador está o no sindicalizado, en el
formulario se presentará como “Sí” y como “No” para indicarlo con un gancho.
De igual manera agregamos un salario y en dado caso que el trabajador sí este sindicalizado
se calculará el 5% de su salario.
PROGRAMA EN EJECUCIÓN
 CONCLUSIONES

El aprendizaje de la programación es un recurso importante que desarrolla habilidades las

cuales posteriormente nos podrían ser útiles en el campo laboral, este tipo de programas nos
ayudan a crear algoritmos de los cuales podemos obtener cálculos e información
rápidamente haciendo que algún tipo de trabajo asignado nos resulte más sencillo, en este
caso, por ejemplo, podemos calcular de forma rápida y sencilla el salario y cuota sindical
de cada trabajador dependiendo de su estatus (sindicalizado o no sindicalizado).
 BIBLIOGRAFÍAS
Si... Entonces... Instrucción Else - Visual Basic | Documentos de Microsoft

Contadores y Acumuladores - Programación Visual Basic. Net con Visual Studio 2013 (14-25) -
www.IncanatoIT.com - Desarrollando Software

Directorio de código del control DataGridView - Windows Forms .NET Framework | Microsoft Docs

DateAndTime.Timer (Propiedad) (Microsoft.VisualBasic) | Documentos de Microsoft