begin process at 2012 02 10 02:05:40
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Date & Heure

 > TIMER

TIMER


 Information sur la source

Note :
3,67 / 10 - par 6 personnes
3,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Date & Heure Classé sous :timer, pc, allumé Niveau :Débutant Date de création :07/10/2002 Date de mise à jour :07/10/2002 13:53:24 Vu / téléchargé :4 438 / 291
Auteur : bigfootspi

Ecrire un message privé
Site perso
Commentaire sur cette source (10)
Ajouter un commentaire et/ou une note

 Description

pour savoir depuis combien de temps votre pc est allumé

Source

  • 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
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

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources de la même categorie

Source avec Zip Source avec une capture LES FONCTIONS DATE PAR L'EXEMPLE. par pasquet78
Source avec Zip Source avec une capture CALENDRIER, MODE D'EMPLOI par pasquet78
Source avec Zip Source avec une capture Source .NET (Dotnet) HORLOGE DIODE AVEC 3 ALARMES ET REMISE À L'HEURE par EhJoe
Source avec Zip Source avec une capture POINTEUSE HORAIRES PAR SEMAINE par VBNoob13
Source avec Zip Source avec une capture HORLOGE À AIGUILLES SIMPLEMENT DANS UN USERFORM EXCEL par bigbe
Toutes les sources de la catégorie Date & Heure

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture JEU DU SERPENT/TRON par dada9109
Source avec Zip Source avec une capture PLANCHE CONTACT SOUS WORD par Le Pivert
Source avec Zip FERMER UN PROGRAMME OU UN PROCESSUS par 123collargol
Source avec Zip MESSAGE AUTO (MSG_AUTO) par omega8
Source avec Zip Source avec une capture Source .NET (Dotnet) JEU DE SERPENT/TRON AVEC PICTUREBOX par raffika

Commentaires et avis

Commentaire de celiphane le 07/10/2002 14:22:26

C'est nul, ça bouffe des ressources et ça sert à rien !
Tiens, regarde plutot ça :

http://216.26.168.92/vbapi/ref/g/gettickcount.html

C'est la commande API qui sert à retourner le nombre de millisecondes écoulées depuis le chargement de Windows....

Faut bien se renseigner avant de produire n'importe quoi...

Voilà pour le coup de gueule méchant !   ;)

Maintenant une astuce de dvp sympa :

"Dim First, Sec, Min, Heure, Jours As Integer "

Ceci produit Jours comme un Integer et le reste comme des variant... (2 octets de mem pour l'un contre 32 [!!! je crois !!!] pour l'autre... a bon entendeur...)

Commentaire de DARKSIDIOUS le 07/10/2002 14:34:10 administrateur CS

Exact celiphane, il vaut mieux faire :

Dim First as integer
Dim Sec as integer

etc., c'est plus long à écrire, mais au moins, tu est sûr que tes varaibles sont des entiers !

Sinon, ce n'est pas complètement inutile comme source, et puis ca ne bouffe pas énormément de ressources tout de même.

DARK SIDIOUS

Commentaire de cyrianox le 08/10/2002 06:11:57

Nuuulll !!!!!!! VRAIMENT INUTILE :

1/ tu règle ton timer à 1000, mais ce n'est PAS exactement 1seconde. C'est à peu près ça.... donc tu sais à peu près depuis combien de temps ton PC est allumé...
2/ les fonctions sur les dates sont bcp plus efficaces :

Méthode :
1/ mettre la date courante dans une variable au lancement du programe (a=now)
donc, Date & Heure
2/ faire la différence entre la date actuelle et la date dans a, puis la différence entre les heures, minutes et secondes, avec les fonctions :
Hour(), Minute(), Second(), TimeSerial(h,m,s)
à savoir : "00:01:00" + "00:01:00" = "00:02:00"
3/ afficher la différence qui sera EXACTEMENT le nombres de h,m,s depuis que le compteur est lancé.............................

Commentaire de celiphane le 08/10/2002 11:01:57

mais vous en faites exprès ou quoi avec vos propositions d'améliorations à la c... !???

Plus haut je vous ai montrer l'API qui renvoie précisément (en millisecondes) le temps écoulé depuis le démarrage de Windows...

Lisez un peu...

Commentaire de Pingouin le 08/10/2002 13:29:42

Ouais ben Bof quoi ya des apis pour ca no???
Pingouin

Commentaire de Afyn le 11/10/2002 18:37:10

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

Commentaire de ypelissier le 19/02/2003 09:56:43

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. "

Commentaire de Proutie66 le 04/08/2003 00:42:59

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

Commentaire de flo50 le 26/05/2006 18:09:55

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!

Commentaire de njakapiso le 12/09/2006 08:58:27

njakapiso
ça marche bien
merci

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Timer fiable [ par machto ] Bonsoir.Je ne comprends pas pourquoi mon objet timer1 ne fonctionne pas correctement.Un compte à rebours de 10 sec. en met 54 !!! et quelquesoit l'int PING [ par bbor99 ] Bonjour, Je souhaite en VB NET savoir si un PC de mon reseau est allumé ou pas. Je fais un test avec PING, mais si le PC n'est pas allumé, la réponse [VB.Net]Tester si tel pc du reseau est allumé ou pas [ par TORA38 ] Bonsoir, je suis en train de créer un logiciel qui nécessite de connaitre l’état d'une liste d'ordinateur... Je chercherai une fonction qui per Remote contole ou Contoler un pc a disance [ par daval43 ] bonjour je cherche un code a modifier pour ouvire (exemple des aplication sur un autre ordinateur (en utilisant serveur\clien )(et ladresse IP) merci appli sur ecran 15.6 pouces ---> 10 pouces [ par chris09300 ] bonjour j'ai un pc avec un ecran de 15p,j'ai une appli qui fonctionne bien. comment faire pour que cette appli soit utilisable sur un pc avec un ecran Erreur lors de tentative de téléchargement ou écriture d'un fichier [ par moogliber ] Bonjour à tous! J'ai une application qui télécharge un fichier sur mon site grace à l'instruction DownloadFile, voici la portion de code qui effectue Comment acceder par un index a différents Timer [ par Cpustack ] Bonjour, j'essaie d'optimiser un bout de code que voici [code] Private Sub Stop_Arret_Timer(ByVal I As Integer, ByVal Go As Boolean) 'Changeme conexion pocket avec serveur par wifi [ par momo12m ] j'ai un problème avec une application pocket pc (Smart Device) mon application consiste un envoyer un msg ou information de pocket(client) a un pc(ser Utiliser un timer dans une form [ par pierrotm777 ] Bonjour, J'espère que ma question est postée au bon endroit. J'essaie d'utiliser un timer dans une form men VB.net 2010 express, mais il semblerait qu Reinstallation de VBNet 2003 sur nouveau PC [ par dedenet2 ] Bonjour , J'ai actuellement un PC avec encore XP sur lequel j'avais installé VB6 et plus tard , la mise à jour VBNet2003. Aujourd'hui , je vais achete


Nos sponsors


Sondage...

Comparez les prix


Samsung LE26B350 LCD
Entre 359€ et 417€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Single Large Rock Formation in Monument Valley
Photo Renewable Energy is Within Reach 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 3,448 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)