Timer (Intervalos de Tiempo)

El time es un componente que genera un evento a intervalos de tiempo. Este temporizador está optimado para su uso en aplicaciones de Windows Forms y se debe utilizar en una ventana.

A).- Crear una aplicación que permita mostrar la hora actualizada

1. Creamos una nueva aplicación de Windows Forms.

2. Colocamos un control Timer.

3. Colocamos un control Label, el cual nos mostrara la fecha que queremos mostrar.

4. Una vez colocado estos controles procedemos a dar doble clic sobre el Timer, y en el evento que se genere colocamos el siguiente código:

Label1.Text = TimeOfDay

5. Por ultimo tenemos que iniciar nuestro Timer, para eso en el evento Load de nuestro formulario iniciamos nuestro Timer con el siguiente código

Timer1.Start()

B).- Efecto de Animación utilizando el control timer en visual basic

1. Creamos una nueva aplicación de Windows Forms.

2. Colocamos un control Timer.

3. Colocamos cuatro controles Label, el cual les cambiaremos la propiedad ForeColor y le pondremos el color que deseemos a cada Label.

4. Colocaremos dos control Button, uno llamado iniciar y otro detener

5. Lo primero que haremos es declarar una variable de tipo privado

Private num As Integer = 0

  

6. Después damos doble clic a nuestro contror Timer para ir al evento Tick en cual Se produce cuando ha transcurrido el número de milisegundos especificado en la propiedad Interval y se envía la página al servidor. Y colocamos el siguiente código

  If (num Mod 2 = 0) Then

            Label1.Visible = True

            Label2.Visible = False

            Label3.Visible = True

            Label4.Visible = False

        Else

            Label1.Visible = False

            Label2.Visible = True

            Label3.Visible = False

            Label4.Visible = True

        End If

        num = num + 1

7. Después vamos al botón iniciar y damos doble clic para ir al evento click, y ponemos el siguiente código que cual va a ser el encargado de iniciar el timer

Timer1.Enabled = True

8. por ultimo vamos al botón detener y damos doble clic para ir al evento click, y ponemos el siguiente código que cual va a ser el encargado de iniciar el timer

Timer1.Enabled = False

Espero que les guste 

Como crear un slash en visual studio 2010

Hola como estas queridos lectores en este tema les enseñare como crear un slash en visual studio 2010, ya que es un tema que muchos le interesa aprender, a la hora de realizar un proyecto.

Lo primero que hay que hacer es crear un nuevo proyecto en visual basic 2010, elegimos aplicación de Windows forms.

Nos aparecerá la ventana principal de nuestro formulario donde empezaremos a dar la forma que uno quiera.

 Luego nos posicionamos el panel de propiedades y elegimos la opción StartPosition y elegimos la opción de CentrerScreen, para posicionar el formulario a la hora de la ejecución en el centro de la pantalla.

Procesemos a ir a la opción de FormBorderStyle y elegimos la opción de None. ahora realizamos lo que es la creación de los controles para eso necesitamos los siguiente controles:

• (1) Time
• (1) Progressbar
• (2)  Label

Posteriormente vamos  a crear otro formulario para eso vamos a explorador de soluciones en la parte donde dice Slash.vb le damos un clic derecho, se nos abrirá un menú contextual y elegimos a opción agregar, luego elegimos la opción windows forms.

Después de haber colocado los controles correspondientes vamos a lo que es la inserción del código para esto le damos doble clic al cualquier parte del formulario y declaramos una variable de tipo BYTE,  llamada contador la cual  la iniciamos en 0, esta sera declarada en la parte del esqueleto de nuestro formulario  es decir después de 

Public Class Form1

 Dim contador As Byte = 0

Luego damos doble clic al Timer1 inmediatamente nos enviara al código del Timer, donde procederemos a introducir el siguiente

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

        If ProgressBar1.Value < 100 Then

            contador = contador + 20

            Label1.Visible = True

            Label1.Text = "Cargando Datos"

            ProgressBar1.Value = contador

        Else

            Me.Hide()

            Form2.Show()

            Timer1.Enabled = False

        End If

    End Sub

Esto dice que si el progressbar1, en su propiedad value  es menor a 100 entonces que me llame mi variable contedor la cual ha iniciado en 0 y le vaya sumando de 20 en 20. Hasta llegar a 100, si esta condición se complete entonces mi Label1 en su propiedad visible pasara a true  y mostrara un mensaje que diga “Cargando Datos” y el Progressbar se empezará a llenar.

De lo contrario me mostrar mi formulario2 y el time se detendrá.

en la parte del formulario1 en su evento Load ponemos el siguiente código

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

        Timer1.Start()

        Label1.Visible = False

    End Sub

una ultima cosa en el Time1 en su propiedad Interval lo ponemos en 1000 

Eso es todo amigos comenten si tienen alguna duda