Cherche Optimisation Système Bibi-Binaire

[GallyHC]

Allez juste comme ça dans les deux sens :

Code : Tout sélectionner

EnableExplicit

Procedure.s Decimal2BIBI(qvalue.q)
  Define.s sresult, BibiBinaire = "HOHAHEHIBOBABEBIKOKAKEKIDODADEDI"
  Define.s svalue       = Hex(qvalue)
  Define.i i, iqvlen    = Len(svalue)
  For i=1 To iqvlen
    sresult + Mid(BibiBinaire, ((Val("$" + Mid(svalue,i,1)) ) * 2) + 1, 2)
  Next i
  ProcedureReturn sresult
EndProcedure

Debug Decimal2BIBI(2000)

Procedure.q BIBI2Decimal(svalue.s)
  Define.s sresult, BibiBinaire  = "HOHAHEHIBOBABEBIKOKAKEKIDODADEDI"
  Define.i i, iqvlen    = Len(svalue)
  For i=1 To iqvlen Step 2
    sresult + Hex(FindString(BibiBinaire, Mid(svalue, i, 2)) / 2)
  Next i
  ProcedureReturn Val("$" + sresult)
EndProcedure

Debug BIBI2Decimal("BIDAHO")

Cordialement,
GallyHC

[falsam]

Joli Gally. Clair et sans bavure

[Anonyme2]

Ceci ne change rien au problème !

Encore un fois Shadow, tu affirmes des choses gratuitement.

Ar-S a raison. Il faut désactiver le debugger.

Cherche sur ce forum, il y a eu des débats sur le calcul d'exécution et de très bons codes données avec des explications sur l'influence du debugger.
Il me semble que Erix14 avait donné un très bon code de calcul du temps d'exécution.

En effectuant plusieurs fois le code, on a pas toujours le même résultat, il y a bien une influence du debugger mais aussi du mode de fonctionnement multitache du processeur.

Il y a des tas de programmes qui tournent sans que tu le vois. Le système passe la main à chaque prog en fonction des priorités.

[Shadow]

Encore un fois Shadow, tu affirmes des choses gratuitement.

J'en est pas l'impression non !

Denis, je sais tous ça

Quand tu désactive le débugueur, vue qu'il n'est plus en train de "Surveiller" le programme pour voir si ya pas un problème
les résultat sont ÉVIDEMENT beaucoup plus rapide mais un temps trop long avec ou sans débogueur restera toujours un temps trop long !

Il faut que j'épilogue ?

Si Hex dans une boucle comme ici, regarde bien, juste ici:

Code : Tout sélectionner

A = ElapsedMilliseconds()
For I = 1 To 10000000
  A$ = Hex(9223372036854775807)
Next
B = ElapsedMilliseconds() - A

Debug B

Avec débogueur activé met entre 1400 et 1600 milliseconde.
Sans, met entre 850 et 860 milliseconde.

Même pas une seconde pour 10 000 000 de traitement.
Mon code restera toujours en dessa de ça AVEC ou SANS débogueur activé !

Je serait intéresser de savoir comment elle fonctionne cette commande Hex()
Personne ne sait ça ?

[Anonyme2]

Je serait intéresser de savoir comment elle fonctionne cette commande Hex()
Personne ne sait ça ?

Fred

[Micoute]

L'hexadécimal, c'est juste une base 16 précédée d'un signe $ pour que le système la reconnaisse, certains systèmes reconnaissent le 0H ou 0x.