[BASIC] Text Sprite

Voir le sujet précédent Voir le sujet suivant Aller en bas

[BASIC] Text Sprite

Message par ThePH le Mar 15 Mar - 15:45

Voici un programmes pour faire des text sprites

prgmATXTSPRI:
Code:
0→Xmin
-62→Ymin
0→Ymax
94→Xmax
Goto ME
Lbl 0
Input Str1
Lbl 00
ClrDraw
Str1+"  →Str1
length(Str1→B
For(A,0,B-1
Text(0,A,sub(Str1,A+1,1
End
Lbl 01
Pause
Lbl ME
Menu("TEXT-SPRITE","NOUVEAU",0,"ZOOM",Z,"EXEMPLES",EX,"A PROPOS",AP,"QUITTER",Q
Lbl Z
For(A,0,B-3
For(C,0,6
If pxl-Test(C,A)=1:Then
2*A→X
-(2*C+14→Y
If X>=94:Then
X-94→X
Y-12→Y
End
Line(X,Y,X+1,Y:Line(X,Y+1,X+1,Y+1
End
End
End
Pause
Goto ME
Lbl EX
Menu("EXEMPLES","FLECHES",11,"PAC-MAN",22,"JEUX",33,"SIGNE DE MATH",44,"AUTRES",55
Lbl 11
"-([ [(- ---[(- --(([[---- ]][(- --((LL((((((((((L(L(L(L→Str1
Goto 00
Lbl 22
"(L[2nde + .]X: (XÐ[( :X[2nde + .][( ([VX( A[2nde + .][[2nde + .]A AQ[QA ((( (Z[2nde + .][(  ([VV AAVVAA ([X] -- ([?V?[( AAVVAA ([V/[( 99→Str1
Goto 00
Lbl 33
"VQ6QV +([(+ -9[9- (9[9(→Str1
Goto 00
Lbl 44
"151 ++[++ (]]](]]]( ]:-:] :-:→Str1
Goto 00
Lbl 55
"+(X(+ .:!:. [[2nde + .]Z]Z[2nde + .]Z]Z[2nde + .]Z]Z[2nde + .]Z]Z[2nde + .][ 3665663 57975 4467644 []9]9]9]9]9]9]9][ ----V[/---V[/----→Str1
Goto 00
Lbl AP
ClrDraw
15→X
5→Y
" TT[[TT [[Z] XX--XX TT[[TT -- 9[[[2nde + .] ([VV ([VV/ ]][[]] TT[[TT [[Z]→Str1
prgmZTXTSPRI
25→X
12→Y
"([VV ([VV[( ([VV/  T[[T ([-[( [[Z] ([VV ([-[(→Str1
prgmZTXTSPRI
19→Y:41→X
"[2nde + .][9 ()( 1[. 1[.→Str1
prgmZTXTSPRI
56→Y
1→H
For(X,2,86,4
Pxl-On(59,X
End
For(X,0,82,3
If H=-1
Then
"  ([[2nde + .]X:→Str1
Else
"  ([[2nde + .][(→Str1
End
-H→H
prgmZTXTSPRI
End
84→X
"([[2nde + .]X]→Str1

"([[2nde + .]]→Str1
prgmZTXTSPRI
"([X→Str1
prgmZTXTSPRI
"([]→Str1
prgmZTXTSPRI
"(X→Str1
prgmZTXTSPRI
"(]→Str1
prgmZTXTSPRI
"(→Str1
prgmZTXTSPRI
" →Str1
prgmZTXTSPRI
Pause
Goto ME
Lbl Q

Et celui pour l'utiliser avec vos jeux/programmes (59 octets seulement Cool )
Ne pas utiliser Z et Theta
SYNTAXE:
Code:
"([[X]→Str1
0→X
0→Y
prgmZTXTSPRI


prgmZTXTSPRI:
Code:
Str1+"  →Str1
length(Str1→[THETA]
For(Z,0,[THETA]-1
Text(Y,Z+X,sub(Str1,Z+1,1
End

J'en ferais un autre pour des sprites plus grand ^^

ThePH
Or 1
Or 1

Sexe : Masculin
Age : 21
Messages : 128
Date d'inscription : 26/01/2011
Points Forum : 7
Points Concours : 2
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - Lua Nspire
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-89

TI-82 Stats.fr


Revenir en haut Aller en bas

Re: [BASIC] Text Sprite

Message par Alexis le Mar 15 Mar - 16:22

Merci.

_________________
L'administrateur du forum.

Salut Invité, tu as posté 11 messages sur le forum.

Mes projets:
[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

Alexis
Platinum 2
Platinum 2

Sexe : Masculin
Age : 23
Messages : 2320
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - Axe Parser
Calculatrices :
  • - TI-Collège
  • - TI-82 Stats.fr
  • - TI-84+

TI-84+


http://espace-ti.e-monsite.com

Revenir en haut Aller en bas

Re: [BASIC] Text Sprite

Message par persalteas le Mar 15 Mar - 18:37

C'est quoi un text sprite ?


_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :
  • - TI-Basic Z80
  • - xLib
  • - Grammer
  • - TI-Basic Nspire
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: [BASIC] Text Sprite

Message par harven le Mar 15 Mar - 19:42

Bonjour a tous
Pour te repondre Persalteas voici un lien :
[Vous devez être inscrit et connecté pour voir ce lien]
ce lien meme a un tuto tres complet sur ce qu'est un texte sprite
(Haha ! enfin ! j'arrive a etaller pour aider ma minable culture Content)

Harven

harven
Argent 2
Argent 2

Sexe : Masculin
Age : 20
Messages : 28
Date d'inscription : 28/08/2010
Points Forum : 0
Points Concours : 0
TI-82


Revenir en haut Aller en bas

Re: [BASIC] Text Sprite

Message par persalteas le Mar 15 Mar - 20:00

Mais c'est génial! je connaissais pas le principe!

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :
  • - TI-Basic Z80
  • - xLib
  • - Grammer
  • - TI-Basic Nspire
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: [BASIC] Text Sprite

Message par ThePH le Mer 16 Mar - 7:30

Oui Harven, mon idée veint de ce tuto, d'ailleur merci a l'auteur, mais comme son programmes pour trouver Sprite ---> Texte ne marche pas, je l'ai refais
+ Deux police de caractere (prgmB pour tester + ZFPACMAN/ZFCOMPLI + ZTXTSPRF)

Les voici :

prgmSPR2TXT


Code:
Input "PIXELS: ",C
" "→Str1
For(X,0,C
Disp X
" "→Str0
For(Y,0,4
If pxl-Test(Y,X)=1:Then:Str0+"1"→Str0:Else:Str0+"0"→Str0:End
End
Disp Str0
sub(Str0,2,length(Str0)-1üStr0:Str0
prgmZSPR2TXT
Ans→Str2
Str1+Str2→Str1
Disp Str2,"----------------

End
sub(Str1,2,length(Str1)-1→Str1
Pause Str1

et

prgmZSPR2TXT
Code:

If Ans="00000
"
If Ans="00001
".
If Ans="00010
"[pt-on 3]
If Ans="00011
"J
If Ans="00100
"-
If Ans="00110
"e
If Ans="00111
"[pt-on 2]
If Ans="01000
"^
If Ans="01001
"1
If Ans="01010
":
If Ans="01101
"S
If Ans="01110
"(
If Ans="01111
"A
If Ans="10000
"?
If Ans="10001
"]
If Ans="10010
"[au carré]
If Ans="10011
"2
If Ans="10111
"[2nde + .]
If Ans="11000
"Y
If Ans="11101
"!
If Ans="11110
"Q
If Ans="11111
"[
If Ans="11100
"'
If Ans="11011
"X
If Ans="10100
"[petit x + racine carré]
If Ans="11010
"[X tordu + au carré]
If Ans="10101
"[x avec une barre dessus (var >stats)]
Return
le meme a copier-coller dans l'editeur sur PC
Spoiler:

Code:

If Ans="00000
"
If Ans="00001
".
If Ans="00010

If Ans="00011
"J
If Ans="00100
"-
If Ans="00110

If Ans="00111

If Ans="01000
"^
If Ans="01001
"1
If Ans="01010
":
If Ans="01101
"S
If Ans="01110
"(
If Ans="01111
"A
If Ans="10000
"?
If Ans="10001
"]
If Ans="10010

If Ans="10011
"2
If Ans="10111

If Ans="11000
"Y
If Ans="11101
"!
If Ans="11110
"Q
If Ans="11111
"[
If Ans="11100
"'
If Ans="11011
"X
If Ans="10100
"Íð
If Ans="11010
"äÜ
If Ans="10101

Return
DAMNED !!!
J'ai cours dans 30 mins ( :silent: 25 MINS DE TRAJET)
je posterais donc le reste plus tard xD

___________________________________

Plus tard ce jour la ...
___________________________________

prgmB
Code:

6→X
0→Y
Input "TEXTE:",Str1
ClrDraw
prgmZFCOMPLI

prgmZFCOMPLI
ZFCOMPLI.83p

prgmZFPACMAN
ZFCOMPLI.83p

prgmZTXTSPRF
Code:

Str1+"  →Str1
length(Str1→[THETA]
[LISTE]ZSPR(1→X
For(Z,0,[THETA]-1
Text([LISTE]ZSPR(2),Z+X,sub(Str1,Z+1,1
End

Voila

Tout les fichiers :

TextSprite83

ThePH
Or 1
Or 1

Sexe : Masculin
Age : 21
Messages : 128
Date d'inscription : 26/01/2011
Points Forum : 7
Points Concours : 2
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - Lua Nspire
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-89

TI-82 Stats.fr


Revenir en haut Aller en bas

Re: [BASIC] Text Sprite

Message par ThePH le Mer 16 Mar - 18:22

Je rajoute ce post pour que vous voyez que j'ai edité et ajouté les autre programmes Content

ThePH
Or 1
Or 1

Sexe : Masculin
Age : 21
Messages : 128
Date d'inscription : 26/01/2011
Points Forum : 7
Points Concours : 2
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - Lua Nspire
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-89

TI-82 Stats.fr


Revenir en haut Aller en bas

Re: [BASIC] Text Sprite

Message par Alexis le Mer 16 Mar - 19:40

Ce tutoriel est récent d'après ma mémoire, je m'en rappel.

_________________
L'administrateur du forum.

Salut Invité, tu as posté 11 messages sur le forum.

Mes projets:
[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

Alexis
Platinum 2
Platinum 2

Sexe : Masculin
Age : 23
Messages : 2320
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - Axe Parser
Calculatrices :
  • - TI-Collège
  • - TI-82 Stats.fr
  • - TI-84+

TI-84+


http://espace-ti.e-monsite.com

Revenir en haut Aller en bas

Re: [BASIC] Text Sprite

Message par ThePH le Mer 16 Mar - 19:47

Oui, alors les add-ons ? ^^

ThePH
Or 1
Or 1

Sexe : Masculin
Age : 21
Messages : 128
Date d'inscription : 26/01/2011
Points Forum : 7
Points Concours : 2
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - Lua Nspire
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-89

TI-82 Stats.fr


Revenir en haut Aller en bas

Re: [BASIC] Text Sprite

Message par harven le Mer 16 Mar - 19:49

Salut
je n'ai pas bien comprit le principe et est on obliger d'utiliser la fonction "Str" ?

harven
Argent 2
Argent 2

Sexe : Masculin
Age : 20
Messages : 28
Date d'inscription : 28/08/2010
Points Forum : 0
Points Concours : 0
TI-82


Revenir en haut Aller en bas

Re: [BASIC] Text Sprite

Message par ThePH le Jeu 17 Mar - 11:55

On peut utiliser Ans mais les Str sont faites seulement pour du texte, c'est donc plus pratique Clin Oeil

ThePH
Or 1
Or 1

Sexe : Masculin
Age : 21
Messages : 128
Date d'inscription : 26/01/2011
Points Forum : 7
Points Concours : 2
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - Lua Nspire
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-89

TI-82 Stats.fr


Revenir en haut Aller en bas

Re: [BASIC] Text Sprite

Message par persalteas le Jeu 17 Mar - 20:23

harven a une 82 basique, donc pas de Str.

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :
  • - TI-Basic Z80
  • - xLib
  • - Grammer
  • - TI-Basic Nspire
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: [BASIC] Text Sprite

Message par ThePH le Ven 18 Mar - 15:12

Ah ouais desolé :oops: , j'essayerais de le faire pour le 82 si tu veux Content

ThePH
Or 1
Or 1

Sexe : Masculin
Age : 21
Messages : 128
Date d'inscription : 26/01/2011
Points Forum : 7
Points Concours : 2
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - Lua Nspire
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-89

TI-82 Stats.fr


Revenir en haut Aller en bas

Re: [BASIC] Text Sprite

Message par noelthebest le Dim 20 Mar - 16:22

Tiens j'avais jamais remarqué que c'était Yomansz qui avait fait ce tutoriel...

_________________
[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]

noelthebest
Platinum 1
Platinum 1

Sexe : Masculin
Age : 19
Messages : 1969
Date d'inscription : 12/03/2011
Etudes : ENS Cachan
Points Forum : 20
Points Concours : 9
Langages :
  • - TI-Basic Z80
  • - ASM TI-83+ / TI-84+
  • - Axe Parser
Calculatrices :
  • - TI-83+.fr
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84+ SE


Revenir en haut Aller en bas

Re: [BASIC] Text Sprite

Message par mdr1 le Mar 29 Mar - 16:00

ThePH a écrit:Oui Harven, mon idée veint de ce tuto, d'ailleur merci a l'auteur, mais comme son programmes pour trouver Sprite ---> Texte ne marche pas, je l'ai refais
+ Deux police de caractere (prgmB pour tester + ZFPACMAN/ZFCOMPLI + ZTXTSPRF)
Comment ça le programme des sprite-text ne marche pas ? Sur ma calculatrice, il marche, pourtant. Quelle erreur est indiquée ?

persalteas a écrit:harven a une 82 basique, donc pas de Str.
Donc pas de Str au sens large du terme, donc pas même dans Ans. Il faut alors se débrouiller pour afficher les caractères un à un avec plein de conditions.

mdr1
Or 1
Or 1

Sexe : Masculin
Age : 26
Messages : 124
Date d'inscription : 16/03/2011
Points Forum : 4
Points Concours : 0
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - ASM TI-83+ / TI-84+
  • - Axe Parser
  • - TI-Basic Nspire
  • - Ndless Nspire
Calculatrices :
  • - TI-82
  • - TI-83+
  • - TI-84 Pocket.fr
  • - TI-Nspire CX

TI-84 Pocket.fr


Revenir en haut Aller en bas

Re: [BASIC] Text Sprite

Message par ThePH le Mar 29 Mar - 17:25

[quote="mdr1"]
ThePH a écrit:Sur ma calculatrice, il marche, pourtant. Quelle erreur est indiquée ?

Je l'ai essayé avec un txt sprite "compliqué" et il m'a sorti des trucs bizares, je te rapelle que j'ai un 83 et non une 83+, il y a donc certains caractères que je n'ai pas. Silence

ThePH
Or 1
Or 1

Sexe : Masculin
Age : 21
Messages : 128
Date d'inscription : 26/01/2011
Points Forum : 7
Points Concours : 2
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - Lua Nspire
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-89

TI-82 Stats.fr


Revenir en haut Aller en bas

Re: [BASIC] Text Sprite

Message par mdr1 le Mer 30 Mar - 12:56

[quote="ThePH"]
mdr1 a écrit:
ThePH a écrit:Sur ma calculatrice, il marche, pourtant. Quelle erreur est indiquée ?

Je l'ai essayé avec un txt sprite "compliqué" et il m'a sorti des trucs bizares, je te rapelle que j'ai un 83 et non une 83+, il y a donc certains caractères que je n'ai pas. Silence

Dans ce cas, il te suffit de changer la chaine pour mettre les caractères que tu souhaites selon les pixels allumés ou éteints.

mdr1
Or 1
Or 1

Sexe : Masculin
Age : 26
Messages : 124
Date d'inscription : 16/03/2011
Points Forum : 4
Points Concours : 0
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - ASM TI-83+ / TI-84+
  • - Axe Parser
  • - TI-Basic Nspire
  • - Ndless Nspire
Calculatrices :
  • - TI-82
  • - TI-83+
  • - TI-84 Pocket.fr
  • - TI-Nspire CX

TI-84 Pocket.fr


Revenir en haut Aller en bas

Re: [BASIC] Text Sprite

Message par ThePH le Jeu 31 Mar - 10:36

Ok j'essayerais

ThePH
Or 1
Or 1

Sexe : Masculin
Age : 21
Messages : 128
Date d'inscription : 26/01/2011
Points Forum : 7
Points Concours : 2
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - Lua Nspire
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-89

TI-82 Stats.fr


Revenir en haut Aller en bas

Re: [BASIC] Text Sprite

Message par Contenu sponsorisé Aujourd'hui à 2:24


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum