010000110110111101110101011000110110111101110101

G-Rom · **Inscription:** Dim 10/Jan/2010 5:29 **Messages:** 2189

0100101001100101001000000111001101100001011010010111001100100000001011000010000001110100011101010010000001110100001001110110010101110011011101000010000001100110011000010110100101110100001000000110001101101000011010010110010101110010001000001110000000100000011001100110000101101001011100100110010100100000011101010110111001100101001000000110110101101111011101010110110001101001011011100110010101110100011101000110010100100000011100000110111101110101011100100010000001100011011000010010111000101110001011100000101001000011001001110110010101110011011101000010000001100001011100110111001101100101011110100010000001100100011001010110001101100101011101100110000101101110011101000010000000101100001000000110001001101111011011100010000000101100001000000110101001110101011100110111010001100101001000000111000001101111011101010111001000100000011001000110100101110010011001010010000001110001011101010110010100100000011010100010011101100001011010010010000000110011001101111011000000110010001000000010110000100000011001010111010000100000011011000110010101110011001000000111010101110010011010010110111001100101011100110010000001100011011011000110000101101001011100100110010100101110001011100010111000001010010000000010101100101011

venom

Coucou, Que t'arrive t'il G-Rom ?

@++

Droopy · **Inscription:** Lun 19/Juil/2004 22:31 **Messages:** 1106

Code:

a.s="0100101001100101001000000111001101100001011010010111001100100000001011000010000001110100011101010010000001110100001001110110010101110011011101000010000001100110011000010110100101110100001000000110001101101000011010010110010101110010001000001110000000100000011001100110000101101001011100100110010100100000011101010110111001100101001000000110110101101111011101010110110001101001011011100110010101110100011101000110010100100000011100000110111101110101011100100010000001100011011000010010111000101110001011100000101001000011001001110110010101110011011101000010000001100001011100110111001101100101011110100010000001100100011001010110001101100101011101100110000101101110011101000010000000101100001000000110001001101111011011100010000000101100001000000110101001110101011100110111010001100101001000000111000001101111011101010111001000100000011001000110100101110010011001010010000001110001011101010110010100100000011010100010011101100001011010010010000000110011001101111011000000110010001000000010110000100000011001010111010000100000011011000110010101110011001000000111010101110010011010010110111001100101011100110010000001100011011011000110000101101001011100100110010100101110001011100010111000001010010000000010101100101011"
For n=1 To Len(a) Step 8
  Out.s+Chr(Bin2Dec(Mid(a,n,8)))
Next

MessageRequester("",Out)

Bin2Dec est une fonction de la DroopyLib

Citation:

Je sais , tu t'est fait chier à faire une moulinette pour ca...
C'est assez decevant , bon , juste pour dire que j'ai 37°2 , et les urines claire...
@++

Dobro · **Inscription:** Lun 26/Avr/2004 0:40 **Messages:** 13082

Citation:

Je sais , tu t'est fait chier à faire une moulinette pour ca...
C'est assez decevant , bon , juste pour dire que j'ai 37°2 , et les urines claire...
@++

[Reedit] ... Grillé par Droopy :roll:

mon code :

Code:

a$="0100101001100101001000000111001101100001011010010111001100100000001011000010000001110100011101010010000001110100001001110110010101110011011101000010000001100110011000010110100101110100001000000110001101101000011010010110010101110010001000001110000000100000011001100110000101101001011100100110010100100000011101010110111001100101001000000110110101101111011101010110110001101001011011100110010101110100011101000110010100100000011100000110111101110101011100100010000001100011011000010010111000101110001011100000101001000011001001110110010101110011011101000010000001100001011100110111001101100101011110100010000001100100011001010110001101100101011101100110000101101110011101000010000000101100001000000110001001101111011011100010000000101100001000000110101001110101011100110111010001100101001000000111000001101111011101010111001000100000011001000110100101110010011001010010000001110001011101010110010100100000011010100010011101100001011010010010000000110011001101111011000000110010001000000010110000100000011001010111010000100000011011000110010101110011001000000111010101110010011010010110111001100101011100110010000001100011011011000110000101101001011100100110010100101110001011100010111000001010010000000010101100101011"
for i=1 to Len(a$) step 8
      lettre$=mid(a$,i,8)
      lettre=val("%"+lettre$)
   lettre$=chr(lettre)
   toto$=toto$+lettre$
next i
debug toto$

Version optimisé :lol:

Code:

a$="0100101001100101001000000111001101100001011010010111001100100000001011000010000001110100011101010010000001110100001001110110010101110011011101000010000001100110011000010110100101110100001000000110001101101000011010010110010101110010001000001110000000100000011001100110000101101001011100100110010100100000011101010110111001100101001000000110110101101111011101010110110001101001011011100110010101110100011101000110010100100000011100000110111101110101011100100010000001100011011000010010111000101110001011100000101001000011001001110110010101110011011101000010000001100001011100110111001101100101011110100010000001100100011001010110001101100101011101100110000101101110011101000010000000101100001000000110001001101111011011100010000000101100001000000110101001110101011100110111010001100101001000000111000001101111011101010111001000100000011001000110100101110010011001010010000001110001011101010110010100100000011010100010011101100001011010010010000000110011001101111011000000110010001000000010110000100000011001010111010000100000011011000110010101110011001000000111010101110010011010010110111001100101011100110010000001100011011011000110000101101001011100100110010100101110001011100010111000001010010000000010101100101011"
for i=1 to Len(a$) step 8
toto$=toto$+chr(val("%"+mid(a$,i,8)))
next i
debug toto$

