[83] générique de film
2 participants
Page 1 sur 1
[83] générique de film
je suis en train de programmer un programme qui fait défiler du texte à la manière d'un générique de fin de film.
pour l'instant le programme est un peu lent, mais il fonctionne.
le seul hic: il ne reconnait pas les fins de mot et résultat les mots sont coupés, du style:
bonjour je m'appelle persalteas et je su
is un programmeur sur ti en train de po
ster un message sur le forum d' espace
ti pour demander de l'aide sur un point d
ifficile... merci de votre soutien rapi
de...
si quelqu'un a une idée pour améliorer, merci de me la faire parvenir.
le code:
pour l'instant le programme est un peu lent, mais il fonctionne.
le seul hic: il ne reconnait pas les fins de mot et résultat les mots sont coupés, du style:
bonjour je m'appelle persalteas et je su
is un programmeur sur ti en train de po
ster un message sur le forum d' espace
ti pour demander de l'aide sur un point d
ifficile... merci de votre soutien rapi
de...
si quelqu'un a une idée pour améliorer, merci de me la faire parvenir.
le code:
- Spoiler:
- Code:
:FonctNaff
:GraphNaFF
:AxesNAff
:0->Ymin:62->Ymax
:0->Xmin:1->Xmax
:EffDessin
:Lbl 0
:" "->Chaine9
:Chaine9->Chaine1
:Chaine9->Chaine2
:Chaine9->Chaine3
:Chaine9->Chaine4
:Chaine9->Chaine5
:Chaine9->Chaine6
:Chaine9->Chaine7
:Chaine9->Chaine8
:Input Chaine0
:longueur(Chaine0->L
:If L>225:Goto 0
:Repeat non(partDéc(L/25
:Chaine0+" "->Chaine0
:L+1->L
:End
:For(A,1,L,25
:sous-Chaine(Chaine0,A,25->Chaine9
:If A=1:Chaine9->Chaine1
:If A=26:Chaine9->Chaine2
:If A=51:Chaine9->Chaine3
:If A=76:Chaine9->Chaine4
:If A=101:Chaine9->Chaine5
:If A=126:Chaine9->Chaine6
:If A=151:Chaine9->Chaine7
:If A=176:Chaine9->Chaine8
:End
:If Chaine8=" ":" "->Chaine9
:58->A
:Repeat A=0
:A-1->A
:Texte(A,4,Chaine1
:Ligne(0,56-A,1,56-A,0
:If A=<51:Then
:Texte(A+6,4,Chaine2
:Ligne(0,50-A,1,50-A,0
:End
:If A=<45:Then
:Texte(A+12,4,Chaine3
:Ligne(0,44-A,1,44-A,0
:End
:If A=<39:Then
:Texte(A+18,4,Chaine4
:Ligne(0,38-A,1,38-A,0
:End
:If A=<33:Then
:Texte(A+24,4,Chaine5
:Ligne(0,32-A,1,32-A,0
:End
:If A=<27:Then
:Texte(A+30,4,Chaine6
:Ligne(0,26-A,1,26-A,0
:End
:If A=<21:Then
:Texte(A+36,4,Chaine7
:Ligne(0,20-A,1,20-A,0
:End
:If A=<15:Then
:Texte(A+42,4,Chaine8
:Ligne(0,14-A,1,14-A,0
:End
:If A=<9:Then
:Texte(A+48,4,Chaine9
:Ligne(0,8-A,1,8-A,0
:End
:End
Dernière édition par persalteas le Ven 31 Déc - 10:02, édité 1 fois
persalteas- Platinum 2
- Sexe :
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
- - TI-82 Stats.fr
- - TI-83
- - TI-83+
- - TI-84+ SE
- - TI-86
- - TI-Nspire
- - TI-Nspire CX
- - Casio Collège
- - Casio Graph
Re: [83] générique de film
Je ne sais pas trop comment t'aider mais je pense que tu devrais faire en sorte que la ligne se coupe lors d'un espace mais le plus loin possible en mettant:
- Code:
:If sous-Chaîne(Chaîne0,A,B=" "
Metallica- Or 4
- Sexe :
Age : 28
Messages : 926
Date d'inscription : 30/06/2010
Etudes : DUT Info
Points Forum : 17
Points Concours : 9
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-82 Stats.fr
- - TI-83+ SE
Re: [83] générique de film
je vois, et j'ai déjà pensé a ça.
je ne sais pas en fait comment coder ça concrètement.
je ne sais pas en fait comment coder ça concrètement.
persalteas- Platinum 2
- Sexe :
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
- - TI-82 Stats.fr
- - TI-83
- - TI-83+
- - TI-84+ SE
- - TI-86
- - TI-Nspire
- - TI-Nspire CX
- - Casio Collège
- - Casio Graph
Re: [83] générique de film
Je ne sais pas trop n'en plus comment faire mais j'y réfléchi.
Metallica- Or 4
- Sexe :
Age : 28
Messages : 926
Date d'inscription : 30/06/2010
Etudes : DUT Info
Points Forum : 17
Points Concours : 9
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-82 Stats.fr
- - TI-83+ SE
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|