Codix 0.1 ALPHA
Hiérarchie des fichiers
Téléchargements | ||||||
Fichiers hébergés | (15507) | |||||
TI-89/92+/Voyage200 | (879) | |||||
Utilitaires | (117) |
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
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 k13
Output x,1,"-"
getKey()»k
If k>0
Output x,1," "
If k=338 and x0
x-10»x
If k=344 and x20
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 k13 and k257
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
()
Prgm
1»w
ClrDraw
ClrIO
Output 0,8,"Traducteur->codix"
Output 10,8,"Traducteur->normal"
Output 20,8,"Table"
0»x
0»k
While k13
Output x,1,"-"
getKey()»k
If k>0
Output x,1," "
If k=338 and x0
x-10»x
If k=344 and x20
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 k13 and k257
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