Tutoriales gratuitos para el aprendizaje de la programacion informatica! Recuerda que si lo puedes imaginar... lo puedes programar!

PROMEDIO DE NOTAS EN .NET



CODIFICACIÓN
Public Class FORM1
    Private Sub TEXTBOX1_KEYPRESS(ByVal SENDER As Object, ByVal E As System.Windows.Forms.KeyPressEventArgs) Handles TEXTBOX1.KEYPRESS
        If InStr("1234567890" & Chr(8), E.KeyChar) = 0 Then
            E.KeyChar = ""
        End If
    End Sub
    Private Sub TEXTBOX2_KEYPRESS(ByVal SENDER As Object, ByVal E As System.Windows.Forms.KeyPressEventArgs) Handles TEXTBOX2.KEYPRESS
        If InStr("1234567890" & Chr(8), E.KeyChar) = 0 Then
            E.KeyChar = ""
        End If
    End Sub
    Private Sub TEXTBOX3_KEYPRESS(ByVal SENDER As Object, ByVal E As System.Windows.Forms.KeyPressEventArgs) Handles TEXTBOX3.KEYPRESS
        If InStr("1234567890" & Chr(8), E.KeyChar) = 0 Then
            E.KeyChar = ""
        End If
    End Sub
    Private Sub TEXTBOX4_KEYPRESS(ByVal SENDER As Object, ByVal E As System.Windows.Forms.KeyPressEventArgs) Handles TEXTBOX4.KEYPRESS
        If InStr("1234567890" & Chr(8), E.KeyChar) = 0 Then
            E.KeyChar = ""
        End If
    End Sub
    Private Sub TEXTBOX5_KEYPRESS(ByVal SENDER As Object, ByVal E As System.Windows.Forms.KeyPressEventArgs) Handles TEXTBOX5.KEYPRESS
        If InStr("1234567890" & Chr(8), E.KeyChar) = 0 Then
            E.KeyChar = ""
        End If

    End Sub
