[résolu]TI82Stat/Ti83 (Basic) une roue..

par **jo2geek** Jeu 30 Jan 2014 - 21:47

Bonjour tout est dans le titre
(une roue qui semble tourner..)

en TI basic je me suis amusé à faire ce programme
qui ne sert à rien...

le code

Code:: :1→Xmin :1→Ymin :95→Xmax :63→Ymax :0→Xscl :0→Yscl :ClrDraw :CoordOff :ClrHome :Degree :(Xmax-Xmin)/2→A :(Ymax-Ymin)/2→B :30→R :Circle(A,B,R :For(I,0,360,30 : Line(A,B,A+Rcos(I),B+Rsin(I) :End :StorePic Pic1 :For(I,0,360,30) : Line(A,B,A+Rcos(I),B+Rsin(I),0 :End : :For(I,15,360,30 : Line(A,B,A+Rcos(I),B+Rsin(I) :End :StorePic Pic2 :For(I,100,1,‾1 : ClrDraw : RecallPic Pic1 : For(W,1,I:End : ClrDraw : RecallPic Pic2 : For(W,1,I:End :End :Disp "FIN :

à terme si j'ai le temps et la motivation je ferai des engrenages.

Fichiers joints

: A1.83p.zip (1 Ko) Téléchargé 346 fois

: roue.png (86 Ko) Téléchargé 372 fois

par **Wistaro** Jeu 30 Jan 2014 - 23:47

Coucou, joli programme Smile

En revanche, ta fenête d'affichage peut être optimisée (a mon avis)

par **Linkakro** Ven 31 Jan 2014 - 1:05

Tu as pratiqué seul le dessin polaire/cartésien et cela me satisfait. L'utilité est plus pour toi que pour nous.

Il aurait été plus simple (et fiable) d'effacer l'écran après le premier dessin et redessiner aussi le cercle (ou même utiliser une Pic/Img) que d'effacer uniquement les lignes.

préparer graphe
dessiner cercle
stocker img2
dessiner fuseaux 1
stocker img1
effacer dessin
rappeler img2 // le cercle
dessiner fuseaux 2
stocke img2
boucle de clignotement

par **jo2geek** Ven 31 Jan 2014 - 7:48

Merci à vous deux

oui c'est sûr comme je le disais ça ne sert à personne en fait, et pas très utile à qui que ce soit...
Je vais faire la version 2 selon les derniers conseils de l'algo.

En fait ce petit programme ce sera pour moi, une base pour faire la même chose mais en assembleur... - mon premier programme dans ce nouveau langage - et là les difficultés vont se présenter

L'occasion d'un autre autre billet... mais je pense que vous saurez m'aider.

petite question au passage, avec quoi faites-vous les images animée sur ce site (des gifs animés ?) vous avez un outil ? Merci

par **Wistaro** Ven 31 Jan 2014 - 13:26

Pour faire les images animées, c'est très simple: utilise l'émulateur WabbitEmu sur PC:
https://tout82.forumactif.org/t29-utiliser-l-emulateur-wabbitemu?highlight=wabbitemu

par **jo2geek** Ven 31 Jan 2014 - 14:05

Voilà merci Smile

pour la première version

[résolu]TI82Stat/Ti83 (Basic) une roue.. A113

par **persalteas** Ven 31 Jan 2014 - 14:14

C'est vachement beau comme animation Very Happy

!!

Continue comme ça... (+1)

par **m@thieu41** Sam 1 Fév 2014 - 11:23

C'est sympa Bien Joué

!

par **jo2geek** Sam 1 Fév 2014 - 11:26

Merci pour les encouragements de chacun Smile

petite question en passant.. il vaux mieux mettre le code ? ou mettre un xx.83P

par **Linkakro** Sam 1 Fév 2014 - 14:53

La bonne habitude est de poster le code et d'héberger le programme.
Et sur TICalc.org il est tout-à-fait faisable de placer un zip avec le programme et le code ensemble.
Bien que le programme donne accès au code, on n'a pas tous d'éditeur pour en créer un code.

par **persalteas** Sam 1 Fév 2014 - 15:44

Le problème de TI-Calc, c'est qu'il n'accepte pas les programmes non terminés (en développement), et qu'en plus il faut attendre la validation...

TI-Planet est plus tolérant.

Mais oui, mieux vaut poster le code source sur le forum, c'est mieux...
Poster aussi le fichier va permettre d'avoir des réponses plus rapides Smile

par **jo2geek** Sam 1 Fév 2014 - 17:02

Bonjour
voila la version 2 juste le code alors (j’utilise Ti-Editor en ligne... mais il traduit en anglais... il y a peut-être mieux ?)
les touches pas trop réactives... sans doute code un peu à revoir..
la touche haut et bas pour augmenter/diminuer la vitesse
la touche 2nde pour arrêter
un bug (de ma façon de faire pour la touche Entrer ? ça arrête bizarrement le programme...
la touche On arrête également

[résolu]TI82Stat/Ti83 (Basic) une roue.. Roue210

Code:: :1→Xmin :1→Ymin :95→Xmax :63→Ymax :0→Xscl :0→Yscl :ClrDraw :CoordOff :ClrHome :25→P :Degree :(Xmax-Xmin)/2→A :(Ymax-Ymin)/2→B :Text(5,1,"V: :Text(B-2,A-10,"ROUE 2 :30→R :Circle(A,B,R :20→C :Circle(A,B,C :StorePic Pic2 :For(I,0,360,30 : Line(A+Ccos(I),B+Csin(I),A+Rcos(I),B+Rsin(I) :End :StorePic Pic1 :ClrDraw :RecallPic Pic2 :For(I,15,360,30 : Line(A+Ccos(I),B+Csin(I),A+Rcos(I),B+Rsin(I) :End :StorePic Pic2 :Lbl D :10P→I :0→K :While K≠21 : getKey→K : If K=25 and I≥P:I-P→I : If K=34 and I<19P:I+P→I : 20P-I→V : ClrDraw : RecallPic Pic1 : Text(5,8,V : For(W,1,I:End : ClrDraw : RecallPic Pic2 : Text(5,8,V : For(W,1,I:End :End :Disp "FIN :

à bientôt

par **Linkakro** Sam 1 Fév 2014 - 17:54

anglais vs français:

Code:: : For(W,1,I:End

est certes fonctionnel mais je n'aime pas prescrire de jouer avec la juxtaposition des lignes en même temps que d'abréger les syntaxes de fermeture. Cela apporte des problèmes évidents avec des chaînes de caractère en dur. Et cela apporte d'autres problèmes bien plus étranges avec quelques défaut de TI (DelVar, sto, l'algorithmie, les guillemets).

Tu as un cycle de deux paires d'affichage et effacement et deux temporisations qui sont exécutées dans la même boucle que les tests de touches. C'est normal que la saisie des touches ne soit pas réactive si non appuie sur la touche juste après le test de touche. L'exécution est séquentielle je te rappelle.

par **jo2geek** Sam 1 Fév 2014 - 18:32

Merci Linkakro
si je comprends bien soit j'écris

Code:: For(W,1,I):End

de cette façon sur une seule ligne
soit sur 2 lignes

Code:: For(W,1,I: End

ainsi la visibilité est meilleur et moins source de problème

par **Linkakro** Sam 1 Fév 2014 - 18:56

Les deux points de la fin ne servent à rien si tu reviens à la ligne. Je recommande simplement une de ces écritures.

Code:: :For(W,1,I):End :For(W,1,I :End

Heureusement les problèmes sont rares et dans des cas très particuliers.

Mais à quoi je pensais moi en écrivant ça ???:

par **m@thieu41** Sam 1 Fév 2014 - 19:45

Spoiler:

par **jo2geek** Sam 1 Fév 2014 - 20:02

Pour ne rien vous cacher je n'avais pas compris à ce "je n'aime pas prescrire de jour avec la juxtaposition" mais j’avais noté que ma syntaxe pouvait dans certains cas être source d'erreur.
merci des conseils Smile

par Contenu sponsorisé

[résolu]TI82Stat/Ti83 (Basic) une roue..

[résolu]TI82Stat/Ti83 (Basic) une roue..

Re: [résolu]TI82Stat/Ti83 (Basic) une roue..

Re: [résolu]TI82Stat/Ti83 (Basic) une roue..

Re: [résolu]TI82Stat/Ti83 (Basic) une roue..

Re: [résolu]TI82Stat/Ti83 (Basic) une roue..

Re: [résolu]TI82Stat/Ti83 (Basic) une roue..

Re: [résolu]TI82Stat/Ti83 (Basic) une roue..

Re: [résolu]TI82Stat/Ti83 (Basic) une roue..

Re: [résolu]TI82Stat/Ti83 (Basic) une roue..

Re: [résolu]TI82Stat/Ti83 (Basic) une roue..

Re: [résolu]TI82Stat/Ti83 (Basic) une roue..

Re: [résolu]TI82Stat/Ti83 (Basic) une roue..

Re: [résolu]TI82Stat/Ti83 (Basic) une roue..

Re: [résolu]TI82Stat/Ti83 (Basic) une roue..

Re: [résolu]TI82Stat/Ti83 (Basic) une roue..

Re: [résolu]TI82Stat/Ti83 (Basic) une roue..

Re: [résolu]TI82Stat/Ti83 (Basic) une roue..

Re: [résolu]TI82Stat/Ti83 (Basic) une roue..


TI-Planet	Espace-TI : Forum