Gamme TI-82


Poster un nouveau sujet Poster une réponse Page: 1,      >>
(Prog) Noël (Prog)
Auteur Message
S.L



Autorisation : Membre
Nb de messages : 101
Inscrit le : Jeu 02 Jui 2011, 15:17
Posté le : Dim 29 Juil 2012, 0:45   Citer 

Salut à tous, voici un petit programme qui se nomme noël /oui je sais on est pas en hiver mais bon, ya pas de saison pour les programmes/ et qui consiste à afficher des flocons de neiges qui tombent... Je vous laisse apprécier.
Nom: Noël
Taille: 342 octets
Auteur: S.L

-> : flèche sto
Fonctions en français

Code
PROGRAM:NOEL
:EffEcr
:1->A
:4->B
:2->C
:8->D
:3->E
:6->F
:4->G
:12->H
:5->I
:9->J
:6->K
:3->L
:Lbl 1
:A+1->A
:C+1->C
:E+1->E
:G+1->G
:I+1->I
:K+1->K
:EffEcr
:Output(A,B,"*
:Output(C,D,".
:Output(E,F,"*
:Output(G,H,".
:Output(I,J,"*
:Output(K,L,".
:If A=8:Then:1->A
:entAléat(1,16)->B:End
:If C=8:Then:1->C
:entAléat(1,16)->D:End
:If E=8:Then:1->E
:entAléat(1,16)->F:End
:If G=8:Then:1->G
:entAléat(1,16)->H:End
:If I=8:Then:1->I
:entAléat(1,16)->J:End
:If K=8:Then:1->8
:entAléat(1,16)->L:End
:codeTouche->M
:If M=105:Then
:EffEcr
:Disp "JOYEUX NOEL!
:Pause
:EffEcr
:Stop
:End
:If M=45:Then
:EffEcr
:Stop
:End
:Goto 1



----------------------

L'homme est né pour programmer.
Émulateur de TI en ligne! Chat de Tout82!
Mes jeux: Bouge!;WallJump;Mouche;Enter;UPMario;Mémoriz;Copter;Pong2P;Pokémon;MineCraft
Mes Prog: XCodeX;IMC;Matrix;Noël

SL-TIProg :site en cours de création.
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Dim 29 Juil 2012, 17:48   Citer 

Oulà ! L'idée et sympa mais niveau optimisation c'est un massacre !
Utilise une liste au lieu des variables et une chaîne pour les caractères:
Output(A,L1(X),sous-Chaîne(Chaîne1,entAléat(1,3))
Avec Chaîne1 = "espace étoile point".
Sûr qu'il peut prendre trois fois moins place !
J'ai essayer ! Pas mal sinon winkle.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
S.L



Autorisation : Membre
Nb de messages : 101
Inscrit le : Jeu 02 Jui 2011, 15:17
Posté le : Dim 29 Juil 2012, 18:09   Citer 

Désolé, mais je n'ai jamais utilisé de liste ni de chaîne, je ne sais donc pas comment faire cry.gif
Enfaite, penses à mettre ta bannière dans ta signature happy.gif

----------------------

L'homme est né pour programmer.
Émulateur de TI en ligne! Chat de Tout82!
Mes jeux: Bouge!;WallJump;Mouche;Enter;UPMario;Mémoriz;Copter;Pong2P;Pokémon;MineCraft
Mes Prog: XCodeX;IMC;Matrix;Noël

SL-TIProg :site en cours de création.
 Adresse email Haut de page Bas de page 
 
snap



Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Lun 30 Juil 2012, 0:03   Citer 

Voila, j'ai mis les variables sous forme de liste, mais je n'ai pas utilisé les chaînes, je ne voyait pas l'intérêt. J'arrive à sa :


Code
{1,4,2,8,3,6,4,12,5,9,6,3 -> L1
Repeat M=45 ou M=105
For(Z,1,11,2
1+L1(Z -> L1(Z
End
Effecr
For(Z,1,9,4
Output(L1(Z),L1(Z+1),"*
Output(L1(Z+2),L1(Z+3),"-
End
For(Z,1,11,2
If 8=L1(Z : Z+1 -> W
End
If W : Then
1 -> L1(W-1
entaléat(1,16 -> L1(W
End
codeTouche -> M
End
Disp"JOYEUX NOEL!
Pause
Effecr
Output(1,1,"



J'ai pas testé ton programme de départ, la flemme de recopier (désolé ^^) donc si sa va moins vite ou si c'est pas pareil, dit le moi je saurais quoi changer.

----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes happy.gif
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr
 Adresse email Haut de page Bas de page 
 
S.L



Autorisation : Membre
Nb de messages : 101
Inscrit le : Jeu 02 Jui 2011, 15:17
Posté le : Lun 30 Juil 2012, 11:09   Citer 

Ok je testerais ça quand j'aurais le temps happy.gif

----------------------

L'homme est né pour programmer.
Émulateur de TI en ligne! Chat de Tout82!
Mes jeux: Bouge!;WallJump;Mouche;Enter;UPMario;Mémoriz;Copter;Pong2P;Pokémon;MineCraft
Mes Prog: XCodeX;IMC;Matrix;Noël

SL-TIProg :site en cours de création.
 Adresse email Haut de page Bas de page 
 
Keralis
Invité
Posté le : Mar 18 Sep 2012, 21:40   Citer 

salut je n'arrive pas a mettre le * dans un programme, je mets le fois mais il me dis erreur svp cry.gif .
merci.

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3772
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mar 18 Sep 2012, 22:06   Citer 

Quel type d'erreur ? syntaxe ?
Le début de la ligne doit être faux. L1 se saisi avec 2nde+1 , et les parenthèses/virgules doivent être correctement placé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 
 
Thunderbolt



Autorisation : Membre
Nb de messages : 7
Inscrit le : Mar 04 Nov 2014, 19:04
Posté le : Jeu 06 Nov 2014, 17:28   Citer 

salut, a la ligne

Code
1->L1(W-1)


Il m'affiche une erreur : DIM INVALIDE
j'ai essayé avec et sans parenthèse mais ca ne change rien :/
Bref merci d'avance pour votre réponse

----------------------
Anarchy mother f*cker !
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3772
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 06 Nov 2014, 21:00   Citer 

W est fausse. Par exemple elle donne une valeur de position qui dépasse de la liste.
Saisis {W,Z,M} dans l'écran de calcul pour connaître les valeurs des trois variables. Ensuite nous pourrons chercher la cause en connaissant complètement le symptome.

----------------------
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 
 
Un Inconnu
Invité
Posté le : Dim 16 Nov 2014, 14:24   Citer 

Bonjour/Bonsoir à tous !

Je viens ici car j'ai le même problème que Thunderbolt et comme je ne m'y connaît pas beaucoup en TI, je voudrais savoir comment résoudre cette erreur.

Merci d'avance.

P.S: Je suis avec une TI 82 plus laugh.gif

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3772
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 16 Nov 2014, 16:56   Citer 

La valeur de W est incohérente avec la liste L1. Nous devons chercher pourquoi.
J'ai déjà demandé d'examiner les variables, mais sans réponse, alors cette fois j'interprète le code moi-même. (mais pas envie de le tester)

Je pense qu'un End est mal placé. Ma correction ci-dessous.
EDIT:16/11/2014 22heures : je modifie encore : retiré le test juste avant l'ancien End faux et modifié la suite pour adapter.

Code
 // version optimisée par snap
 // corrigée par linkakro
{1,4,2,8,3,6,4,12,5,9,6,3 -> L1
Repeat M=45 ou M=105
For(Z,1,11,2
1+L1(Z -> L1(Z
End
EffEcr
For(Z,1,9,4
Output(L1(Z),L1(Z+1),"*
Output(L1(Z+2),L1(Z+3),"-
End
For(Z,1,11,2
 /////////////// Le test ici était incohérent avec sa place, je le retire.
 /////////////////// Le End ici était faux.
If 8=L1(Z                 ///// L1(Z
Then
1 -> L1(Z                 ///// L1(Z
entaléat(1,16 -> L1(Z+1   ///// L1(Z+1
End
End ////////////// le End ici est ajouté
codeTouche -> M
End
Disp"JOYEUX NOEL!
Pause
Effecr
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
 Adresse email Haut de page Bas de page 
 
JeSuis42



Autorisation : Membre
Nb de messages : 5
Inscrit le : Dim 16 Nov 2014, 15:15
Posté le : Dim 16 Nov 2014, 18:45   Citer 

J'ai ce que tu as dis linkakro (je suis "un inconnu") j'ai eu comme résultat {1 13 1}
Je viens de tester ta version, mais toujours le même problème :/
Merci de ton aide happy.gif
glasses.gif

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3772
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 16 Nov 2014, 22:12   Citer 

J'ai corrigé ce qui était incohérent en modifiant mon message précédent. Pour y parvenir j'ai comparé les deux programmes précédents pour tenter de deviner le raisonnement de snap.

----------------------
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 
 
JeSuis42



Autorisation : Membre
Nb de messages : 5
Inscrit le : Dim 16 Nov 2014, 15:15
Posté le : Dim 16 Nov 2014, 23:26   Citer 

Ça marche enfin happy.gif

Merci linkakro \o/

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
adrien41
Invité
Posté le : Ven 02 Jan 2015, 10:49   Citer 

Salut à tous. J'ai eu une idée mais je ne sais pas comment faire: faire en sorte que le message puisse s'afficher sur l'écran en appuyant sur entrer et que la "neige" tombe en même temps. Merci d'avance à ceux qui auront une idée.

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3772
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 02 Jan 2015, 19:48   Citer 

La touche entrer est déjà détectée avec la valeur 105 de la variable M.
Utilise une variable supplémentaire pour mémoriser que la touche a été pressée au moins une fois et affecte la avec une condition M=105. Retire la condition M=105 de la boucle Repeat afin de ne pas quitter avec entrer. Puis déplace le texte dans la boucle et soumet le à une condition sur la variable mémoire ajoutée précédemment.


Code
//basée sur la version de snap et linkakro

0->N // mémoire ajoutée
{1,4,2,8,3,6,4,12,5,9,6,3 -> L1
Repeat M=45 // la touche annul seule
For(Z,1,11,2
1+L1(Z -> L1(Z
End
EffEcr

If M=105 // touche entrée au tour précédent
1->N
If N // touche entrée au moins une fois (N non nul)
Disp "JOYEUX NOEL! // message

For(Z,1,9,4
Output(L1(Z),L1(Z+1),"*
Output(L1(Z+2),L1(Z+3),"-
End
For(Z,1,11,2
If 8=L1(Z
Then
1 -> L1(Z
entaléat(1,16 -> L1(Z+1
End
End
codeTouche -> M
End



----------------------
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 
 
Google_AdSense



Publicité    



 
adrien41
Invité
Posté le : Sam 03 Jan 2015, 10:39   Citer 

Sa efface directement l'ecran et on voit rien du programme

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3772
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 03 Jan 2015, 12:28   Citer 

Mon test fonctionne parfaitement. Donc si tu as effectivement un problème j'aurais besoin d'une description plus précise pour tenter de deviner une erreur de ta part.
Vérifie aussi le Repeat.

Ou bien ta demande initiale est ambiguë. J'interprète que la neige tombe déjà avant la pression sur la touche entrer. Tandis que tu voulais peut-être désigner la simultanéité entre le message et la chute.

Citer
faire en sorte que le message puisse s'afficher sur l'écran en appuyant sur entrer et que la "neige" tombe en même temps.


Si tu veux appuyer sur entrer pour commander le démarrage du programme au lieu de seulement le message alors une pause au début du programme suffira.

Code
Pause // la pause, mais la neige ne tombe pas en même temps
{1,4,2,8,3,6,4,12,5,9,6,3 -> L1
Repeat M=45
For(Z,1,11,2
1+L1(Z -> L1(Z
End
EffEcr
Disp "JOYEUX NOEL!   // le message dans tous les cas
For(Z,1,9,4
Output(L1(Z),L1(Z+1),"*
Output(L1(Z+2),L1(Z+3),"-
End
For(Z,1,11,2
If 8=L1(Z
Then
1 -> L1(Z
entaléat(1,16 -> L1(Z+1
End
End
codeTouche -> M
End



----------------------
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 
 
adrien41
Invité
Posté le : Sam 03 Jan 2015, 13:23   Citer 

En fait,pour etre plus clair,voici comment j'aurais voulu que le prgm fonctionne:
-ouverture
-la neige tombe
-tu appuie sur une touche
-"JOYEUX NOEL!" apparait et la neige tombe en meme temps
-tu rappuie sur la touche
-le message s'efface et la neige tombe

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3772
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 04 Jan 2015, 21:52   Citer 


Code
{1,4,2,8,3,6,4,12,5,9,6,3 -> L1
0->N
Repeat M=45
For(Z,1,11,2
1+L1(Z -> L1(Z
End
EffEcr

If K=105
non(N->N  // non(1)=0 et non(0)=1
If N
Disp "JOYEUX NOEL!

For(Z,1,9,4
Output(L1(Z),L1(Z+1),"*
Output(L1(Z+2),L1(Z+3),"-
End
For(Z,1,11,2
If 8=L1(Z
Then
1 -> L1(Z
entaléat(1,16 -> L1(Z+1
End
End
codeTouche -> M
End



----------------------
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 
 
Google_AdSense



Publicité    



 
Poster un nouveau sujet Poster une réponse Page: 1,      >>





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2020 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink