Timer

0/5 (10 avis)

Vue 5 352 fois - Téléchargée 366 fois

Description

pour savoir depuis combien de temps votre pc est allumé

Source / Exemple :


Dim First, Sec, Min, Heure, Jours As Integer
Dim Format As String

Private Sub Form_Load()
    Sec = 0
    Min = 0
    Heure = 0
    Jours = 0
    Format = ""
    Label1.Caption = "Votre Pc est allumé depuis : 0 jour(s) et 0:0:0"
End Sub

Private Sub Timer1_Timer()
Sec = Sec + 1
If (Sec = 60) Then
    Sec = 0
    Min = Min + 1
End If
If (Min = 60) Then
    Min = 0
    Heure = Heure + 1
End If
If (Heure = 24) Then
    Heure = 0
    Jours = Jours + 1
End If

Format = "Votre Pc est allumé depuis : " & Jours & " jour(s) et " & Heure & ":" & Min & ":" & Sec
Label1.Caption = Format
End Sub

Conclusion :


ce prog est a placer dans le menu de demarage

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
6
Date d'inscription
mercredi 19 juillet 2006
Statut
Membre
Dernière intervention
25 septembre 2006

njakapiso
ça marche bien
merci
Messages postés
1
Date d'inscription
mercredi 24 mai 2006
Statut
Membre
Dernière intervention
26 mai 2006

il est top ton prog merci tu m'a bien dépanné!! fallait que je fasse un minuteur mais j'arrivais pas à faire afficher en format hh:mm:ss!
Messages postés
141
Date d'inscription
samedi 19 octobre 2002
Statut
Membre
Dernière intervention
14 avril 2008

Euh un truc pour cyrianos , t bete ou koi ?

C exact un timer 1000 equivaut pas EXACTEMENT a 1 sec , mais g envie de dire " ULTRA MEGA LOL " la difference est mini, est ici ce nest pas un chronometre tu c .... donc on survira si on a 1 sec decart , je tassure
Messages postés
23
Date d'inscription
vendredi 16 mars 2012
Statut
Membre
Dernière intervention
16 mai 2013

Je vous conseille plutôt d'utiliser l'API GetTickCount déjà mentionné plus haut...
Mais voici un petiti plus :
Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long

' Dans le module...
Dim Scd as Single
Dim Mns as Single
Dim Hrs as Single

' Récuppérer le nombre de millisecondes éoulées depuis le démarrage de Windows
Scd = GetTickCount
' Pour des divisions entières
Scd = Scd 1000
Mns = Scd 60
Hrs = Mns 60
Scd = Scd - (Mns * 60)
Mns = Mns - (Hrs * 60)
Msgbox "Démarré depuis " & Hrs & " h. " & Mns & " mn. " & Scd & " s. "
Messages postés
608
Date d'inscription
samedi 3 août 2002
Statut
Membre
Dernière intervention
22 décembre 2016

La commande Timer ne Fonctionne pas ?
StartTime = Timer
.
.
Msgbox Timer - StartTime
Y a pas plus simple
A+
Afficher les 10 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.