Mini Test Performence

[sebdraluorg]

salut a tous,

 

J'ai ecris ce code afin de tester les performences du processeur

dans le but de comparer les performence avant et apres un overclocking

voire des modifications systeme comme comparer les performences avec

avec ou sans antivirus ou avec tel ou tel antivirus.

j'ai pense que ca pouvait etre utile sur un site d'optimisation

 

description : le code execute 100 million de boucles et calcul le temps mis

ainsi que le nombre de boucles en moyenne par secondes

 

il suffit de faire un copier colle dans le bloc notes et de sauvegarder avec le nom

de votre choix sous l'extention .vbs

 

a = 0
tim1 = time
reponse = MsgBox (" CE TEST VA EFFECTUER 100 MILLIONS DE BOUCLES       " _
& vbCrLf & "" & vbCrLf & " ET CALCULER LE TEMPS QU' IL AURA PRIS AINSI QUE " _
& vbCrLf & "" & vbCrLf & " LE NOMBRE DE BOUCLES EFFECTUEE A LA SECONDE" _
& vbCrLf & "" & vbCrLf & "" & vbCrLf & "       POUR DEMARRER LE TEST APPUYEZ SUR OK" _
& vbCrLf & "" & vbCrLf & " ", 1, "TEST DE PERFORMENCE")
Select Case reponse
Case vbOK
do
a = a + 1  
if a = 100000000 then 
tim2 = time
Diff = DateDiff( "s", tim1, tim2)
op = 100000000 / Diff
ops = round(op, 0)
mi = diff / 60
min = round(mi, 1)
MsgBox "    TEMPS EN MINUTES         =   " &min & "        " _
& vbCrLf & "" & vbCrLf & "    TEMPS EN SECONDES     =   " &Diff & "      " _
& vbCrLf & "" & vbCrLf & "    MOYENNE DE BOUCLES PAR SECONDE         " _
& vbCrLf & "" & vbCrLf & "    SUR 100 MILLIONS DE BOUCLES    =   " &ops & "  ", 0, "Resultats"
wscript.quit
end if
loop
Case vbCancel
wscript.quit
End Select

PS ce code dure entre + - 1 a 10 minutes suivant votre configuration ms vous pouvez le rendre plus rapide en enlevant un zero aux 2 nombres "100000000"

le test sera donc 10 x plus court

 

merci pour vos critiques et suggestions @+

Modifié le 14 octobre 2004 par sebdraluorg

[L@urendo]

salut,

Bien ton script. Il faudrait mettre un message au début du style : "Initialisation du test ... " Car on ne se rend pas trop compte s'il fonctionne ou pas ( sauf quand on voit les résultats ).

 

a+

[sebdraluorg]

salut,

 

sorry c'est vrai que j'aurai pu mettre une box au debut je fs ca tout de suite

 

 

voila j'ai modifier le code j'ai mis une box de demarrage

 

merci

Modifié le 14 octobre 2004 par sebdraluorg

[L@urendo]

Beaucoup mieux comme ça !

Au lieu du nombre de boucles par secondes, tu pourrait mettre la fréquence du processeur ( égal si je ne me trompe pas, au nombre de boucles multiplié par 2 ). Ca serait plus parlant pour ceux qui utilisent ton script

Modifié le 17 octobre 2004 par L@urendo

[Nicolas Coolman]

Salut sebdraluorg,

 

J'ai testé ton test

 

Seul petit pb pour moi, c'est que SpywareGuard m'intercepte le script, c'est bien il fait son travail, mais du coup je ne vois pas ton "MsgBox" du début.

 

Le processus WSCRIPT tourne bien dans mon gestionnaire de tâches.

[sebdraluorg]

salut a tous,

 

Au lieu du nombre de boucles par secondes, tu pourrait mettre la fréquence du processeur

salut

tu parle bien de la frequence en MHz ? si oui remplace ton code par celui-ci

 

Set read = Wscript.CreateObject("Wscript.shell")
freq = read.regread("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\~MHz")
a = 0
tim1 = time
reponse = MsgBox (" CE TEST VA EFFECTUER 100 MILLIONS DE BOUCLES       " _
& vbCrLf & "" & vbCrLf & " ET CALCULER LE TEMPS QU' IL AURA PRIS AINSI QUE " _
& vbCrLf & "" & vbCrLf & " LE NOMBRE DE BOUCLES EFFECTUEE A LA SECONDE" _
& vbCrLf & "" & vbCrLf & "       POUR DEMARRER LE TEST APPUYEZ SUR OK", 1, "TEST DE PERFORMENCE")
Select Case reponse
Case vbOK
do
a = a + 1  
if a = 100000000 then 
tim2 = time
Diff = DateDiff( "s", tim1, tim2)
op = 100000000 / Diff
ops = round(op, 0)
mi = diff / 60
min = round(mi, 1)
MsgBox "    TEMPS EN MINUTES         =   " &min & "        " _
& vbCrLf & "" & vbCrLf & "    TEMPS EN SECONDES     =   " &Diff & "      " _
& vbCrLf & "" & vbCrLf & "    MOYENNE DE BOUCLES PAR SECONDE         " _
& vbCrLf & "" & vbCrLf & "    SUR 100 MILLIONS DE BOUCLES    =   " &ops _
& vbCrLf & "" & vbCrLf & "    FREQUENCE DU PROCESSEUR =  " & freq & "  MHz", 0, "Resultats"
wscript.quit
end if
loop
Case vbCancel
wscript.quit
End Select

 

J'ai testé ton test 

 

Seul petit pb pour moi, c'est que SpywareGuard m'intercepte le script, c'est bien il fait son travail, mais du coup je ne vois pas ton "MsgBox" du début.

 

Le processus WSCRIPT tourne bien dans mon gestionnaire de tâches. 

salut

Normalement ton anti-virus doit te proposer une option du geenre autoriser ce script

sinon va voir dans les options et egarde dans blockage de script si tu ne peux pas en autoriser un

 

merci encore pour vos remarques @+

Modifié le 18 octobre 2004 par sebdraluorg

[Laubean]

Merci, très rapide et pratique comme test

[DAVY]

serait pas mal de mettre le resultat en indisuant la config utilisé...

Je fais le test et je post mon résultat

 

[EDIT] Resultat du test avec un P4b 2,4Ghz @ 3,1Ghz :

et Winamp, anti-virus, Spyguard,FAH, Mozilla, etc...:

Temps en minutes = 1,5

Temps en secondes = 88

Moy de boucles par seconde sur 100 millions de boucles = 1136364

Frequence du processeur = 3098Mhz

 

et l'anti virus, FAH, Spyguard... :

Temps en minutes = 1,3

Temps en secondes = 80

Moy de boucles par seconde sur 100 millions de boucles = 1250000

Frequence du processeur = 3098Mhz

[/EDIT]

 

Voila

Modifié le 18 octobre 2004 par DAVY

[L@urendo]

tu parle bien de la frequence en MHz ? si oui remplace ton code par celui-ci.

Voilà ! Il est très bien ton script, très utile

Modifié le 18 octobre 2004 par L@urendo

[Sinus]

114 secondes sur mon XP2400+ (2008 mhz) en surfant et téléchargeant à fond sur le ouaibe, avec le moniteur d'antivir.

Joli travail, cependant je crois que 10 millions de boucles suffisent amplement pour avoir un résultat représentatif et cohérent, ou alors faut compiler le truc pour que ce soit plus rapide.

Bonne chance.

Modifié le 30 octobre 2004 par Sinus