Contador para Cyber

[frank-newbie]

aqui les dejo el codigo de un contador para cyber
tienen que agregar 6 labels los primeros 3 sin texto y los otros con caption hora tiempo de uso y precio, un timer com interval 1000, enabled = false y un boton con caption Iniciar
aqui el codigo:

Private Sub Command1_Click()
Timer1 = True
End Sub
Private Sub Timer1_Timer()
Static Segundos As Byte, Minutos As Byte, _
Horas As Integer, Precio As Double, Contador As Long
    Contador = Contador + 1
    Label1 = Time
    If Segundos < 59 Then
        Segundos = Segundos + 1
    Else
        Segundos = 0
        If Minutos < 59 Then
            Minutos = Minutos + 1
        Else
            Minutos = 0
            Horas = Horas + 1
        End If
    End If
    Label2 = Format(Horas, "##00") + ":" + _
    Format(Minutos, "##00") + ":" + Format(Segundos, "##00")
    Precio = CDbl(Contador * 100 / 3600)
    If Precio < 2.777777777777 78E-02 Then
        Precio = 2.777777777777 78E-02
    End If
    Label3 = Format(Precio, "##,##00")
End Sub

ppor cierto alguien me podria decir como ponerle milecimas a un cronometro para que me marque HH:MM:SS:ML

[Ixidior_RealitySculptor]

en si tendrias que cambiar el interval a no se creo ke era 100 pero igual no te saldra preciso.. pues como estas tomando medidas muy pequeñas entonces tambien tienes que comenzar a contar cuanto se demora en llegar a esa linea del codigo.. yo ya una vez intente hacer un cronometro y tuve ese problema. Si lo dejas en medidas exactas se desfaza del tiempo real.

[kadamon]

hola, nada mas una pregunta, esta bien tu codigo esta chido, lo unico que te queria preguntar es como puedo hacer para reiniar el cronometro al momento en el que precione un boton se reinicie desde cero, bueno eso es todo muchas gracias aludos a todos

[Hack_Fmadrid]

en que lenguaje esta??
un saludo

[invi]

en que lenguaje esta??

Por la sintaxis se ve claramente que esta en VB

Saludos!!

[kadamon]

esta en visual basic 6, el probrema en si es solo hacer que reinicie el contador pero no se comando utilizar es que estoy = haciendo un administrador de maquinas para un ciber pero como te comento lo que me hace falta es que al momento que precione l boton "borrar" se borre el contador e inicie al momento en que le doy "comenzar" 
bueno gracias a todos

[Hack_Fmadrid]

aja, ok esque yo solo se en c, c++ y batch.
gracias y un saludo

[El javi]

En cuanto a:

hola, nada mas una pregunta, esta bien tu codigo esta chido, lo unico que te queria preguntar es como puedo hacer para reiniar el cronometro al momento en el que precione un boton se reinicie desde cero, bueno eso es todo muchas gracias aludos a todos

esta en visual basic 6, el probrema en si es solo hacer que reinicie el contador pero no se comando utilizar es que estoy = haciendo un administrador de maquinas para un ciber pero como te comento lo que me hace falta es que al momento que precione l boton "borrar" se borre el contador e inicie al momento en que le doy "comenzar" 
bueno gracias a todos

Creo que esto es lo que quieres hacer:

Código:

Option Explicit

Private Iniciar As Boolean, Horas As Integer, Min As Integer, Seg As Integer, Precio As Integer

Private Sub cmdIniciar_Click()
    Iniciar = True
    cmdIniciar.Enabled = False
End Sub

Private Sub cmdParar_Click()
    If cmdParar.Caption = "&Parar" Then
        cmdParar.Caption = "&Continuar"
        Iniciar = False
    Else
        cmdParar.Caption = "&Parar"
        Iniciar = True
    End If
End Sub

Private Sub cmdPonerCero_Click()
    Form_Load
End Sub

Private Sub Form_Load()
    cmdIniciar.Enabled = True
    lblHora.Caption = Time
    Iniciar = False
    Horas = 0
    Min = 0
    Seg = 0
    Precio = 0
    lblUso.Caption = "0 horas 0 minutos y 0 segundos."
    lblPrecio.Caption = "0 €."
End Sub

Private Sub Timer1_Timer()
    lblHora.Caption = Time
    If Iniciar = True Then
        If (Min = 30 And Seg = 0) Or (Min = 0 And Seg = 0) Then Precio = Precio + 1
        If Min = 59 And Seg = 59 Then
            Min = 0
            Seg = 0
            Horas = Horas + 1
        End If
        If Seg = 59 Then
            Seg = 0
            Min = Min + 1
        Else
            Seg = Seg + 1
        End If
       
        lblUso.Caption = CStr(Horas) & " horas " & CStr(Min) & " minutos y " & CStr(Seg) & " segundos."
        lblPrecio = CStr(Precio) & " €."
    End If
End Sub

Si tienes alguna duda sobre el código no dudes en preguntarla.

Salu2