Défi: optimisation d'une fonction de convertion (Bin => Dec)

Recherche :

Mot : Pseudo : Filtrer
Page : 1 2 Page Suivante Page Précédente Bas de page
Auteur	Sujet : Défi: optimisation d'une fonction de convertion (Bin => Dec)

dreameddeath

Reprise du message précédent :
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)

Publicité

mareek

Et de 3 \o/

dreameddeath a écrit :

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)

Non.

Citation :

Integer data type
A data type that holds integer variables stored as 2-byte whole numbers in the range -32,768 to 32,767. The Integer data type is also used to represent enumerated values. The percent sign (%) type-declaration character represents an Integer in Visual Basic.

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

Et puis si tu ne me crois pas, tu n'as qu'à faire le test

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

Arjuna

Aircraft Ident.: F-MBSD

Pour la version dépliée, au lieu de faire des :

Code :

If
...
Else
...
End If
If
...
Else
...
End If
If
...
Else
...
End If

Essaie plutôt :

Code :

If
...
Else
...
Else If
...
Else If
...
End If

Tu devrais gagner du temps de façon signaificative.

Tu peux aussi faire un Select Case

Arjuna

Aircraft Ident.: F-MBSD

Sinon, pour la boucle, perso j'aurais fait :

Code :

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
nValue = nValue + nPowerArray(nCpt) ^ (AscW(Mid$(sBinary, nCpt, 1)) - 30)
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

FlorentG

Unité de Masse

Ah ouais, c'est une idée, ça donne quoi ? (Surtout au niveau de la puissance, si il optimise ça bien quand ça donne 0)

dreameddeath

heu pour le coup de IF ELSE IF ... ça marche pas : il faut faire tout les tests (il peut y avoir plusieurs 1 dans un nombre binaire )

Arjuna

Aircraft Ident.: F-MBSD

dreameddeath a écrit :

heu pour le coup de IF ELSE IF ... ça marche pas : il faut faire tout les tests (il peut y avoir plusieurs 1 dans un nombre binaire )

arf, oui, y'a plus de boucle

Vincent VEGA

connu aussi comme La_Fouine

transforme en hex puis identifie chaque car par l'association binaire et mets ensuite tes trois chaines bout à bout.

ou mieux créé un tableau qui te ressort du texte en fct de l'indice.

genre ce qui suit (la table est créée qu'une seule fois):

Dim Table(16) As String

Private Sub Command1_Click()

entier_a_convertir = 511

txt = Hex(entier_a_convertir)

Select Case (Len(txt))
Case 1
chiffre_converti = "00000" + Table(CInt("&h" + txt))
Case 2
chiffre_converti = "0" + Table(CInt("&h" + Mid(txt, 1, 1))) + Table(CInt("&h" + Mid(txt, 2, 1)))
Case 3
chiffre_converti = "1" + Table(CInt("&h" + Mid(txt, 2, 1))) + Table(CInt("&h" + Mid(txt, 3, 1)))
End Select

End Sub

Private Sub Form_Load()
Table(0) = "0000"
Table(1) = "0001"
Table(2) = "0010"
Table(3) = "0011"
Table(4) = "0100"
Table(5) = "0101"
Table(6) = "0110"
Table(7) = "0111"
Table(8) = "1000"
Table(9) = "1001"
Table(10) = "1010"
Table(11) = "1011"
Table(12) = "1100"
Table(13) = "1101"
Table(14) = "1110"
Table(15) = "1111"
End Sub

Publicité

Page : 1 2

Page Suivante

Page Précédente

Haut de page

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Défi: optimisation d'une fonction de convertion (Bin => Dec)

Sujets relatifs
[C] Convertion double -> dec -> hex	Comment faire pour qu'une fonction renvoie un tableau?
executer un scrpt en fonction de l'ip de l'user	Fonction asm utilisable en C++, linker error...
[Maple] cherche une fonction qui retourne la taille d'une table	Socket : la fonction connect.
help: probleme de fonction .h en C	besoin d'aide pour convertion html-->css
Question à propos d'une fonction du htacces de PHPNuke
Plus de sujets relatifs à : Défi: optimisation d'une fonction de convertion (Bin => Dec)

Page générée en 0.032 secondes