Procedimiento BarraProgreso Fecha Hora

Descargar como pdf o txt
Descargar como pdf o txt
Está en la página 1de 3

GUÍA DE TRABAJO

Versión: 1
Código: DA-FO-431

ÁREA: TECNOLOGÍA E INFORMÁTICA


GRADO: 11__ JORNADA: JT SEMESTRE: I I FECHA: DÍA MES AÑO
 PROCEDIMIENTO PARA PONER BARRA DE PROGRESO EN EL FORMULARIO DE
BIENVENIDA
 PROCEDIMIENTO PARA PONER FECHA Y HORA EN EL FORMULARIO PRINCIPAL

Control Progressbar
Descripción del control
El control de barra de progreso (control ProgressBar) en Visual Basic proporciona una representación visual del
progreso de carga de un programa. Generalmente este control se utiliza para el formulario de Bienvenida o de
Presentación.

FASE DE DISEÑO

1. Cuando estén el diseño del formulario de Presentación o Bienvenida. Vaya al cuadro de herramientas y
seleccione el control ProgressBar y dibújelo sobre el formulario, puede cambiarle las propiedades BackColor y
Forecolor. Vuelva de nuevo al cuadro de herramientas y seleccione un label y dibújelo debajo o encima del
ProgressBar. En la propiedad text del label, escriba CARGANDO EL SISTEMA AL 0% a este control debe
cambiar la propiedad Font y Forecolor para dar formato al texto a tu gusto.

2. Debes agregar un control Timer el cual es un temporizador que nos permite ejecutar instrucciones de código,
rutinas, funciones etc..., cada cierto intervalo de tiempo. Este control es invisible en tiempo de ejecución, esto
quiere decir que no tiene interfaz gráfica, solo es visible cuando lo agregamos a un formulario y estamos en
modo de diseño. La propiedad más importante de este control es la propiedad Interval.
FASE DE PROGRAMACION

Programando el temporizador

1. Dele doble clic en el formulario

2. Digite el siguiente código para activar el temporizador

Public NotInheritable Class frmPresentacion

Private Sub SplashScreen1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


Timer1.Enabled = True Comentado [DCUD1]: Este es el código que debe digitar

End Sub

AHORA PROCEDEMOS A PROGRAMAR EL TIMER

3. Dele doble clic al control Timer


4. Digite el siguiente código

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick


If (ProgressBar1.Value < 100) Then

ProgressBar1.Value = ProgressBar1.Value + 10
Label1.Text = "CARGANDO EL SISTEMA AL " & ProgressBar1.Value & "%"
Else
Timer1.Enabled = False
MessageBox.Show("CARGA COMPLETA !!!" & Chr(13) & " MENSAJE)", "NOMBRE DE LA APLICACION",
MessageBoxButtons.OK, MessageBoxIcon.Information)
Me.Hide()
frmPrincipal.Show()

End If
End Sub Comentado [DCUD2]: Este es el código que debe digitar
End Class

En este caso el formulario de inicio debe ser el de presentación por la programación que se hizo.

FECHA Y HORA EN EL FORMULARIO PRINCIPAL

FASE DE DISEÑO

Dibujar un panel en el formulario principal, insertar en el panel dos PictureBox. Una para la fecha y otra para la hora.
Importar las imágenes tipo icono

Dibujar al lado de las PictureBox dos label. El primer label se llamara lblfecha y el segundo label se llamara lblhora.
Ambos con la propiedad Autosize false, transparentes en el fondo y vacío el text

Insertar un control Timer en el formulario principal. Ir a propiedades y en la propiedad Enabled seleccionar true

FASE DE PROGRAMACION

Para programar este formulario para que actualice la fecha actual y la hora actual se crea el procedimiento de la
siguiente manera.
1. Darle doble clic al control TIMER para que se vaya a la ventana de código y digitar el siguiente código:
Public Class frmPrincipal

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick


lblfecha.Text = DateTime.Now.ToShortDateString
lblhora.Text = DateTime.Now.ToLongTimeString Comentado [DCUD3]: Este es el código que debe digitar.
End Sub
End Class

Guarde los cambios y ejecute el programa para ver si funciona

También podría gustarte