Vitesse du proc et kantite de ram

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 594 fois - Téléchargée 48 fois

Contenu du snippet

Ben tout simple sa donne la vitesse di proc

Source / Exemple :


'pour le proc
Private Declare Function GetCpuSpeed Lib "XtCpu.dll" () As Long

MsgBox "Vitesse du proc: " & GetCpuSpeed() / 1000000 & " Mhz"

' pour la ram

Type MEMORYSTATUS
    dwLength As Long
    dwMemoryLoad As Long
    dwTotalPhys As Long
    dwAvailPhys As Long
    dwTotalPageFile As Long
    dwAvailPageFile As Long
    dwTotalVirtual As Long
    dwAvailVirtual As Long
End Type

Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)

Public Sub GetRamStats()
    Dim RamStats As MEMORYSTATUS

    GlobalMemoryStatus RamStats

    MsgBox            "Ram Totale = " & Format(RamStats.dwTotalPhys, "###,### octets")  _ 
                                 & "  (" & Format(RamStats.dwTotalPhys \ 1024, "###,### Ko") & ")"  _ 
          & VbCrLf & "Ram Libre = " & Format(RamStats.dwAvailPhys, "###,### octets")  _ 
                                 & "  (" & Format(RamStats.dwAvailPhys \ 1024, "###,### Ko") & ")"  _ 
          & VbCrLf & "(" & Int((RamStats.dwAvailPhys / RamStats.dwTotalPhys) * 100) & "% libres)."
End Sub

Conclusion :


Apres c a vous de le placer dans votre appli

A voir également

Ajouter un commentaire

Commentaires

Messages postés
22
Date d'inscription
jeudi 13 janvier 2011
Statut
Membre
Dernière intervention
20 juillet 2011

moi j aime bien les commentaires inutiles comme RACHOO
max12 > il est bourré de phautes d'orthographe ton dicton :oP
c est faute et pas phaute MDR
de plus divisé par 1 millions la vitesse du cpu c est pas trop sa ... pour obtenir une valeur exacte !
PS c est moi le vrai zerocool ! ;)
Messages postés
370
Date d'inscription
lundi 1 avril 2002
Statut
Membre
Dernière intervention
11 février 2010

arf merci c'est cool ton code
C'est texactement ce que je cherchais pour faire un calcul de temp approximatif ...
Thanks

(et pis chui d'acord avec Neo.balastik )
(et franchement transformez votre mauvaise humeur en créativite ... le monde n'en sera que meilleur ... >:| )
Messages postés
412
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
7 avril 2008
1
Il y a des gens qui n'ont rien d'autre à faire que de critiquer le travail des autres
Il se reconnaitrons...
Messages postés
796
Date d'inscription
jeudi 17 mai 2001
Statut
Membre
Dernière intervention
5 mai 2009
5
Vous trouverez la DLL ici en fin de page (je crois que c'est la bonne - à vérifier):
http://perso.wanadoo.fr/vbsoluces/Codes_Systeme.htm

'Faut pas se fâcher les amis... Si tout le monde était parfait, qu'est-ce que l'on s'embêterait... N'est-ce pas ?
Messages postés
36
Date d'inscription
mercredi 9 janvier 2002
Statut
Membre
Dernière intervention
9 avril 2002

max12 > il est bourré de phautes d'orthographe ton dicton :oP
Afficher les 7 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.