Cronometrar tiempo de encendido del computador

[franko1809]

Bueno lo que quiero es crear una especie de reloj que me diga las horas, minutos y segundos que pasaron desde que se encendio el computador.



Encontre este ejemplo pero solo toma los minutos mediante el api GetTickCount, solo falta hacer los calculos para convertir los minutos en un reloj y la n1h1 me tiene loco jeje, espero me dén una idea para resolverlo

Código:

Private Declare Function GetTickCount& Lib "kernel32" ()


Private Sub Command2_Click()
    ret& = GetTickCount&
    MsgBox Str$(ret& / 60000) + " minutes."
End Sub

[seba123neo]

Hola, proba esto:

Código vb:

Option Explicit
 
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Private Sub Form_Load()
   MsgBox TiempoEncendidaPC
End Sub
 
Private Function TiempoEncendidaPC() As String
   Dim vHoras As Long, vMinutos As Long, vSegundos As Long
   
   vHoras = Int(GetTickCount / 1000 / 60 / 60)
   vMinutos = Int((GetTickCount / 1000 / 60)) - vHoras * 60
   vSegundos = Int((GetTickCount / 1000)) - vMinutos * 60 - vHoras * 3600
   
   TiempoEncendidaPC = Format(vHoras, "00") & ":" & Format(vMinutos, "00") & ":" & Format(vSegundos, "00")
End Function
 

saludos.

[franko1809]

muy bueno tio, me despejaste la mente, siempre sacaba 0 en matematicas, es en serio.
Ahora tratare de mostrar el tiempo en un label o textbox atravez de un timer, espero no tener problemas al llamar a la funcion TiempoEncendidaPC cada 1 segundo desde el timer, si a alguien se le ocurre una mejor forma bienvenida sea la idea

saludos

[seba123neo]

pues no te va a pasar nada si la llamas cada un segundo, pero otra opcion es no llamarla mas de una vez...o sea la llamas una sola vez y ahi obtenes el tiempo y despues de ahi directamente en un Timer vas sumando un segundo cada vez que pase y es lo mismo que llamarla...y te lo ahorras..

saludos.

[franko1809]

Um!! no se complicaria la cosa ya que la funcion TiempoEncendidaPC devuelve este formato "02:10:59" creo que perdi la percepcion

En todo caso utilizando las variables vHoras, vMinutos , vSegundos podria crear un especie de cronometro, bueno olvidalo tio ahora la cabeza no me da para este asunto si tienes unos segundos me lo resuelves, aunque seguro pensaras que quiero todo servido

saludos

[seba123neo]

mira lo facil que es...

Código vb:

Option Explicit
 
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Private vTiempoActual As String
 
Private Sub Form_Load()
   vTiempoActual = TiempoEncendidaPC
   With Timer1
      .Enabled = True
      .Interval = 1000
   End With
End Sub
 
Private Function TiempoEncendidaPC() As String
   Dim vHoras As Long, vMinutos As Long, vSegundos As Long
   
   vHoras = Int(GetTickCount / 1000 / 60 / 60)
   vMinutos = Int((GetTickCount / 1000 / 60)) - vHoras * 60
   vSegundos = Int((GetTickCount / 1000)) - vMinutos * 60 - vHoras * 3600
   
   TiempoEncendidaPC = Format(vHoras, "00") & ":" & Format(vMinutos, "00") & ":" & Format(vSegundos, "00")
End Function
 
Private Sub Timer1_Timer()
   Me.Caption = Format(CDate(vTiempoActual) + CDate("00:00:01"), "Hh:mm:ss")
   vTiempoActual = Me.Caption
End Sub
 

sin llamar a la funcion con el Timer...

saludos.

[franko1809]

bien tio gracias por los minutos, saludos