Hola todos tengo el siguiente codigo para conseguir que un label (Label1) aparezca asi:

HH:MM:SS,MLML (horas, minutos, segundos y milesimas).

aqui el codigo:

Código:

Private Sub Form_Load()
Timer1.Interval = 10
Timer2.Interval = 1
Label2.Caption = 0
End Sub

Private Sub Timer1_Timer()

 Label2.Caption = Label2.Caption + 1

End Sub

Private Sub Timer2_Timer()

Dim Horas As Integer
Dim Minutos As Integer
Dim Segundos As Integer
Dim Milisegundos As Integer
Horas = (Minutos \ 60)
Minutos = (Segundos \ 60) - (Horas * 60)
Segundos = (Label2.Caption \ 100) - (Minutos * 60)
Milisegundos = Label2.Caption - (Segundos * 100)
Label1.Caption = Format$(Horas, "0#") & ":" & Format$(Minutos, "0#") & ":" & Format$(Segundos, "0#") & "," & Format$(Milisegundos, "0#")
End Sub

pero nose porque solo me transforma hasta los segundos, y los minutos y horas quedan en 00.

Ayudenme porfavor.
Gracias.

Hola, no es un problema raro. Es simplemente que en las dos primeras instrucciones de Timer2_Timer() usas la variable Minutos que está recién declarada (e inicializada a 0, pues estamos en VB).
Otro problema es la eficiencia: estás usando dos temporizadores con un intervalo mínimo lo que es un despilfarro de recursos.
Además el intervalo mínimo de 1 milésima de segundo puede no ser real, dependiendo de la máquina, con lo que te sale un cronómetro muy poco preciso. Otro defecto (y perdona): Timer2 tiene un intervalo de 1 y comprueba 10 veces el valor de Label2 antes de que cambie cada 10 ms gracias a timer1.
¿por qué no pruebas con TmeGetTime? que te devuelve los milisegundos desde que se inició el sistema

'Pon esto lo primero en el módulo:
'Para medir intervalos en milisegundos:
Declare Function timeGetTime Lib "winmm.dll" () As Long
Dim T as long

Private Sub Form_Load()
Timer2.Interval = 1
T = timeGetTime()
Timer2.Enabled = true
End Sub

Private Sub Timer2_Timer()

Dim Horas As Long
Dim Minutos As Long
Dim Segundos As Long
Dim Milisegundos As Long
Dim Tics as long


'Cuenta los milisegundos desde Load
Tics = timeGetTime() - t

Milisegundos = Tics Mod 1000 'Ya valen la fracción desde el último segundo
Segundos = Tics \ 1000 'En principio los Totales, ya verás como voy descontando horas y minutos

'Vamos descontando de mayor a menor:
Horas = Segundos \ (Clng(60) * Clng(60))
if Horas > 0 then
Segundos = Segundos Mod (Clng(60) * Clng(60))
endif

Minutos = Segundos \ Clng(60)
if Minutos > 0 then
Segundos = Segundos Mod Clng(60)
endif

Label2.Caption = Cstr(T)
Label1.Caption = Format$(Horas, "0#") & ":" & Format$(Minutos, "0#") & ":" & Format$(Segundos, "0#") & "," & Format$(Milisegundos, "0#")
End Sub
A lo mejor no es lo mejor, pero es más estructurado y eficiente. Por cierto, no lo he probado. Ya me dirás. Un saludo.

Perdón, Había un fallo: si usas un módulo vale lo dicho respecto a la declaración de la función pero la variable sería Public T as Long. Pero si lo pones al principio del formulario La declaración de la variable es correcta pero tienes que declarar la función como Private Declare.... ya que si no te da un error. Perdón de nuevo

Hola,mira debe haber algo mal,no te lo corregi ,te pongo este ejemplo de uno que use para un juego,es lo mismo que el tuyo,pero te queria decir que asi como lo tenes vos no te cuenta las milesimas,son centesimas de segundo,pone un label y un timer:

Código:

Option Explicit

Dim Contador As Long
Dim Tiempo As String

