Practica

PRACTICA LP II
I. Desarrolle el siguiente grupo de formularios (pueden trabajar en grupo de 3):

1. El menú matricula accederá a las opciones de agregar, mostrar el formulario notas.Puede agregar mas opciones si lo prefiere; el menú consulta accederá a las opciones búsqueda y modificar, la primera mostrara el formulario consulta; el menú ventana permite organizar las ventanas(horizontal, vertical, cascada)

2. El formulario notas tendrá su menú notas cuyas opciones serán agregar y limpiar, la opción limpiar debe dejar todos los controles en blanco y colocar el cursoren el primer control(combobox), los textbox de nombre y promedio deben estar inabilitados. La opción agregar permitirá hallar el promedio, habilitar el textbox de promedio para mostrar de color azul siel promedio es mayor o igual a 11 o de color rojo si es menor. Tal como se muestra en la imagen

(REALIZA LAS MODIFICACIONES EN ESTAS LINEAS PARA OBTENER EL RESULTADO DESEADO)
Public Class NOTASPrivate Sub LimpiarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LimpiarToolStripMenuItem.Click
cbocodigo.Text = ""txtprom.Clear()
cbocodigo.Focus()
End Sub

Private Sub AgregarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AgregarToolStripMenuItem.ClickDim x As Byte = cbocodigo.SelectedIndex
txtprom.Enabled = True
txtprom.BackColor = Color.LightGray

regi(x).n1 = Val(txtn1.Text)
regi(x).n2 = Val(txtn2.Text)regi(x).n3 = Val(txtn3.Text)
regi(x).prom = Val(txtprom.Text)

End Sub

Private Sub cbocodigo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles cbocodigo.SelectedIndexChanged
Dim registro As datos
Dim x As Byte = cbocodigo.SelectedIndex
registro = regi(x)
txtnombre.Text = registro.nom

End...