REPÚBLICA DE PANAMÁ

UNIVERSIDAD TECNOLÓGICA DE PANAMÁ

SEDE AZUERO

INGENIERÍA CIVIL

INGENIERÍA MARÍTIMA PORTUARIA

ASIGNACION “CONTROL DE CALIFICACIONES”

Integrantes:
• Lineth canto 6-726-967
• José frías 6-725-2303
• Yaribeth Quiroz 6-726-1098
• Oliver Samaniego 6-725-676

Facilitadora: Marquela de Cohen

Grupo: 71C121

Año: 2023
Diseño

Código
Public Class Form1
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles [Link]
End Sub
Private Sub Label8_Click(sender As Object, e As EventArgs) Handles
[Link]
End Sub
Private Sub DataGridView_CellContentClick(sender As Object, e As
DataGridViewCellEventArgs) Handles [Link]
End Sub
Private Sub TextBox8_TextChanged(sender As Object, e As EventArgs) Handles [Link]
End Sub
Private Sub cmdGenerar_Click(sender As Object, e As EventArgs) Handles [Link]
Dim CantEstudiantes As Integer, I As Integer
CantEstudiantes = Val([Link])
[Link] = CantEstudiantes
[Link] = 10
[Link] = 70
[Link] = New Font("Arial Narrow", 10,
[Link])
For I = 1 To CantEstudiantes
 [Link](I - 1).[Link] = Str(I)
Next
[Link] = [Link]
[Link] = New Font("Arial", 9,
[Link])
[Link](0).HeaderText = "Apellido"
[Link](0).Name = "Apellido"
[Link](0).Width = 125
[Link](1).HeaderText = "Nombre"
[Link](1).Name = "Nombre"
[Link](1).Width = 125
[Link](2).HeaderText = "Cedula"
[Link](2).Name = "Cedula"
[Link](2).Width = 125
[Link](3).HeaderText = "Parcial No.1 "
[Link](3).Name = "Parcial1"
[Link](3).Width = 75
[Link](4).HeaderText = "Parcial No.2 "
[Link](4).Name = "Parcial2"
[Link](4).Width = 75
[Link](5).HeaderText = "Parcial No.3 "
[Link](5).Name = "Parcial3"
[Link](5).Width = 75
[Link](6).HeaderText = "Ex Final "
[Link](6).Name = "Final"
[Link](6).Width = 75
[Link](7).HeaderText = "Prom Parciales "
[Link](7).Name = "PromParc"
[Link](7).Width = 75
[Link](8).HeaderText = "Prom Final "
[Link](8).Name = "PROMEDIO"
[Link](8).Width = 75
[Link](7).ReadOnly = True
[Link](8).ReadOnly = True
[Link](9).ReadOnly = True
[Link](6).[Link] = [Link]
[Link](7).[Link] = [Link]
[Link](8).[Link] = [Link]
[Link](9).[Link] = [Link]
[Link](9).[Link] = [Link]
[Link](9).[Link] = New Font("Arial", 11,
[Link])
[Link] =
[Link]
End Sub
Private Sub cmdCalcular_Click(sender As Object, e As EventArgs) Handles [Link]
Dim Parcial_1 As Single, Parcial_2 As Single, Parcial_3 As Single
Dim PromParc As Single, ExFinal As Single, PromFinal As Single
Dim Calif As String, PromGrupo As Single
Dim Desviacion As Single, SumDesviacion As Single
Dim I As Integer, Cant_A As Integer, SumPromFinal As Single
 Dim Cant_B As Integer
Dim Cant_C As Integer
Dim Cant_D As Integer
Dim Cant_F As Integer
Dim CantEst As Integer
CantEst = Val([Link])
For I = 0 To CantEst - 1
Parcial_1 = Val([Link](I).Cells(3).Value)
Parcial_2 = Val([Link](I).Cells(4).Value)
Parcial_3 = Val([Link](I).Cells(5).Value)
ExFinal = Val([Link](I).Cells(6).Value)
PromParc = (Parcial_1 - 1 + Parcial_1 - 2 + Parcial_3) / 3
PromFinal = PromParc * 0.6 + ExFinal * 0.4
SumPromFinal = SumPromFinal + PromFinal
If PromFinal >= 91 Then
Calif = "A"
Cant_A = Cant_A + 1
ElseIf PromFinal >= 81 Then
Calif = "B"
Cant_B = Cant_B + 1
ElseIf PromFinal >= 71 Then
Calif = "C"
Cant_C = Cant_C + 1
ElseIf PromFinal >= 61 Then
Calif = "D"
Cant_D = Cant_D + 1
Else
Calif = "F"
Cant_F = Cant_F + 1
End If
[Link](I).Cells(7).Value = PromParc
[Link](I).Cells(8).Value = PromFinal
[Link](I).Cells(9).Value = Calif
Next
[Link](7).[Link] = "0.00"
[Link](8).[Link] = "0.00"
PromGrupo = SumPromFinal / CantEst
For I = 0 To CantEst - 1
PromFinal = [Link](I).Cells(8).Value
SumDesviacion = SumDesviacion + (PromFinal - PromGrupo) ^ 2
Next
Desviacion = [Link](SumDesviacion / CantEst) [Link] = Format(PromGrupo,
"0.00") [Link] = Format(Desviacion, "0.00")
[Link] = Cant_A [Link] = Cant_B
[Link] = Cant_C [Link] = Cant_D
[Link] = Cant_F
End Sub
Private Sub cmdFin_Click(sender As Object, e As EventArgs) Handles [Link] End
End Sub
End Class
Ejecución