Test processeur

Soyez le premier à donner votre avis sur cette source.

Vue 4 526 fois - Téléchargée 531 fois

Description

Ce petit prog teste la puissance de calcul CPU et FPU par des opérations basiques, réalisées sur un temps défini. Le nombre d'itérations effectuées dans ce temps donne un indice qui reflète la puissance du processeur. Pour ceux qui passent leur temps à optimiser leur bécane (comme moi! ;-) )

Source / Exemple :


Option Explicit

Const latence As Integer = 10
Const pi As Integer = 3.14159
Dim compt As Variant
Dim result As Currency
Dim valeur As Variant
Dim tmp As Variant

Private Sub Command1_Click(index As Integer)

' initialisation
compt = 0                                   'compteur d'itération à 0
valeur = Time                               'heure système
Me.MousePointer = vbHourglass
Do While Time <= DateAdd("s", 1, valeur)    'commence le test en début de seconde
Loop

tmp = DateAdd("s", latence, valeur)

If index = 0 Then                           'calcul CPU (nombres entiers)
    valeur = Time
    Do While Time <= tmp
        result = ((((3 * 7) + 1) / 11) - 1)
        compt = compt + 1
    Loop
ElseIf index = 1 Then                       'calcul FPU (nombres décimaux)
    valeur = Time
    Do While Time <= tmp
        result = Log(((2.156 / pi) * 5.376) ^ 2.13)
        compt = compt + 1
    Loop
End If
Me.MousePointer = vbDefault
Text1(index).Text = Int(compt / 1000)       'affichage de l'indice
End Sub

Private Sub Command3_Click()
End
End Sub

Conclusion :


faut mettre dans une form: 2 TextBox (en groupe de controle), 3 boutons. Et aussi 2 Label pour décrire le contenu des TextBox! Ou plus simple, chopez l'archive ZIP :-p

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
51
Date d'inscription
samedi 20 avril 2002
Statut
Membre
Dernière intervention
14 novembre 2002

Celeron 766 Mhz :
CPU : 1041
FPU : 9088
Messages postés
16
Date d'inscription
lundi 7 janvier 2002
Statut
Membre
Dernière intervention
18 juillet 2002

normal, c'est un P4! non je rigole. Effectivement c'est pas très normal, je vais mettre à jour le ZIP, donnez moi quelques jours!
Messages postés
1356
Date d'inscription
samedi 8 décembre 2001
Statut
Membre
Dernière intervention
23 octobre 2006
7
Je ne comprendes pas bien entre 180 et 209 pour un pentium iv 1200 Mhz
y a 1 truc
Messages postés
39
Date d'inscription
mercredi 4 juillet 2001
Statut
Membre
Dernière intervention
8 avril 2014
1
j'ai testé l'exécutable sur un p166 (133 Mhz) ça a donnée :
cpu :2222
fpu :2139
donc je pense que les indices sont pas significatis !
(peut etre toi tu fait le test du code pré-compilé )
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003

kan meme sympa ce prog !!!
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.