Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
Conversion décimal, binaire et hexadécimal - Page 4 / 4
m@thieu41 le 12/10/2013 à 18:27
Bonjour?
S'il vous plait?
Merci d'avance?
3 fois dans la semaine que je demande à croire que la politesse s'est perdue...
Nul besoin d'être un dieu en programmation pour recopier ce prgm...
Code
if Rép>=X
Disp "ERREUR !
Je te donnes les combinaisons de touches:
If -> [prgm],[1]
Rép -> [2nde],[( - )]
>= -> [2nde],[math],[4]
Disp -> [prgm],[E/S],[3]
Sinon tu peux regarder ici:
http://tout82.free.fr/forum/sujet.php?sujet=2833
Voilà!
Fafanene le 01/11/2013 à 18:56
Bonjour à tous,
Tout d'abord merci beaucoup à vin pour ce programme qui va certainement me faciliter la vie.
Mais j'ai le même soucis que damarus.
En effet la calculatrice, lorsque je mets un nombre binaire , m'indique une erreur sur la ligne "G->dim L1". Quelqu'un sait-il comment y remedier ?
Merci d'avance !
Fafanenem@thieu41 le 01/11/2013 à 20:07
Quel est le type d'erreur?
Il y a une parenthèse:
L1 se saisis avec [2nde],[1]
Fafanene le 02/11/2013 à 14:44
Bonjour et merci de m'avoir répondu !
Alors l'erreur indiquée par la calculatrice est "DIM INVALIDE"
J'ai bien mis des parenthèses (j'ai fais l'essai avec une et deux parenthèses au cas où), mais toujours le même problème
J'ai bien mis L1 en tant que liste ([2nde]1)
m@thieu41 le 02/11/2013 à 15:41
Alors donne moi la valeur de G (après avoir quité le prgm tu fais [alpha],[G],[entrer] et tu me donnes la valeur qui va s'afficher).Fafanene le 02/11/2013 à 15:55
Ah non désolé !!!
Je me suis trompé, je viens de comprendre ce que je devais entrer dans "NB CHIFFRE".
Encore désolé, et merci d'avoir essayé de m'aider !m@thieu41 le 02/11/2013 à 17:35
Ok super
Si tu as d'autres questions n'hésites pas
Bonne continuation.
Fafanene le 03/11/2013 à 23:02
Merci beaucoup.
Bonne continuation à toi également !Wildmind le 13/05/2015 à 17:42
Bonjour,
je suis nouveau sur le forum et j'essaye de faire des convertisseurs decimal/binaire/hexadecimal.
J'ai deja fait bin-dec et dec-bin mais je rame sur le programme dec->hexa.
j'ai trouvé une solution pour eviter que dans le resultat il modifie mes valeurs avec des lettres (si je mets 2E par exemple il va m'afficher 2*E avec la derniere valeur prise par E) , ce serait d'afficher chaque caractere a la ligne a chaque etape de la boucle.
J'ai vu que vous utilisiez les fonctions L1 et L2

, pourriez vous m'expliquer ce qu'elles font et comment les utiliser? j'aimerai faire le programme par moi meme et pas copier coller un programme deja fait, afin d'approfondir mes connaissances d'algo
Bien a vous,
Wildmind
NB: les emojis de ce forum sont extras mdr
Mingerton le 14/05/2015 à 11:44
Pour coder un convertisseur de base à lettres à base sans, ou inversement, le plus simple est l'utilisation des chaînes de caractères. Par exemple :
Code
"ABC ceci est une chaîne"->Str1
Ces variables e trouvent dans Vars-String. Elles ont des fonctions spécifiques qui te seront utiles :
— inString(Chaîne,Sous-chaîne) : renvoie la position du premier caractère de la sous-chaîne dans le chaîne
— sub(Chaîne,position de départ,longueur) : crée une sous chaîne de longuer donnée à artir de la position donnée dans la chaîne de départ.
— expr(Chaîne) : calcule la valeur de ce qu'il y a dans une chaîne. Par exemple, expr("3+3")=6
— length(Chaîne) : renvoie la longueur de la chaîne
— Equ>String(Equation,chaîne) : stocke le contenu d'une équation(Y1,Y2,...) dans la chaîne donnée
— String>Equ(Chaîne,équation) : l'inverse de Equ>String()
Voilà, avec ça tu devrais pouvoir t'en sortir

ld le 14/05/2015 à 14:27
NOUVELLE VERSION
De la base X à X, pour X de 2 à 36.
Au défit de faire mieux et plus léger !
Prgm AllBase V3
187 octets.
Code
:"0123456789ABCDEF->Chaîne0 ---- (Allez jusqu'à F pour la base 16 et Z pour 36).
:EffEcr:0->N:0->R
:Input:"DE BASE ",X ---- (Base d'entré).
:Input "A ",Y ---- (Base de sortie).
:Input "N= ",Chaîne1 ---- (Valeur à convertir).
:longueur(Chaîne1->L
:For(Z,0,L-1
:carChaîne(Chaîne0,sous-Chaîne(Chaîne1,L-Z,1))-1
:R+X^ZRép->R
:End
:Repeat non(R
:N+1->N
:Output(8,17-N,sous-Chaîne(Chaîne0,1+R-Yent(R/Y),1
:ent(R/Y->R
:End
Vous pouvez le tester à cette adresse :
http://www.kaagaard.dk/service/convert.htm Mingerton le 14/05/2015 à 16:00
Il ne voulait pas qu'on lui donne le code mais bon... D'ailleurs j'avais déjà allégé ce code sur l'autre forum

Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.