prog pour convertir binaire en texte

[spok123100]

mais la ligne str2bin s'écrit en toutes lettres?

le prog me renvoie :invalid command

[Bisam]

Je viens de te dire que le titre, tu l'écris quand tu appuies sur [Apps] [7] [3]...
Ensuite, dans l'éditeur de programmes, tu tapes l'argument (le "txt" ou "nb" suivant le cas) et ensuite, tu tapes ce qui manque entre "Func" et "EndFunc".

[spok123100]

str2bin est le titre? désolé de ma nullité elle est profonde en prog

[Bisam]

Oui ! c'est le nom du programme. (Il est explicite : il dit en anglais "String to Binary", abrégé en "str2bin")

[spok123100]

MERVEILLE çA FONCTIONNE... merci beaucoup

[pierrotdu18]

Je te commente le premier code pour que tu voies le truc... mais c'est vraiment on ne peut plus simple :

Code: Select all

    str2bin(txt)  // Ça, c'est le nom du programme, (string to binary) suivi de 'txt' entre parenthèses : c'est l'argument de la fonction
    Func //Indique que le code du programme commence
    Local i,j,n,p,r,rep //Déclaration des variables locales (elle ne vont que servir pour le bon-fonctionnement du programme et vont s'auto-détruire à la fin) 
    dim(txt)->n //'n' contient désormais le nombre de caractères de la chaîne que tu as rentrée en argument ('txt')
    ""->rep //On initialise la variable rep avec une chaîne de caractères vide, ce qui signifie qu'elle contiendra une chaîne
    For i,1,n //Boucle qui va se répéter pour chaque caractère de ta chaîne 'txt'
        ord(mid(txt,i,1))->p //On récupère le "code" du caractère en cours de traitement, par exemple, 65 pour "A"
        For j,1,8 //Je ne vais pas t'embrouiller, les lignes suivantes convertissent (en gros) le nombre en binaire
            mod(p,2)->r
            (p-r)/2->p
            string(r)&rep->rep //(on crée petit à petit la chaîne de réponse)
        EndFor //Fin de la conversion
    EndFor //Fin de la boucle qui traite les caractères uns par uns.
    EndFunc

EDIT : Problème de connexion internet, le message a été envoyé alors que le problème était déjà résolu.......

[spok123100]

merci des expliquations c'est bon pour la culture générale ^^

[Bisam]

Content que ça marche... je n'avais pas eu le temps de tester : j'ai codé directement sur le forum !