0/5 (6 avis)
Vue 6 675 fois - Téléchargée 481 fois
' enlever chemin de "D:\bn2Vb.dll", juste pour tests perso Declare Function bnIsWinNT Lib "D:\bn2Vb.dll" () As Long Declare Function bnIsUserAdminNT Lib "D:\bn2Vb.dll" () As Long Declare Function bnIsPrecisionOK Lib "D:\bn2Vb.dll" () As Long Declare Function bnCpuSpeedMghz Lib "D:\bn2Vb.dll" () As Long Declare Sub bnTicksStart Lib "D:\bn2Vb.dll" () Declare Function bnTicksResult Lib "D:\bn2Vb.dll" () As Double Declare Sub bnMilliscndStart Lib "D:\bn2Vb.dll" () Declare Function bnMilliscndResult Lib "D:\bn2Vb.dll" () As Double Declare Function bnRegLireStringCU Lib "D:\bn2Vb.dll" (sKey As String, sValue As String, sDest As String) As Long Declare Function bnRegLireStringLM Lib "D:\bn2Vb.dll" (sKey As String, sValue As String, sDest As String) As Long ' valeurs de retour ' 0 - OK, sDest sera String valide, vide possible ' 1 - cle ou valeur inexistante ou impossible d'ouvrir ou autre ' 2 - type non string ' 3 - defaut de memoire Declare Function bnRegLireDwordCU Lib "D:\bn2Vb.dll" (sKey As String, sValue As String, lDest As Long) As Long Declare Function bnRegLireDwordLM Lib "D:\bn2Vb.dll" (sKey As String, sValue As String, lDest As Long) As Long ' valeurs de retour ' 0 - OK, lDest sera valide au retour ' <> 0 - impossible de lire, valeur non DWORD ou autre Declare Function bnRegEcritStringCU Lib "D:\bn2Vb.dll" (ByVal sKey As String, ByVal sValue As String, ByVal sStr As String) As Long Declare Function bnRegEcritStringLM Lib "D:\bn2Vb.dll" (ByVal sKey As String, ByVal sValue As String, ByVal sStr As String) As Long Declare Function bnRegEcritDwordCU Lib "D:\bn2Vb.dll" (ByVal sKey As String, ByVal sValue As String, ByVal lVal As Long) As Long Declare Function bnRegEcritDwordLM Lib "D:\bn2Vb.dll" (ByVal sKey As String, ByVal sValue As String, ByVal lVal As Long) As Long ' retourne <> 0 si erreur Declare Function bnSelectDir Lib "D:\bn2Vb.dll" (sTitre As String, sDir As String) As Long ' retourne <> 0 - dossier choisi, sDir sort avec \ final ' retourne 0 - sDir ne change pas Declare Function bnFileExists Lib "D:\bn2Vb.dll" (ByVal sFile As String) As Long ' retourne <> 0 si fichier existe Declare Function bnFileSize Lib "D:\bn2Vb.dll" (ByVal sFile As String) As Double ' de 0 => (2^64)-1 qui est le maxi sur win32. Declare Function bnGetDiskFreeSpace Lib "D:\bn2Vb.dll" (ByVal sRootFile As String) As Double ' peut passer "D:\" ou "C:" ou "D:\toto.txt", va idem. Declare Function bnGetWinDir Lib "D:\bn2Vb.dll" () As String Declare Function bnGetSysDir Lib "D:\bn2Vb.dll" () As String Declare Function bnGetTempDir Lib "D:\bn2Vb.dll" () As String Declare Function bnLbFilesDir Lib "D:\bn2Vb.dll" (ByVal hLst As Long, ByVal sDir As String) As Long Declare Function bnLongToHexa Lib "D:\bn2Vb.dll" (ByVal lNbr As Long) As String Declare Function bnHexaToLong Lib "D:\bn2Vb.dll" (ByVal sHexa As String) As Long Declare Sub bnExitWindows Lib "D:\bn2Vb.dll" () Declare Sub bnExitWindowsReboot Lib "D:\bn2Vb.dll" ()
28 janv. 2007 à 00:12
http://www.vbfrance.com/code.aspx?id=18494
et nous diras ce que tu en penses vu que tu y tenais tant, au point de balancer des 1/10 nimporte comment.
28 janv. 2007 à 00:05
vbfrance, codessource...
Ta pas oublié que l'on doit partager ses sources ?
11 févr. 2005 à 19:17
7 déc. 2003 à 22:36
J'ai fait un update de la version 9, devrait ameliorer le calcul speed CPU mais en restant sur 2/10.
7 déc. 2003 à 21:27
Pour une haute precision, aurait fallu que je bloque la CPU pendant un presque une demi seconde, ici je fais en 2/10. Alors va assez precis si cpu > 2 Ghz sinon c'est a peu pres.
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.