12. TIMER

Este programa comenzamos a utilizar un “Timer” al cual le dijimos que en cada décima de segundo saque un mensaje que dice "hola! cierre el programa" pero como el intervalo de tiempo es tan corto no se puede cerrar así que la única forma de cerrarlo es con el administrador de tareas.

A continuación se mostrara el código que se utilizó:

Public Class Form1

    Dim Valor As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Timer1.Interval = 1

        Timer1.Enabled = True

    End Sub

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

        MsgBox("hola! cierre el programa")

        Valor = Valor * 100

    End Sub

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

        Valor = 10000

    End Sub

End Class

La parte gráfica de este programa se ve así:

12. TIMER

ENLACE DONDE PUEDEN DESCARGAR ESTE PROGRAMA ES:
https://www.dropbox.com/s/kgj9je1iopt9cz2/TIMER.rar