[TI]convertisseur Hexadécimal/Décimal/Binaire

Tiens, je me suis inscrit au cas ou, je pourrai peut être t'aider je suis informaticien.

Pour convertir une valeur dans n'importe quelle base, il suffit de faire une boucle ainsi :

Tant que valeur est > 0 :   
  Chiffre = Valeur modulo base   
  Valeur = valeur divisée par base   

La boucle donnera la valeur de chaque chiffre du plus faible au plus fort quelle que soit la base, 2 (binaire), 8 (octal), 10 (décimal), 16 (héxa) ou exotique...
S'il s'agit de convertir la valeur en visuel, il suffit d'ajouter 48 (caractère '0') à chaque valeur de chiffre, et dans le cas de l'héxa, 65 (caractère 'A') si la valeur dépasse 9.
L'opération peut être facilement optimisée avec des 'And' et des décalages dans le cas des bases binaire, octal, et héxa.
Et pour reconstituer une valeur à partir de n'importe quelle base, il suffit de faire l'opération inverse :

Tant que nombre de chiffres > 0 :   
  Valeur = valeur multipliée par base   
  Valeur = Valeur + Chiffre 

Le chêne aussi était un gland, avant d'être un chêne

J'ai réellement besoin de réponses, je doit bientôt rendre mon projet !

J'ai réussi à faire un truc mais c'est bof, en effet j'arrive à calculer la réponse mais pas à l'inscrire ( à cause de problèmes de dimensions ) :

()
Prgm
ClrHome 
Dialog
Title "Convertion dec/bin"
Request "Nombre décimal",A
EndDlog
int(A/2)»B
A-(B*2)»C
int(B/2)»D
B-(D*2)»E
int(D/2)»F
D-(F*2)»G
int(F/2)»H
F-(H*2)»I
int(H/2)»J
H-(J*2)»K
int(J/2)»L
J-(L*2)»M
int(L/2)»N
L-(N*2)»O
int(N/2)»P
N-(P*2)»Q
int(P/2)»R
P-(R*2)»S

Text " "&string(S)&""&string(Q)&""&string(O)&""&string(M)&""&string(K)&""&string(I)&""&string(G)&""&string(E)&""&string(C)&" "
Disp "Nombre Binaire",NB
ClrHome 
Goto bin
EndPrgm

Je le répète, j'ai vraiment besoin d'aide ( un roo bisou baveux à celui qui me trouve la solution )

UP

Re UP !!!

Salut,
En quel langage programmes-tu?

A bientot :)

Je vais bientot te donner ma reponse.