Autorisation : Membre
Nb de messages : 37
Inscrit le : Dim 08 Sep 2013, 15:30
Posté le : Sam 14 Déc 2013, 3:25
Re
Ca fait quelques mois,
Et donc voilà un émulateur de terminal personnalisé.
Il permet de créer des programmes sans avoir à aller dans les menus prog/ctl/Lbl
Il permet de programmer dans le language soihaité (en locurence, dans mon cas en décimal).
Il permet surtout d'ajouter des fonctionnalités comme un correcteur d'érreurs fréquentes ou l'ajout de fonction raccourcis.
Ce programme me sert de test pour l'utilisation de microcontrôleur programmables manuellement.
Écrir le code m'importe rien pour moi mais si cela peut donner de nouvelles idées à d'autre, je vais le recopier, il n'est pas petit et peut être compliqué à comprendre donc le voilà:
Code
" 123456789"->chaîne 1
"0123456789"->chaîne 2
Repeat I=0
0->L
Repeat 0<=I et I<6
L+1->L
Input souschaîne(chaîne 1,ent(l/10)+1,1)+souschaîne(chaîne 2,partdec(L/10)*10+1,1)+"0:",I (Format basic :))
If I>6
I->L1(L
End
Pause L1
If I=1
Effliste L1
If I=3
Then
0->P (pas obligatoire)
0->Q
For(A,1,Dim(L1 (programme enregistré et lu sur L1, lancement du prog là)
P->R (P-> mémoire du précèdant nombre utilisé; Q-> avant dernier
If 7=L1(A nombre utilisé; R -> mémoire intermédiaire entre P et Q;S -> boolean)
Q+P->P
If 8=L1(A
Q-P->P (toutes les opérations peuvent y être insérés)
If Q>P et 9=L1(A
1->S
If Q<P et 10=L1(A
1->S
If Q=P et 11=L1(A
1->S
If Q!=P et 12=L1(A
1->S
If 13=L1(A
P->A
If S=1 et 14=L1(A
Then
P->A
0->S
End
If 15=L1(A
P->L3(T
If 16<L1(A)
Dip P
If 16<L1(A) et 28>L1(A
Then
L1(A-17)->P
A-17->T
End
If 27<L1(A
L1(A)-28->P
R->Q
End
End
If I=4
L1->L2
If I=5 (une mémoire à long therme)
L2->L1
End
A+
---------------------- testeur de touche rapidement :
While 1
codetouche->A
If A=/=0
disp A
End
