LECCION 32

Lección 32: Utilización del temporizador

Timer es un control interesante y útil en Visual Basic 2015. Puede ser utilizado para crear visuales 2015 aplicaciones básicas que están relacionados tiempo. Por ejemplo, puede utilizar el temporizador para crear un reloj, un cronómetro, un dado, animación y mucho más. Timer es un control oculto en tiempo de ejecución, al igual que el motor de un coche. Ilustraremos el uso de temporizador usando algunos ejemplos.

32.1 Creación de un reloj digital

Para crear el reloj, en primer lugar iniciar un nuevo proyecto en Visual Basic 2015 y seleccione una nueva aplicación para Windows. Puede darle al proyecto cualquier nombre que desee, pero vamos a llamarlo MyClock. Cambie el texto del Form1 para MyClock en la ventana de propiedades. Añadir el control Timer al formulario haciendo doble clic en él en la caja de herramientas.

 A continuación, inserte un control de etiqueta en el formulario. Cambiar el tamaño de fuente de la etiqueta a cualquier tamaño que desee y establecer la alineación de fuente para ser centro medio. Antes de que nos olvidemos, también deberá establecer la propiedad Interval del control Timer a 1000, lo que refleja un intervalo de un segundo (1 unidad es 1 milisegundo).

 Recuerde que debe establecer la propiedad MaximizeBox de Form1 en false para que el usuario no puede ampliar el reloj. Por último, establecer la propiedad Enabled del control Timer en True para que el reloj comienza a funcionar tan pronto como se cargue.

Ahora, usted está listo para la codificación. En realidad sería una sorpresa que lo que necesita para crear un reloj es solamente un código de una sola línea, es decir:

Label1.Text = TimeOfDay

* TimeOfDay () es una función básica de 2015 Visual incorporada que devuelve la hora actual hoy en base a la hora del sistema del ordenador.

Haga clic en el control del Temporizador e introduzca el código de seguridad, como se muestra a continuación:

Private Sub Timer1_Tick (remitente de ByVal como System.Object, ByVal e As System.EventArgs) Maneja Timer1.Tick

LblClock.Text = TimeOfDay

End Sub

El reloj digital es como se muestra en la Figura 32.1




32.1 vb2013_figure31.1Figure
32.2 Creación de un cronómetro

Podemos crear un cronómetro simple usando el control Timer en Visual Basic 2015. Iniciar un nuevo proyecto y el nombre de cronómetro. 

Cambie el título Form1 para Cronómetro. Insertar el control de temporizador en el formulario y establezca su intervalo de 1000 que es igual a un segundo. Además de eso, establecer la propiedad Enabled a False temporizador para que no comenzará a contar cuando se inicia el programa. Inserte tres botones y cambiar sus nombres a BtnStart, BtnStop y btnReset respectivamente. 

Cambiar sus textos a "Inicio", "Stop" y "Reset" en consecuencia. Ahora, introduzca el código de la siguiente manera:

Private Sub BtnStart_Click (remitente como objeto, e como EventArgs) Maneja BtnStart.Click
Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick (remitente como objeto, e como EventArgs) Maneja Timer1.Tick
LblPanel.Text = Val (LblPanel.Text) + 1
End Sub

Private Sub BtnStop_Click (remitente como objeto, e como EventArgs) Maneja BtnStop.Click
Timer1.Enabled = False
End Sub

Private Sub BtnReset_Click (remitente como objeto, e como EventArgs) Maneja BtnReset.Click
LblPanel.Text = 0
End Sub

La interfaz del cronómetro es como se muestra en la Figura 32.2

32.2 vb2013_figure31.2Figure

 32.3 Creación de un Dados Digital

Podemos crear un dado digitales fácilmente utilizando el reloj programador. Para crear un dado, lo que necesita para generar números aleatorios usando la función Rnd. Rnd genera números entre 0 y 1. La siguiente sentencia genera números aleatorios de 1 a 6

n = Int (1 + Rnd () * 6)

En el código, se introduce la variable m para controlar la longitud de tiempo del proceso de laminación. Si m es mayor que 1000, entonces el proceso de laminado se detendrá mediante el establecimiento de la propiedad enabled temporizador en Falso. Ajuste el intervalo del temporizador a 10, de modo que el número cambia cada 0,01 segundos.

El código

Public Class Form1
n tenue, m As Integer

Private Sub Timer1_Tick (remitente como objeto, e como EventArgs) Maneja Timer1.Tick
m = m + 10

Si m <1000 A continuación,

n = Int (1 + Rnd () * 6)

LblDice.Text = n

Más

Timer1.Enabled = False

m = 0

Terminara si

End Sub

Private Sub BtnRoll_Click (remitente como objeto, e como EventArgs) Maneja BtnRoll.Click

Timer1.Enabled = True

End Sub

End Class
Al ejecutar el programa produce un dado con los números cambiando rápidamente que se detiene en un número determinado. La interfaz es como se muestra en la Figura 31.3

vb2013_figure31.3

 Figura 32.3