begin process at 2010 02 10 03:08:54
  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 121 / 282
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 Source .NET (Dotnet) FUSEAUX HORAIRES (HORLOGES ANALOGIQUES) par Blodox
Source avec Zip Source avec une capture ANNIVERSAIRE,FÊTES ET DICTONS par claude440
Source avec Zip Source avec une capture CALCULE HEURES DE NUIT 2 par ocejade
NUMÉRO DE SEMAINE par vb5zh
Source avec Zip HORLOGE À AIGUILLES (RADIAN) par brainbass
Toutes les sources de la catégorie Date & Heure

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture VERROUPC (LOGICIEL POUR BLOQUER ET DÉBLOQUER CERTAINES FONCT... par yugoboss0
Source avec Zip DÉFILEMENT TEXTE par mimiZanzan
Source avec Zip Source .NET (Dotnet) DESSIN D'UN CERCLE A TRAVERS 3 POINT par infodevlo
Source avec Zip Source avec une capture Source .NET (Dotnet) COMPTE À REBOUR par denpx
Source avec Zip Source avec une capture AVERTISSEUR DE MAILS par Niko2003

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 comment connaitre la session windows a distance [ par mighnion ] Bonjour, Je cherche depuis un petit moment mais je ne trouve rien. Pourriez vous m'aider? J'ai un reseau de Trois pc et je voudrais connaitre à part Connexion PPC <-> PC [ par Kronakoria ] Bonjour,J'aimerais savoir comment vérifier la connexion d'un PPC sur le PC comme le fait ActiveSync.J'ai essayé avec la librairie RAPI, le seul problè redemarrer en mode sans echec [ par zatox ] Bonjour a tous, je développe beaucoup de scripts en batch, je viens de créer un fix antivirus, mais il a besoin d'être lancé en mode sans échec pour s pc serveur [ par rababe2000 ] est ce que un pc serveur communique comme un pc normale ? c est tres urgent le faite de reessaie de ordonne les donnes d une base donnes c est normale Commande shutdown sous WinXP [ par HydRa13 ] Je ne savais pas trop ou mettre cette question donc si ce n'est pas le bon endroit désolé J'ai découvert il y a peu la commande shutdown du dos et je performance du pc [ par soujava ] slt est ce qu'il y a quelqu'un qui peut me me guider vers des astuces pour que mon PC devienne rapide sur tout au demarrage  merci<img src="http://www connection wifi pc-->PDA [ par berpontini ] Bonjours a tousJ'ai creer un programme sous vb.net pour piloter via une carte de puissance des relais de mon PC.Je voudrais via un PDA envoyer un ordr


Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
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 : 0,796 sec (4)

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)