| EDITTEXT (203 octets) |
| Auteur |
Message |
Mecha
Autorisation : Membre
Nb de messages : 6
Inscrit le : Lun 22 Mar 2010, 21:11
|
Posté le : Lun 22 Mar 2010, 22:13
|
|
 |
Bonsoir bonsoir 
Je vous présente un de mes programmes qui permet de simplifier la mise en page d'un texte sur le graphique de votre calto.
Tout d'abord, voci le fameux programme dont il est question:
| Code | ClrHome
Output(4,3,"MECHA (2010)
FnOff
AxesOff
ClrDraw
1ü A
1üB
2üC
Repeat 0
" üStr9
While Str9ø"õ" and Str9ø"ö" and Str9ø"ô
sub(Str8,A,1üStr9
A+1üA
End
If B>55
Then
Pause
ClrDraw
1üB
End
Text(B,1,sub(Str8,C-1,A-C
A+1üC
B+6üB
If Str9="ö
Then
Pause
ClrDraw
1üB
End
If Str9=ô
Then
Pause
ClrDraw
AxesOn
FnOn
Output(1,1,"
Stop
End
End |
Votre texte est à inclure dans Str8 comme ceci:
| Code | | "[VOTRE TEXTE]üStr8 |
Certains symboles permettent de modifier la mise en page de votre texte:
- Tapez õ pour passer a la ligne.
- Tapez ö pour mettre le programme en pause et passer à une nouvelle page lors de la pression de la touche [ENTER].
- Tapez ô pour finir votre texte.
Vous pouvez aussi inclure votre texte dans un programe. Exemple:
| Code | "EXEMPLE DE TEXTEõPASSE A LA LIGNEöNOUVELLE PAGEõVOUS VOYER C'EST ASSEZõSIMPLE D'UTILISATIONôüStr8
prgmEDITTEXT
|
Surtout, n'oubliez pas le ô à la fin de votre texte.
õ -> [2ND]+[MATRX]+[3]
ö -> [MATRX]+[DROITE]+[2]
ô -> [2ND]+[MATRX]+[ENTER]
ü -> [STO->]
ø -> [2ND]+[MATH]+[2]
Le seul problème, c'est que le programme est assez long à afficher un texte.
Si vous avez des idées pour améliorer le programme, n'hésitez pas à en faire part 
|
 |
  |
| |
Monstercrunch
Autorisation : Membre
Nb de messages : 252
Inscrit le : Sam 10 Oct 2009, 16:33
|
Posté le : Mar 23 Mar 2010, 15:24
|
|
|
Ça a l'air super sympa, mais un petit 83p ne serait pas de refus !
|
| |
|
| |
Mecha
Autorisation : Membre
Nb de messages : 6
Inscrit le : Lun 22 Mar 2010, 21:11
|
Posté le : Mar 23 Mar 2010, 17:06
|
|
|
Tu peux très bien faire un copier/coller dans TI Graph Link non ?!
Mais tiens, cado 
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mar 23 Mar 2010, 22:34
|
|
|
C'est interessant ! Bravo. Mais ça ne me sert pas.
----------------------
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 |
| |
|
| |
Rézus
Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35
|
Posté le : Mer 24 Mar 2010, 15:42
|
|
|
Pour accélérer le programme tu peux remplacer tes boucles Lbl/Goto par des boucles For(
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
Mecha
Autorisation : Membre
Nb de messages : 6
Inscrit le : Lun 22 Mar 2010, 21:11
|
Posté le : Mer 24 Mar 2010, 17:10
|
|
|
| Citer : Rézus | | Pour accélérer le programme tu peux remplacer tes boucles Lbl/Goto par des boucles For( |
En effet, j'y avais pas pensé. Mais que mettre après For( ?
Je peux mettre un For(I,1,? mais que mettre à la place du '?' ?
Ca accélèrerait le programme si je met un While ou un Repeat ?
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mer 24 Mar 2010, 17:59
|
|
|
ça dépend de ton but ou de la lisibilité
While A=1 ----> tant que A=1
repeat A=1 -----> jusqu'à ce que A=1
for(variable,valeur_départ,valeur_fin,pas ----> à chaque boucle la variable est incrémentée du pas, qui peut être négatif.
Le for est avantageux quand il y a des incréments ou décréments systématiques.
Le pas est par défaut 1
Le repeat ne le fait le test qu'à la sortie tandis que le while permet de faire un test aussi à l'entrée
Si le but est juste une boucle infini alors tape while 1 ou repeat 0
N'oublie pas le End à la place du goto, ce serait balot ^^
----------------------
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 |
| |
|
| |
Mecha
Autorisation : Membre
Nb de messages : 6
Inscrit le : Lun 22 Mar 2010, 21:11
|
Posté le : Mer 24 Mar 2010, 20:30
|
|
|
| Citer : linkakro | ça dépend de ton but ou de la lisibilité
While A=1 ----> tant que A=1
repeat A=1 -----> jusqu'à ce que A=1
for(variable,valeur_départ,valeur_fin,pas ----> à chaque boucle la variable est incrémentée du pas, qui peut être négatif.
le for est avantageux quand il y a des incréments ou décréments systématiques.
si le pas est positif alors une valeur de fin inférieure à la valeur de départ provoque une boucle infini. le pas est par défaut 1
le repeat ne le fait le test qu'à la sortie tandis que le while permet de faire un test aussi à l'entrée
si le but est juste une boucle infini alors tape while 1 ou repeat 0
n'oublie pas le End à la place du goto, ce serait balot ^^ |
Merci 
J'ai édité le premier post !
Bon maintenant je vais essayer de faire un système pour pouvoir aligner le texte à droite, le centré (...)
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mer 24 Mar 2010, 20:53
|
|
|
Attention j'ai corrigé mon message précédent (celui cité) !
Quand j'ai dit que le for devenait infini avec valeur de fin inférieure à celle du début je me suis complètement trompé !
----------------------
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 |
| |
|
| |
Rézus
Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35
|
Posté le : Sam 27 Mar 2010, 21:41
|
|
|
Non,tu ne t'es pas trompé,quand le pas est positf,si la valeur d'arrivée est inférieure a la valeur de départ,la boucle est infinie (ou s'arrête quand elle atteint 9E99 mais la faut vraiment y aller) ça marche aussi si la valeur qui est incrémentée ne peut pas être égale à la valeur d'arrivée,exemple:For(A,0,1,2
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Dim 28 Mar 2010, 0:23
|
|
|
Sur ma 82 stat fr ce n'est pas la cas ! 
Quand je met W,10,2,1 la boucle n'est pas lue, W,2,3.5,1 elle est lue pour W=2 puis W=3. Et pour W,2,2,1 elle est lue une fois.
Conclusion : Sur ma 82-stat-fr, pour un pas positif, l'entrée dans la boucle ne se fait que si [début] [<ou=] [fin] et la sortie se fait si W>[fin] (strictement). Donc une valeur même qui n'est pas exactement atteinte provoque tout de même un arrêt.
----------------------
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 |
| |
|
| |
