Espace TI: Forum
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Le Deal du moment : -23%
EVGA SuperNOVA 650 G6 – Alimentation PC 100% ...
Voir le deal
77.91 €

[BASIC] Text Sprite

+2
Alexis
ThePH
6 participants

Aller en bas

[BASIC] Text Sprite Empty [BASIC] Text Sprite

Message par ThePH 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
ThePH
Or 1
Or 1

Sexe : Masculin
Age : 29
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

[BASIC] Text Sprite Empty Re: [BASIC] Text Sprite

Message par Alexis Mar 15 Mar - 16:22

Merci.
Alexis
Alexis
Platinum 2
Platinum 2

Sexe : Masculin
Age : 30
Messages : 2321
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

[BASIC] Text Sprite Empty Re: [BASIC] Text Sprite

Message par persalteas Mar 15 Mar - 18:37

C'est quoi un text sprite ?

persalteas
persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 28
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

[BASIC] Text Sprite Empty Re: [BASIC] Text Sprite

Message par harven 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
harven
Argent 2
Argent 2

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


Revenir en haut Aller en bas

[BASIC] Text Sprite Empty Re: [BASIC] Text Sprite

Message par persalteas Mar 15 Mar - 20:00

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

Sexe : Masculin
Age : 28
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

[BASIC] Text Sprite Empty Re: [BASIC] Text Sprite

Message par ThePH 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:
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
ThePH
Or 1
Or 1

Sexe : Masculin
Age : 29
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

[BASIC] Text Sprite Empty Re: [BASIC] Text Sprite

Message par ThePH Mer 16 Mar - 18:22

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

Sexe : Masculin
Age : 29
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

[BASIC] Text Sprite Empty Re: [BASIC] Text Sprite

Message par Alexis Mer 16 Mar - 19:40

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

Sexe : Masculin
Age : 30
Messages : 2321
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

[BASIC] Text Sprite Empty Re: [BASIC] Text Sprite

Message par ThePH Mer 16 Mar - 19:47

Oui, alors les add-ons ? ^^
ThePH
ThePH
Or 1
Or 1

Sexe : Masculin
Age : 29
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

[BASIC] Text Sprite Empty Re: [BASIC] Text Sprite

Message par harven Mer 16 Mar - 19:49

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

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


Revenir en haut Aller en bas

[BASIC] Text Sprite Empty Re: [BASIC] Text Sprite

Message par ThePH 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
ThePH
Or 1
Or 1

Sexe : Masculin
Age : 29
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

[BASIC] Text Sprite Empty Re: [BASIC] Text Sprite

Message par persalteas Jeu 17 Mar - 20:23

harven a une 82 basique, donc pas de Str.
persalteas
persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 28
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

[BASIC] Text Sprite Empty Re: [BASIC] Text Sprite

Message par ThePH Ven 18 Mar - 15:12

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

Sexe : Masculin
Age : 29
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

[BASIC] Text Sprite Empty Re: [BASIC] Text Sprite

Message par noelthebest Dim 20 Mar - 16:22

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

Sexe : Masculin
Age : 26
Messages : 1971
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

[BASIC] Text Sprite Empty Re: [BASIC] Text Sprite

Message par mdr1 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
mdr1
Or 1
Or 1

Sexe : Masculin
Age : 34
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

[BASIC] Text Sprite Empty Re: [BASIC] Text Sprite

Message par ThePH 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
ThePH
Or 1
Or 1

Sexe : Masculin
Age : 29
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

[BASIC] Text Sprite Empty Re: [BASIC] Text Sprite

Message par mdr1 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
mdr1
Or 1
Or 1

Sexe : Masculin
Age : 34
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

[BASIC] Text Sprite Empty Re: [BASIC] Text Sprite

Message par ThePH Jeu 31 Mar - 10:36

Ok j'essayerais
ThePH
ThePH
Or 1
Or 1

Sexe : Masculin
Age : 29
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

[BASIC] Text Sprite Empty Re: [BASIC] Text Sprite

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

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