π
<-

Codix 0.1 ALPHA


File hierarchy

 Downloads
 Uploaded files(15473)
 TI-89/92+/Voyage200
(879)
 Utilitaires(117)

DownloadTélécharger

LicenceLicense : Creative Commons 2.0 BY-SA
Creative Commons 2.0 BY-SA

 TéléchargerDownload

Actions



Vote :

ScreenshotAperçu


Informations

Catégorie :Category: Utilitaires TI-89/92+/Voyage200
Auteur Author: Akmdad
Type : Basic
Taille Size: 4.57 Ko KB
Mis en ligne Uploaded: 09/06/2012 - 21:16:53
Uploadeur Uploader: akmdad (Profil)
Téléchargements Downloads: 317
Visibilité Visibility: Archive publique
Shortlink : http://ti-pla.net/a5460

Description 

Programme de codage et de décodage selon un language que j'ai inventé.


()
Prgm
1»w
ClrDraw
ClrIO
Output 0,8,"Traducteur->codix"
Output 10,8,"Traducteur->normal"
Output 20,8,"Table"
0»x
0»k
While k13
Output x,1,"-"
getKey()»k
If k>0
Output x,1," "
If k=338 and x0
x-10»x
If k=344 and x20
x+10»x
EndWhile
ClrIO
If x=20
Goto tab
If x=10
Goto tra
InputStr b
0»deb
Lbl abc
ª1»o
For y,0+deb,ceiling(dim(b)/17)+deb,w
For x,0,17
o+1»o
If o>dim(b)
Goto end
mid(b,o+1,1)»a
If w=2 Then
PxlText a,(y+1)*10,x*8
If y>0
PxlHorz y*10-2
PxlHorz (y+1)*10-2
EndIf
If a="a" Then
PxlLine 1+y*10,3+8x,5+y*10,3+8x
EndIf
If a="b" Then
PxlLine 1+y*10,2+8x,5+y*10,2+8x
PxlLine 1+y*10,4+8x,5+y*10,4+8x
EndIf
If a="c" Then
PxlLine 1+y*10,5+8x,5+y*10,5+8x
PxlLine 1+y*10,3+8x,5+y*10,3+8x
PxlLine 1+y*10,1+8x,5+y*10,1+8x
EndIf
If a="d" Then
PxlLine 1+y*10,3+8x,5+y*10,3+8x
PxlLine 1+y*10,1+8x,1+y*10,5+8x
EndIf
If a="e" Then
PxlLine 1+y*10,2+8x,5+y*10,2+8x
PxlLine 1+y*10,4+8x,5+y*10,4+8x
PxlLine 1+y*10,1+8x,1+y*10,5+8x
EndIf
If a="f" Then
PxlLine 1+y*10,5+8x,5+y*10,5+8x
PxlLine 1+y*10,3+8x,5+y*10,3+8x
PxlLine 1+y*10,1+8x,5+y*10,1+8x
PxlLine 1+y*10,1+8x,1+y*10,5+8x
EndIf
If a="g" Then
PxlLine 1+y*10,3+8x,5+y*10,3+8x
PxlLine 5+y*10,1+8x,5+y*10,5+8x
EndIf
If a="h" Then
PxlLine 5+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,2+8x,5+y*10,2+8x
PxlLine 1+y*10,4+8x,5+y*10,4+8x
EndIf
If a="i" Then
PxlLine 5+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,5+8x,5+y*10,5+8x
PxlLine 1+y*10,3+8x,5+y*10,3+8x
PxlLine 1+y*10,1+8x,5+y*10,1+8x
EndIf
If a="j" Then
PxlLine 1+y*10,3+8x,5+y*10,3+8x
PxlLine 5+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,1+8x,1+y*10,5+8x
EndIf
If a="k" Then
PxlLine 1+y*10,2+8x,5+y*10,2+8x
PxlLine 1+y*10,4+8x,5+y*10,4+8x
PxlLine 5+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,1+8x,1+y*10,5+8x
EndIf
If a="l" Then
PxlLine 5+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,5+8x,5+y*10,5+8x
PxlLine 1+y*10,3+8x,5+y*10,3+8x
PxlLine 5+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,1+8x,1+y*10,5+8x
PxlLine 1+y*10,1+8x,5+y*10,1+8x
EndIf
If a="m" Then
PxlLine 1+y*10,1+8x,1+y*10,5+8x
EndIf
If a="n" Then
PxlLine 5+y*10,1+8x,5+y*10,5+8x
EndIf
If a="o" Then
PxlLine 1+y*10,1+8x,1+y*10,5+8x
PxlLine 5+y*10,1+8x,5+y*10,5+8x
EndIf
If a="p" Then
PxlLine 1+y*10,1+8x,5+y*10,5+8x
EndIf
If a="q" Then
PxlLine 1+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,5+8x,5+y*10,1+8x
EndIf
If a="r" Then
PxlLine 1+y*10,5+8x,5+y*10,1+8x
EndIf
If a="s" Then
PxlLine 1+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,3+8x,5+y*10,3+8x
EndIf
If a="t" Then
PxlLine 1+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,2+8x,5+y*10,2+8x
PxlLine 1+y*10,4+8x,5+y*10,4+8x
EndIf
If a="u" Then
PxlLine 1+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,1+8x,5+y*10,1+8x
PxlLine 1+y*10,3+8x,5+y*10,3+8x
PxlLine 1+y*10,5+8x,5+y*10,5+8x
EndIf
If a="v" Then
PxlLine 1+y*10,5+8x,5+y*10,1+8x
PxlLine 1+y*10,3+8x,5+y*10,3+8x
EndIf
If a="w" Then
PxlLine 1+y*10,5+8x,5+y*10,1+8x
PxlLine 1+y*10,2+8x,5+y*10,2+8x
PxlLine 1+y*10,4+8x,5+y*10,4+8x
EndIf
If a="x" Then
PxlLine 1+y*10,5+8x,5+y*10,1+8x
PxlLine 1+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,1+8x,5+y*10,1+8x
PxlLine 1+y*10,3+8x,5+y*10,3+8x
PxlLine 1+y*10,5+8x,5+y*10,5+8x
EndIf
If a="y" Then
PxlLine 1+y*10,3+8x,5+y*10,3+8x
PxlLine 1+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,5+8x,5+y*10,1+8x
EndIf
If a="z" Then
PxlLine 1+y*10,2+8x,5+y*10,2+8x
PxlLine 1+y*10,4+8x,5+y*10,4+8x
PxlLine 1+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,5+8x,5+y*10,1+8x
EndIf
EndFor
EndFor
Lbl end
If deb=3
Goto trab
Stop
Lbl tab
Disp "1"
"abcdefghijklmnopqrstuvwxyz"»b
2»w
0»deb
Goto abc
Lbl tra
"abcdefghijklmnopqrstuvwxyz"»b
1»w
3»deb
Goto abc
Lbl trab
4»x
0»y
0»k
" "»a
Lbl bou
While k13 and k257
If k=264 Then
ClrDraw
DispHome
Stop
EndIf
getKey()»k
If k>0 Then
PxlLine x*10-2,y*8,x*10+7,y*8,0
PxlLine x*10-2,y*8,x*10-2,y*8+7,0
PxlLine x*10+7,y*8+7,x*10+7,y*8,0
PxlLine x*10-2,y*8+7,x*10+7,y*8+7,0
EndIf
If k=337
y-1»y
If k=340
y+1»y
If k=338
x-1»x
If k=344
x+1»x
PxlLine x*10-2,y*8,x*10+7,y*8
PxlLine x*10-2,y*8,x*10-2,y*8+7
PxlLine x*10+7,y*8+7,x*10+7,y*8
PxlLine x*10-2,y*8+7,x*10+7,y*8+7
EndWhile
PxlText " ",0,0

