DESARROLLO DE SOFTWARE VIII
UNIVERSIDAD TECNOLÓGICA PANAMÁ
FACULTAD DE INGENIERÍA DE SISTEMAS COMPUTACIONALES
DEPARTAMENTO DE PROGRAMACIÓN DE COMPUTADORAS
LICENCIATURA EN DESARROLLO Y GESTIÓN DE SOFTWARE
Laboratorio #3
Indicaciones:
1. Actividad individual
2. Lea cada enunciado que aparece en este documento.
3. Luego de ver los enunciados, Crear un documento que muestre el desarrollo de cada programa utilizando la opción de programación con
formularios, debe incluir el código, comentarios y la captura de formulario(diseño) y de la ejecución de los programas. Recuerda entregar
a tiempo para la previa evaluación.
4. Para cada programa deberán colocarle el nombre del autor (el nombre de ustedes, en la parte inferior del formulario)
Puedes entregar en cualquier formato, usa tu creatividad...
Criterios a evaluar
CRITERIOS 30 puntos 10 puntos 0 puntos
ORGANIZACIÓN Y Presenta todos los elementos Presenta algunos elementos No Presenta ninguno de los elementos
COHERENCIA EN EL lógicamente vinculados y lógicamente vinculados y lógicamente vinculados y estructurados
CÓDIGO DE estructurados mostrando interconexiones estructurados mostrando mostrando interconexiones con el referente
PROGRAMACIÓN con el referente teórico - practico interconexiones con el referente teórico - practico desarrollado.
desarrollado. teórico - practico desarrollado.
10 puntos 5 puntos 0 puntos
ORDEN DE LOS La progresión de los programas tiene un La progresión de los programas tiene No presenta el orden de los programas.
PROGRAMAS orden lógico y completa. poco orden lógico y no está completa.
CAPTURA DE Presenta todas las capturas de diseño y Presenta algunas de las capturas de No Presenta las capturas de diseño y ejecución
EJECUCIÓN Y DISEÑO ejecución del programa. diseño y ejecución del programa. del programa.
USO DE COMENTARIOS Cumple con la colocación de comentarios Presenta los comentarios dentro del No cumple con la colocación de comentarios
dentro del desarrollo de cada programa. desarrollo de cada programa, pero dentro del desarrollo de cada programa.
de manera incompleta.
PUNTUALIDAD Cumple con la entrega de su asignación de Cumple con la entrega de su Cumple con la entrega de su asignación, fuera la
acuerdo al día señalada. asignación, pero no el día señalado. fecha señalada.
Total 60 puntos
Código y ejemplos de captura (opcional, use su creatividad)
1- Crea un Programa que Liste los años a través de un listbox e imprima al seleccionar
el año si la persona es menor o mayor de edad.
Public Class Form1
Dim valor As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles
[Link]
For i = 1995 To 2023 'Ciclo for para asignación de números
[Link](i) 'Adicionar al label1
Next
[Link]() 'Oculta el label y el .show muestra
End Sub
Private Sub btnsalir_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link]() 'cerrar ventana
End Sub
Private Sub btncalcular_Click(sender As Object, e As EventArgs) Handles
[Link]
If [Link] <> -1 Then 'Comprueba que el listbox esté
seleccionado.
valor = [Link]()
If valor <= 2006 Then 'sentencia if
[Link] = "Eres mayor de edad." 'Mensaje
Else
[Link] = "Eres menor de edad."
End If
[Link]() 'Muestra el resultado
Else
MsgBox("No ha seleccionado un año.")
Return 'Retorna
End If
End Sub
End Class
2- Crea un programa que contenga tres listBox con números, y al seleccionar un
numero de cada listbox, imprima cual número es menor, mayor o si hay iguales.
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles
[Link]
[Link] = "" 'Dejar los label vacios
[Link] = ""
[Link] = ""
For i = -30 To 30 'Adicionar números al listbox
[Link](i)
Next
For i = -30 To 30
[Link](i)
Next
For i = -30 To 30
[Link](i)
Next
[Link] = "Programa que determina a travéz de 3 listbox que número
es mayor, menor o igual."
End Sub
Private Sub Btn_Salir(sender As Object, e As EventArgs) Handles
Btn_Salir.Click
[Link]() 'Cierre de programa
End Sub
Private Sub Btn_iniciar (sender As Object, e As EventArgs) Handles
Btn_iniciar.Click
[Link] = "" 'Dejar los label vacios
[Link] = ""
[Link] = ""
If [Link] <> -1 Then 'Comprueba que el listbox esté
seleccionado.
Else
MsgBox("Seleccione un dato en la Lista 1.")
Return 'Retorna
End If
If [Link] <> -1 Then 'Comprueba que el listbox esté
seleccionado.
Else
MsgBox("Seleccione un dato en la Lista 2.")
Return 'Retorna
End If
If [Link] <> -1 Then 'Comprueba que el listbox esté
seleccionado.
Else
MsgBox("Seleccione un dato en la Lista 3.")
Return 'Retorna
End If
Dim num1, num2, num3 As Integer 'Declaracion de variable
num1 = [Link]() 'enviar valor
num2 = [Link]()
num3 = [Link]()
'Operaciones matematicas y muestra de resultado
If num1 > num2 AndAlso num1 > num3 Then
[Link] = "El número " & num1 & " es el mayor."
ElseIf num2 > num1 AndAlso num2 > num3 Then
[Link] = "El número " & num2 & " es el mayor."
ElseIf num3 > num1 AndAlso num3 > num2 Then
[Link] = "El número " & num3 & " es el mayor."
Else
[Link] = "Hay dos o más números iguales."
End If
If num1 < num2 AndAlso num1 < num3 Then
[Link] = "El número " & num1 & " es el menor."
ElseIf num2 < num1 AndAlso num2 < num3 Then
[Link] = "El número " & num2 & " es el menor."
ElseIf num3 < num1 AndAlso num3 < num2 Then
[Link] = "El número " & num3 & " es el menor."
Else
[Link] = "Hay dos o más números iguales."
End If
End Sub
End Class
Programa #3: Crear programa que lea 10 nombres a través de un textbox y
los agregue en un listbox
Programa #4: Crear un programa que agregue 4 nombres en un listbox y
Luego seleccione a través de un radiobutton el sexo, e imprima el nombre y el
sexo elegido
Programa #5: Crear un programa con 5 RadioButtom con el nombre de 5
series y envié un mensaje con la opción seleccionada.
Public Class Form1
Private Sub Salir_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link]() 'Salir de la pantalla
End Sub
Private Sub Button_continuar_Click(sender As Object, e As EventArgs)
Handles Button_continuar.Click
'Tener un texto delcarado
Dim info As String = " Serie seleccionada:"
'Segun la selección mostrará el texto info y concadena el nombre de la
serie
If RadioButton_angrybirds.Checked = True Then
MsgBox(info + " Angry birds") 'Muestra de mensaje
End If
If RadioButton_got.Checked = True Then
MsgBox(info + " Game Of Thrones")
End If
If RadioButton_horadeaventura.Checked = True Then
MsgBox(info + " Hora de aventura")
End If
If RadioButton_lossimpson.Checked = True Then
MsgBox(info + " Los Simpson")
End If
If RadioButton_peaky.Checked = True Then
MsgBox(info + " Peaky Blinders")
End If
End Sub
End Class
Programa #6: Hacer un programa que permita ingresar los datos personales
de los trabajadores y los días trabajados y permita calcular sus ingresos,
bonificación y el pago total de acuerdo a lo siguiente:
Pagos diarios según del total de ingresos
categoría:
Maestro B/. 150.00
Operario B/. 95.00
Peón B/. 75.00
Bonificación:
Estable: 20%
Contratado: 10% del total de ingresos.
Ver el siguiente ejemplo de diseño
Programa #7:
Crear un programa que seleccione las horas trabajadas (10 dólares la hora) para
calcular los ingresos de un empleado:
• 15 horas
• 20 horas
• 40 horas
Luego calcule a través de una lista de verificación el salario mensual,
Bonificación del 10 % al salario ganado, y el impuesto a pagar el cual es el 2%
del salario. Al final dígale al empleado cuanto va a cobrar.
