Test processeur

Soyez le premier à donner votre avis sur cette source.

Vue 4 322 fois - Téléchargée 509 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

Commenter la réponse de cs_shaoni

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.