System uptime info : donne le temps depuis lequel votre pc est allumé

Soyez le premier à donner votre avis sur cette source.

Vue 11 589 fois - Téléchargée 660 fois

Description

C'est une source tres simple, je crois qu'il y en a une deja sur VBFrance mais elle utilise les api alors qu'avec le framework.net pas besoin, on trouve sous l'espace de nom Environment pas mal de choses plutot interessantes. Dont la proprieté TickCount() qui renvoit le nombre de milliseconde depuis lequel votre PC est allumé.

Il y a 2 parties dans le programme : Celle qui recupere la valeur de TickCount et la traite de façon a ce qu'elle puisse dire quelque chose aux humains.
Et la partie Copier, qui copie le contenu des 3 TextBox dans le presse papier pour que le resultat puisse etre exploité sous d'autres programmes.

J'ai mis le support des themes de windows xp, c'est toujours ça de gagné et c'est plus beau.

L'appli est en anglais, vu sa nature sa devrait pas trop vous handicaper.

Conclusion :


Eclatez vous bien avec !
Derniere chose, l'icone est faite maison (je suis graphiste), vous avez le droit la recup et l'utiliser dans vos programme sa ne me dérange pas. Si vous voulez le PNG original, demandez moi par mail.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1447
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
23 septembre 2007
2
Moi j'ai fais comme ca :

Private Function DateToString(ByVal milliseconds As Integer) As String
Dim millisecond As Integer = milliseconds, second, minute, hour As Integer

Dim ResultString As String

While millisecond >= 1000
millisecond -= 1000
second += 1
End While

While second >= 60
second -= 60
minute += 1
End While

While minute >= 60
minute -= 60
hour += 1
End While


Select Case hour
Case Is > 1
ResultString += hour.ToString & " Heures "
Case Is > 0
ResultString += hour.ToString & " Heure "
End Select

Select Case minute
Case Is > 1
ResultString += minute.ToString & " Minutes "
Case Is > 0
ResultString += minute.ToString & " Minute "
End Select

Select Case second
Case Is > 1
ResultString += second.ToString & " Secondes "
Case Is > 0
ResultString += second.ToString & " Seconde "
End Select

Select Case millisecond
Case Is > 1
ResultString += millisecond.ToString & " Millisecondes"
Case Is > 0
ResultString += millisecond.ToString & " Milliseconde"
End Select

Return ResultString
End Function
Messages postés
19
Date d'inscription
jeudi 27 mars 2003
Statut
Membre
Dernière intervention
17 juin 2004

Pour faire fonctionner un executable .Net il faut avoir installé le Framework .net sur sa machine.

Il semble que tu l'ai pas.

Tu peux le telecharger la : http://go.microsoft.com/fwlink/?LinkId=9832
Messages postés
2
Date d'inscription
jeudi 20 mai 2004
Statut
Membre
Dernière intervention
17 juin 2004

Lorsque je lance ce prog il me dit qu'il ne trouve pas MSCOREE.DLL .Comment je fais pour le faire marcher?Il faut m'expliqué assez simple car je ne suis pas un informaticien.Merci de m'aidé. Répondé sur yoan8306@hotmail.com ou sur le site.
Messages postés
2
Date d'inscription
jeudi 20 mai 2004
Statut
Membre
Dernière intervention
17 juin 2004

Lorsque je lance ce prog il me dit qu'il ne trouve pas MSCOREE.DLL .Comment je fais pour le faire marcher?Il faut m'expliqué assez simple car je ne suis pas un informaticien.Merci de m'aidé. Répondé sur yoan8306@hotmail.com ou sur le site.
Messages postés
440
Date d'inscription
mardi 21 octobre 2003
Statut
Membre
Dernière intervention
6 mai 2010
1
c clair terrible aussi 10
Afficher les 6 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.