Práctica Nº 2 (Progama)

Estimados Alumnos a continuación le detallo los componentes que se desarrollarán en la Práctica Nº 2 (Programa)

Se desea elaborar una aplicación que permita controlar el proceso de matrícula de los Alumnos en las diferentes Universidades y en una Carrera a estudiar. Para ello se deben recabar los siguientes datos:

1) Carrera en que se matricula el alumno
2) Fecha de matrícula
3) Apellidos y Nombres del Alumno
4) Sexo
5) Dirección de Habitación
6) Universidad donde estudiará.

Para el desarrollo de esta aplicación proceda a ubicar los siguientes controles en el formulario:

• 4 marcos
• 6 etiqueta
• 5 cajas de texto
• 1 cuadro combinado
• 2 controles de lista
• 4 botones de comando

Los Codigos para la Interfaz son los siguientes:

Private Sub Form_Load()
LstCarrera.AddItem "Ingenieria de Sistemas"
LstCarrera.AddItem "Licenciatura en Informática"
LstCarrera.AddItem "Ingenieria Civil"
LstCarrera.AddItem "Licenciatura en administraciön"
LstUniversidad.AddItem "Universidad Central de Venezuela"
LstUniversidad.AddItem "Universidad Simón Bolivar"
LstUniversidad.AddItem "Universidad Metropolitana"
LstUniversidad.AddItem "UCAB"
CboSexo.AddItem "Masculino": CboSexo.AddItem "Femenino"
End Sub
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("¿Desea terminar la aplicación?", _
vbQuestion + vbYesNo, "Pregunta") = vbYes Then
End
Else
Cancel = True
Call CmdLimpiar_Click
End If
End Sub
Private Sub LstCarrera_Click()
TxtCarrera = LstCarrera
End Sub
Private Sub LstUniversidad_Click()
TxtUniversidad = LstUniversidad
End Sub

Private Sub CmdGuardar_Click()
LstCarrera.Enabled = False
LstUniversidad.Enabled = False
TxtCarrera.Locked = False
TxtFechaMat.Locked = True
TxtAlumno.Locked = True
CboSexo.Locked = True
TxtDireccion.Locked = True
TxtUniversidad.Locked = True
MsgBox "Alumno matriculado", vbInformation, "Mensaje"
End Sub

Private Sub CmdLimpiar_Click()
LstCarrera.Enabled = True
LstUniversidad.Enabled = True
TxtCarrera.Locked = False
TxtFechaMat.Locked = False
TxtAlumno.Locked = False
CboSexo.Locked = False
TxtDireccion.Locked = False
TxtUniversidad.Locked = False
TxtCarrera = ""
TxtFechaMat = ""
TxtAlumno = ""
CboSexo = ""
TxtDireccion = ""
TxtUniversidad = ""
TxtCarrera.SetFocus
End Sub

Private Sub CmdCancelar_Click()
If MsgBox("¿Desea modificar algún dato?", _
vbQuestion + vbYesNo, "Mensaje") = vbYes Then
LstCarrera.Enabled = True
LstUniversidad.Enabled = True
TxtCarrera.Locked = False
TxtFechaMat.Locked = False
TxtAlumno.Locked = False
CboSexo.Locked = False
TxtDireccion.Locked = False
TxtUniversidad.Locked = False
End If
End Sub

Private Sub CmdSalir_Click()
Unload Me
End Sub