If k=257 Then
left(a,dim(a)-1)»a
PxlText a,0,0
0»k
Goto bou
EndIf

If x=3
a&mid(b,y+1,1)»a
If x=4 Then
y+19»e
a&mid(b,e,1)»a
EndIf
PxlText a,0,0
0»k
Goto bou
EndPrgm

Partenaire:
-
Search
-
Social TI-Planet
Facebook
  
Instagram
  
X/Twitter
  
YouTube
  
Discord
-
Featured topics
Comparaisons des meilleurs prix pour acheter sa calculatrice !
"1 calculatrice pour tous", le programme solidaire de Texas Instruments. Reçois gratuitement et sans aucune obligation d'achat, 5 calculatrices couleur programmables en Python à donner aux élèves les plus nécessiteux de ton lycée. Tu peux recevoir au choix 5 TI-82 Advanced Edition Python ou bien 5 TI-83 Premium CE Edition Python.
Enseignant(e), reçois gratuitement 1 exemplaire de test de la TI-82 Advanced Edition Python. À demander d'ici le 31 décembre 2024.
Reprise de ton ancienne fx-92 Collège ou Graph 25/35/90 à 3€ peu importe son état. Même non fonctionnelle et donc invendable, même ancienne Graph 35 non conforme aux programmes (pas de Python), même ancienne Graph 25/35 inutilisable aux examens (pas de mode examen) et donc invendable. Etiquette de retour fournie, pas de frais de port à payer.
Aidez la communauté à documenter les révisions matérielles en listant vos calculatrices graphiques !
12345
-
Donations / Premium
For more contests, prizes, reviews, helping us pay the server and domains...
Donate
Discover the the advantages of a donor account !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !

Partner and ad
Notre partenaire Jarrety Calculatrices à acheter chez Calcuso
-
Stats.
1036 utilisateurs:
>984 invités
>43 membres
>9 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Other interesting websites
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)
© 2011-2024 TI-Planet. Website managed by UPECS non-profit organization. See our privacy policy.
The proper functioning of TI-Planet relies on cookies. You can configure (and consent to) the usage of optional cookies.

SmartNav : Off (ON = connexion nécessaireON = login required)

Nous ne pouvons pas forcément surveiller l'intégralité du contenu publié par nos membres - n'hésitez pas à nous contacter si besoinWe may not be able to review all the content published by our members - do not hesitate to contact us if needed (info[at]tiplanet[.]org).

Forum powered by phpBB © phpBB Group — Traduction phpBB par phpBB-fr — Some icons from FatCow