Re: Bits piochés ca et la
Publié : ven. 11/mars/2016 1:50
Oui, mais c'est en faisant qu'on apprends 

Oui, mais c'est aussi en "refaisant" que l'on perd du tempsShadow a écrit :Oui, mais c'est en faisant qu'on apprends
Code : Tout sélectionner
Procedure.s BinMaison(Nombre.Q)
Binaire$ = ""
NombreSortie.Q = 0
Repeat
NombreSortie.Q = Nombre.Q / 2
Binaire$ + Str(Nombre.Q - (NombreSortie.Q * 2))
Nombre.Q = NombreSortie.Q
Until Nombre.Q = 0
ProcedureReturn ReverseString(Binaire$)
EndProcedure
Procedure BinValMaison(Bin$)
NombreSortie.Q = 0
Byte$ = ""
If Bin$ > ""
For Index = 1 To Len(Bin$)
Byte$ = Mid(Bin$, Index, 1)
If Byte$ = "0"
NombreSortie.Q * 2
ElseIf Byte$ = "1"
NombreSortie.Q * 2
NombreSortie.Q + 1
EndIf
Next
ProcedureReturn NombreSortie.Q
Else
ProcedureReturn 0
EndIf
EndProcedure
Bin$ = BinMaison(1851980669)
Nombre = BinValMaison("1101110011000101111101101111101")
Debug Bin$
Debug Nombre
t1=ElapsedMilliseconds()
For i=1 To 1000000
binary1.s=binmaison(i)
Next
t2=ElapsedMilliseconds()
For j=1 To 1000000
binary.s=Bin(i)
Next
t3=ElapsedMilliseconds()
Debug "tps shadow : "+Str(t2-t1)
Debug "tps bin pb : "+Str(t3-t2)
MessageRequester("Shadow binmaison","tps shadow : "+Str(t2-t1)+Chr(13)+"tps bin PB : "+Str(t3-t2),#PB_MessageRequester_Ok)
Mais c'est déjà ce que j'ai fais !Par contre la methode "clitoridiene" de Falsam, m'a beaucoup plue.
pas du tout si on regarde les explications que tu donnes sur ce lienShadow a écrit :Mais c'est déjà ce que j'ai fais !
Encore une fois, je met en exergue ton implication, ta passion, ton envie de bien faire, ton altruisme, ta bonne volonté, j'en passe et des meilleures, car j'ai peur que tu crois que je te demande en mariageMais c'est déjà ce que j'ai fais !
Ya pas plus simple en effets !