Poster un nouveau sujet Poster une réponse
générique de film
Auteur Message
Persalteas



Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Jeu 30 Sep 2010, 20:41   Citer 

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 de tout 82
, pour demander de l'aide sur un point d
ifficile... merci de votre soutien rap
ide...

si quelqu'un a une idée pour améliorer, merci de me la faire parvenir.

le code:


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



 Adresse email Haut de page Bas de page 
 
tarken
Avatar

Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 15 Sep 2009, 15:04
Posté le : Jeu 30 Sep 2010, 21:08   Citer 

Y'a bien un moyen pour dedecter la fin des mots et ne pas les couper, mais c'est long.
Je te poste ça dès que j'ai le temps.

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Jeu 30 Sep 2010, 21:10   Citer 

merci merci.

 Adresse email Haut de page Bas de page 
 
Rézus



Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Jeu 30 Sep 2010, 21:57   Citer 

Normalement pour ça tu dois mettre un For qui avance jusqu'à ce qu'il y ait un blanc dans la chaîne où est le texte,ou jusqu'à ce que le nombre de caractères fasse la taille d'une ligne,dans ce cas tu mets un autre For qui part de l'endroit où s'était arrêté le For précédent et qui repart en arrière jusqu'à un espace.
Et tu stock dans une chaîne à afficher la sous-chaîne qui va du début du texte (ou du point où il s'était arrêté à la dernière ligne) jusqu'à la variable de ton For .

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Ven 01 Oct 2010, 12:32   Citer 

Pour le générique, il n'y a rien de plus simple:
-Pour faire défiler de haut en bas:

Code
For(A,1,10
Text(A,10,"APPRENEZ A LIRE"
End


-Pour faire défiler de gauche à droite:

Code
For(A,1,5
Text(16,A," LES ANCIENS SUJETS"
End


-Pour faire défiler de droite à gauche:
Code

For(A,1,5
Text(22,20-A,"DATANT DE 2006! "
End



Sangohan38

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 02 Oct 2010, 16:05   Citer 

Sauf que son programme saît afficher des textes de plusieurs lignes, contrairement à cette astuce.

Une fois de plus cela me donne envie de bosser là dessus. (j'ai peu d'idées spontatanées)

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
tarken
Avatar

Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 15 Sep 2009, 15:04
Posté le : Dim 03 Oct 2010, 9:15   Citer 

Tu peut mettre le lien stp sangohan ?

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Dim 03 Oct 2010, 12:31   Citer 

apprends à lire les messages avant de répondre, Sangohan.

na!

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Dim 03 Oct 2010, 13:21   Citer 

Je répond à la première partie du premier message qui dit: "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.".
J'ai donner ma méthode pour faire défiler mais en aucun cas pour résoudre son problème de coupe des mots.

Sangohan38

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 03 Oct 2010, 15:31   Citer 

Voici un programme compliqué mais un peu astucieux, donnant aussi un défilement et faisant des retours à la ligne.
On est cependant limité à 220 caractères sans retours à la ligne. (je crois que c'est tout-de-même plus que le précédent).
Un mot ne doit pas faire plus de 22 lettres. Une optimisation est à venir sur ce point.


Code
0->Xmin
1->Xmax
-62->Ymin
0->Ymax
AxesOff
ClrDraw
ClrHome

Input "",Str0
Str0+" "->Str0
length(Str0)->L
0->A
1->W
0->C
{0}->L1
{0}->L2
Repeat A=L
inString(Str0," ",A+1)->B
If B-C>23
Then
W+1->W
A->L1(W)
A-L1(W-1)->L2(W)
A->C
End
B->A
End
If sum(L2)øL
L-L1(W)->L2(W+1

For(B,1,58
1->C
For(A,1,W
If 52+6A-B>57
Goto A
C+L2(A)->C
Text(52+6A-B,4,sub(Str0,C,L2(A+1))
Line(0,-58-6A+B,1,-58-6A+B,0
Lbl A
End
End



Je serait quand même curieux de connaître celui de tarken.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
tarken
Avatar

Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 15 Sep 2009, 15:04
Posté le : Dim 03 Oct 2010, 16:28   Citer 

À une heure près j'avais l'exclusivité des retours à la ligne. ; )
Mais bon comme je viens de faire ce petit programme ( weekend oblige ), je le poste quand même.
Il ne fait que les retours à la ligne. Evidemment ça pose un petit problème pour les mots de plus de 16 caractères, alors évitez les anticonstitutionnellement.
J'ai pensé à l'ammeliorer par la suite en faisant en sorte de centrer le texte sur chaque ligne.



Code
:longueur(Chaine1)->A
:For(B,16,A,16
:If sous-Chaine(Chaine0,B,1) [différent] "_" et sous-Chaine(Chaine1,B+1,1) [différent] "_"
:Then
:1->C
:-1->D
:Repeat C=0
:D+1->D
:If sous-Chaine(Chaine1,B-D,1)="_"
:0->C
:End
:sous-Chaine(Chaine1,1,B-D)->Chaine2
:sous-Chaine(Chaine1,B-D,A-B+D)->Chaine3
:For(E,2,D
:Chaine2+"_"->Chaine2
:End
:Chaine2+Chaine3->Chaine1
:longueur(Chaine1)->A
:End
:End



 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 03 Oct 2010, 17:09   Citer 

J'ai eu un peu de mal à comprendre en testant, mais j'ai finit par trouver.
Cependant il ne me semble utile qu'en association avec celui de persalteas.
Si on intègre le tiens à celui de persalteas, on aura besoin de modifier le début ainsi :

Code
: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


Devient ceci.

Code
:Lbl 0
:Input Chaine0
:longueur(Chaine0->L
:If L>225:Goto 0

:Chaîne0->Chaîne1
// celui de tarken //
:Chaîne1->Chaîne0

:" "->Chaine9
:Chaine9->Chaine1
:Chaine9->Chaine2
:Chaine9->Chaine3
:Chaine9->Chaine4
:Chaine9->Chaine5
:Chaine9->Chaine6
:Chaine9->Chaine7
:Chaine9->Chaine8



----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
tarken
Avatar

Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 15 Sep 2009, 15:04
Posté le : Dim 03 Oct 2010, 18:41   Citer 

Exact. Je n'ai pas tout à fait adapté mon programme à celui de persealtas. Mais comme ça on peut l'utiliser dans n'importe quel autre programme.

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Lun 04 Oct 2010, 20:48   Citer 

linkakro, ton programme me met err domaine au moment de la première souschaine.
je n'ai pas encore cherhcé à comprendre pourquoi, j'ai pas beaucoup de temps désolé.

de plus tu utilises la fonction sum( que je traduit en français par suite(, a quoi ça sert, je ne connais pas!

tarken, ton programme ne bugue pas, mais pourtant il me fait des renvois à la ligne en pleine phrase:

bonjour je suis persaltea
s et je teste ce pr (là il me reste plein de place avant le bout de l'écran)
ogramme fait par linkak (je sais pas ou est passé le "ro")


je précise que j'ai recopier le prog de tarken selon tes conseils, linkakro, et que j'ai recopié mon prog après (bon bien sur en enlevant la partie du début) pour l'affichage.

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 04 Oct 2010, 21:17   Citer 

Le programme de tarken prévoie 16 caractères par lignes, au lieu de 25 tel que fait ton programme. (moi j'en ai prévu 22) D'où les sauts de lignes bizarres.

sum = somme (menu liste)
J'ai copié/collé mon texte du forum et envoyé en 83p dans vti, et je n'ai pas eu d'erreur. L'erreur ne doit pas venir de moi.
Il n'y a qu'une seule sous-chaîne (sub). Tu dois confondre avec carchaîne (instring).

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Lun 04 Oct 2010, 21:23   Citer 

tu as raison c'est ça.

et a quoi ça sert, somme?

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 04 Oct 2010, 21:30   Citer 

Toutes les fonctions du menu liste>math permettent d'effectuer des opérations entre chaque terme d'une liste.
exemple :
somme revient au sigma majuscule en maths. Cela donne la somme de tous les termes de la liste.
prod revient au pi des produit. (ne pas confondre avec le pi trigonométrique).

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Lun 04 Oct 2010, 21:36   Citer 

ok je vois merci.

(ps qui n'a rien à voir: le site à des ratés, non? une fois sur deux il met erreur de serveur 404 et compagnie..., a chaque fois que je change de page.)

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Persalteas



Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Lun 04 Oct 2010, 21:47   Citer 

sur le programme de tarken, j'ai err domaine à la 3e ligne de son prog.
ton prog marche, linkakro.
merci beaucoup!!

 Adresse email Haut de page Bas de page 
 
toutti
Invité
Posté le : Dim 10 Oct 2010, 23:28   Citer 

glasses.gif un defilement de bas en haut c'est possible ? ah quand le texte sort de l'ecran j'ai une erreur c'est pas possible de lui dire de supprimer le text qui godgrace.gif va sortir ?

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 10 Oct 2010, 23:59   Citer 

Tu veux dire quand le texte est trop long ? Et avec lequel des programmes ?
Je pensais bosser dessus mais ce n'est pas encore fait. Je m'y remet alors.

Pour défiler à l'envers, il faudrait modifier beaucoup de choses dans mon prog.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Lun 11 Oct 2010, 20:57   Citer 

je te laisse faire.
moi je suis en pause flemmardise en ce moment.

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Page générée en 9 requêtes