[AXE] Convertisseur Dec -> Hex

Grâce à la nouvelle version de l'Axe Parser (0.4.7), j'ai créé un convertisseur Décimal vers Hexadécimal.
Voici la source:

Code:

:.HEXDEC
:ClrHome
:1→A
:Repeat getkey(41)  // La touche [On]
:Pause 200
:Output(0,4,"Dec:
:Output(0,5,"Hex:
:Output(5,4,ADec
:Output(6,5,AHex
:If getkey(2)
:A-1→A
:End
:If getkey(3)
:A+1→A
:End
:If getkey(1)
:A-10→A
:End
:If getkey(4)
:A+10→A
:End
:End

Les touches:
:arrow: [flèche gauche] → soustrait 1 au nombre*
:arrow: [flèche droite] → ajoute 1 au nombre**
:arrow: [flèche bas] → soustrait 10 au nombre*
:arrow: [flèche haut] → ajoute 10 au nombre**
:arrow: [On] → quitter le programme
*(si le nombre est inférieur à 0 alors ça lui ajoute 65535)
**(si le nombre est supérieur à 65535 alors ça lui soustrait 65535)

Je posterais un lien à l'avenir.

Le code retravaillé par le maître.

Code:

:.HEXDEC
:ClrHome
:0→A
:Output(0,4,"Dec:
:Output(0,5,"Hex:
:Repeat getkey(41)
:Output(5,4,ADec
:Output(6,5,AHex
:getKey(4)-getKey(1)*10-getkey(2)+getKey(3)+A→A
:!If getKey(54)
:While getKey(0):Pause 7:End
:Else
:Full
:End
:End


Ton exercice sera de commenter ce code. :D

Le code retravaillé par le maître et commenté par ... moi !

Code:

:.HEXDEC
:ClrHome  // Efface l'écran
:0→A  // Défini à zéro la variable A
:Output(0,4,"Dec: 
:Output(0,5,"Hex:
:Repeat getkey(41)  // Répète jusqu'à ce que [On] soit pressé
:Output(5,4,A▶Dec  // On affiche la valeur décimal de A
:Output(6,5,A▶Hex  // On affiche la valeur héxadécimal de A
:getKey(4)-getKey(1)*10-getkey(2)+getKey(3)+A→A
  // Un ptit calcul avec boléen sur la variable A. ^^
:!If getKey(54)
  // Si on appuie pas sur 2nd alors c'est lent sinon méga rapide !
:While getKey(0):Pause 7:End
:Else
:Full
:End:End

Voilà, le code commenté. Sinon t'es sûr que Pause 7 suffit à ce que ce soit précis.

Ouai !
Tout ceux qui apprennent l'Axe aujourd'hui sont les futurs maître pour les prochaine années.

Évidement
Sinon t'as oublié un End à la fin. La boucle du Repeat n'est pas fermé.

/me se relie.

Exacte, erreur de recopiage.

Cool ton programme, je passe de 0.4.6 à 0.4.7, j'avais pas vu la mise à jour.

80% pour la version 1.0.0 :twisted:

:cheers:

Et l'Axe Parser est élu programme de l'année sur Ti Calc ! :D

j'ai voté avant hier.

Programme du siècle je dirais même, sur z80.

Je suis d'accord.

Le siècle n'est pas terminé.. peut être un nouveau langage encore mieux. Qui sait ?

Possible mais je pense que ça va être difficile de battre Kevin Horowitz.

Bon ok, ce sera l'Axe Parser 2.1 qui concrétisera la ligné, mais c'est toujours l'Axe.

moi je ne le trouve pas si bien que ça, ce language. remarque, je ne peux pas me permettre de faire des commentaires avant d'avaoir fini le tutoriel.


ps: interdiction de me taper dessus, mais: si je vous laisse faire, on va devenir le premier forum spécialisé dans l'axe. alors je sais que ça va augmenter la popularité du forum, mais moi j'aime bien le basic quand même...

Le TI-Basic a bien d'autres avantages, notamment pour les mathématiques.

En parlant de TI-BASIC j'ai programmé un tour de magie en TI-BASIC aujourd"hui !

Voilà une petite mise à jour incluant l'ASCII:

Code:

:.HEXDEC
:ClrHome
:0→A
:Output(0,4,"Dec:
:Output(0,5,"Hex:
:Output(0,6,"ASCII:
:Repeat getkey(41)
:Output(5,4,A▶Dec
:Output(6,5,A▶Hex
:Output(7,6,A▶Char
:getKey(4)-getKey(1)*10-getkey(2)+getKey(3)+A→A
:!If getKey(54)
:While getKey(0):Pause 7:End
:Else
:Full
:End
:End

Et pendant que j'y suis, existe-t-il une fonction pour afficher un nombre en binaire ?

Nope, mais ce n'est pas très compliqué à faire sur un nombre décimal.

ou Hexa avec des modulo et des If

Oui, sauf que l'hexa est une chaîne de caractère ici.

Ok.