jueves, 29 de julio de 2010

Crear un cronómetro By [ғЭ]GABY KILLER~Ҳ

Codes:

Public Class Form1

Private hora As Integer = 0

Private minuto As Integer = 0

Private segundo As Integer = 0

Private milisegundo As Integer = 0

Timer1:

milisegundo += 1

If milisegundo = 9 Then

milisegundo = 0

segundo += 1

If segundo = 59 Then

segundo = 0

minuto += 1

If minuto = 59 Then

minuto = 0

hora += 1

End If

End If

End If

MostrarTiempo()

End Sub

MostrarTiempo:

Sub MostrarTiempo()

Label1.Text = hora.ToString.PadLeft(2, "0" & ":"

Label1.Text &= minuto.ToString.PadLeft(2, "0" & ":"

Label1.Text &= segundo.ToString.PadLeft(2, "0" & ":"

Label1.Text &= milisegundo.ToString.PadLeft(1, "0"

Label1.Refresh()

End Sub

Botones

Iniciar:

Timer1.Enabled = True

Pausa:

Timer1.Enabled = False

Detener:

Timer1.Enabled = False

hora = 0

minuto = 0

segundo = 0

milisegundo = 0

MostrarTiempo()

No hay comentarios:

Publicar un comentario