[83] générique de film

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

[83] générique de film

Message par persalteas le Jeu 30 Sep - 18:39

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:

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

_________________
[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: [83] générique de film

Message par Metallica le Sam 2 Oct - 6:50

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=" "
en faisant un la fonction "for" pour décrémenter les variables. Si tu vois ce que je veux dire.

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

Commencer Dropbox avec 500mo offert en étant parrainé !

Metallica
Or 4
Or 4

Sexe : Masculin
Age : 20
Messages : 926
Date d'inscription : 30/06/2010
Etudes : DUT Info
Points Forum : 17
Points Concours : 9
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83+ SE

TI-83+ SE


Revenir en haut Aller en bas

Re: [83] générique de film

Message par persalteas le Sam 2 Oct - 16:13

je vois, et j'ai déjà pensé a ça.

je ne sais pas en fait comment coder ça concrètement.

_________________
[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: [83] générique de film

Message par Metallica le Sam 2 Oct - 17:20

Je ne sais pas trop n'en plus comment faire mais j'y réfléchi.

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

Commencer Dropbox avec 500mo offert en étant parrainé !

Metallica
Or 4
Or 4

Sexe : Masculin
Age : 20
Messages : 926
Date d'inscription : 30/06/2010
Etudes : DUT Info
Points Forum : 17
Points Concours : 9
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83+ SE

TI-83+ SE


Revenir en haut Aller en bas

Re: [83] générique de film

Message par Contenu sponsorisé Aujourd'hui à 6:49


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