Page 2 sur 2
Re: Cherche Optimisation Système Bibi-Binaire
Publié : mer. 09/mars/2016 23:52
par 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
Re: Cherche Optimisation Système Bibi-Binaire
Publié : mer. 09/mars/2016 23:53
par falsam
Joli Gally. Clair et sans bavure
Re: Cherche Optimisation Système Bibi-Binaire
Publié : jeu. 10/mars/2016 6:48
par Anonyme2
Shadow a écrit :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.
Re: Cherche Optimisation Système Bibi-Binaire
Publié : jeu. 10/mars/2016 6:58
par 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 ?
Re: Cherche Optimisation Système Bibi-Binaire
Publié : jeu. 10/mars/2016 7:55
par Anonyme2
Je serait intéresser de savoir comment elle fonctionne cette commande Hex()
Personne ne sait ça ?
Fred
Re: Cherche Optimisation Système Bibi-Binaire
Publié : jeu. 10/mars/2016 10:20
par 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.