Scribd
Upload
8 views7 pages

User Control for Grade Calculation

The document is a Visual Basic code for a UserControl that includes various text boxes and labels for user input related to three subjects (Materia1, Materia2, Materia3) and three students (Luis, Josue, Maria). It features buttons to calculate averages for individual subjects and a general average. The code also includes a Dispose method to clean up component resources.

Uploaded by

Diego Reyes Rios
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
8 views7 pages

User Control for Grade Calculation

The document is a Visual Basic code for a UserControl that includes various text boxes and labels for user input related to three subjects (Materia1, Materia2, Materia3) and three students (Luis, Josue, Maria). It features buttons to calculate averages for individual subjects and a general average. The code also includes a Dispose method to clean up component resources.

Uploaded by

Diego Reyes Rios
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

<[Link].

Designe
rGenerated()> _
Partial Class UserControl1
Inherits [Link]

'UserControl1 reemplaza a Dispose para limpiar la


lista de componentes.
<[Link]()> _
Protected Overrides Sub Dispose(ByVal disposing As
Boolean)
Try
If disposing AndAlso components IsNot
Nothing Then
[Link]()
End If
Finally
[Link](disposing)
End Try
End Sub

'Requerido por el Diseñador de Windows Forms


Private components As
[Link]

'NOTA: el Diseñador de Windows Forms necesita el


siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows
Forms.
'No lo modifique con el editor de código.
<[Link]()> _
Private Sub InitializeComponent()
Me.TextBox1 = New
[Link]()
[Link] = New [Link]()
[Link] = New [Link]()
[Link] = New [Link]()
Me.TextBox2 = New
[Link]()
Me.TextBox3 = New
[Link]()
Me.Materia1 = New [Link]()
Me.Materia2 = New [Link]()
Me.TextBox4 = New
[Link]()
Me.Materia3 = New [Link]()
Me.TextBox5 = New
[Link]()
Me.TextBox6 = New
[Link]()
Me.TextBox7 = New
[Link]()
Me.TextBox8 = New
[Link]()
Me.TextBox9 = New
[Link]()
[Link] = New
[Link]()
[Link] = New
[Link]()
[Link] = New
[Link]()
Me.TextBox10 = New
[Link]()
Me.TextBox11 = New
[Link]()
Me.TextBox12 = New
[Link]()
[Link] = New
[Link]()
Me.TextBox13 = New
[Link]()
[Link]()
'
'TextBox1
'
[Link] = New
[Link](204, 68)
[Link] = "TextBox1"
[Link] = New [Link](84,
20)
[Link] = 0
'
'Luis
'
[Link] = True
[Link] = New
[Link](83, 68)
[Link] = "Luis"
[Link] = New [Link](26, 13)
[Link] = 1
[Link] = "Luis"
'
'Josue
'
[Link] = True
[Link] = New
[Link](83, 132)
[Link] = "Josue"
[Link] = New [Link](35,
13)
[Link] = 2
[Link] = "Josue"
'
'Maria
'
[Link] = True
[Link] = New
[Link](83, 213)
[Link] = "Maria"
[Link] = New [Link](33,
13)
[Link] = 3
[Link] = "Maria"
'
'TextBox2
'
[Link] = New
[Link](204, 132)
[Link] = "TextBox2"
[Link] = New [Link](84,
20)
[Link] = 4
'
'TextBox3
'
[Link] = New
[Link](204, 213)
[Link] = "TextBox3"
[Link] = New [Link](84,
20)
[Link] = 5
'
'Materia1
'
[Link] = True
[Link] = New
[Link](221, 18)
[Link] = "Materia1"
[Link] = New [Link](48,
13)
[Link] = 6
[Link] = "Materia1"
'
'Materia2
'
[Link] = True
[Link] = New
[Link](356, 18)
[Link] = "Materia2"
[Link] = New [Link](48,
13)
[Link] = 7
[Link] = "Materia2"
'
'TextBox4
'
[Link] = New
[Link](326, 68)
[Link] = "TextBox4"
[Link] = New
[Link](100, 20)
[Link] = 8
'
'Materia3
'
[Link] = True
[Link] = New
[Link](498, 18)
[Link] = "Materia3"
[Link] = New [Link](48,
13)
[Link] = 9
[Link] = "Materia3"
'
'TextBox5
'
[Link] = New
[Link](326, 132)
[Link] = "TextBox5"
[Link] = New
[Link](100, 20)
[Link] = 10
'
'TextBox6
'
[Link] = New
[Link](326, 213)
[Link] = "TextBox6"
[Link] = New
[Link](100, 20)
[Link] = 11
'
'TextBox7
'
[Link] = New
[Link](475, 68)
[Link] = "TextBox7"
[Link] = New
[Link](100, 20)
[Link] = 12
'
'TextBox8
'
[Link] = New
[Link](475, 137)
[Link] = "TextBox8"
[Link] = New
[Link](100, 20)
[Link] = 13
'
'TextBox9
'
[Link] = New
[Link](475, 213)
[Link] = "TextBox9"
[Link] = New
[Link](100, 20)
[Link] = 14
'
'Promedio
'
[Link] = New
[Link](656, 30)
[Link] = "Promedio"
[Link] = New [Link](75,
23)
[Link] = 15
[Link] = "Promedio"
[Link] = True
'
'PromedioJ
'
[Link] = New
[Link](656, 108)
[Link] = "PromedioJ"
[Link] = New
[Link](75, 23)
[Link] = 16
[Link] = "PromedioJ"
[Link] = True
'
'PromedioM
'
[Link] = New
[Link](656, 175)
[Link] = "PromedioM"
[Link] = New
[Link](75, 23)
[Link] = 17
[Link] = "PromedioM"
[Link] = True
'
'TextBox10
'
[Link] = New
[Link](647, 68)
[Link] = "TextBox10"
[Link] = New
[Link](100, 20)
[Link] = 18
'
'TextBox11
'
[Link] = New
[Link](647, 137)
[Link] = "TextBox11"
[Link] = New
[Link](100, 20)
[Link] = 19
'
'TextBox12
'
[Link] = New
[Link](647, 213)
[Link] = "TextBox12"
[Link] = New
[Link](100, 20)
[Link] = 20
'
'PromedioGeneral
'
[Link] = New
[Link](224, 296)
[Link] = "PromedioGeneral"
[Link] = New
[Link](129, 23)
[Link] = 21
[Link] = "PromedioGeneral"
[Link] =
True
'
'TextBox13
'
[Link] = New
[Link](427, 299)
[Link] = "TextBox13"
[Link] = New
[Link](100, 20)
[Link] = 22
'
'UserControl1
'
[Link] = New
[Link](6.0!, 13.0!)
[Link] =
[Link]
[Link](Me.TextBox13)
[Link]([Link])
[Link](Me.TextBox12)
[Link](Me.TextBox11)
[Link](Me.TextBox10)
[Link]([Link])
[Link]([Link])
[Link]([Link])
[Link](Me.TextBox9)
[Link](Me.TextBox8)
[Link](Me.TextBox7)
[Link](Me.TextBox6)
[Link](Me.TextBox5)
[Link](Me.Materia3)
[Link](Me.TextBox4)
[Link](Me.Materia2)
[Link](Me.Materia1)
[Link](Me.TextBox3)
[Link](Me.TextBox2)
[Link]([Link])
[Link]([Link])
[Link]([Link])
[Link](Me.TextBox1)
[Link] = "UserControl1"
[Link] = New [Link](800, 450)
[Link](False)
[Link]()

End Sub

Friend WithEvents TextBox1 As TextBox


Friend WithEvents Luis As Label
Friend WithEvents Josue As Label
Friend WithEvents Maria As Label
Friend WithEvents TextBox2 As TextBox
Friend WithEvents TextBox3 As TextBox
Friend WithEvents Materia1 As Label
Friend WithEvents Materia2 As Label
Friend WithEvents TextBox4 As TextBox
Friend WithEvents Materia3 As Label
Friend WithEvents TextBox5 As TextBox
Friend WithEvents TextBox6 As TextBox
Friend WithEvents TextBox7 As TextBox
Friend WithEvents TextBox8 As TextBox
Friend WithEvents TextBox9 As TextBox
Friend WithEvents Promedio As Button
Friend WithEvents PromedioJ As Button
Friend WithEvents PromedioM As Button
Friend WithEvents TextBox10 As TextBox
Friend WithEvents TextBox11 As TextBox
Friend WithEvents TextBox12 As TextBox
Friend WithEvents PromedioGeneral As Button
Friend WithEvents TextBox13 As TextBox
End Class

You might also like