Pasos para agregar el control ProgressBar
PROYECTO
CONTROL DE CALIFICACIONES
Crea
una aplicación que permita capturara los datos de los alumnos y calificaciones
de x grupo del CBTis 57, y después permita obtener las consultas,
Modificaciones, Bajas y reportes.
Formulario
de Bienvenida
Permite ver por un
tiempo la bienvenida al proyecto y después nos muestra el formulario principal.
PANTALLA DE BIENVENIDA
Para esta pantalla se necesitan:
3.- Un objeto Timer
4.- Un objeto ProgressBar
Nombre: Frm_Bienvenida
Caption: Control de calificaciones
NOMBRE: Img_Control
Picture:
PROPIEDADES DE LAS ETIQUETAS
|
1
|
Nombre:
|
Lbl_Gene
|
|
|
|
Caption:
|
DE CALIFICACIONES
|
|
|
|
2
|
Nombre:
|
Lbl_Bachi
|
|
|
|
Caption:
|
Centro de Bachillerato Tecnológico
industrial y de servicios No 57.
|
|||
|
3
|
Nombre:
|
Lbl_Telo
|
|
|
|
Caption:
|
Teloloapan, Gro.
|
|
|
|
Propiedades del objeto Timer
Nombre: Tmr_Reloj
|
|
Propiedades del objeto ProgressBar
Nombre: progresobarra
|
o
Código para el formulario de bienvenida
Private Sub
Form_Load()
Tmr_Reloj.Enabled = True
progresobarra.Min = 0
progresobarra.Max = 100
progresobarra.Value = 0
Tmr_Reloj.Interval = 100
End Sub
Código para el objeto timer
Private Sub
Tmr_Reloj_Timer()
progresobarra.Value = progresobarra.Value + 1
If progresobarra.Value >= progresobarra.Max
Then
Tmr_Reloj1.Enabled = False
Frm_Bienvenida.Hide
Frm_PRINCIPAL.Show
End If
End Sub
FORMULARIO MENU PRINCIPAL
Permite interactuar directamente con las opciones que ofrece el menú principal.
Contiene los siguientes menús.
|
Alumnos
|
Calificaciones
|
Reporte
|
Salir
|
|
Altas
|
Altas
|
Alumnos
|
|
|
Consultas
|
Consultas
|
Calificaciones
|
|
|
Modificaciones
|
Modificaciones
|
|
|
|
Bajas
|
Bajas
|
|
|
Pantalla menú principal
o
PROPIEDADES DEL FORMULARIO 2
Nombre:Frm_principal
Caption: CONTROL DE CALIFICACIONES
CBTIS 57
WindowState: 2 Maximized
ControlBox: False
o
Propiedades del objeto imagen
Nombre:Img_LogoPicture: Imagen Logo CBTis
|
Nombre: Txt_Hora
Text:
Backcolor:
Font:
ForeColor:
|
Nombre: Txt_Fecha
Text:
Backcolor:
Font:
ForeColor:
|
o
Propiedades del objeto timer
Nombre: Tmr_Reloj1Interval: 60
|
Código del formulario
Private Sub Form_Load()
Txt_Fecha.Text = Date
End Sub
|
Código del objeto timer
Private
Sub Tmr_Reloj1_Timer()
Txt_hora.Text = Time
End Sub
|
o
Propiedades de los menús
Menú Alumnos
|
Caption:
|
&Alumnos
|
|
Nombre:
|
Alumnos
|
|
Caption:
|
&Alta
|
|
Nombre:
|
Alumnoalta
|
|
Caption:
|
&Consulta
|
|
Nombre:
|
Alumnoconsul
|
|
Caption:
|
&Modificaciones
|
|
Nombre:
|
Alumnomodifi
|
|
Caption:
|
&Baja
|
|
Nombre:
|
Alumnobaja
|
Menú Calificaciones
|
Caption:
|
&Calificaciones
|
|
Nombre:
|
Califi
|
|
Caption:
|
Alta
|
|
Nombre:
|
Califialta
|
|
Caption:
|
Consulta
|
|
Nombre:
|
Calificonsul
|
|
Caption:
|
Modificaciones
|
|
Nombre:
|
CalifiModifi
|
|
Caption:
|
Baja
|
|
Nombre:
|
Califibaja
|
Menú reportes
|
Caption: |
&Reportes
|
Caption:
|
Alumnos
|
|
Nombre:
|
Reporte
|
Nombre:
|
reporAlumnos
|
|
Caption:
|
Calificaciones
|
|
Nombre:
|
reporCalif
|
Menú salir
|
Caption:
|
&Salir
|
|
Nombre:
|
salir
|



Una duda,como se supone que haremos nuestro propio Proyecto,si no tenemos idea de como se va a Reproducir,es como andar en un barco sin timón.RVM.
ResponderEliminar