Control timer
Descargar como PPTX, PDF0 recomendaciones4,038 vistas
El documento describe el control Timer en Visual Basic, el cual se usa para ejecutar código en intervalos regulares sin necesidad de mostrar una representación visual. Explica cómo agregar un control Timer a un formulario, establecer su propiedad Interval para determinar la frecuencia, y escribir código en el evento Timer_Tick que se ejecutará periódicamente. También muestra cómo habilitar y deshabilitar el Timer en tiempo de ejecución para iniciar y detener la ejecución periódica del código.
Control timer
- 1. CYNTHIA JESSAMYN MIRANDA RIOS
- 2. ¿QUÉ ES? El control Timer de Visual Basic 6.0 es un control real que se ubica en un formulario en tiempo de diseño; sin embargo, no se ve en tiempo de ejecución. El componente Timer de Visual Basic 2008 se agrega a la bandeja en tiempo de diseño; como componente, no tiene ninguna propiedad Parent.
- 3. ¿CÓMO SE USA? En el menú Archivo, haga clic en Nuevoproyecto. En el cuadro de diálogo Nuevo proyecto, en el panel Plantillas, haga clic en Aplicación para Windows. En el cuadro Nombre, escriba Timer y haga clic en Aceptar. Se abrirá un nuevo proyecto de formularios Windows Forms. En el Cuadro de herramientas, arrastre un control Label y un control Timer hasta el formulario. El componente Timer no aparece en el propio formulario, sino en la bandeja de componentes, bajo el formulario. Esto es porque el componente Timer no tiene una representación visual. Seleccione el componente Timer y, a continuación, en la ventana Propiedades, establezca la propiedad Enabled en True y la propiedad Interval en 1000. Haga doble clic en el componente Timer para abrir el Editor de código. En el controlador del evento Timer1_Tick, escriba el siguiente código.
- 4. CaMBIOS DE CODIGO PARA INICIAR Y DETER El siguiente código muestra cómo habilitar y deshabilitar un control Timer en tiempo de ejecución. ' Visual Basic 6.0 Public Function TimerOn(Interval As Integer) If Interval > 0 Then ' Start the timer. Timer1.Interval = Interval Else ' Stop the timer. Timer1.Interval = 0 End If End Function
- 5. ¿CÓMO FUNCIONA? Coloca el control Timer en el formulario 1 y le coloca la propiedad Interval = 3000 (milisegundos) o sea 3 segundos. En el LostFocus del Text2 colocas : Private Sub Text2_LostFocus() Timer1.Enabled = True End Sub Lo anterior inicia a contar el Timer hasta alcanzar los tres segundos y en ese momento se activa el evento Timer y por lo tanto se descarga el formulario 1 y se activa el formulario 2: Private Sub Timer1_Timer() Unload Form1 Form2.Show End Sub