Timer

Soyez le premier à donner votre avis sur cette source.

Vue 5 332 fois - Téléchargée 355 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

njakapiso
Messages postés
6
Date d'inscription
mercredi 19 juillet 2006
Statut
Membre
Dernière intervention
25 septembre 2006
-
njakapiso
ça marche bien
merci
cs_flo50
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!
Proutie66
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
ypelissier
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. "
Afyn
Messages postés
613
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+

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.