Haute precision par dll

Télécharger le projet
Commenter

Description

une DLL de 3,5 Ko qui fournit:
- mesure vitesse processeur.
- mesure en ticks processeur.
- mesure en millisecondes.
de quoi optimiser vos algorithmes en les mesurant.
Les mesures fournies par cette dll ne sont pas dependants de la frequence de mise a jour donc PRECIS, ce qui n'est pas le cas GetTickCount.
Notez qu'il est fortement recommande de tester au moins 1 fois le retour de bnPrecisionOK avant de continuer, il indique la disponibilite du timer haute resolution du systeme.

Source / Exemple : 


Option Explicit

Declare Function bnPrecisionOK Lib "D:\PrecisVb.dll" () As Long
Declare Function bnCpuSpeedMghz Lib "D:\PrecisVb.dll" () As Long
Declare Sub bnTicksStart Lib "D:\PrecisVb.dll" ()
Declare Function bnTicksResult Lib "D:\PrecisVb.dll" () As Double
Declare Sub bnMilliscndStart Lib "D:\PrecisVb.dll" ()
Declare Function bnMilliscndResult Lib "D:\PrecisVb.dll" () As Double

Function PerdreTemps(num As Long) As Double
  Dim d As Double, i As Long
  d = 1.5
  While num
    d = d + 1.5
    d = d - 1
    d = d + i
    num = num - 1
  Wend
  PerdreTemps = d
End Function

Sub TestDll()
  If bnPrecisionOK Then MsgBox "bnPrecisionOK"
End Sub

Sub DireCpuSpeed()
  If bnPrecisionOK Then MsgBox bnCpuSpeedMghz
End Sub

Sub TestTicks()
  Dim res As Double
  If bnPrecisionOK = 0 Then Exit Sub
  bnTicksStart
  res = PerdreTemps(9500000)
  MsgBox bnTicksResult
  MsgBox res
End Sub

Sub TestMillisecondes()
  Dim res As Double
  If bnPrecisionOK = 0 Then Exit Sub
  bnMilliscndStart
  res = PerdreTemps(9500000)
  MsgBox bnMilliscndResult
  MsgBox res
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (BruNews)