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
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.