Cronómetros en Visual Basic 2010

Cronómetros en Visual Basic 2010
Hola, bienvenidos a mi primer blog sobre programación. La intención de este blog es lanzar los
proyectos que voy haciendo y publicarlos por si alguien los necesita. No quiero establecer muchos
parametros de entradas ni formatos molestos o de muchas palabras que adornen las entradas del
blog, sino hacerlo lo mas sucinto posible, tal y como una receta. dejare las pantallas necesarias, la
lista de herramientas, las propiedades para establecer y finalmente el codigo de programación, el
cuál intentaré describir para que se entienda.
Bueno ahora vamos a crear una suerte de cronómetros tanto que marchen de forma creciente
como decreciente, es decir que aumenten los números y que disminuyan los valores siempre en
enteros postivos ya que estamos hablando de la magnitud tiempo.
Primero que nada, deben tener instalado el Visual Basic 2010 que ya esta libre y es gratuito en la
misma pagina de Microsoft.
Segundo, abrimos el programa.
Tercero: Escogemos Nuevo Proyecto (o vamos a menpu Archivo -> Nuevo Proyecto, o
presionamos Ctrl + N)
Se nos abrirá una ventana para escojer el tipo de proyecto o ventana a crear.
Cuarto:
Escojemos la Plantilla Aplicación de Windows Forms, estó crea un formulario de Windows y sirve
casi para cualquier tipo de programa visual que queramos crear, nos da la ventaja de ver y crear
una aplicación tal cual como la queremos ver al final. (sólo para los curiosos, el que dice Aplicación
de consola sirve para hacer programas de codigo tipo DOS y Biblioteca de Clases es para
establecer pequeñas funciones como comportamiento de un boton, de una etiqueta, de una barra,
de un timer o de un cuadro de texto, que posiblemente sea utilizado cuando se trabaja con
programas más grandes y no queremos estar escribiendo el codigo a cada rato para un mismo tipo
de elemento, simplemente se hace el llamado al elemento guardado en la biblioteca con todo y sus
propiedades estalecidas de antemano).
Quinto paso:
Estiramos un poco el formulario y añadimos los siguientes elementos desde el menu herramientas
que se encuentra en el lado izquierdo de la ventana.
Cabe resaltar que el proyecto que estoy presentando consta de dos partes,
la primera un cronómetro simple que aumenta el tiempo desde los segundos.
Para esta primera parte necesitamos:
5 label (dos label para los dos puntos que separan las horas de los minutos y para el que separa
los minutos de los segundos) y tres label más:
una para la hora(propiedad Text: 00, Name: Hor)
una para los minutos (Text:00, Name: Min)
una para los segundos (Text: 00, Name: Seg)
para efectos de este proyecto y como quiero que se vean bien grandes los numeros del contadpr,
he cambiado el tamaño del texto de las 5 label aumentando el tamaño de la fuente en la propiedad
Font)
una vez que ingresan los 5 label lo ordenan de modo que quede como apariencia de un reloj.
3 botones:
Uno para Iniciar el conteo (Text: Iniciar Name: lo dejamos como Button1)
uno para detener el conteo (Text: Detener)
Uno para Reiniciar el conteo (Text: Reiniciar)
1 Timer (que será el que haga el conteo)
tiene que quedar algo así:

El timer no aparece como elemento del formulario ya que es un elemento programable pero
invisible. Aparecerá más bien en la parte inferior de la pantalla como el elemento Timer1.
Nota: Cuando hemos insertado el elemento Timer1 al formulario, debemos establecer el valor del
conteo en sus propiedades, como se sabe el contador timer cuenta unidades en milisegundos, en
nuestro caso queremos que el valor de conteo sea de un segundo así que damos un solo click al
icono del Timer1 y vamos al lado derecho de la ventana, a donde dice propiedades y establecemos
el intervalo de conteo en 1000 (interval).
Una vez terminado de añadir los elementos necesarios para nuestro primer cronómetro y de
haberles cambiado el texto para que aparezca como queremos, empezaremos con el código del
programa.
Sexto: Hacemos Doble Click en el elemento botón Inciar (Button1), lo que nos llevará a la ventana
de codigo, allí escribimos:

Timer1.Enabled = True
vamos a ver que la palabrita True se pone en azul. es por que reconoce la orden que le estamos
dando.
En Cristiano: estamos diciendole al programa que cuando hacemos click en el boton Iniciar, la
acción que debe hacer es habilitar el funcionamiento del elemento Timer1. Los elementos Timer
sólo sirven para contar, llevar cuentas, y siempre estan en milisegundos.
Debe quedarnos algo así:
Entonces el formulario empezará el conteo según el Timer1, más no lo podemos ver por que aún
no lo hemos reflejado en las label.
Para lograr esto volvemos a la pestaña Form1.vb [Diseño], bajamos hasta el final de la ventana
donde vemos el icono del Timer1 y le damos doble click, nos devolverá nuevamente a la ventana
de programación con una nueva entrada:
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs)

Handles Timer1.Tick
Debajo escribimos:
Seg.Text = Seg.Text + 1
If Seg.Text = 60 Then
Seg.Text = 0
Min.Text = Min.Text + 1
If Min.Text = 60 Then
Min.Text = 0
Hor.Text = Hor.Text + 1
End If
End If
Vamos por partes:
Recordemos que las etiquetas de Horas ,Minutos y Segundos las hemos puesto una al lado del
otro separados por las etiquetas de dos puntos en el formulario de diseño verdad?.
nos debió quedar algo como esto:
Horas : Minutos : Segundos
pero sin estas palabras ya que el texto de cada etiqueta es : 00
00 : 00 : 00
y si nos guiamos por los nombres (propiedad Name) de cada etiqueta debio quedar así la
estructura:
Hor : Min : Seg
Entonces: el Label (etiqueta) Seg, representará los segundos en el reloj, el Label Min representará
los minutos y el Label Hor representará las horas.
+++Como esto se guía de un contador preestablecido, no es necesario editar en el codigo ninguna

