FICHA DE MATRICULA

Se desea elaborar una aplicación que permita controlar el proceso de matrícula en un curso de computación. Para ello se deben recabar los siguientes datos: 1) Curso en que se matricula el alumno, 2) Fecha de matrícula, 3) Apellidos y nombres, 4) Sexo, 5) Dirección, y 6) Distrito de residencia.

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

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

En seguida proceda a establecer las propiedades según se indica:
Form1

Nombre
FrmFichaMatricula

BorderStyle
3-Fixed Dialog

Caption
Ficha de matrícula

Frame1

Nombre
FraIngreso

Caption
Ingreso de datos:

Frame2

Nombre
FraOpciones

Caption
Opciones:

Frame3

Nombre
FraCursos

Caption
Cursos:

Frame4

Nombre
FraDistritos

Caption
Distritos:

Label1

Nombre
LblCurso

Caption
Curso:

Label2

Nombre
LblFechaMat

Caption
Fecha de matrícula:

Label3

Nombre
LblAlumno

Caption
Alumno:

Label4

Nombre
LblSexo

Caption
Sexo:

Label5

Nombre
LblDirección

Caption
Dirección:

Label6

Nombre
LblDistrito

Caption
Distrito:

Combo1

Nombre
CboSexo

Text


List1

Nombre
LstCursos

Text


List2

Nombre
LstDistrito

Text


Text1

Nombre
TxtCurso

Text


Text2

Nombre
TxtFechaMat

Text


Text3

Nombre
TxtAlumno

Text


Text4

Nombre
TxtDireccion

Text


Text5

Nombre
TxtDistrito

Text


Command1

Nombre
CmdGuardar

Caption
&Guardar

Command2

Nombre
CmdCancelar

Caption
&Cancelar

Command3

Nombre
CmdLimpiar

Caption
&Limpiar

Command4

Nombre
CmdSalir

Caption
&Salir

Picture
C:\FundVB\Bitmaps\Exit.bmp

Style
1-Graphical

Una vez establecidas las propiedades de la interfaz, proceda a ingresar el código que se indica a continuación:

Private Sub Form_Load()
LstCursos.AddItem “Borland C++ Nivel I”
LstCursos.AddItem “Borland C++ Nivel II”
LstCursos.AddItem “Microsoft Visual Basic Nivel I”
LstCursos.AddItem “Microsoft Visual Basic Nivel II”
LstCursos.AddItem “Microsoft Visual FoxPro Nivel I”
LstCursos.AddItem “Microsoft Visual FoxPro Nivel II”
LstCursos.AddItem “Microsoft Visual C++ Nivel I”
LstCursos.AddItem “Microsoft Visual C++ Nivel II”
LstCursos.AddItem “Microsoft Visual J++ Nivel I”
LstCursos.AddItem “Microsoft Visual J++ Nivel II”
LstCursos.AddItem “Microsoft SQL Server Nivel I”
LstCursos.AddItem “Microsoft SQL Server Nivel II”
LstCursos.AddItem “Microsoft Power Builder Nivel I”
LstCursos.AddItem “Microsoft Power Builder Nivel II”
LstDistrito.AddItem “Callao”
LstDistrito.AddItem “Bellavista”
LstDistrito.AddItem “Carmen de la Legua”
LstDistrito.AddItem “La Perla”
LstDistrito.AddItem “La Punta”
LstDistrito.AddItem “Ventanilla”
LstDistrito.AddItem “Cercado de Lima”
LstDistrito.AddItem “Ancón”
LstDistrito.AddItem “Ate”
LstDistrito.AddItem “Barranco”
LstDistrito.AddItem “Breña”
LstDistrito.AddItem “Carabayllo”
LstDistrito.AddItem “Comas”
LstDistrito.AddItem “Chaclacayo”
LstDistrito.AddItem “Chorrillos”
LstDistrito.AddItem “El Agustino”
LstDistrito.AddItem “Jesús María”
LstDistrito.AddItem “La Molina”
LstDistrito.AddItem “La Victoria”
LstDistrito.AddItem “Lince”
LstDistrito.AddItem “Lurigancho”
LstDistrito.AddItem “Lurín”
LstDistrito.AddItem “Magdalena del Mar”
LstDistrito.AddItem “Miraflores”
LstDistrito.AddItem “Pachacamac”
LstDistrito.AddItem “Pucusana”
LstDistrito.AddItem “Pueblo Libre”
LstDistrito.AddItem “Puente Piedra”
LstDistrito.AddItem “Punta Negra”
LstDistrito.AddItem “Rimac”
LstDistrito.AddItem “San Bartolo”
LstDistrito.AddItem “San Isidro”
LstDistrito.AddItem “Independencia”
LstDistrito.AddItem “San Juan de Miraflores”
LstDistrito.AddItem “San Luis”
LstDistrito.AddItem “San Martín de Porres”
LstDistrito.AddItem “San Miguel”
LstDistrito.AddItem “Santiago de Surco”
LstDistrito.AddItem “Villa María del Triunfo”
LstDistrito.AddItem “San Juan de Lurigancho”
LstDistrito.AddItem “Santa María del Mar”
LstDistrito.AddItem “Santa Rosa”
LstDistrito.AddItem “Los Olivos”
LstDistrito.AddItem “Cieneguilla”
LstDistrito.AddItem “San Borja”
LstDistrito.AddItem “Villa el Salvador”
LstDistrito.AddItem “Santa Anita”
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 LstCursos_Click()
TxtCursos = LstCursos
End Sub

Private Sub LstDistrito_Click()
TxtDistrito = LstDistrito
End Sub

Private Sub CmdGuardar_Click()
LstCursos.Enabled = False
LstDistrito.Enabled = False
TxtCursos.Locked = True
TxtFechaMat.Locked = True
TxtAlumno.Locked = True
CboSexo.Locked = True
TxtDireccion.Locked = True
TxtDistrito.Locked = True
MsgBox “Alumno matriculado”, vbInformation, “Mensaje”
End Sub

Private Sub CmdLimpiar_Click()
LstCursos.Enabled = True
LstDistrito.Enabled = True
TxtCursos.Locked = False
TxtFechaMat.Locked = False
TxtAlumno.Locked = False
CboSexo.Locked = False
TxtDireccion.Locked = False
TxtDistrito.Locked = False
TxtCursos = “”
TxtFechaMat = “”
TxtAlumno = “”
CboSexo = “”
TxtDireccion = “”
TxtDistrito = “”
TxtCursos.SetFocus
End Sub

Private Sub CmdCancelar_Click()
If MsgBox(“¿Desea modificar algún dato?”, _
vbQuestion + vbYesNo, “Mensaje”) = vbYes Then
LstCursos.Enabled = True
LstDistrito.Enabled = True
TxtCursos.Locked = False
TxtFechaMat.Locked = False
TxtAlumno.Locked = False
CboSexo.Locked = False
TxtDireccion.Locked = False
TxtDistrito.Locked = False
End If
End Sub

Private Sub CmdSalir_Click()
Unload Me
End Sub