nico · **Inscription:** Ven 13/Fév/2004 0:57 **Messages:** 3073

j'ai fait le même code que toi sauf que j'ai mis si i=0 to ... ce qui fait que je n'ai pas réussi à décoder :roll:

C'est le problème de window, on commence toujours à compter à partir de 0 mais pas avec purebasic, je me suis fais avoir comme un débutant.

G-Rom · **Inscription:** Dim 10/Jan/2010 5:29 **Messages:** 2189

Dobro · **Inscription:** Lun 26/Avr/2004 0:40 **Messages:** 13082

nico a écrit:

j'ai fait le même code que toi sauf que j'ai mis si i=0 to ... ce qui fait que je n'ai pas réussi à décoder :roll:

C'est le problème de window, on commence toujours à compter à partir de 0 mais pas avec purebasic, je me suis fais avoir comme un débutant.

c'est galere parce que certaines fonction on commence a 1 d'autre a 0
je perds souvent du temps a cause de ça ... :roll:

case · **Inscription:** Lun 10/Sep/2007 11:13 **Messages:** 959

de mémoire dans tout les basics que j'ai utilisé une chaine commence toujours a 1

Dobro · **Inscription:** Lun 26/Avr/2004 0:40 **Messages:** 13082

moi ce que je dis, c'est que certaines fonction en purebasic
(qui traite des chaines) , considere la position 0

par exemple :
- ListIconGadget() - renvoie le texte de l'élément de la liste. 'Colonne' est l'index de la colonne (commence à partir de 0).

pour la majorité des Gadgets :

Citation:

Note: La numérotation des éléments commence à partir de 0.

pour l'editeur Gadget :
les ligne commencent a Zero !!!

Code:

EditorGadget(0, 8, 8, 306, 133) 
    For a = 0 To 5 
      AddGadgetItem(0, a, "Ligne "+Str(a)) 
    Next 

je peux en trouver d'autres ..
si Purebasic considerait que pour ce qui concerne les chaines/textes etc...
on commence a 1 pour tout le monde, ça serai plus simple a programmer

G-Rom · **Inscription:** Dim 10/Jan/2010 5:29 **Messages:** 2189

en toute logique , tout les iterateurs devrais commencer à zero , pour la simple et bonne raison
qu'un itérateur est un index qui est lui même multiplier par la taille de l'objet lu.
par exemple, pour une chaine 'Coucou' , si je parcours la chaine avec 'i' et qu'il vaut 0 : 'i*4 = 0' ( le 4 représente la taille d'un caractère )
on est bien à la position 0 , c'est à dire le 'C' , si i vaut 3 : 'i*4 = 12' , on obtient le second 'c'

graph100 · **Inscription:** Sam 21/Mai/2005 17:50 **Messages:** 937

Dobro a écrit:

moi ce que je dis, c'est que certaines fonction en purebasic
(qui traite des chaines) , considere la position 0

par exemple :
- ListIconGadget() - renvoie le texte de l'élément de la liste. 'Colonne' est l'index de la colonne (commence à partir de 0).

pour la majorité des Gadgets :

Citation:

Note: La numérotation des éléments commence à partir de 0.

pour l'editeur Gadget :
les ligne commencent a Zero !!!

Code:

EditorGadget(0, 8, 8, 306, 133) 
    For a = 0 To 5 
      AddGadgetItem(0, a, "Ligne "+Str(a)) 
    Next 

je peux en trouver d'autres ..
si Purebasic considerait que pour ce qui concerne les chaines/textes etc...
on commence a 1 pour tout le monde, ça serai plus simple a programmer

Bah désolé, mais il me semble que les fonctions qui s'occupe des éléments commencent à zéro comme les getgadgetitem....
Même si la fonction renvoie une chaine, elle travaille sur un élément, Fred est donc bien logique.
Les fonctions qui traitent des chaines commencent bien à 1 : Findstring et autres...
:mrgreen:

* pas taper * :mrgreen:

falsam

Nombre de 0 : 688
Nombre de 1 : 528

C'est ce qui fallait trouver ?:p

graph100 · **Inscription:** Sam 21/Mai/2005 17:50 **Messages:** 937

Bah Droopy a déjà traduit

Dobro · **Inscription:** Lun 26/Avr/2004 0:40 **Messages:** 13082

graph100 a écrit:

Bah Droopy a déjà traduit

qui m'a grillé de 3 minutes .. :lol:

(le temps que je code...)
lui il triche, il utilise une lib

SPH · **Inscription:** Mer 09/Nov/2005 9:53 **Messages:** 2660

Ha, on recommence un concours de crypto ? :mrgreen:

PureBasic

010000110110111101110101011000110110111101110101

Qui est en ligne