Private Sub TEXTBOX6_KEYPRESS(ByVal SENDER As Object, ByVal E As System.Windows.Forms.KeyPressEventArgs) Handles TEXTBOX6.KEYPRESS
        If InStr("1234567890" & Chr(8), E.KeyChar) = 0 Then
            E.KeyChar = ""
        End If
    End Sub
    Private Sub TEXTBOX7_KEYPRESS(ByVal SENDER As Object, ByVal E As System.Windows.Forms.KeyPressEventArgs) Handles TEXTBOX7.KEYPRESS
        If InStr("1234567890" & Chr(8), E.KeyChar) = 0 Then
            E.KeyChar = ""
        End If
    End Sub
    Private Sub TEXTBOX8_KEYPRESS(ByVal SENDER As Object, ByVal E As System.Windows.Forms.KeyPressEventArgs) Handles TEXTBOX8.KEYPRESS
        If InStr("1234567890" & Chr(8), E.KeyChar) = 0 Then
            E.KeyChar = ""
        End If
    End Sub
    Private Sub TEXTBOX9_KEYPRESS(ByVal SENDER As Object, ByVal E As System.Windows.Forms.KeyPressEventArgs) Handles TEXTBOX9.KEYPRESS
        If InStr("1234567890" & Chr(8), E.KeyChar) = 0 Then
            E.KeyChar = ""
        End If
    End Sub
    Private Sub TEXTBOX10_KEYPRESS(ByVal SENDER As Object, ByVal E As System.Windows.Forms.KeyPressEventArgs) Handles TEXTBOX10.KEYPRESS
        If InStr("1234567890" & Chr(8), E.KeyChar) = 0 Then
            E.KeyChar = ""
        End If
    End Sub
    Private Sub TEXTBOX11_KEYPRESS(ByVal SENDER As Object, ByVal E As System.Windows.Forms.KeyPressEventArgs) Handles TEXTBOX11.KEYPRESS
        If InStr("1234567890" & Chr(8), E.KeyChar) = 0 Then
            E.KeyChar = ""
        End If
    End Sub
    Private Sub TEXTBOX12_KEYPRESS(ByVal SENDER As Object, ByVal E As System.Windows.Forms.KeyPressEventArgs) Handles TEXTBOX12.KEYPRESS
        If InStr("1234567890" & Chr(8), E.KeyChar) = 0 Then
            E.KeyChar = ""
        End If
    End Sub
    Private Sub TEXTBOX13_KEYPRESS(ByVal SENDER As Object, ByVal E As System.Windows.Forms.KeyPressEventArgs) Handles TEXTBOX13.KEYPRESS
        If InStr("1234567890" & Chr(8), E.KeyChar) = 0 Then
            E.KeyChar = ""
        End If
    End Sub
    Private Sub TEXTBOX14_KEYPRESS(ByVal SENDER As Object, ByVal E As System.Windows.Forms.KeyPressEventArgs) Handles TEXTBOX14.KEYPRESS
        If InStr("1234567890" & Chr(8), E.KeyChar) = 0 Then
            E.KeyChar = ""
        End If
    End Sub
    Private Sub TEXTBOX1_TEXTCHANGED(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles TEXTBOX1.TEXTCHANGED
        If Len(TEXTBOX1.TEXT) = 2 Then
            TEXTBOX2.SELECT()
        End If
        If COMBOBOX1.TEXT = "2" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT)) / 2
        ElseIf COMBOBOX1.TEXT = "3" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT)) / 3
        ElseIf COMBOBOX1.TEXT = "4" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT)) / 4
        ElseIf COMBOBOX1.TEXT = "5" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT)) / 5
        ElseIf COMBOBOX1.TEXT = "6" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT)) / 6
        ElseIf COMBOBOX1.TEXT = "7" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT)) / 7
        ElseIf COMBOBOX1.TEXT = "8" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT) + Val(TEXTBOX8.TEXT)) / 8
        ElseIf COMBOBOX1.TEXT = "9" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT) + Val(TEXTBOX8.TEXT) + Val(TEXTBOX9.TEXT)) / 9
        ElseIf COMBOBOX1.TEXT = "10" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT) + Val(TEXTBOX8.TEXT) + Val(TEXTBOX9.TEXT) + Val(TEXTBOX10.TEXT)) / 10
        Else
            MsgBox("DEBE INDICAR EL Nº DE EVALUACIONES!")
            COMBOBOX1.SELECT()
            LABEL1.TEXT = "0"
            LABEL2.TEXT = "0"
            LABEL22.TEXT = "0"
        End If
        If TEXTBOX13.TEXT = "" Then
            LABEL22.TEXT = "0"
        Else
            LABEL22.TEXT = TEXTBOX13.TEXT
            LABEL9.TEXT = Val(LABEL22.TEXT) * 0.3
        End If
        LABEL1.TEXT = VIDAL(LABEL1.TEXT, ",", ".")
        LABEL2.TEXT = Val(LABEL1.TEXT) * 0.7
        LABEL9.TEXT = VIDAL(LABEL9.TEXT, ",", ".")
        LABEL2.TEXT = VIDAL(LABEL2.TEXT, ",", ".")
        LABEL11.TEXT = Val(LABEL9.TEXT) + Val(LABEL2.TEXT)
    End Sub
