Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 689
Réponses : 3
Type : discussion
Etat : réponses autorisées

Transformation de chiffres en symboles

pauloTIhack82 le 10/09/2012 à 21:53
slt à tous j'aimerai savoir si il est possible de créer un programme qui transforme des chiffres et des lettre en simboles
par exemple si quand le prog démarre je tape "123" je vouudrai qu'il affiche "***"
MERCI ! godgrace.gif
linkakro le 10/09/2012 à 22:49
Il n'est pas possible de le faire en TI-Basic si on utilise simplement Input.
On est contraint d'utiliser tout un programme pour espérer saisir des choses sans les afficher en clair à l'écran.
Si cela peut t'aider, consulte la partie 1-E de cet article
pauloTIhack82 le 13/09/2012 à 21:48
merci quand même mais je n'ai pas trouver trop de rapport entre les deux happy.gif si un prog peut le faire est-ce que quelqun pourrait le faire SVP MERCI d'avance
linkakro le 13/09/2012 à 23:11
Le rapport est que des étoiles sont affichées pour chaque chiffre saisi.

Il doit probablement être possible de masquer des caractères dans un Input en assembleur ou Axe en changeant les tokens de chaque caractère.
J'en suis incappable à l'heure actuelle.

Revenons-en au programme à la mode carte bleue, sans les fioritures qui ne t'intéressent clairement pas.
Code
ClrHome
Lbl 0
Output(2,5,"----
ClrList L1
DelVar W
Goto 1
Lbl 8
W-1->W
Output(2,5+W,"-
Lbl 1
Repeat K
getKey->K
End
Output(3,1,"             "
If K=45
Goto 0
If K=23 and W
Goto 8
10
If K=102:0
If K=92:1
If K=93:2
If K=94:3
If K=82:4
If K=83:5
If K=84:6
If K=72:7
If K=73:8
If K=74:9
If Ans=10
Goto 1
Ans->L1(W+1
W+1->W
Output(2,4+W,"*
If W-4
Goto 1
Repeat K=105
getKey->K
If K=45
Goto 0
If K=23
Goto 8
End
If not(prod(L1={1,0,5,7}
Output(3,1,"CODE INVALIDE