Tout 82
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
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 :
Cartes Pokémon EV8.5 : coffret dresseur d’élite ETB Évolutions ...
Voir le deal

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

5 participants

Aller en bas

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

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

jo2geek
Connaisseur
Connaisseur

Messages : 116
Points Concours : 81
Productivité : 9
Date d'inscription : 27/01/2014
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Revenir en haut Aller en bas

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

Message 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)
Wistaro
Wistaro
Passioné
Passioné

Messages : 918
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :
  • TI-82
  • TI-82 Stats
  • TI-82 Stats.fr

. : TI-82 Stats.fr

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

Revenir en haut Aller en bas

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

Message 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
Linkakro
Linkakro
----------------------
----------------------

Messages : 533
Points Concours : 55
Productivité : 31
Date d'inscription : 30/07/2013
Localisation : origine région centre, puis perpignan
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Revenir en haut Aller en bas

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

Message 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


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

jo2geek
Connaisseur
Connaisseur

Messages : 116
Points Concours : 81
Productivité : 9
Date d'inscription : 27/01/2014
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Revenir en haut Aller en bas

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

Message 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
Wistaro
Wistaro
Passioné
Passioné

Messages : 918
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :
  • TI-82
  • TI-82 Stats
  • TI-82 Stats.fr

. : TI-82 Stats.fr

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

Revenir en haut Aller en bas

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

Message par jo2geek Ven 31 Jan 2014 - 14:05

Voilà merci Smile

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

jo2geek
Connaisseur
Connaisseur

Messages : 116
Points Concours : 81
Productivité : 9
Date d'inscription : 27/01/2014
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Revenir en haut Aller en bas

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

Message par persalteas Ven 31 Jan 2014 - 14:14

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

Continue comme ça... (+1)
persalteas
persalteas
----------------------
----------------------

Messages : 483
Points Concours : 152
Productivité : 39
Date d'inscription : 06/12/2012
Localisation : Savoie, France
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

https://tout82.forumactif.org

Revenir en haut Aller en bas

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

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

C'est sympa  Bien Joué !
m@thieu41
m@thieu41
----------------------
----------------------

Messages : 939
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Revenir en haut Aller en bas

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

Message 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

jo2geek
Connaisseur
Connaisseur

Messages : 116
Points Concours : 81
Productivité : 9
Date d'inscription : 27/01/2014
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Revenir en haut Aller en bas

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

Message 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.
Linkakro
Linkakro
----------------------
----------------------

Messages : 533
Points Concours : 55
Productivité : 31
Date d'inscription : 30/07/2013
Localisation : origine région centre, puis perpignan
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Revenir en haut Aller en bas

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

Message 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
persalteas
persalteas
----------------------
----------------------

Messages : 483
Points Concours : 152
Productivité : 39
Date d'inscription : 06/12/2012
Localisation : Savoie, France
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

https://tout82.forumactif.org

Revenir en haut Aller en bas

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

Message 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  Smile

jo2geek
Connaisseur
Connaisseur

Messages : 116
Points Concours : 81
Productivité : 9
Date d'inscription : 27/01/2014
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Revenir en haut Aller en bas

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

Message 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.


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

Messages : 533
Points Concours : 55
Productivité : 31
Date d'inscription : 30/07/2013
Localisation : origine région centre, puis perpignan
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Revenir en haut Aller en bas

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

Message 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

jo2geek
Connaisseur
Connaisseur

Messages : 116
Points Concours : 81
Productivité : 9
Date d'inscription : 27/01/2014
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Revenir en haut Aller en bas

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

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


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

Messages : 533
Points Concours : 55
Productivité : 31
Date d'inscription : 30/07/2013
Localisation : origine région centre, puis perpignan
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Revenir en haut Aller en bas

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

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

Spoiler:
m@thieu41
m@thieu41
----------------------
----------------------

Messages : 939
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Revenir en haut Aller en bas

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

Message 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

jo2geek
Connaisseur
Connaisseur

Messages : 116
Points Concours : 81
Productivité : 9
Date d'inscription : 27/01/2014
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Revenir en haut Aller en bas

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

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

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