Private Sub TEXTBOX8_TEXTCHANGED(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles TEXTBOX8.TEXTCHANGED
        If Len(TEXTBOX8.TEXT) = 2 Then
            If TEXTBOX9.VISIBLE = True Then
                TEXTBOX9.SELECT()
            Else
                TEXTBOX13.SELECT()
            End If
        End If
        If COMBOBOX1.TEXT = "2" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT)) / 2
        ElseIf COMBOBOX1.TEXT = "3" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT)) / 3
        ElseIf COMBOBOX1.TEXT = "4" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT)) / 4
        ElseIf COMBOBOX1.TEXT = "5" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT)) / 5
        ElseIf COMBOBOX1.TEXT = "6" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT)) / 6
        ElseIf COMBOBOX1.TEXT = "7" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT)) / 7
        ElseIf COMBOBOX1.TEXT = "8" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT) + Val(TEXTBOX8.TEXT)) / 8
        ElseIf COMBOBOX1.TEXT = "9" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT) + Val(TEXTBOX8.TEXT) + Val(TEXTBOX9.TEXT)) / 9
        ElseIf COMBOBOX1.TEXT = "10" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT) + Val(TEXTBOX8.TEXT) + Val(TEXTBOX9.TEXT) + Val(TEXTBOX10.TEXT)) / 10
        Else
            MsgBox("DEBE INDICAR EL Nº DE EVALUACIONES!")
            COMBOBOX1.SELECT()
            LABEL1.TEXT = "0"
            LABEL2.TEXT = "0"
            LABEL22.TEXT = "0"
        End If
        If TEXTBOX13.TEXT = "" Then
            LABEL22.TEXT = "0"
        Else
            LABEL22.TEXT = TEXTBOX13.TEXT
            LABEL9.TEXT = Val(LABEL22.TEXT) * 0.3
        End If
        LABEL1.TEXT = VIDAL(LABEL1.TEXT, ",", ".")
        LABEL2.TEXT = Val(LABEL1.TEXT) * 0.7
        LABEL9.TEXT = VIDAL(LABEL9.TEXT, ",", ".")
        LABEL2.TEXT = VIDAL(LABEL2.TEXT, ",", ".")
        LABEL11.TEXT = Val(LABEL9.TEXT) + Val(LABEL2.TEXT)
    End Sub
Private Sub TEXTBOX9_TEXTCHANGED(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles TEXTBOX9.TEXTCHANGED
        If Len(TEXTBOX9.TEXT) = 2 Then
            If TEXTBOX10.VISIBLE = True Then
                TEXTBOX10.SELECT()
            Else
                TEXTBOX13.SELECT()
            End If
        End If
        If COMBOBOX1.TEXT = "2" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT)) / 2
        ElseIf COMBOBOX1.TEXT = "3" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT)) / 3
        ElseIf COMBOBOX1.TEXT = "4" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT)) / 4
        ElseIf COMBOBOX1.TEXT = "5" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT)) / 5
        ElseIf COMBOBOX1.TEXT = "6" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT)) / 6
        ElseIf COMBOBOX1.TEXT = "7" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT)) / 7
        ElseIf COMBOBOX1.TEXT = "8" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT) + Val(TEXTBOX8.TEXT)) / 8
        ElseIf COMBOBOX1.TEXT = "9" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT) + Val(TEXTBOX8.TEXT) + Val(TEXTBOX9.TEXT)) / 9
        ElseIf COMBOBOX1.TEXT = "10" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT) + Val(TEXTBOX8.TEXT) + Val(TEXTBOX9.TEXT) + Val(TEXTBOX10.TEXT)) / 10
        Else
            MsgBox("DEBE INDICAR EL Nº DE EVALUACIONES!")
            COMBOBOX1.SELECT()
            LABEL1.TEXT = "0"
            LABEL2.TEXT = "0"
            LABEL22.TEXT = "0"
        End If
        If TEXTBOX13.TEXT = "" Then
            LABEL22.TEXT = "0"
        Else
            LABEL22.TEXT = TEXTBOX13.TEXT
            LABEL9.TEXT = Val(LABEL22.TEXT) * 0.3
        End If
        LABEL1.TEXT = VIDAL(LABEL1.TEXT, ",", ".")
        LABEL2.TEXT = Val(LABEL1.TEXT) * 0.7
        LABEL9.TEXT = VIDAL(LABEL9.TEXT, ",", ".")
        LABEL2.TEXT = VIDAL(LABEL2.TEXT, ",", ".")
        LABEL11.TEXT = Val(LABEL9.TEXT) + Val(LABEL2.TEXT)
    End Sub
    Private Sub TEXTBOX10_TEXTCHANGED(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles TEXTBOX10.TEXTCHANGED
        If Len(TEXTBOX10.TEXT) = 2 Then
            TEXTBOX13.SELECT()
        End If
        If COMBOBOX1.TEXT = "2" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT)) / 2
        ElseIf COMBOBOX1.TEXT = "3" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT)) / 3
        ElseIf COMBOBOX1.TEXT = "4" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT)) / 4
        ElseIf COMBOBOX1.TEXT = "5" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT)) / 5
        ElseIf COMBOBOX1.TEXT = "6" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT)) / 6
        ElseIf COMBOBOX1.TEXT = "7" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT)) / 7
        ElseIf COMBOBOX1.TEXT = "8" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT) + Val(TEXTBOX8.TEXT)) / 8
        ElseIf COMBOBOX1.TEXT = "9" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT) + Val(TEXTBOX8.TEXT) + Val(TEXTBOX9.TEXT)) / 9
        ElseIf COMBOBOX1.TEXT = "10" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT) + Val(TEXTBOX8.TEXT) + Val(TEXTBOX9.TEXT) + Val(TEXTBOX10.TEXT)) / 10
        Else
            MsgBox("DEBE INDICAR EL Nº DE EVALUACIONES!")
            COMBOBOX1.SELECT()
            LABEL1.TEXT = "0"
            LABEL2.TEXT = "0"
            LABEL22.TEXT = "0"
        End If
        If TEXTBOX13.TEXT = "" Then
            LABEL22.TEXT = "0"
        Else
            LABEL22.TEXT = TEXTBOX13.TEXT
            LABEL9.TEXT = Val(LABEL22.TEXT) * 0.3
        End If
        LABEL1.TEXT = VIDAL(LABEL1.TEXT, ",", ".")
        LABEL2.TEXT = Val(LABEL1.TEXT) * 0.7
        LABEL9.TEXT = VIDAL(LABEL9.TEXT, ",", ".")
        LABEL2.TEXT = VIDAL(LABEL2.TEXT, ",", ".")
        LABEL11.TEXT = Val(LABEL9.TEXT) + Val(LABEL2.TEXT)
    End Sub
