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

Ceci est une prévisualisation d'un thème de Hitskin.com
Installer le thème • Retourner sur la fiche du thème

Tout 82
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Tout 82

Mar 7 Mai 2024 - Bienvenue,

Rechercher
 
 

Résultats par :
 

Rechercher Recherche avancée

Connexion

Récupérer mon mot de passe



Chatbox externe


Derniers sujets
» [JEU] Mon voisin du dessous
[résolu]TI82Stat/Ti83 (Basic) une roue.. EmptyDim 16 Oct 2022 - 21:11 par Wistaro

» Bonne année 2018!
[résolu]TI82Stat/Ti83 (Basic) une roue.. EmptyVen 2 Nov 2018 - 19:42 par Ti64CLi++

» Lancement du TI-Concours 2017 !
[résolu]TI82Stat/Ti83 (Basic) une roue.. EmptySam 20 Mai 2017 - 0:27 par Paulo1026

» Chaînes Youtube des membres
[résolu]TI82Stat/Ti83 (Basic) une roue.. EmptyVen 19 Mai 2017 - 22:41 par Wistaro

» cacul du taux d'intêret
[résolu]TI82Stat/Ti83 (Basic) une roue.. EmptyVen 24 Mar 2017 - 21:50 par m@thieu41

» [Projet] Un mario by tout82
[résolu]TI82Stat/Ti83 (Basic) une roue.. EmptyDim 29 Jan 2017 - 14:09 par Wistaro

» Cherche documentation assembleur TI82stat
[résolu]TI82Stat/Ti83 (Basic) une roue.. EmptyMer 25 Jan 2017 - 12:29 par Ti64CLi++

» Probleme Ti-82 Stats fr
[résolu]TI82Stat/Ti83 (Basic) une roue.. EmptyJeu 12 Jan 2017 - 13:56 par Ti64CLi++

» ROM 82 stats.fr
[résolu]TI82Stat/Ti83 (Basic) une roue.. EmptyJeu 15 Déc 2016 - 10:24 par Ti64CLi++

Partenaires
TI-Planet Espace-TI : Forum

Faire un don à Tout-82...
Où va cet argent ?
Membres donateurs:- Persalteas (10€)
- Wistaro (5€)
- jo2geek (22€)

Les posteurs les plus actifs du mois
Aucun utilisateur

Le deal à ne pas rater :
Funko POP! Jumbo One Piece Kaido Dragon Form : où l’acheter ?
Voir le deal

Vous n'êtes pas connecté. Connectez-vous ou enregistrez-vous

Tout 82 » Programmes » Les Programmes des Internautes (TI-Basic z80) » [résolu]TI82Stat/Ti83 (Basic) une roue..

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

5 participants

Aller en bas  Message [Page 1 sur 1]

jo2geek


Connaisseur
Connaisseur

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
[résolu]TI82Stat/Ti83 (Basic) une roue.. AttachmentA1.83p.zip
(1 Ko) Téléchargé 347 fois
[résolu]TI82Stat/Ti83 (Basic) une roue.. Download?action=showthumb&id=13roue.png
(86 Ko) Téléchargé 373 fois



Dernière édition par jo2geek le Sam 15 Fév 2014 - 8:47, édité 2 fois (Raison : rajout dans le descriptif le fait que ça semble touner)

Wistaro

Wistaro
Passioné
Passioné

Coucou, joli programme Smile

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

https://www.youtube.com/user/Wistaro

Linkakro

Linkakro
----------------------
----------------------

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

jo2geek


Connaisseur
Connaisseur

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



Dernière édition par jo2geek le Ven 31 Jan 2014 - 13:50, édité 1 fois

Wistaro

Wistaro
Passioné
Passioné

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

https://www.youtube.com/user/Wistaro

jo2geek


Connaisseur
Connaisseur

Voilà merci Smile

pour la première version
[résolu]TI82Stat/Ti83 (Basic) une roue.. A113

persalteas

persalteas
----------------------
----------------------

C'est vachement beau comme animation Very Happy Bien Joué!!

Continue comme ça... (+1)

https://tout82.forumactif.org

m@thieu41

m@thieu41
----------------------
----------------------

C'est sympa  Bien Joué !

jo2geek


Connaisseur
Connaisseur

Merci pour les encouragements de chacun Smile

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

Linkakro

Linkakro
----------------------
----------------------

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.

persalteas

persalteas
----------------------
----------------------

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

https://tout82.forumactif.org

jo2geek


Connaisseur
Connaisseur

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  Smile

Linkakro

Linkakro
----------------------
----------------------

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.



Dernière édition par Linkakro le Sam 1 Fév 2014 - 19:50, édité 2 fois

jo2geek


Connaisseur
Connaisseur

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

Linkakro

Linkakro
----------------------
----------------------

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



Dernière édition par Linkakro le Sam 1 Fév 2014 - 19:51, édité 1 fois

m@thieu41

m@thieu41
----------------------
----------------------

Spoiler:

jo2geek


Connaisseur
Connaisseur

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

Contenu sponsorisé



Revenir en haut  Message [Page 1 sur 1]

Tout 82 » Programmes » Les Programmes des Internautes (TI-Basic z80) » [résolu]TI82Stat/Ti83 (Basic) une roue..

Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum