Afficher ses cours |
Auteur |
Message |
metallica
Autorisation : Membre
Nb de messages : 108
Inscrit le : Lun 28 Jui 2010, 11:14
|
Posté le : Mer 12 Jan 2011, 15:35
|
|
|
Voilà un programme réutilisable pour écrire ses cours:
PRGM A
Code | :prgmAA
:Ans-)Str1
:length(Str1)-)D
:D-16int(D/16)-)E
:If E
:Str1+sub("_16 espaces_ ",1,16-E)-)Str1
:Delvar P
:Lbl A
:For(A,1,8
:Output(A,1,sub(Str1,16(P+A)-15,16
:End
:Repeat K=45
:getkey-)K
:If max(K={25,34
:Then
:length(Str1)/16-8-)A
:P-(K=25 and P)+(K=34 and P#A-)P
:ClrHome
:Goto A
:End
:End
:ClrHome
:Output(1,1," |
PRGM AA (le cours !)
Code | "LE COURS QUE L'ON VEUT AFFICHER A L'ECRAN " |
Important: Le texte tapé devra possédé un multiple de 16 de nombre de caractères. Pour ce faire, vous devrez si nécessaire écrire des espaces après le dernier caractères du texte écrit.
# correspond à: différent de
-) correspond à: la flèche se trouvant en appuyant sur [sto->]
Les fonctions sont écrites en Anglaises, voici leurs traductions:
Ans = Rép
Str1 = Chaîne 1
Delvar = EffVar
sub( = sous-chaîne(
getkey = codetouche
length( = longueur(
ClrHome = EffEcr
----------------------
Tutoriel sur l'Axe Parser ! |
|
|
|
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mer 12 Jan 2011, 17:20
|
|
|
Code | :length(Str1)-)D
:D-16int(D/16)-)E
:If E
:Str1+sub("_16 espaces_ ",1,16-E)-)Str1 |
En ajoûtant ceci juste après Ans->Str1, l'utilisateur n'a plus à se préoccuper de la longueur de la chaîne multtiple de 16.
---------------------- 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 |
|
|
|
metallica
Autorisation : Membre
Nb de messages : 108
Inscrit le : Lun 28 Jui 2010, 11:14
|
Posté le : Mer 12 Jan 2011, 17:48
|
|
|
Cool! Merci bien du conseil
----------------------
Tutoriel sur l'Axe Parser ! |
|
|
|
perimgui
Autorisation : Membre
Nb de messages : 31
Inscrit le : Ven 14 Jan 2011, 18:59
|
Posté le : Sam 15 Jan 2011, 15:32
|
|
|
sub, en français, c'est quelle fonction ?
|
|
|
|
metallica
Autorisation : Membre
Nb de messages : 108
Inscrit le : Lun 28 Jui 2010, 11:14
|
Posté le : Sam 15 Jan 2011, 17:42
|
|
|
C'est écrit dans le premier post:
sub( = sous-chaîne(
Tu le trouves uniquement dans le catalogue.
----------------------
Tutoriel sur l'Axe Parser ! |
|
|
|
perimgui
Autorisation : Membre
Nb de messages : 31
Inscrit le : Ven 14 Jan 2011, 18:59
|
Posté le : Sam 15 Jan 2011, 17:48
|
|
|
Ok je te remerci grandement !
Au fait, je ne savais pas que l'on pouvait mettre une variable pour le Lbl. Ca sert venir à ce label en fonction de la valeur de la variable, c'est ça ?
|
|
|
|
metallica
Autorisation : Membre
Nb de messages : 108
Inscrit le : Lun 28 Jui 2010, 11:14
|
Posté le : Sam 15 Jan 2011, 18:02
|
|
|
Non, c'est juste la lettre.
PS: Si t'as une TI-82 basique(c'est à dire non stats), le programme ne marchera pas (car les fonctions "chaînes" et "sous-chaîne" n'existent pas sur ces modèles.)
----------------------
Tutoriel sur l'Axe Parser ! |
|
|
|
Google_AdSense
|
Publicité
|
|
|
|
|
perim
Invité
|
Posté le : Sam 15 Jan 2011, 18:09
|
|
|
Non, c'est bon, merci quand même
|
|
|
|
metallica
Autorisation : Membre
Nb de messages : 108
Inscrit le : Lun 28 Jui 2010, 11:14
|
Posté le : Sam 15 Jan 2011, 18:11
|
|
|
De rien.
PS: Une petite précision, écrit au moins 8 lignes de texte
----------------------
Tutoriel sur l'Axe Parser ! |
|
|
|
perimgui
Autorisation : Membre
Nb de messages : 31
Inscrit le : Ven 14 Jan 2011, 18:59
|
Posté le : Sam 15 Jan 2011, 18:17
|
|
|
Pourquoi ? Il bug sinon ?
|
|
|
|
metallica
Autorisation : Membre
Nb de messages : 108
Inscrit le : Lun 28 Jui 2010, 11:14
|
Posté le : Sam 15 Jan 2011, 18:28
|
|
|
Oui, il t'affiche: erreur dim.
----------------------
Tutoriel sur l'Axe Parser ! |
|
|
|
Google_AdSense
|
Publicité
|
|
|
|
|
perimgui
Autorisation : Membre
Nb de messages : 31
Inscrit le : Ven 14 Jan 2011, 18:59
|
Posté le : Sam 15 Jan 2011, 19:04
|
|
|
Mais comment faudrait-il faire pour régler ce problème?
Et mettre des espaces pour des lignes vides, ça compte aussi ? Parce que sinon, ça ne pose pas trop de problème...En plus, je crois que l'espace est considéré comme un caractère.
|
|
|
|
perimgui
Autorisation : Membre
Nb de messages : 31
Inscrit le : Ven 14 Jan 2011, 18:59
|
Posté le : Sam 15 Jan 2011, 19:30
|
|
|
Et donc ce qui retient en mémoire notre "cours", c'est la chaine 1 ?
|
|
|
|
metallica
Autorisation : Membre
Nb de messages : 108
Inscrit le : Lun 28 Jui 2010, 11:14
|
Posté le : Sam 15 Jan 2011, 20:02
|
|
|
Oui c'est ça
Pour répondre à ta question, bien sûr que tu peux remplir avec des espaces.
----------------------
Tutoriel sur l'Axe Parser ! |
|
|
|
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Dim 16 Jan 2011, 19:08
|
|
|
Citer : perimgui | Et donc ce qui retient en mémoire notre "cours", c'est la chaine 1 ? |
NON : la chaîne ne sert qu'à l'affichage. On risque de perdre la chaîne.
Le texte est conservé dans un programme. C'est plus pratique et il n'y a que 10 chaînes. Toutefois "A" n'appelle que "AA".
D'ailleurs on a pas besoin du programme "A" car on peut lire ses cours sans.
MAIS la prouesse d'affichage de ce prog est intéresante.
=================
Pour la contrainte de longueur suppérieure à 8 lignesVoici une solution.
Je publie directemnt la totalité du prog car deux modifs sont faîtes.
Code | :prgmAA
:Ans-)Str1
:length(Str1)-)D
:D-16int(D/16)-)E
:If E
:Str1+sub("_16 espaces_ ",1,16-E)-)Str1
:length(Str1)->D // ajoûté
:min(8,D/16)->F //
:Delvar P
:Lbl A
:For(A,1,F // J'ai remplacé 8 par F
:Output(A,1,sub(Str1,16(P+A)-15,16
:End
:Repeat K=45
:getkey-)K
:If max(K={25,34
:Then
:length(Str1)/16-8-)A
:P-(K=25 and P)+(K=34 and P#A-)P
:ClrHome
:Goto A
:End
:End
:ClrHome
:Output(1,1," |
---------------------- 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 |
|
|
|