Salut!
 
J'ai besoin dans un programme d'avoir une fonction qui me converti en nombre entier une chaine de caractères représentative d'un nombre binaire strictement positif compris entre 0 et 511 ex: "100110100" (codage sur 9 bits).
 
Cette fonction doit être appelée environ 9 000 000 de fois à la suite. Il me faut donc qu'elle soit le plus rapide possible. Je poste la fonction que je me suis programmé mais que je voudrais optimiser.  
Si vous avez des idée pour augmenter la rapidité du code je vous serai reconnaissant.
Merci!  
 
Loïc
 
 
 
<code>
Private Function BinToNum(sBinary As String) As Long
   Dim nValue As Long
   Dim nCpt As Long
   Dim nPow As Byte
   
   nValue = 0
   nCpt = 1
   While nCpt <= Len(sBinary)
       If Mid$(sBinary, nCpt, 1) = "1" Then
          nPow = Len(sBinary) - nCpt
          nValue = nValue + (2 ^ nPow)
       End If
       nCpt = nCpt + 1
   Wend
   
   BinToNum = nValue
End Function
 
 
</code>

Déjà remplace Mid par Mid$

effectivement! je gagne déjà 15% de temps
 
Merci bien.

Ensuite on peut voir que tu fait appel plusieurs fois à :

Grosse perte de temps de recalculer la longueur de sBinary, surtout si elle change pas, donc met au début :

Et après remplace tout tes Len(sBinary) par BinaryLen

Ok! J'ai étudié ça. Voici ma nouvelle fonction. je n'utilise plus du tout de len() car ma chaine d'entrée est toujours sur 9 caractères.
Si tu vois comment optimiser cette nouvelle méthode..
Je n'utilise que des longs pour les calculs, j'ai lu dans un tutorial sur l'optimisation que c'était préférable.
je gagne désormais a peu près 25 % de temps d'exécution!
 
 
Private Function Bin9BitsToNum(sBinary As String) As Long
   Dim nValue As Long
   Dim nCpt As Long
   Dim nPow As Long
   Dim nGet2Pow As Long
   
   nValue = 0
   nCpt = 9
   While nCpt > 0
       If Mid$(sBinary, nCpt, 1) = "1" Then
          nPow = 9 - nCpt
          nGet2Pow = 2 ^ nPow
          nValue = nValue + nGet2Pow
       End If
       nCpt = nCpt - 1
   Wend
   
   BinToNum = nValue
End Function

Tiens pour la comparaison avec "1" :

Sachant que 31 est le code ASCII de "1"

Aussi, tu pourrais précalculer les puissances, vu qu'elles sont connues et limitées. Met un tableau constant dans ton programme qui contient les puissances déjà calculées, afin que tu n'ai que ça à faire :

J'ai encore gagné 5 secondes! (on "bench" en était à 50 sec, j'en suis à 45 juste avec cette modif.
Voici le nouveau code. C'est super ton aide , je pensais pas gagner tout ce temps. Je suis dans mes objectifs maintenant
 
 
Private Function Bin9BitsToNum(sBinary As String) As Long
   Dim nValue As Long
   Dim nCpt As Long
   Dim nPow As Byte
   Dim nGet2Pow As Long
   
   nValue = 0
   nCpt = 9
   nPow = 0
   While nCpt > 0
       If AscW(Mid$(sBinary, nCpt, 1)) = 49 Then
          nGet2Pow = 2 ^ nPow
          nValue = nValue + nGet2Pow
       End If
       nPow = nPow + 1
       nCpt = nCpt - 1
   Wend
   
   Bin9BitsToNum = nValue
End Function

Essaye avec le tableau de puissances. Met une variable globale genre PowerArray = Array(1, 2, 4, 8, 16, 32, 64, 128, 256, 512). Comme ça suffit de faire un PowerArray(nCpt), et hop t'as la puissance cash, pas besoin de la recalculer à chaque fois que tu lances la fonction

Vraiment pas bête!! Ca m'avait même pas effleuré l'esprit les constantes...  J'ai encore gagné 4 secondes, j'en suis à 41 secondes pour le bench. Je ne sais pas si on peut faire plus rapide maintenant.
 
Voici la partie du code de ma classe concernée
 
private nPowerArray(1 to 9) as long
 
