Optimiser le code (Eviter une dixaine de Tonnes de Conditions IF)

Bonjour.

Je cherche un petit code optimisé,
si on me repond pas, je risque de fair:

if Num = 0 then DATA = "11"
if Num = 1 then DATA = "12"
if Num = 2 then DATA = "13"
if Num = 3 then DATA = "14"
if Num = 4 then DATA = "21"
if Num = 5 then DATA = "22"
if Num = 6 then DATA = "23"
if Num = 7 then DATA = "24"
if Num = 8 then DATA = "31"
(Etc .. sa finiras jamais ..)

J'ai un sorte de :

Const HASH = "1234"

Je cherche une [Public Function Lire(Num)]:

Msgbox lire(0)
'Donne : 11

Msgbox lire(5)
'Donne : 22

ect ..

J'arrive pas a la metre Mathematiquement, enfin .. x')

Si quelqun peu aider svplé ?

 

---

(Si on a pas bien compris, alors lisez ca: sinon laissez tomber ce qui est bas):

C'est un peu comme le binaire, si je met:

Const HASH = "01"

if Num= 0 then DATA = "00"
if Num = 1 then DATA = "01"
if Num = 2 then DATA = "10"
if Num = 3 then DATA = "11"

.. mais, dans mon code, le HASH c'est pas "01" ou "1234" mais c'est un treees long String (du Base64 pour etre plus precit :)



Technologie Reacen²

C simple, tu dois créer une base de données et tout est réglé

webadmin www.vb4arab.com

Salut,

Une base de données pour ca???? un peu lourd non?

Essaie peu etre:

Public Function Lire(Num As Long) As String    Lire = CStr((Num \ 4) + 1) & CStr((Num Mod 4) + 1) End Function

By Renfield

@+: Ju£i€n
Pensez: Réponse acceptée

Bonjour,

Un select case ferait mieux l'affaire

Mais j'utiliserais personnelement un Array, du genre (à main levée) :
Toto = Array(11,12,13,14,21,22,23,24,31)
DATA = toto(num)
où num seraitr la valeur en cause ...

Heu ... Merci pour tout ca, mais je sais fair des arrays au pire des cas je soré fair le mid(..) mais, je crois que je me suis mal exprimé ..

Remarquez :

const HASH = "abcdefghijklmnopqrstuvwxyz"

sa doit donner:

aa
ab
ac
ad
ae
af
ag
ah
ai
aj
ak
(apres 10ans ...)
ax
ay
az
ba
bb
bc
(apres 10ans encor)
by
bz
ca
cb
cc

ect ..

et je parle pas juste de l'alphabet, c'est en fonction du HASH, donc sa peut etre les abcd .. les numeros et les truc genre : _-*+ ...




Technologie Reacen²

j'esper qu'on me comprend (aller PCPT, c'est le moment .. =/ ) ..

Si HASH= "abcdefghijklmnopqrstuvwxyz"

alors Normalement, la fonction Lire que je cherche doit etre un peu commsa

msgbox lire(0)
' Donne "a"

autres Exemples:

Lire(0) Doit donner "a"
Lire(1) Doit donner "b"
Lire(2) Doit donner "c"
Lire(3) Doit donner "d"
Lire(4) Doit donner "e"
Lire(5) Doit donner "f"
Lire(6) Doit donner "g"

(Quand sa arrive o "z", et puis sa demande un autre + donc, 2caractere)

Lire(Un numero plus haut que Z) Doit donner "aa"
Lire(Un numero plus haut que Z+1) Doit donner "aa"
Lire(Un numero plus haut que Z+2) Doit donner "ab"
Lire(Un numero plus haut que Z+3) Doit donner "ac"
Lire(Un numero plus haut que Z+4) Doit donner "ad"

Apres avoir fini le "z" encor

Doit donner "ba"
Doit donner "bb"
Doit donner "bc"

(apres 50ans)

Doit donner "aaa"
Doit donner "aab"
Doit donner "aac"

Ect, vous comprenez hein ? Rassurez moi, car a mon nivo, je crois que sa etre troop non optimisé mon code ..

Merci de m'aider, ps: EN Fonction du hash, donc c'est pas juste du abcd... je change le hash celon divers entrées, entré par l'itulisateur ..
Merci d'avance.


Technologie Reacen²

et dans cent cinquante ans ...

Beh si selon, t' es obligé de tout évaluer.
Je sais bien que je t' apprend rien; vu qu' il semble que tu es au courant de tout.

---

     

[*] Ce qui va sans dire. va mieux en le disant.

dans cent cinquante ans je seré encor en train de chercher l'optimisation si en m'aide pas mannant (sof si j'ai finalement decider de fair une centaines de If Num = x Then..)

Ollé, merci de m'aider, chui sur qu'il y a une solution, sinon y a surement une source sur le site qui traite ce sujet, sof que .. je met quoi comme mots clé ?

(source, vb6, moi, vouloir, fonction, tres, simple, qui, me, feras, eviter, beaucoup, de, conditions, allez, moteur, de, recherche, vb6, courage, et, trouve, la, moi)

Fin, je sais pas quoi fair, si on me donne un indice ?
Ca s'apelle quoi ce que je cherche ? :')

(sa si personne n'arrive a me donner un petit code)

Technologie Reacen²