Private Sub TEXTBOX12_TEXTCHANGED(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles TEXTBOX12.TEXTCHANGED
        If Len(TEXTBOX12.TEXT) = 2 Then
            TEXTBOX14.SELECT()
        End If
        If COMBOBOX2.TEXT = "2" Then
            LABEL30.TEXT = (Val(TEXTBOX11.TEXT) + Val(TEXTBOX12.TEXT)) / 2
        ElseIf COMBOBOX2.TEXT = "3" Then
            LABEL30.TEXT = (Val(TEXTBOX11.TEXT) + Val(TEXTBOX12.TEXT) + Val(TEXTBOX14.TEXT)) / 3
        Else
            MsgBox("DEBE INDICAR EL Nº DE EVALUACIONES!")
            COMBOBOX2.SELECT()
            LABEL30.TEXT = "0"
        End If
    End Sub
    Private Sub TEXTBOX14_TEXTCHANGED(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles TEXTBOX14.TEXTCHANGED
        If COMBOBOX2.TEXT = "2" Then
            LABEL30.TEXT = (Val(TEXTBOX11.TEXT) + Val(TEXTBOX12.TEXT)) / 2
        ElseIf COMBOBOX2.TEXT = "3" Then
            LABEL30.TEXT = (Val(TEXTBOX11.TEXT) + Val(TEXTBOX12.TEXT) + Val(TEXTBOX14.TEXT)) / 3
        Else
            MsgBox("DEBE INDICAR EL Nº DE EVALUACIONES!")
            COMBOBOX2.SELECT()
            LABEL30.TEXT = "0"
        End If
     End Sub
    Private Sub BUTTON1_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON1.CLICK
        TEXTBOX1.TEXT = ""
        TEXTBOX2.TEXT = ""
        TEXTBOX3.TEXT = ""
        TEXTBOX4.TEXT = ""
        TEXTBOX5.TEXT = ""
        TEXTBOX6.TEXT = ""
        TEXTBOX7.TEXT = ""
        TEXTBOX8.TEXT = ""
        TEXTBOX9.TEXT = ""
        TEXTBOX10.TEXT = ""
        TEXTBOX13.TEXT = ""
        LABEL9.TEXT = "0"
        TEXTBOX1.SELECT()
    End Sub
    Private Sub BUTTON2_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON2.CLICK
        TEXTBOX11.TEXT = ""
        TEXTBOX12.TEXT = ""
        TEXTBOX14.TEXT = ""
    End Sub
    Private Sub CHECKBOX1_CHECKEDCHANGED(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles CHECKBOX1.CHECKEDCHANGED
        If CHECKBOX1.CHECKED = True Then
            GROUPBOX2.VISIBLE = True
            COMBOBOX1.SELECT()
        Else
            GROUPBOX2.VISIBLE = False
        End If

    End Sub
    Private Sub CHECKBOX2_CHECKEDCHANGED(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles CHECKBOX2.CHECKEDCHANGED
        If CHECKBOX2.CHECKED = True Then
            GROUPBOX1.VISIBLE = True
            TEXTBOX11.SELECT()
        Else
            GROUPBOX1.VISIBLE = False
        End If
    End Sub
Private Sub COMBOBOX1_SELECTEDINDEXCHANGED(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles COMBOBOX1.SELECTEDINDEXCHANGED
        If COMBOBOX1.TEXT = "2" Then
            L1.VISIBLE = True
            L2.VISIBLE = True
            L3.VISIBLE = False
            L4.VISIBLE = False
            L5.VISIBLE = False
            L6.VISIBLE = False
            L7.VISIBLE = False
            L8.VISIBLE = False
            L9.VISIBLE = False
            L10.VISIBLE = False
            TEXTBOX1.VISIBLE = True
            TEXTBOX2.VISIBLE = True
            TEXTBOX3.VISIBLE = False
            TEXTBOX4.VISIBLE = False
            TEXTBOX5.VISIBLE = False
            TEXTBOX6.VISIBLE = False
            TEXTBOX7.VISIBLE = False
            TEXTBOX8.VISIBLE = False
            TEXTBOX9.VISIBLE = False
            TEXTBOX10.VISIBLE = False
        ElseIf COMBOBOX1.TEXT = "3" Then
            L1.VISIBLE = True
            L2.VISIBLE = True
            L3.VISIBLE = True
            L4.VISIBLE = False
            L5.VISIBLE = False
            L6.VISIBLE = False
            L7.VISIBLE = False
            L8.VISIBLE = False
            L9.VISIBLE = False
            L10.VISIBLE = False
            TEXTBOX1.VISIBLE = True
            TEXTBOX2.VISIBLE = True
            TEXTBOX3.VISIBLE = True
            TEXTBOX4.VISIBLE = False
            TEXTBOX5.VISIBLE = False
            TEXTBOX6.VISIBLE = False
            TEXTBOX7.VISIBLE = False
            TEXTBOX8.VISIBLE = False
            TEXTBOX9.VISIBLE = False
            TEXTBOX10.VISIBLE = False
        ElseIf COMBOBOX1.TEXT = "4" Then
            L1.VISIBLE = True
            L2.VISIBLE = True
            L3.VISIBLE = True
            L4.VISIBLE = True
            L5.VISIBLE = False
            L6.VISIBLE = False
            L7.VISIBLE = False
            L8.VISIBLE = False
            L9.VISIBLE = False
            L10.VISIBLE = False
            TEXTBOX1.VISIBLE = True
            TEXTBOX2.VISIBLE = True
            TEXTBOX3.VISIBLE = True
            TEXTBOX4.VISIBLE = True
            TEXTBOX5.VISIBLE = False
            TEXTBOX6.VISIBLE = False
            TEXTBOX7.VISIBLE = False
            TEXTBOX8.VISIBLE = False
            TEXTBOX9.VISIBLE = False
            TEXTBOX10.VISIBLE = False
        ElseIf COMBOBOX1.TEXT = "5" Then
            L1.VISIBLE = True
            L2.VISIBLE = True
            L3.VISIBLE = True
            L4.VISIBLE = True
            L5.VISIBLE = True
            L6.VISIBLE = False
            L7.VISIBLE = False
            L8.VISIBLE = False
            L9.VISIBLE = False
            L10.VISIBLE = False
            TEXTBOX1.VISIBLE = True
            TEXTBOX2.VISIBLE = True
            TEXTBOX3.VISIBLE = True
            TEXTBOX4.VISIBLE = True
            TEXTBOX5.VISIBLE = True
            TEXTBOX6.VISIBLE = False
            TEXTBOX7.VISIBLE = False
            TEXTBOX8.VISIBLE = False
            TEXTBOX9.VISIBLE = False
            TEXTBOX10.VISIBLE = False
        ElseIf COMBOBOX1.TEXT = "6" Then
            L1.VISIBLE = True
            L2.VISIBLE = True
            L3.VISIBLE = True
            L4.VISIBLE = True
            L5.VISIBLE = True
            L6.VISIBLE = True
            L7.VISIBLE = False
            L8.VISIBLE = False
            L9.VISIBLE = False
            L10.VISIBLE = False
            TEXTBOX1.VISIBLE = True
            TEXTBOX2.VISIBLE = True
            TEXTBOX3.VISIBLE = True
            TEXTBOX4.VISIBLE = True
            TEXTBOX5.VISIBLE = True
            TEXTBOX6.VISIBLE = True
            TEXTBOX7.VISIBLE = False
            TEXTBOX8.VISIBLE = False
            TEXTBOX9.VISIBLE = False
            TEXTBOX10.VISIBLE = False
        ElseIf COMBOBOX1.TEXT = "7" Then
            L1.VISIBLE = True
            L2.VISIBLE = True
            L3.VISIBLE = True
            L4.VISIBLE = True
            L5.VISIBLE = True
            L6.VISIBLE = True
            L7.VISIBLE = True
            L8.VISIBLE = False
            L9.VISIBLE = False
            L10.VISIBLE = False
            TEXTBOX1.VISIBLE = True
            TEXTBOX2.VISIBLE = True
            TEXTBOX3.VISIBLE = True
            TEXTBOX4.VISIBLE = True
            TEXTBOX5.VISIBLE = True
            TEXTBOX6.VISIBLE = True
            TEXTBOX7.VISIBLE = True
            TEXTBOX8.VISIBLE = False
            TEXTBOX9.VISIBLE = False
            TEXTBOX10.VISIBLE = False
        ElseIf COMBOBOX1.TEXT = "8" Then
            L1.VISIBLE = True
            L2.VISIBLE = True
            L3.VISIBLE = True
            L4.VISIBLE = True
            L5.VISIBLE = True
            L6.VISIBLE = True
            L7.VISIBLE = True
            L8.VISIBLE = True
            L9.VISIBLE = False
            L10.VISIBLE = False
            TEXTBOX1.VISIBLE = True
            TEXTBOX2.VISIBLE = True
            TEXTBOX3.VISIBLE = True
            TEXTBOX4.VISIBLE = True
            TEXTBOX5.VISIBLE = True
            TEXTBOX6.VISIBLE = True
            TEXTBOX7.VISIBLE = True
            TEXTBOX8.VISIBLE = True
            TEXTBOX9.VISIBLE = False
            TEXTBOX10.VISIBLE = False
        ElseIf COMBOBOX1.TEXT = "9" Then
            L1.VISIBLE = True
            L2.VISIBLE = True
            L3.VISIBLE = True
            L4.VISIBLE = True
            L5.VISIBLE = True
            L6.VISIBLE = True
            L7.VISIBLE = True
            L8.VISIBLE = True
            L9.VISIBLE = True
            L10.VISIBLE = False
            TEXTBOX1.VISIBLE = True
            TEXTBOX2.VISIBLE = True
            TEXTBOX3.VISIBLE = True
            TEXTBOX4.VISIBLE = True
            TEXTBOX5.VISIBLE = True
            TEXTBOX6.VISIBLE = True
            TEXTBOX7.VISIBLE = True
            TEXTBOX8.VISIBLE = True
            TEXTBOX9.VISIBLE = True
            TEXTBOX10.VISIBLE = False
        ElseIf COMBOBOX1.TEXT = "10" Then
            L1.VISIBLE = True
            L2.VISIBLE = True
            L3.VISIBLE = True
            L4.VISIBLE = True
            L5.VISIBLE = True
            L6.VISIBLE = True
            L7.VISIBLE = True
            L8.VISIBLE = True
            L9.VISIBLE = True
            L10.VISIBLE = True
            TEXTBOX1.VISIBLE = True
            TEXTBOX2.VISIBLE = True
            TEXTBOX3.VISIBLE = True
            TEXTBOX4.VISIBLE = True
            TEXTBOX5.VISIBLE = True
            TEXTBOX6.VISIBLE = True
            TEXTBOX7.VISIBLE = True
            TEXTBOX8.VISIBLE = True
            TEXTBOX9.VISIBLE = True
            TEXTBOX10.VISIBLE = True
        Else
            L1.VISIBLE = False
            L2.VISIBLE = False
            L3.VISIBLE = False
            L4.VISIBLE = False
            L5.VISIBLE = False
            L6.VISIBLE = False
            L7.VISIBLE = False
            L8.VISIBLE = False
            L9.VISIBLE = False
            L10.VISIBLE = False
            TEXTBOX1.VISIBLE = False
            TEXTBOX2.VISIBLE = False
            TEXTBOX3.VISIBLE = False
            TEXTBOX4.VISIBLE = False
            TEXTBOX5.VISIBLE = False
            TEXTBOX6.VISIBLE = False
            TEXTBOX7.VISIBLE = False
            TEXTBOX8.VISIBLE = False
            TEXTBOX9.VISIBLE = False
            TEXTBOX10.VISIBLE = False
        End If
        TEXTBOX1.SELECT()
    End Sub
    Private Sub TEXTBOX13_TEXTCHANGED(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles TEXTBOX13.TEXTCHANGED
        If COMBOBOX1.TEXT = "3" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT)) / 3
        ElseIf COMBOBOX1.TEXT = "4" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT)) / 4
        ElseIf COMBOBOX1.TEXT = "5" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT)) / 5
        ElseIf COMBOBOX1.TEXT = "6" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT)) / 6
        ElseIf COMBOBOX1.TEXT = "7" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT)) / 7
        ElseIf COMBOBOX1.TEXT = "8" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT) + Val(TEXTBOX8.TEXT)) / 8
        ElseIf COMBOBOX1.TEXT = "9" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT) + Val(TEXTBOX8.TEXT) + Val(TEXTBOX9.TEXT)) / 9
        ElseIf COMBOBOX1.TEXT = "10" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT) + Val(TEXTBOX8.TEXT) + Val(TEXTBOX9.TEXT) + Val(TEXTBOX10.TEXT)) / 10
        Else
            MsgBox("DEBE INDICAR EL Nº DE EVALUACIONES!")
            COMBOBOX1.SELECT()
            LABEL1.TEXT = "0"
            LABEL2.TEXT = "0"
            LABEL22.TEXT = "0"
        End If
        If TEXTBOX13.TEXT = "" Then
            LABEL22.TEXT = "0"
        Else
            LABEL22.TEXT = TEXTBOX13.TEXT
            LABEL9.TEXT = Val(LABEL22.TEXT) * 0.3
        End If
        LABEL1.TEXT = VIDAL(LABEL1.TEXT, ",", ".")
        LABEL2.TEXT = Val(LABEL1.TEXT) * 0.7
        LABEL9.TEXT = VIDAL(LABEL9.TEXT, ",", ".")
        LABEL2.TEXT = VIDAL(LABEL2.TEXT, ",", ".")
        LABEL11.TEXT = Val(LABEL9.TEXT) + Val(LABEL2.TEXT)
    End Sub