Private Function Bin9BitsToNum(sBinary As String) As Long
   Dim nValue As Long
   Dim nCpt As Long
   
   nValue = 0
   nCpt = 9
 
   While nCpt > 0
       If AscW(Mid$(sBinary, nCpt, 1)) = 49 Then
          nValue = nValue + nPowerArray(nCpt)
       End If
       nCpt = nCpt - 1
   Wend
   
   Bin9BitsToNum = nValue
End Function
 
 
Private Sub Class_Initialize()
   nLevel = 1
   nPowerArray(1) = 256
   nPowerArray(2) = 128
   nPowerArray(3) = 64
   nPowerArray(4) = 32
   nPowerArray(5) = 16
   nPowerArray(6) = 8
   nPowerArray(7) = 4
   nPowerArray(8) = 2
   nPowerArray(9) = 1
End Sub
 
 
merci pour tout.
 
Loïc

Ce qu'il faudrait essayer, c'est de profiler la fonction pour voir quelle est la ligne qui prend le plus de temps

C'est cette ligne qui bouffe le plus :

A voir...

Pour cette fonction ça va aller je pense
Maintenant faut je j'optimise le reste de mon code. Je ne pensais vraiment pas gagner autant de temps avec cette fonction. Tu m'as donné pleins d'idées avec tout ça.
Merci encore.
 

Oui c'est ce que je me disais Peut être qu'en la décomposant en :
 
dim cChar as char
 
cChar  = Mid$(sBinary, nCpt, 1)  
If AscW(cChar) = 49
 
J'ai lu qu'en décomposant les calculs on pouvait gagner un peu de temps...
 
Aller j'essaie!

Et avec ça
 

c'est moche mais ça doit être très rapide

Ouais, t'as déplié la boucle while C'est sûr plus de décrémentation, ni de condition pour le while, mais après bonjour la syntaxe D'ailleurs ce genre d'optimisation est parfois réalisée par le compilateur...

j'essaie de suite... c vrai que c'est pas beau mais je m'en tape pour cette fonction...

oui mais bon comme on ne sait pas trop comment fonctionne le compilo (ou plutot le pre-compilo) faut tout lui dire...

Mais faudrait remplacer genre  

Avec

J'ai pu voir que c'était plus rapide... à vérifier

ça passe à 48 secondes avec ça, c'est pas plus rapide

J'essaie avec le second code...

j'ai des perfs identiques avec
 If AscW(Mid$(sBinary, 9, 1)) = 49 Then  
  nValue = nValue + 1  
End If
...
et la fonction sous sa dernière version. Ca doit se jouer au dixième de seconde près maintenant.

une petite question c'est sous quoi (vba , vb.net??) et quelle version du language (ou d'office)

Oui aussi, là j'ai tout fait dans le cas de VB normal, pas VB.NET

c'est sous vb sp6

par contre en essayant sous excel 2000 (vba), avec la boucle dépliée, ça divise le temps d'execution par 2...

Oui en VBA c'est directement interpreté, en VB normal y'a quand-même une compilation, donc ça doit jouer...

Au lieu de travailler sur une chaîne, il serait peut-être plus judicieux de travailler sur un nombre, en la convertissant (CInt()).
 
Et aussi, utiliser un masque binaire, au lieu d'une égalité.

Et un petit :

à la place du while proposé, ça n'irait pas ?

Bah je ne suis pas sur qu'en rajoutant une conversion en entier on y gagne car finalement on va faire string vers int(binaire) vers int au lieu de faire directement string vers int

Je propose :

Au lieu de :

Est-ce que le Cint va fonctionner ? J'me demande s'il va pas faire un erreur...

J'ai testé.

Utilise CLng, tu auras un dépassement de capacité avec CInt.

 
Ok
 
Ben si ça marche, c'est sûr qu'il y ait moyen que ce soit plus rapide

CInt(expression)
 
Plage de valeurs de l'argument expression :
-2 147 483 648 à 2 147 483 647
 
Je pense que ça ira   A moins qu'il en soit différemment dans sa version de VB.

perdu

http://msdn.microsoft.com/library/ [...] ersion.asp

Moi ce que j'ai donné c'est du VB.NET.
Et puis, c'est un détail minime.

il a dit que c'était du VB6

donc c'est pas du VBA comme le liens que tu donnes dans VB l'integer c'est du 32 bits (soit environ 4 milliard de valeurs possibles)