variable como numero integral, double o string por que no los vamos a usar.+++++
Bueno Ahora que estamos en la pestaña de programación en la linea de programación del

elemento Timer1 y que hemos escrito el codigo, les explicaré lo siguiente:
la linea : Seg.Text = Seg.Text + 1 (representa el texto que mostrará la etiqueta Seg, es

decir le ordena al label Seg cual es el texto a mostrar, en este caso como queremos que suba de 1
en 1, hemos establecido que lo que muestre será el valor que tome más una unidad, como el
proceso no indica un fin y es redundante, el valor que muestre la etiqueta Seg en el programa
simplemente seguira subiendo de valor de uno en uno)
If Seg.Text = 60 Then (Esta linea es una condicionante, If es una condicional, Le estamos

diciendo a la etiqueta Seg, que le dijimos que suba de uno en uno, que cuando llegue al valor de
60 haga lo siguiente:
Seg.Text = 0 (Que devuelva el valor de la etiqueta Seg a cero)
Min.Text = Min.Text + 1 (que el valor de la etiqueta Min (posicion de

minutos en el reloj) aumente en 1 su valor actual)
If Min.Text = 60 Then (Adicionalmente, dentro de la misma condicional de

la etiqueta Seg, añadimos otra condicional a la etiqueta Min, le decimos que cuando llegue al valor
de 60 haga lo siguiente:
Min.Text = 0 (Que vuelva a cero, evita además que aparezca el valor 60

en la parte de minutos ya que ningun reloj te muestra el minuto 60 sino el 0)

Hor.Text = Hor.Text + 1 (Que aumente el valor de la etiqueta Hor
(horas en el reloj) en una unidad)
End If (Termina la condicional del label Min)
End If (Termina la condicional del label Seg)
Ahora volvemos a la pestaña de Diseño.
Séptimo: Damos click en el botón Detener (Button2) y nos lleva a la pestaña de codificación:
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs)

Handles Button2.Click
Agregamos el siguiente código:
Timer1.Stop()
Ojo Siempre en las lineas de codigo se escribe entre las sentencias Private Sub
y la sentencia final siempre es End Sub , el codigo por más largo que sea debe ir dentro de estas.
Nos debe quedar los siguiente:
Con este código le estamos diciendo el programa que al hacel click en el boton Detener (Button2)
Se debe detener el Timer1.
Octavo: Volvemos a la pestaña de Diseño y damos doble click en el botón Reiniciar. Nos lleva a la
pestaña de programación de dicho botón:
Sean observadores y agreguen el Codigo que falta, debe terminar así:
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles

Button3.Click
Seg.Text = 0
Min.Text = 0
Hor.Text = 0
End Sub
Si adivinaron, pues es sólo cuestión de ordenarle al programa que devuelva los valores de las 3
etiquetas (label) a cero (0).
Y listo: ahora sólo nos falta correr el programa.
Damos click en el Boton Guardar Todo
y Corremos el programa con el boton Depurar (iniciar Depuración o presionamos la tecla F5 en el

teclado).
Nuestro programa debe correr sin errores y comenzar a contar, además le puse un título en el
formulario Tiempo Total, eso se logra introduciendo un label al cual le cambiamos el Text por el
nombre que le queremos poner y el tamaño de la fuente.

Cronómetros en Visual Basic 2010

Cargado por

Copyright:

Formatos disponibles

Cronómetros en Visual Basic 2010

Cargado por

Información del documento

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

Cronómetros en Visual Basic 2010

Cargado por

Copyright:

Formatos disponibles

Cronómetros en Visual Basic 2010

Para esta primera parte necesitamos:

1 Timer (que será el que haga el conteo)

tiene que quedar algo así:

Debe quedarnos algo así:

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

Vamos por partes:

Horas : Minutos : Segundos

pero sin estas palabras ya que el texto de cada etiqueta es : 00

Hor : Min : Seg

+++Como esto se guía de un contador preestablecido, no es necesario editar en el codigo ninguna

Bueno Ahora que estamos en la pestaña de programación en la linea de programación del

la linea : Seg.Text = Seg.Text + 1 (representa el texto que mostrará la etiqueta Seg, es

If Seg.Text = 60 Then (Esta linea es una condicionante, If es una condicional, Le estamos

Min.Text = Min.Text + 1 (que el valor de la etiqueta Min (posicion de

If Min.Text = 60 Then (Adicionalmente, dentro de la misma condicional de

Min.Text = 0 (Que vuelva a cero, evita además que aparezca el valor 60

End If (Termina la condicional del label Min)

End If (Termina la condicional del label Seg)

Ahora volvemos a la pestaña de Diseño.

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs)

Agregamos el siguiente código:

Nos debe quedar los siguiente:

Sean observadores y agreguen el Codigo que falta, debe terminar así:

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles

Y listo: ahora sólo nos falta correr el programa.

Damos click en el Boton Guardar Todo

y Corremos el programa con el boton Depurar (iniciar Depuración o presionamos la tecla F5 en el

También podría gustarte