ABCdatos
Programas y tutoriales
en castellano
ABCdatos tu página de inicio Inicio       
Su navegador rechazó un objeto incrustado.
Su navegador no soporta objetos incrustados. Vea los últimos mensajes en el foro.

Medir el tiempo que lleva Windows activado

     
Fuente: Cool F.A.T.A.
Web: http://www.cybercultura.com/
     
  • Descripción
  • Anotaciones
  • Opiniones

PUBLICIDAD
Código en VB para conocer cuánto tiempo lleva el Windows ejecutándose desde que lo abriste.

Añade la siguiente función en un módulo o en las declaraciones generales del "Form1" o cualquier otro formulario:

Declare Function GetTickCount& Lib "kernel32" () (para un módulo)

o escribe:

Private Declare Function GetTickCount Lib "kernel32" () As Long (para un formulario)

Agrega una etiqueta al formulario (Label1), un temporizados (Timer1) y cambia la propiedad del Interval de Timer1 a 1. Luego coloca el siguiente código dentro del Timer1:

Private Sub Timer1_Timer()
Const TiempoWindows_POR_HORA = TiempoWindows_POR_MINUTO * 60 '1 hora tiene 60 minutos
Const TiempoWindows_POR_MINUTO = TIEMPO_EN_SEGUNDOS * 60 '1 Minuto tiene 60 segundos
Const TIEMPO_EN_SEGUNDOS As Long = 1000 'Variable del tiempo en milisegundos

Dim TiempoWindows As Long 'Declaración de variable
Dim segs As Long
Dim minutos As Long
Dim horas As Long

TiempoWindows = GetTickCount() 'Busca por cuanto tiempo Windows ha sido ejecutado
horas = TiempoWindows \ TiempoWindows_POR_HORA
TiempoWindows = TiempoWindows - horas * TiempoWindows_POR_HORA
minutos = TiempoWindows \ TiempoWindows_POR_MINUTO
TiempoWindows = TiempoWindows - minutos * TiempoWindows_POR_MINUTO
segs = TiempoWindows \ TIEMPO_EN_SEGUNDOS 'Selecciona el parámetro referido a los segundos
TiempoWindows = TiempoWindows - segs * TIEMPO_EN_SEGUNDOS
Label1.Caption = Format$(horas) & " hora(s)" & Chr(10) & Format$(minutos) &_
" minutos" & Chr(10) & Format$(segs) & " segundos" 'Imprime en pantalla tiempo que windows ha sido ejecutado
End Sub
Limitaciones de la versión

Visual Basic

No hay opiniones de los usuarios. ¡Sé el primero en dar tu opinión! (No requiere registro)

Trucos del mismo autor Más trucos del mismo autor
(Se muestran 10 de 14)
El juego oculto de Macromedia Flash 5!
Es increible todo lo que nos pueden mostrar los programas de Macromedia y más aun cuando se incluye una demo super interesante de un juego hecho en Flash 5. Los pasos a seguir son sencillos: -...
► sigue leyendo
El caso del gato misterioso en Photoshop
Cómo descubrir nuestro propio gato eléctrico en 2 pasos: Para descubrir el gato eléctrico que incluye la versión del Photoshop (o el Adobe® Image Ready) que...
► sigue leyendo
Super Velocidad
Existe una clave en el registro que permite descargar de memoria las librerías de enlaces dinámicos (DLL) que no están siendo utilizadas. Esto se traduce en más velocidad,...
► sigue leyendo
Archivo de 'Tips y Trucos' para Windows 98
Al igual que en Windows 95, en 98 podrás encontrar en el directorio de Windows (por lo general: C:\WINDOWS) un archivo llamado "Tips.txt". Este archivo posee información de Windows 98 y...
► sigue leyendo
Acceder rápido al explorador
Si quieres un acceso rápido al Explorador, sólo has de mantener pulsado el botón de Inicio (en el teclado) y presionar la letra "E"...
► sigue leyendo
Abrir archivos asociados con otros programas
Es posible que en algún momento necesites abrir algún archivo previamente asociados con un programa determinado, con otro programa diferente. Por ejemplo: al hacer click sobre un...
► sigue leyendo
Convertir de Visual Basic 3.0 a Visual Basic 4.0, 5.0 ó 6.0
Para exportar un proyecto completo de Visual Basic 3.0 a Visual Basic 4.0, 5.0 o 6.0 haz lo siguiente: 1- Abre el Proyecto (Archivo.MAK) en Visual Basic 3.0 2- Si tienes la versión en...
► sigue leyendo
Convertir de Visual Basic 6.0 a Visual Basic 5.0 ó 4.0
Cómo exportar un proyecto completo de Visual Basic 6.0 a Visual Basic 4.0 ó 5.0. Sigue estos pasos: 1- Abre 'Mi PC' y ubica la carpeta que contiene el proyecto (Archivo.vbp) de Visual...
► sigue leyendo
Fantasma escritor en Word
Gracias a un truco (¿o error?) de Microsoft Word podrás ver con asombro como el fantasma que tiene dentro escribe y es capaz de llenar páginas y páginas con un contenido...
► sigue leyendo
Evitar el truco del "Botón derecho"
Muchos webmasters piensan que para evitar las copias de sus contenidos o la visualización de su código fuente, basta con inhabilitar el botón derecho del mouse. Lamentablemente...
► sigue leyendo

Copyright © 1999-2023 ABCdatos.com. Todos los derechos reservados.
Aviso legal. Políticas de privacidad y cookies.
Contactar con ABCdatos.