Private Sub TEXTBOX6_TEXTCHANGED(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles TEXTBOX6.TEXTCHANGED

        If Len(TEXTBOX6.TEXT) = 2 Then
            If TEXTBOX7.VISIBLE = True Then
                TEXTBOX7.SELECT()
            Else
                TEXTBOX13.SELECT()
            End If
        End If
        If COMBOBOX1.TEXT = "2" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT)) / 2
        ElseIf COMBOBOX1.TEXT = "3" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT)) / 3
        ElseIf COMBOBOX1.TEXT = "4" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT)) / 4
        ElseIf COMBOBOX1.TEXT = "5" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT)) / 5
        ElseIf COMBOBOX1.TEXT = "6" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT)) / 6
        ElseIf COMBOBOX1.TEXT = "7" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT)) / 7
        ElseIf COMBOBOX1.TEXT = "8" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT) + Val(TEXTBOX8.TEXT)) / 8
        ElseIf COMBOBOX1.TEXT = "9" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT) + Val(TEXTBOX8.TEXT) + Val(TEXTBOX9.TEXT)) / 9
        ElseIf COMBOBOX1.TEXT = "10" Then
            LABEL1.TEXT = (Val(TEXTBOX1.TEXT) + Val(TEXTBOX2.TEXT) + Val(TEXTBOX3.TEXT) + Val(TEXTBOX4.TEXT) + Val(TEXTBOX5.TEXT) + Val(TEXTBOX6.TEXT) + Val(TEXTBOX7.TEXT) + Val(TEXTBOX8.TEXT) + Val(TEXTBOX9.TEXT) + Val(TEXTBOX10.TEXT)) / 10
        Else
            MsgBox("DEBE INDICAR EL Nº DE EVALUACIONES!")
            COMBOBOX1.SELECT()
            LABEL1.TEXT = "0"
            LABEL2.TEXT = "0"
            LABEL22.TEXT = "0"
        End If
        If TEXTBOX13.TEXT = "" Then
            LABEL22.TEXT = "0"
        Else
            LABEL22.TEXT = TEXTBOX13.TEXT
            LABEL9.TEXT = Val(LABEL22.TEXT) * 0.3
        End If
        LABEL1.TEXT = VIDAL(LABEL1.TEXT, ",", ".")
        LABEL2.TEXT = Val(LABEL1.TEXT) * 0.7
        LABEL9.TEXT = VIDAL(LABEL9.TEXT, ",", ".")
        LABEL2.TEXT = VIDAL(LABEL2.TEXT, ",", ".")
        LABEL11.TEXT = Val(LABEL9.TEXT) + Val(LABEL2.TEXT)
    End Sub
    Function VIDAL(ByVal TEXTO As String, ByVal CARACTERES As String, ByVal REMPLAZARCARACTERES As String) As String
        Dim I As Integer
        Dim C As String
        Dim STRINGRESULT As String
        For I = 1 To Len(TEXTO)
            C = Mid(TEXTO, I, 1)
            If InStr(1, CARACTERES, C, vbTextCompare) Then
                STRINGRESULT = STRINGRESULT & REMPLAZARCARACTERES
            Else
                STRINGRESULT = STRINGRESULT & C
            End If
        Next I
        VIDAL = STRINGRESULT
    End Function
    Private Sub COMBOBOX2_SELECTEDINDEXCHANGED(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles COMBOBOX2.SELECTEDINDEXCHANGED
        If COMBOBOX2.TEXT = "2" Then
            LABEL29.VISIBLE = True
            LABEL27.VISIBLE = True
            LABEL28.VISIBLE = False
            TEXTBOX11.VISIBLE = True
            TEXTBOX12.VISIBLE = True
            TEXTBOX14.VISIBLE = False
        ElseIf COMBOBOX2.TEXT = "3" Then
            LABEL29.VISIBLE = True
            LABEL27.VISIBLE = True
            LABEL28.VISIBLE = True
            TEXTBOX11.VISIBLE = True
            TEXTBOX12.VISIBLE = True
            TEXTBOX14.VISIBLE = True
        Else
            LABEL29.VISIBLE = False
            LABEL27.VISIBLE = False
            LABEL28.VISIBLE = False
            TEXTBOX11.VISIBLE = False
            TEXTBOX12.VISIBLE = False
            TEXTBOX14.VISIBLE = False
        End If
    End Sub
     Private Sub FORM1_KEYDOWN(ByVal SENDER As Object, ByVal E As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If E.KeyData = Keys.F12 Then
            TEXTBOX1.TEXT = ""
            TEXTBOX2.TEXT = ""
            TEXTBOX3.TEXT = ""
            TEXTBOX4.TEXT = ""
            TEXTBOX5.TEXT = ""
            TEXTBOX6.TEXT = ""
            TEXTBOX7.TEXT = ""
            TEXTBOX8.TEXT = ""
            TEXTBOX9.TEXT = ""
            TEXTBOX10.TEXT = ""
            TEXTBOX13.TEXT = ""
            LABEL9.TEXT = "0"
            TEXTBOX1.SELECT()
        End If
    End Sub

End Class
Labels:

No hay comentarios:

Publicar un comentario

Suscribirse a: Enviar comentarios (Atom)