Private Sub Timer1_Timer()
Contador = Contador + 1
Tiempo = Format(Int(Contador / 360000) Mod 24, "00") & ":" & Format(Int(Contador / 6000) Mod 60, "00") & ":" & Format(Int(Contador / 100) Mod 60, "00") & "," & Format(Contador Mod 100, "00")
Label1.Caption = Tiempo
End Sub

Private Sub Form_Load()
Contador = 0
Timer1.Interval = 10
End Sub

saludos.

Gracias seba, pero tengo una pregunta mas:

La velocidad con la que pasa el tiempo es como distinta si pongo interval 10 o 1000 en el timer. Intenta, pon dos timer uno con interval 10 y otro 1000.. uno que avance de 1 en 1 (el de interval 1000) y otro que avance de 0,01 en 0,01 (el de interval 10).. Si te fijas la velocidad en la que pasan los segundos es distinta, pero deberia ser la misma.. esto a que se debe?

Pues a que un timer siempre va a dar una medida aproximada del tiempo (no como la función TimeGetTime).
No es lo mismo disparar un evento y ejecutar su código asociado 1 vez por segundo que 100 veces por segundo. (la asunción de que 1x1 = 1x0,01 aquí se hace falsa por esta razón. Aparte, ya te dije, si pones unidades muy pequeñas de intervalo no serán reales.
Por cierto, es muy aconsejable colocar DoEvents en el timer para que el sistema "respire" y pueda realizar otras tareas.

si,es verdad nada que ver el tiempo,no se porque sera,por eso no es recomendable usar timers,sino crear timers con api's.

Quise decir 1x1 = 100x0,01
Oye, ¿hay alguna manera de editar un post sin tener que crear otro para hacer la corección?
Debo ser torpe, pues no la encuentro. Gracias.

desabilitaron la opcion..
ya me quedo claro todo.. Gracias a todos.

Iniciado por Marcelo

Oye, ¿hay alguna manera de editar un post sin tener que crear otro para hacer la corección?
Debo ser torpe, pues no la encuentro. Gracias.

no,no sos torpe,no se porque y nadie contesta,de porque sacaron esa opcion que era muy util,y es util en todos los foros del mundo.

saludos.

Aquí está es la explicación de porqué se deshabilitó la opción de editar

http://www.canalvisualbasic.net/foru...313&FID=1&PR=3

La cual, yo nunca entendí.

Saludos

Los que no esten deacuerdo conque no se puedan editar mensajes pueden votar aca:
http://www.canalvisualbasic.net/foru....asp?TID=33021

saludos

Bueno y finalmente.. ¿como puedo hacer un timer que incluya milesimas y que no sea aproximado, sino exacto?

para que lo de en formato asi:

01:54:31,564

como en los subtitulos

GRacias

Iniciado por Skipped

ya me quedo claro todo.. Gracias a todos.

yo pense que ya estaba solucionado, para que sea exacto hacelo con api

aca hay un ejemplo de como hacerlo...
http://www.recursosvisualbasic.com.ar/htm/listado-api/175-timer-con-el-api.htm

saludos

bueno hablando de la opcion de editar mensajes...

GRacias

Lo hice mucho mas simple y me dio el tiempo exacto:


Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Command1_Click()
Timer1.Enabled = True
inicio = GetTickCount 'desde el inicio de windows
End Sub

Private Sub Timer1_Timer()
'el interval del timer1 es 1
Label2.Caption = (GetTickCount - inicio) 'ahora sabiendo el inicio empezamos de 0[/code]
End Sub

Perfecto, Sipped. Pero segun Microsoft es más precisa aún la función TimeGetTime() que te puse en mi primera resuesta que la GetTckCount(). No tengo tiempo de verificarlo pero yo siempre he usado TimeGetTime para analizar los tiempos de ejecución de bucles y funciones y me ha ido muy bien.
Pero como ya te dije,la precisión de estas funciones no es 1 milésima aunque pueda parecerlo, pero es el modo más preciso, aumentando su precisión cuanto más tiempo pasa entre la medición inicial y la final, al contrario de lo que pasa con el uso de los timers, incluídos los contruídos con APIs